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"