source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set box [SplitBox new] $box split: 0.3 $box show set l [label [$box top].label -text "This is a SplitBox window"] pack $l -fill both -expand 1 set text [text [$box bottom].text -wrap word] pack $text -fill both -expand 1 $text insert end { You can also change the default orientation to a vertical one. The split is 0.5 by default. }