diff options
-rw-r--r-- | debian/changelog | 7 | ||||
-rw-r--r-- | sandbox/local.tcl | 38 |
2 files changed, 45 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 869679e..52580d2 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +zinc-tk (3.1.20) unstable; urgency=low + + * Début d'ajout du rendu local. Modif de l'appel + de l'antirec (il était appelé trop fréquement). + + -- + zinc-tk (3.1.19) unstable; urgency=low * Plus de doc. 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 |