aboutsummaryrefslogtreecommitdiff
path: root/sandbox/testshape.tcl
blob: 424d057a15861dcc6e1253be5bc8d4033ec8295b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/wish -f

load tkzinc3.1.so

set top 1

set r [zinc .r]
pack $r -expand t -fill both
$r configure -width 800 -height 500

set view [$r add group $top]

set tab1 [$r add tabular $view 10 -position "100 100" -labelformat "100x30"]
set tab2 [$r add tabular $view 10 -position "100 150" -labelformat "100x30"]
set tab3 [$r add tabular $view 10 -connecteditem $tab2 -labelformat "100x30"]

$r itemconfigure $tab1 0 -text "tab1"
$r itemconfigure $tab2 0 -text "tab2"
$r itemconfigure $tab3 0 -text "tab3"