source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set box [Box new] $box label: "This is a Box widget" $box show