diff options
Diffstat (limited to 'sandbox/testarc.tcl')
-rw-r--r-- | sandbox/testarc.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl index 0d52f6f..09a9c88 100644 --- a/sandbox/testarc.tcl +++ b/sandbox/testarc.tcl @@ -32,10 +32,13 @@ set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t \ #.r add icon $view2 -image penguin set cliparc [.r add arc $view "-100 100 100 -100" -filled t \ - -fillcolor tan -fillalpha 200] + -fillcolor tan ] .r lower $cliparc #.r rotate $cliparc 20 0 0 #.r translate $cliparc 100 -40 #.r itemconfigure $view2 -clip $cliparc bind .r <1> ".r rotate $cliparc [expr 3.14/3] 0 0" source "controls.tcl" +.r bind $cliparc <1> {puts a} +puts "[ .r bind $cliparc <1> ]\n" + |