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"
|
