From 2e434e0a9aa6ca4f249b599191264f76943dd013 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 16 Apr 2003 10:18:46 +0000
Subject: *** empty log message ***

---
 sandbox/allreliefs.pl  |  1 +
 sandbox/allreliefs.tcl | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 sandbox/allreliefs.tcl

(limited to 'sandbox')

diff --git a/sandbox/allreliefs.pl b/sandbox/allreliefs.pl
index 2a19151..891a16f 100644
--- a/sandbox/allreliefs.pl
+++ b/sandbox/allreliefs.pl
@@ -3,6 +3,7 @@
 # these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
 
 use Tk;
+use Tk::Photo;
 use Tk::Zinc;
 use strict;
 
diff --git a/sandbox/allreliefs.tcl b/sandbox/allreliefs.tcl
new file mode 100644
index 0000000..291a02b
--- /dev/null
+++ b/sandbox/allreliefs.tcl
@@ -0,0 +1,30 @@
+# $Id$
+# these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
+
+lappend auto_path [file join [file dirname [info script]] ..]
+package require Tkzinc
+
+set defaultfont "-adobe-helvetica-bold-r-normal-*-100-*-*-*-*-*-*"
+zinc .z -width 700 -height 300 -render 1 -backcolor gray
+pack .z
+
+set grp [.z add group 1]
+.z add rectangle $grp {0 0 70 50} -filled 1 -fillcolor tan -linecolor tan \
+    -linewidth 6 -relief raised -tags attrs
+.z add text $grp -text raised -anchor center -font $defaultfont \
+    -position {35 -10} -tags texts
+.z translate $grp 20 30
+
+set i 1
+foreach s {sunken ridge groove roundraised roundsunken roundridge roundgroove raisedrule sunkenrule} {
+    set grp [.z clone $grp]
+    .z itemconfigure "$grp.texts" -text $s
+    .z itemconfigure "$grp.attrs" -relief $s
+    incr i
+    if {$i == 5} {
+	.z translate $grp [expr -3*100] 80
+	set i 1
+    } else {
+	.z translate $grp 100 0
+    }
+}
-- 
cgit v1.1