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