Set up width and height tcl tk main window

 itk_option add hull.width hull.height
 $itk_component(hull) configure -width 1050 -height 868 
 wm minsize [winfo toplevel $itk_component(hull)] 1050 868
 pack propagate $itk_interior 0

posted @ 2011-07-24 22:42  greencolor  阅读(167)  评论(1)  编辑  收藏  举报