Box sample





source ../../oo.tcl

@import core.*
@import gui.*

wm geometry . "300x200"

set box [Box new] 
$box label: "This is a Box widget"
$box show