Whitespace police.

1 files changed, 135 insertions, 135 deletions

diff --git a/demos/layout.tcl b/demos/layout.tcl
index 2f96162..ad058cc 100644
--- a/demos/layout.tcl
+++ b/demos/layout.tcl
@@ -1,145 +1,145 @@
-# RCS: @(#) $Id: layout.tcl,v 1.12 2006/11/23 22:24:56 treectrl Exp $
+# RCS: @(#) $Id: layout.tcl,v 1.13 2006/11/30 02:41:38 treectrl Exp $
 
 #
 # Demo: Layout
 #
 proc DemoLayout {} {
 
-	set T [DemoList]
-
-	#
-	# Configure the treectrl widget
-	#
-
-	$T configure -showroot no -showrootbutton yes -showbuttons yes \
-		-showlines $::ShowLines -itemheight 0 -selectmode browse
-
-	#
-	# Create columns
-	#
-
-	$T column create -text Layout -tags C0
-	$T configure -treecolumn C0
-
-	#
-	# Create elements
-	#
-
-	$T element create e1 rect -width 30 -height 30 -fill gray20
-	$T element create e2 rect -width 30 -height 30 -fill gray40 \
-		-outline blue -outlinewidth 3
-	$T element create e3 rect -fill gray60
-	$T element create e4 rect -fill [list $::SystemHighlight {selected focus} gray80 {}] \
-		-showfocus yes
-	$T element create e5 rect -fill {"sky blue"} -width 20 -height 20
-	$T element create e6 rect -fill {"sea green"} -width 30 -height 16
-	$T element create e7 rect -fill {"sky blue"} -width 30 -height 16
-	$T element create e8 rect -fill gray70 -height 1
-
-	#
-	# Create styles using the elements
-	#
-
-	set S [$T style create s1]
-	$T style elements $S {e4 e3 e1 e2 e5 e6 e7}
-	$T style layout $S e1 -padx {28 4} -pady 4
-	$T style layout $S e2 -expand es -padx {0 38}
-	$T style layout $S e3 -union [list e1 e2] -ipadx 4 -ipady 4 -pady 2
-	$T style layout $S e4 -detach yes -iexpand xy
-	$T style layout $S e5 -detach yes -padx {2 0} -pady 2 -iexpand y
-	$T style layout $S e6 -detach yes -expand ws -padx {0 2} -pady {2 0}
-	$T style layout $S e7 -detach yes -expand wn -padx {0 2} -pady {0 2}
-
-	#
-	# Create items and assign styles
-	#
-
-	set I [$T item create -button yes]
-	$T item style set $I C0 $S
-	$T item lastchild root $I
-	set parent $I
-
-	set I [$T item create]
-	$T item style set $I C0 $S
-	$T item lastchild $parent $I
-
-	###
-
-	set S [$T style create s2]
-	$T style elements $S {e4 e3 e1}
-	$T style layout $S e1 -padx 8 -pady 8 -iexpand x
-	$T style layout $S e3 -union e1 -ipadx {20 4} -ipady {4 12}
-	$T style layout $S e4 -detach yes -iexpand xy
-
-	set I [$T item create -button yes]
-	$T item style set $I C0 $S
-	$T item lastchild root $I
-
-	set I2 [$T item create]
-	$T item style set $I2 C0 $S
-	$T item lastchild $I $I2
-
-	###
-
-	set S [$T style create s3]
-	$T style elements $S {e4 e3 e1 e5 e6}
-	$T style layout $S e4 -union {e1 e6} -ipadx 8 -ipady {8 0}
-	$T style layout $S e3 -union {e1 e5} -ipadx 4 -ipady 4
-	$T style layout $S e5 -height 40
-
-	set I [$T item create -button yes]
-	$T item style set $I C0 $S
-	$T item lastchild root $I
-
-	set I2 [$T item create]
-	$T item style set $I2 C0 $S
-	$T item lastchild $I $I2
-
-	###
-
-	$T element create eb border -background $::SystemButtonFace \
-		-relief {sunken {selected} raised {}} -thickness 2 -filled yes
-	$T element create et text
-
-	set text "Here is a text element surrounded by a border element.\nResize the column to watch me wrap."
-
-	set S [$T style create s4]
-	$T style elements $S {eb et}
-	$T style layout $S eb -union et -ipadx 2 -ipady 2
-	$T style layout $S et -squeeze x
-
-	set I [$T item create -button yes]
-	$T item style set $I C0 $S
-	$T item text $I C0 $text
-	$T item lastchild root $I
-	set parent $I
-
-	set I [$T item create]
-	$T item style set $I C0 $S
-	$T item text $I C0 $text
-	$T item lastchild $parent $I
-
-	###
-
-	set styleNum 5
-	foreach {orient expandList} {horizontal {s ns n} vertical {e we w}} {
-		foreach expand $expandList {
-
-			set S [$T style create s$styleNum -orient $orient]
-			$T style elements $S {e4 e8 e2 e5 e6}
-			$T style layout $S e4 -detach yes -iexpand xy
-			$T style layout $S e8 -detach yes -expand n -iexpand x
-			$T style layout $S e2 -expand $expand
-			$T style layout $S e5 -expand $expand
-			$T style layout $S e6 -expand $expand
-			incr styleNum
-
-			set I [$T item create]
-			$T item style set $I C0 $S
-			$T item lastchild root $I
-		}
+    set T [DemoList]
+
+    #
+    # Configure the treectrl widget
+    #
+
+    $T configure -showroot no -showrootbutton yes -showbuttons yes \
+	-showlines $::ShowLines -itemheight 0 -selectmode browse
+
+    #
+    # Create columns
+    #
+
+    $T column create -text Layout -tags C0
+    $T configure -treecolumn C0
+
+    #
+    # Create elements
+    #
+
+    $T element create e1 rect -width 30 -height 30 -fill gray20
+    $T element create e2 rect -width 30 -height 30 -fill gray40 \
+	-outline blue -outlinewidth 3
+    $T element create e3 rect -fill gray60
+    $T element create e4 rect -fill [list $::SystemHighlight {selected focus} gray80 {}] \
+	-showfocus yes
+    $T element create e5 rect -fill {"sky blue"} -width 20 -height 20
+    $T element create e6 rect -fill {"sea green"} -width 30 -height 16
+    $T element create e7 rect -fill {"sky blue"} -width 30 -height 16
+    $T element create e8 rect -fill gray70 -height 1
+
+    #
+    # Create styles using the elements
+    #
+
+    set S [$T style create s1]
+    $T style elements $S {e4 e3 e1 e2 e5 e6 e7}
+    $T style layout $S e1 -padx {28 4} -pady 4
+    $T style layout $S e2 -expand es -padx {0 38}
+    $T style layout $S e3 -union [list e1 e2] -ipadx 4 -ipady 4 -pady 2
+    $T style layout $S e4 -detach yes -iexpand xy
+    $T style layout $S e5 -detach yes -padx {2 0} -pady 2 -iexpand y
+    $T style layout $S e6 -detach yes -expand ws -padx {0 2} -pady {2 0}
+    $T style layout $S e7 -detach yes -expand wn -padx {0 2} -pady {0 2}
+
+    #
+    # Create items and assign styles
+    #
+
+    set I [$T item create -button yes]
+    $T item style set $I C0 $S
+    $T item lastchild root $I
+    set parent $I
+
+    set I [$T item create]
+    $T item style set $I C0 $S
+    $T item lastchild $parent $I
+
+    ###
+
+    set S [$T style create s2]
+    $T style elements $S {e4 e3 e1}
+    $T style layout $S e1 -padx 8 -pady 8 -iexpand x
+    $T style layout $S e3 -union e1 -ipadx {20 4} -ipady {4 12}
+    $T style layout $S e4 -detach yes -iexpand xy
+
+    set I [$T item create -button yes]
+    $T item style set $I C0 $S
+    $T item lastchild root $I
+
+    set I2 [$T item create]
+    $T item style set $I2 C0 $S
+    $T item lastchild $I $I2
+
+    ###
+
+    set S [$T style create s3]
+    $T style elements $S {e4 e3 e1 e5 e6}
+    $T style layout $S e4 -union {e1 e6} -ipadx 8 -ipady {8 0}
+    $T style layout $S e3 -union {e1 e5} -ipadx 4 -ipady 4
+    $T style layout $S e5 -height 40
+
+    set I [$T item create -button yes]
+    $T item style set $I C0 $S
+    $T item lastchild root $I
+
+    set I2 [$T item create]
+    $T item style set $I2 C0 $S
+    $T item lastchild $I $I2
+
+    ###
+
+    $T element create eb border -background $::SystemButtonFace \
+	-relief {sunken {selected} raised {}} -thickness 2 -filled yes
+    $T element create et text
+
+    set text "Here is a text element surrounded by a border element.\nResize the column to watch me wrap."
+
+    set S [$T style create s4]
+    $T style elements $S {eb et}
+    $T style layout $S eb -union et -ipadx 2 -ipady 2
+    $T style layout $S et -squeeze x
+
+    set I [$T item create -button yes]
+    $T item style set $I C0 $S
+    $T item text $I C0 $text
+    $T item lastchild root $I
+    set parent $I
+
+    set I [$T item create]
+    $T item style set $I C0 $S
+    $T item text $I C0 $text
+    $T item lastchild $parent $I
+
+    ###
+
+    set styleNum 5
+    foreach {orient expandList} {horizontal {s ns n} vertical {e we w}} {
+	foreach expand $expandList {
+
+	    set S [$T style create s$styleNum -orient $orient]
+	    $T style elements $S {e4 e8 e2 e5 e6}
+	    $T style layout $S e4 -detach yes -iexpand xy
+	    $T style layout $S e8 -detach yes -expand n -iexpand x
+	    $T style layout $S e2 -expand $expand
+	    $T style layout $S e5 -expand $expand
+	    $T style layout $S e6 -expand $expand
+	    incr styleNum
+
+	    set I [$T item create]
+	    $T item style set $I C0 $S
+	    $T item lastchild root $I
 	}
+    }
 
-	return
+    return
 }