From 6406d083cedb0f758b7c3a9e5c15797d60070981 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Tue, 5 Jul 2005 02:37:30 +0000
Subject: Use new "item element configure" syntax to configure multiple
 elements at once.

---
 demos/imovie.tcl       |  7 ++++---
 demos/textvariable.tcl | 17 +++++++++--------
 2 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/demos/imovie.tcl b/demos/imovie.tcl
index ef5c389..7bb4531 100644
--- a/demos/imovie.tcl
+++ b/demos/imovie.tcl
@@ -80,9 +80,10 @@ proc DemoIMovie {} {
 		} {
 			set I [$T item create]
 #			$T item style set $I C0 $S
-			$T item element configure $I C0 elemTime -text $time
-			$T item element configure $I C0 elemImg -image $image
-			$T item element configure $I C0 elemName -text $name
+			$T item element configure $I C0 \
+				elemTime -text $time + \
+				elemImg -image $image + \
+				elemName -text $name
 			$T item lastchild root $I
 		}
 	}
diff --git a/demos/textvariable.tcl b/demos/textvariable.tcl
index 66811dd..c052607 100644
--- a/demos/textvariable.tcl
+++ b/demos/textvariable.tcl
@@ -52,14 +52,15 @@ proc DemoTextvariable {} {
 	$T item lastchild root $I
 
 	foreach i {0 1} color {gray75 "light blue"} {
-	set I [$T item create]
-	$T item style set $I C0 s2
-	$T item element configure $I C0 eRect -fill [list $color]
-	$T item element configure $I C0 eText2 -textvariable tvar$I
-	set e [entry $T.e$I -width 48 -textvariable tvar$I]
-	$T item element configure $I C0 eWindow -window $e
-	$T item lastchild root $I
-	set ::tvar$I "This is item $I"
+		set I [$T item create]
+		$T item style set $I C0 s2
+		set e [entry $T.e$I -width 48 -textvariable tvar$I]
+		$T item element configure $I C0 \
+			eRect -fill [list $color] + \
+			eText2 -textvariable tvar$I + \
+			eWindow -window $e
+		$T item lastchild root $I
+		set ::tvar$I "This is item $I"
 	}
 
 	return
-- 
cgit v0.12