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