From 0dbe71c99b41b6637ba2e6e6d929e5573af489b3 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 13 Nov 2000 08:56:26 +0000
Subject: *** empty log message ***

---
 sandbox/local.tcl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 sandbox/local.tcl

(limited to 'sandbox')

diff --git a/sandbox/local.tcl b/sandbox/local.tcl
new file mode 100644
index 0000000..e6886ae
--- /dev/null
+++ b/sandbox/local.tcl
@@ -0,0 +1,38 @@
+#!/usr/bin/wish -f
+
+load tkzinc3.1.so
+package require Img
+
+set top 1
+
+image create photo logo -file logo.gif
+image create photo papier -file texture-paper.xpm
+image create photo penguin -file xpenguin.png
+
+set r [zinc .r -relief sunken -localrender 1]
+pack .r -expand t -fill both
+.r configure -width 500 -height 500
+set view [.r add group $top -tags "controls"]
+
+set rect [.r add rectangle $view "100 100 200 200" -linewidth 4 \
+	-tile papier -fillcolor pink -fillalpha 128 -filled 1]
+set fvwm [.r add icon $view -mask "@fvwm.xbm" -position "250 120" \
+	-anchor center -color black -alpha 255]
+set rect2 [.r add rectangle $view "150 50 300 300" -linewidth 0 \
+	 -tile logo -fillcolor white -fillalpha 90 -filled 1]
+set x 100
+set y 100
+for {set i 0} {$i < 1} {incr i} {
+    set x [expr $x+3]
+    set y [expr $y+3]
+    .r add text $view -text "BlaBla et tout et tout, bref..."\
+	    -position "$x $y" -anchor nw -color red -alpha 90
+}
+set peng [.r add icon $view -image penguin -position "300 300" \
+	-anchor center -alpha 128]
+.r translate $rect -150 -150
+.r rotate $rect 35
+.r translate $rect 150 150
+
+source controls.tcl
+#
\ No newline at end of file
-- 
cgit v1.1