diff options
Diffstat (limited to 'sandbox')
-rw-r--r-- | sandbox/testwind.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/sandbox/testwind.tcl b/sandbox/testwind.tcl new file mode 100644 index 0000000..31723f9 --- /dev/null +++ b/sandbox/testwind.tcl @@ -0,0 +1,16 @@ +#!/usr/bin/wish -f + +load tkzinc3.1.so + +set top 1 + +set r [zinc .r -backcolor gray -relief sunken] +pack .r -expand t -fill both +.r configure -width 800 -height 500 + +.r addtag controls withtag $top + +set ent [entry .r.entry] + +set wind [.r add window $top -window $ent -position "100 100"] + |