diff options
author | lecoanet | 2000-12-22 17:01:28 +0000 |
---|---|---|
committer | lecoanet | 2000-12-22 17:01:28 +0000 |
commit | 45b13a34d777859147ce128a4271255e81c8c22c (patch) | |
tree | 25939738e23b2c2d6105c266ad4519aab9636df0 /sandbox/zinc.tcl | |
parent | f7bba45e9c6555210d984e19e40b59c82f2153be (diff) | |
download | tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.zip tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.gz tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.bz2 tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/zinc.tcl')
-rw-r--r-- | sandbox/zinc.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/zinc.tcl b/sandbox/zinc.tcl index b47a702..74a76f0 100644 --- a/sandbox/zinc.tcl +++ b/sandbox/zinc.tcl @@ -1,4 +1,4 @@ -#!/usr/bin/wish -f +#!/usr/bin/wish8.0 -f load tkzinc3.1.so #package require Img @@ -222,7 +222,7 @@ set topclip [.r add rectangle $top "-400 -400 400 400" \ # proc borders {onoff} { set part [.r currentpart] - puts "$part" + puts "part $part $onoff" set contour noborder if { $onoff == "on" } { set contour "contour oblique" |