From 0f305bcc724dec3b62d958e4dd0a142286a80ea3 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 17 Mar 2003 15:35:41 +0000
Subject: *** empty log message ***

---
 sandbox/testicon.tcl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testicon.tcl b/sandbox/testicon.tcl
index 6c1b8bf..fd8ba39 100644
--- a/sandbox/testicon.tcl
+++ b/sandbox/testicon.tcl
@@ -10,7 +10,7 @@ image create photo bouton -file bouton.xpm
 image create photo boutond -file bouton-down.xpm
 set mask "fvwm.xbm"
 
-set r [zinc .r -backcolor gray -relief sunken -render 0]
+set r [zinc .r -backcolor gray -relief sunken -render 1 -borderwidth 20]
 pack .r -expand t -fill both
 .r configure -width 800 -height 500
 #.r configure -drawbboxes t
@@ -20,7 +20,7 @@ set view [.r add group $top -tags "controls"]
 proc maskicon {x y group mask color anchor} {
     .r add icon $group -mask "@$mask" -position "$x $y" -anchor $anchor -color $color
     .r add rectangle $group [list [expr $x - 3.0] [expr $y - 3.0] \
-	    [expr $x + 3.0] [expr $y + 3.0]] -filled 1 -fillcolor red
+    [expr $x + 3.0] [expr $y + 3.0]] -filled 1 -fillcolor red
 }
 
 proc imageicon {x y group image anchor} {
@@ -56,14 +56,16 @@ imageicon $x2 $y2 $view penguin center
 
 .r add icon $view -image bouton -position "$x2 $y2" -anchor center
 .r add icon $view -image boutond -position [list [expr $x2 + 50] $y2] -anchor center
+.r add text $view -text essai -position "$x2 $y2"
 
 #
 # Clip
 #
 puts "crée les clips"
-set clip [.r add rectangle $view "50 -300 600 -10" -filled t \
+set clip [.r add rectangle $view "50 -10 600 -300" -filled t \
 	-linewidth 0 -fillcolor darkgray]
-#.r rotate $clip [expr 3.14159 / 4]
+#.r rotate $clip [expr 3.14159 / 4]; #bug le rectangle forme un bonnet
+# d'ane sous certains angles.
 .r lower $clip
 .r itemconfigure $view -clip $clip
 
-- 
cgit v1.1