TextBox sample





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