diff options
author | cvs2svn | 2005-06-10 10:29:11 +0000 |
---|---|---|
committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /sandbox/allreliefs.tcl | |
parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
Diffstat (limited to 'sandbox/allreliefs.tcl')
-rw-r--r-- | sandbox/allreliefs.tcl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/sandbox/allreliefs.tcl b/sandbox/allreliefs.tcl deleted file mode 100644 index 291a02b..0000000 --- a/sandbox/allreliefs.tcl +++ /dev/null @@ -1,30 +0,0 @@ -# $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 - } -} |