diff options
Diffstat (limited to 'sandbox/testtext.tcl')
-rw-r--r-- | sandbox/testtext.tcl | 13 |
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 |