diff options
Diffstat (limited to 'sandbox/testshape.tcl')
| -rw-r--r-- | sandbox/testshape.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/sandbox/testshape.tcl b/sandbox/testshape.tcl new file mode 100644 index 0000000..424d057 --- /dev/null +++ b/sandbox/testshape.tcl @@ -0,0 +1,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" + |