SplitBox sample





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.
}