diff options
| author | lecoanet | 2001-03-14 15:04:34 +0000 |
|---|---|---|
| committer | lecoanet | 2001-03-14 15:04:34 +0000 |
| commit | c1424742e67fcdb099f9be7c514bb9d6cac3de37 (patch) | |
| tree | 3bd5c654d8e077f1f7ea548ae08948b8f59d0842 /sandbox/local.tcl | |
| parent | 7714f386b716a895cd612fb31100251df8ca6512 (diff) | |
| download | tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.zip tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.gz tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.bz2 tkzinc-c1424742e67fcdb099f9be7c514bb9d6cac3de37.tar.xz | |
*** empty log message ***
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..."\ |