greencolor - 博客园

2011年8月16日

摘要： STRATEGY.c.body.strategyadd_matrix_tb.c.tbf.strategy.amtbalignment_frame.c.body.strategy.afalignment_scroll.c.body.strategy.af.asalignment_tree.c.body.strategy.af.atanomalous_tb.c.tbf.strategy.atbauto_complete_b.c.body.strategy.acbbreakdown.c.body.strategy.breakdownbreakdown_combo.c.body.strategy.bc 阅读全文

posted @ 2011-08-16 16:30 greencolor 阅读(179) 评论(0) 推荐(0)

2011年8月14日

Fileopen

摘要： # If necessary create the "Open project" dialog if {![winfo exists .openProject]} {Fileopen .openProject \ -type open \ -initialdir [pwd] \ -filtertypes {{"Mosflm projects" {.mos}} {"All Files" {.*}}} } # Get file name (as full path) from user set l_project_file [.openP 阅读全文

posted @ 2011-08-14 09:58 greencolor 阅读(177) 评论(0) 推荐(0)

2011年8月12日

\#auto in two different class

摘要： class cc { public method changtextconstructor { args } {puts $args}}body cc::changtext { args } {set dd [namespace current]::[dd \#auto ]return $dd}# if the class dd is a important class, and class dd {public method chanconstructor {args} {}}body dd::chan { args } {puts $args}cc ttset aa [tt changte 阅读全文

posted @ 2011-08-12 15:57 greencolor 阅读(118) 评论(0) 推荐(0)

raise

摘要： raise - Change a window's position in the stacking orderbutton .b -text "Hi there!"pack [frame .f -background blue]pack [label .f.l1 -text "This is above"]pack .b -in .fpack [label .f.l2 -text "This is below"]raise .b 阅读全文

posted @ 2011-08-12 15:05 greencolor 阅读(116) 评论(0) 推荐(0)

open and read a file content to a variable

摘要： set l_file_handle [::open $a_file r]set content [::read $l_file_handle]::close $l_file_handle 阅读全文

posted @ 2011-08-12 13:12 greencolor 阅读(171) 评论(0) 推荐(0)

obtain exe output

摘要： obtain exe outcatch {exec$executepath << secondcommand} outputstring] 阅读全文

posted @ 2011-08-12 11:22 greencolor 阅读(117) 评论(0) 推荐(0)

wm

摘要： #Close main windowwm withdraw .# Show main windowwm deiconify . 阅读全文

posted @ 2011-08-12 10:28 greencolor 阅读(120) 评论(0) 推荐(0)

Widget-(toplevel) menu

摘要： class menuthree {inherit itk::Widgetconstructor { args } {#wm protocol [winfo toplevel $itk_component(hull)] WM_DELETE_WINDOW [code $this shutdown]itk_option add hull.width hull.height$itk_component(hull) configure -width 1050 -height 768#wm minsize [winfo toplevel $itk_component(hull)] 1050 768pack 阅读全文

posted @ 2011-08-12 10:04 greencolor 阅读(232) 评论(0) 推荐(0)

Widget - toplevel menu

摘要： class menutest { inherit itk::Toplevel constructor { args } {itk_option add hull.menu wm title . "\[No image\" wm resizable . 1 1wm iconbitmap $itk_component(hull) [wm iconbitmap .]wm iconmask $itk_component(hull) [wm iconmask .]wm group $itk_component(hull) .#wm protocol $itk_component(hu 阅读全文

posted @ 2011-08-12 09:50 greencolor 阅读(141) 评论(0) 推荐(0)

2011年8月11日

write to logfile

摘要： # open the logfileset logfile "~/Desktop/abc"set logfile_handle [open $logfile a]# log the command being sent to Mosflmputs $logfile_handle "aaaa"# close the logfileclose $logfile_handle 阅读全文

posted @ 2011-08-11 15:19 greencolor 阅读(115) 评论(0) 推荐(0)

公告