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/local.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/local.tcl')
-rw-r--r-- | sandbox/local.tcl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/sandbox/local.tcl b/sandbox/local.tcl index e6886ae..d42ba2a 100644 --- a/sandbox/local.tcl +++ b/sandbox/local.tcl @@ -1,4 +1,4 @@ -#!/usr/bin/wish -f +#!/usr/bin/wish8.0 -f load tkzinc3.1.so package require Img @@ -12,7 +12,15 @@ image create photo penguin -file xpenguin.png set r [zinc .r -relief sunken -localrender 1] pack .r -expand t -fill both .r configure -width 500 -height 500 -set view [.r add group $top -tags "controls"] +set gr1 [.r add group $top] +set clip [.r add rectangle $gr1 "50 50 399 399" -filled 1 -fillcolor pink -linewidth 0] +#.r itemconfigure $gr1 -clip $clip +set gr2 [.r add group $gr1] +set clip2 [.r add rectangle $gr2 "200 200 450 450" -filled 1 -fillcolor lavender -linewidth 0] +#.r itemconfigure $gr2 -clip $clip2 +set view [.r add group $gr2 -tags "controls"] +.r lower $clip +.r lower $clip2 set rect [.r add rectangle $view "100 100 200 200" -linewidth 4 \ -tile papier -fillcolor pink -fillalpha 128 -filled 1] |