# ScrollableBox sample

    source ../../oo.tcl

    @import core.*
    @import gui.*

    wm geometry . "300x200"

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

    set f [$box frame]

    set left [ListBox newWithPath: $f.lst1]
    set right [ListBox newWithPath: $f.lst2]

    grid [$left path] [$right path]

    $left list: {1 2 3 4 5}
    $left width: 10
    $left height: 5
    $left label: "ListBox 1"

    $right list: {6 7 8 9 10}
    $right width: 10
    $right height: 5
    $right label: "ListBox 2"