From 7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 31 Aug 2000 12:10:04 +0000
Subject: *** empty log message ***

---
 sandbox/testbitmaps.tcl |  60 ++++++++++++++++++++++++++++++++++++++++++++++++
 sandbox/testzinc.pl     |   4 ++--
 sandbox/xpenguin.png    | Bin 0 -> 10148 bytes
 3 files changed, 62 insertions(+), 2 deletions(-)
 create mode 100644 sandbox/testbitmaps.tcl
 create mode 100644 sandbox/xpenguin.png

(limited to 'sandbox')

diff --git a/sandbox/testbitmaps.tcl b/sandbox/testbitmaps.tcl
new file mode 100644
index 0000000..e2e48af
--- /dev/null
+++ b/sandbox/testbitmaps.tcl
@@ -0,0 +1,60 @@
+#!/usr/bin/wish -f
+
+load tkzinc3.1.so
+
+set r [zinc .r -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
+.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"
+.r add rectangle $top "170 50 220 100" -filled t -fillpattern AlphaStipple2
+.r add text $top -position "190 110" -text "2"
+.r add rectangle $top "240 50 290 100" -filled t -fillpattern AlphaStipple3
+.r add text $top -position "260 110" -text "3"
+.r add rectangle $top "310 50 360 100" -filled t -fillpattern AlphaStipple4
+.r add text $top -position "330 110" -text "4"
+.r add rectangle $top "380 50 430 100" -filled t -fillpattern AlphaStipple5
+.r add text $top -position "400 110" -text "5"
+
+.r add rectangle $top "30 150 80 200" -filled t -fillpattern AlphaStipple6
+.r add text $top -position "50 210" -text "6"
+.r add rectangle $top "100 150 150 200" -filled t -fillpattern AlphaStipple7
+.r add text $top -position "120 210" -text "7"
+.r add rectangle $top "170 150 220 200" -filled t -fillpattern AlphaStipple8
+.r add text $top -position "190 210" -text "8"
+.r add rectangle $top "240 150 290 200" -filled t -fillpattern AlphaStipple9
+.r add text $top -position "260 210" -text "9"
+.r add rectangle $top "310 150 360 200" -filled t -fillpattern AlphaStipple10
+.r add text $top -position "330 210" -text "10"
+.r add rectangle $top "380 150 430 200" -filled t -fillpattern AlphaStipple11
+.r add text $top -position "400 210" -text "11"
+
+.r add rectangle $top "100 250 150 300" -filled t -fillpattern AlphaStipple12
+.r add text $top -position "120 310" -text "12"
+.r add rectangle $top "170 250 220 300" -filled t -fillpattern AlphaStipple13
+.r add text $top -position "190 310" -text "13"
+.r add rectangle $top "240 250 290 300" -filled t -fillpattern AlphaStipple14
+.r add text $top -position "260 310" -text "14"
+.r add rectangle $top "310 250 360 300" -filled t -fillpattern AlphaStipple15
+.r add text $top -position "330 310" -text "15"
+
+.r add text $top -position "180 360" -text "AlphaStipple" \
+	-font "-*-lucida-bold-r-normal-*-14-*-*-*-*-*-*-*"
+
+for {set i 0} {$i < 22} {incr i} {
+    set num [expr $i + 1]
+    .r add waypoint $top 0 \
+	    -position "[expr 40 + ($i % 8)*60] [expr 420 + ($i / 8)*45]" \
+	    -symbol "AtcSymbol$num"
+    .r add text $top \
+	    -position "[expr 36 + ($i % 8)*60] [expr 430 + ($i / 8)*45]" \
+	    -text "$num" \
+	    -font "-*-helvetica-medium-r-*-*-*-120-*-*-*-*-*-*"
+}
+
+.r add text $top -position "180 560" -text "AtcSymbol" \
+	-font "-*-lucida-bold-r-normal-*-14-*-*-*-*-*-*-*"
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 8c318e3..fa031f3 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -94,9 +94,9 @@ $zinc->itemconfigure($track, 2, -image => $logo , -alignment => "center");
 $zinc->itemconfigure($track, 0, -reliefthickness =>  2, -relief => "sunken",
 		      -bordercolor => "red", -border => "noborder");
 
-$zinc->bind($track.":-3", "<Enter>",
+$zinc->bind($track.":speedvector", "<Enter>",
 	     sub {$zinc->itemconfigure($track, -speedvectorcolor => 'red')});
-$zinc->bind($track.":-3", "<Leave>",
+$zinc->bind($track.":speedvector", "<Leave>",
     sub {$zinc->itemconfigure($track, -speedvectorcolor => 'black')});
 	     
 
diff --git a/sandbox/xpenguin.png b/sandbox/xpenguin.png
new file mode 100644
index 0000000..1b1d352
Binary files /dev/null and b/sandbox/xpenguin.png differ
-- 
cgit v1.1