Added standard block comments to highlight steps of creating and using a treectrl widget.

1 files changed, 37 insertions, 18 deletions

diff --git a/demos/imovie.tcl b/demos/imovie.tcl
index ac05335..bf73da3 100644
--- a/demos/imovie.tcl
+++ b/demos/imovie.tcl
@@ -5,10 +5,18 @@ proc DemoIMovie {} {
 
 	set T .f2.f1.t
 
+	#
+	# Configure the treectrl widget
+	#
+
 	$T configure -showroot no -showbuttons no -showlines no \
 		-selectmode browse -orient horizontal -wrap window \
 		-showheader no -background #dcdcdc
 
+	#
+	# Create columns
+	#
+
 	$T column create
 
 	InitPics imovie-*
@@ -29,6 +37,10 @@ proc DemoIMovie {} {
 		}
 	}
 
+	#
+	# Create elements
+	#
+
 	$T element create elemTime text -font [list $font1]
 	$T element create elemName text -font [list $font2] -lines 1 -width 80
 	$T element create elemRect rect -fill {#ffdc5a {selected} white {}} \
@@ -36,6 +48,10 @@ proc DemoIMovie {} {
 	$T element create elemImg image
 	$T element create elemShadow rect -outline gray -outlinewidth 1 -open wn
 
+	#
+	# Create styles using the elements
+	#
+
 	set S [$T style create STYLE -orient vertical]
 	$T style elements $S {elemShadow elemRect elemTime elemImg elemName}
 	    $T style layout $S elemShadow -detach yes -padx {1 2} -pady {1 2} -iexpand es
@@ -48,24 +64,28 @@ proc DemoIMovie {} {
 	# Set default item style
 	$T configure -defaultstyle [list $S]
 
-for {set i 0} {$i < 5} {incr i} {
-	foreach {time name image} {
-		15:20 "Clip 1" imovie-01
-		19:18 "Clip 2" imovie-02
-		07:20 "Clip 3" imovie-03
-		07:20 "Clip 4" imovie-04
-		07:20 "Clip 5" imovie-05
-		07:20 "Clip 6" imovie-06
-		07:20 "Clip 7" imovie-07
-	} {
-		set I [$T item create]
-#		$T item style set $I 0 $S
-		$T item element configure $I 0 elemTime -text $time
-		$T item element configure $I 0 elemImg -image $image
-		$T item element configure $I 0 elemName -text $name
-		$T item lastchild root $I
+	#
+	# Create items and assign styles
+	#
+
+	for {set i 0} {$i < 5} {incr i} {
+		foreach {time name image} {
+			15:20 "Clip 1" imovie-01
+			19:18 "Clip 2" imovie-02
+			07:20 "Clip 3" imovie-03
+			07:20 "Clip 4" imovie-04
+			07:20 "Clip 5" imovie-05
+			07:20 "Clip 6" imovie-06
+			07:20 "Clip 7" imovie-07
+		} {
+			set I [$T item create]
+#			$T item style set $I 0 $S
+			$T item element configure $I 0 elemTime -text $time
+			$T item element configure $I 0 elemImg -image $image
+			$T item element configure $I 0 elemName -text $name
+			$T item lastchild root $I
+		}
 	}
-}
 
 	$T notify bind $T <Edit-accept> {
 		%T item element configure %I %C %E -text %t
@@ -113,7 +133,6 @@ proc iMovieButton1 {T x y} {
 						$T.entry selection clear
 						scan [$T item bbox $I] "%d %d %d %d" x1 y1 x2 y2
 						place $T.entry -x [expr {$x1 + 1}] -width [expr {$x2 - $x1 - 5}]
-puts @[expr {$x - ($x1 + 1)}]
 						$T.entry icursor [$T.entry index @[expr {$x - ($x1 + 1)}]]
 					}
 				}