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"