diff options
| author | lecoanet | 2000-05-26 07:53:06 +0000 |
|---|---|---|
| committer | lecoanet | 2000-05-26 07:53:06 +0000 |
| commit | d797dc506b93e0a294b747d5fd447180b0fc3110 (patch) | |
| tree | 73974abeecfcfbfc93e066e1058a69b62373989c | |
| parent | f219d7b312c32643d01ea6e91e45bb6681cd5186 (diff) | |
| download | tkzinc-d797dc506b93e0a294b747d5fd447180b0fc3110.zip tkzinc-d797dc506b93e0a294b747d5fd447180b0fc3110.tar.gz tkzinc-d797dc506b93e0a294b747d5fd447180b0fc3110.tar.bz2 tkzinc-d797dc506b93e0a294b747d5fd447180b0fc3110.tar.xz | |
*** empty log message ***
| -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"] + |