From 5cc459c9d6af72783f9d9febee9d3a8129bcfd35 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 31 Mar 2003 15:56:01 +0000
Subject: Ajourt de script et petites corrections

---
 demos/labelformat.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'demos/labelformat.tcl')

diff --git a/demos/labelformat.tcl b/demos/labelformat.tcl
index 9095992..8d9f2a3 100644
--- a/demos/labelformat.tcl
+++ b/demos/labelformat.tcl
@@ -26,7 +26,10 @@ pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
 text $w.text -relief sunken -borderwidth 2 -height 4
 pack $w.text -expand yes -fill both
 
-$w.text insert end "This toy-appli demonstrates the use of labelformat for tabular items.\nThe fieldPos (please, refer to the labelformat type description\nin the Zinc reference manual) of each field as described in\nthe labelformat is displayed inside the field."
+$w.text insert end {This scipt demonstrates the use of labelformat for tabular items.
+The fieldPos (please, refer to the labelformat type description
+in the Zinc reference manual) of each field as described in
+the labelformat is displayed inside the field.}
 
 
 ###########################################
@@ -40,10 +43,8 @@ pack $w.zinc
 proc setLabelContent {item labelformat} {
     global w
     set i 0
-    puts "Label: $item: $labelformat"
     foreach fieldSpec $labelformat {
 	set posSpec $i
-	puts ":$i:$fieldSpec:"
 	regexp {^.\d+.\d+(.*)} $fieldSpec "" posSpec
 	$w.zinc itemconfigure $item $i -text "$i: $posSpec" -border "contour"
 	incr i
-- 
cgit v1.1