diff options
| author | lecoanet | 2000-05-11 13:37:04 +0000 |
|---|---|---|
| committer | lecoanet | 2000-05-11 13:37:04 +0000 |
| commit | 65b6856dc74bf2ea55f86784e4b76734a88c8771 (patch) | |
| tree | 90f75c131b6ca3819439b87070079a48543965bf /sandbox/testshape.tcl | |
| parent | 3e92dee11f03f4b03511c85f46dece0b8760d253 (diff) | |
| download | tkzinc-65b6856dc74bf2ea55f86784e4b76734a88c8771.zip tkzinc-65b6856dc74bf2ea55f86784e4b76734a88c8771.tar.gz tkzinc-65b6856dc74bf2ea55f86784e4b76734a88c8771.tar.bz2 tkzinc-65b6856dc74bf2ea55f86784e4b76734a88c8771.tar.xz | |
*** empty log message ***
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" + |