aboutsummaryrefslogtreecommitdiff
path: root/sandbox/testbitmaps.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'sandbox/testbitmaps.tcl')
-rw-r--r--sandbox/testbitmaps.tcl32
1 files changed, 29 insertions, 3 deletions
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"