From c1424742e67fcdb099f9be7c514bb9d6cac3de37 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 14 Mar 2001 15:04:34 +0000
Subject: *** empty log message ***

---
 sandbox/local.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sandbox/local.tcl')

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..."\
-- 
cgit v1.1