摘要:
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 阅读全文
摘要:
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 阅读全文