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