摘要:
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 阅读全文
摘要:
# 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 阅读全文
摘要:
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 阅读全文
摘要:
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 阅读全文
摘要:
set l_file_handle [::open $a_file r]set content [::read $l_file_handle]::close $l_file_handle 阅读全文
摘要:
obtain exe outcatch {exec$executepath << secondcommand} outputstring] 阅读全文
摘要:
#Close main windowwm withdraw .# Show main windowwm deiconify . 阅读全文
摘要:
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 阅读全文
摘要:
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 阅读全文
摘要:
# 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 阅读全文