2011年7月24日
Set up width and height tcl tk main window
摘要： itk_option add hull.width hull.height$itk_component(hull) configure -width 1050 -height 868wm minsize [winfo toplevel $itk_component(hull)] 1050 868pack propagate $itk_interior 0 阅读全文
posted @ 2011-07-24 22:42 greencolor 阅读(174) 评论(1) 推荐(0)
shutdown main window tcl tk
摘要： class classname{public method shutdownconstructor { args } {}}body classname::constructor { args } {# Prevent killing of main windowwm protocol [winfo toplevel $itk_component(hull)] WM_DELETE_WINDOW [code $this shutdown]}proc classname::shutdown{ if {![closeSession]} {# If the user didn't cancel 阅读全文
posted @ 2011-07-24 15:24 greencolor 阅读(190) 评论(0) 推荐(0)