From a3f8c8cf22a10344864fa34c37ad056f22a97400 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 2 Oct 2003 13:08:50 +0000
Subject: *** empty log message ***

---
 sandbox/testbitmaps.tcl | 32 +++++++++++++++++++++++++++++---
 1 file changed, 29 insertions(+), 3 deletions(-)

(limited to 'sandbox/testbitmaps.tcl')

diff --git a/sandbox/testbitmaps.tcl b/sandbox/testbitmaps.tcl
index 930d935..27a519b 100644
--- a/sandbox/testbitmaps.tcl
+++ b/sandbox/testbitmaps.tcl
@@ -1,13 +1,19 @@
 #!/usr/local/bin/wish -f
 
-load ../tkzinc3.2.so
+lappend auto_path ..
+package require Tkzinc
+package require Img
 
-set r [zinc .r -backcolor gray -relief sunken]
+set r [zinc .r -render 1 -backcolor gray -relief sunken]
 set top 1
 pack .r -expand t -fill both
 .r configure -width 500 -height 800
 
-.r add rectangle $top "30 50 80 100" -filled t -fillpattern AlphaStipple0
+set r [.r add rectangle $top "30 50 80 100" -filled t -fillpattern AlphaStipple0 -linewidth 1]
+.r translate $r -55 -75
+.r rotate $r 45
+.r translate $r 55 75
+
 .r add text $top -position "50 110" -text "0"
 .r add rectangle $top "100 50 150 100" -filled t -fillpattern AlphaStipple1
 .r add text $top -position "120 110" -text "1"
@@ -58,3 +64,23 @@ for {set i 0} {$i < 22} {incr i} {
 
 .r add text $top -position "180 560" -text "AtcSymbol" \
 	-font "-*-lucida-bold-r-normal-*-14-*-*-*-*-*-*-*"
+
+
+set im [image create bitmap toto -background "red" -file fvwm.xbm]
+set icim [.r add icon 1 -image $im -position {0 0}]
+.r rotate $icim 20
+.r scale $icim 1.2 1.2
+.r translate $icim 50 320
+#.r add icon 1 -image $im -position {300 10}
+#.r add rectangle 1 {10 10 100 100} -tile $im -filled 1
+#$im configure -background red
+
+set icbit [.r add icon 1 -image @fvwm.xbm -position {100 400}]
+
+#.r bind $icbit <Enter> ".r itemconfigure $icbit -color red; \
+# $im configure -file fvwm.xbm -foreground black"
+#.r bind $icbit <Leave> ".r itemconfigure $icbit -color black; \
+# $im configure -file trash.xbm -foreground red "
+
+#.r bind $icim <Enter> "$im configure -background black"
+#.r bind $icim <Leave> "$im configure -background red"
-- 
cgit v1.1