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

原文地址:https://www.cnblogs.com/greencolor/p/2115646.html