*** empty log message ***

1 files changed, 7 insertions, 6 deletions

diff --git a/sandbox/testtext.tcl b/sandbox/testtext.tcl
index 818d8df..b0281f4 100644
--- a/sandbox/testtext.tcl
+++ b/sandbox/testtext.tcl
@@ -1,15 +1,16 @@
-#!/usr/bin/wish -f
+#!/usr/bin/wish8.0 -f
 
 load tkzinc3.1.so
 package require Img
 
-set top 1
 set mask "/usr/X11R6/include/X11/bitmaps/fvwm.xbm"
 
-set r [zinc .r -backcolor gray -relief sunken -insertbackground red -insertwidth 10]
+set r [zinc .r -backcolor gray -relief sunken \
+	-insertbackground red -insertwidth 10 -localrender 0]
 pack .r -expand t -fill both
 .r configure -width 800 -height 500
 # .r configure -drawbboxes t
+set top [.r add group 1]
 .r addtag controls withtag $top
 
 .r add rectangle $top "-50 0 +50 1" -composescale 0
@@ -68,19 +69,19 @@ set x [expr $x + 200.0]
 
 set x 150
 set y 300
-.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n-à droite\n-au centre\nsont également mis en évidence.\n" -position "$x $y" -anchor center
+.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n- à droite\n- au centre\nsont également mis en évidence.\n" -position "$x $y" -anchor center
 .r add rectangle $top [list [expr $x - 3.0] [expr $y - 3.0] \
 	[expr $x + 3.0] [expr $y + 3.0]] -filled 1 -fillcolor red
 
 set x 400
 set y 300
-set anim [.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n-à droite\n-au centre\nsont également mis en évidence.\nLe texte central montre l'utilisation\nd'un espacement des lignes programmable." -position "$x $y" -anchor center -alignment center -spacing -5 -font {times 14 bold italic}]
+set anim [.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n- à droite\n- au centre\nsont également mis en évidence.\nLe texte central montre l'utilisation\nd'un espacement des lignes programmable." -position "$x $y" -anchor center -alignment center -spacing -5 -font {times 14 bold italic}]
 .r add rectangle $top [list [expr $x - 3.0] [expr $y - 3.0] \
 	[expr $x + 3.0] [expr $y + 3.0]] -filled 1 -fillcolor red
 
 set x 650
 set y 300
-.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n-à droite\n-au centre\nsont également mis en évidence.\n" -position "$x $y" -anchor center -alignment right
+.r add text $top -text "Ce texte tient sur plusieurs lignes.\nLes alignements :\n- à gauche\n- à droite\n- au centre\nsont également mis en évidence.\n" -position "$x $y" -anchor center -alignment right
 .r add rectangle $top [list [expr $x - 3.0] [expr $y - 3.0] \
 	[expr $x + 3.0] [expr $y + 3.0]] -filled 1 -fillcolor red