diff options
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" |