diff options
Diffstat (limited to 'sandbox/local.tcl')
| -rw-r--r-- | sandbox/local.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sandbox/local.tcl b/sandbox/local.tcl index 06931b6..0033f47 100644 --- a/sandbox/local.tcl +++ b/sandbox/local.tcl @@ -8,6 +8,8 @@ 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 +image create photo bouton -file bouton.xpm +image create photo bois -file texture-bois1.xpm set r [zinc .r -relief sunken -render 1] pack .r -expand t -fill both @@ -30,7 +32,7 @@ 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} { +for {set i 0} {$i < 50} {incr i} { set x [expr $x+3] set y [expr $y+3] .r add text $view -text "BlaBla et tout et tout, bref..."\ |