Whitespace police.

1 files changed, 373 insertions, 373 deletions

diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl
index 99ff108..8341cf1 100644
--- a/demos/outlook-newgroup.tcl
+++ b/demos/outlook-newgroup.tcl
@@ -1,422 +1,422 @@
-# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.18 2006/11/23 22:24:56 treectrl Exp $
+# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.19 2006/11/30 02:41:39 treectrl Exp $
 
 #
 # Demo: Outlook Express newsgroup messages
 #
 proc DemoOutlookNewsgroup {} {
 
-	global Message
-
-	InitPics outlook-*
-
-	set T [DemoList]
-
-	set height [font metrics [$T cget -font] -linespace]
-	if {$height < 18} {
-		set height 18
+    global Message
+
+    InitPics outlook-*
+
+    set T [DemoList]
+
+    set height [font metrics [$T cget -font] -linespace]
+    if {$height < 18} {
+	set height 18
+    }
+
+    #
+    # Configure the treectrl widget
+    #
+
+    $T configure -itemheight $height -selectmode browse \
+	-showroot no -showrootbutton no -showbuttons yes -showlines no \
+	-xscrollincrement 20
+
+    #
+    # Create columns
+    #
+
+    $T column create -image outlook-clip -tags clip
+    $T column create -image outlook-arrow -tags arrow
+    $T column create -image outlook-watch -tags watch
+    $T column create -text Subject -width 250 -tags subject
+    $T column create -text From -width 150 -tags from
+    $T column create -text Sent -width 150 -tags sent
+    $T column create -text Size -width 60 -justify right -tags size
+
+    # Would be nice if I could specify a column -tag too
+    # *blink* The amazing code Genie makes it so!!!
+    $T configure -treecolumn subject
+
+    # State for a read message
+    $T state define read
+
+    # State for a message with unread descendants
+    $T state define unread
+
+    #
+    # Create elements
+    #
+
+    $T element create elemImg image -image {
+	outlook-read-2Sel {selected read unread !open}
+	outlook-read-2 {read unread !open}
+	outlook-readSel {selected read}
+	outlook-read {read}
+	outlook-unreadSel {selected}
+	outlook-unread {}
+    }
+    $T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
+	-font [list "[$T cget -font] bold" {read unread !open} "[$T cget -font] bold" {!read}] -lines 1
+    $T element create sel.e rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open e -showfocus yes
+    $T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
+    $T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
+
+    #
+    # Create styles using the elements
+    #
+
+    # Image + text
+    set S [$T style create s1]
+    $T style elements $S {sel.e elemImg elemTxt}
+    $T style layout $S elemImg -expand ns
+    $T style layout $S elemTxt -padx {2 6} -squeeze x -expand ns
+    $T style layout $S sel.e -union [list elemTxt] -iexpand nes -ipadx {2 0}
+
+    # Text
+    set S [$T style create s2.we]
+    $T style elements $S {sel.we elemTxt}
+    $T style layout $S elemTxt -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.we -detach yes -iexpand xy
+
+    # Text
+    set S [$T style create s2.w]
+    $T style elements $S {sel.w elemTxt}
+    $T style layout $S elemTxt -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.w -detach yes -iexpand xy
+
+    # Set default item styles
+    $T column configure subject -itemstyle s1
+    $T column configure from -itemstyle s2.we
+    $T column configure sent -itemstyle s2.we
+    $T column configure size -itemstyle s2.w
+
+    #
+    # Create items and assign styles
+    #
+
+    set msgCnt 100
+
+    set thread 0
+    set Message(count,0) 0
+    set items [$T item id root]
+    for {set i 1} {$i < $msgCnt} {incr i} {
+	set itemi [$T item create]
+	while 1 {
+	    set j [expr {int(rand() * $i)}]
+	    set itemj [lindex $items $j]
+	    if {$j == 0} break
+	    if {[$T depth $itemj] == 5} continue
+	    if {$Message(count,$Message(thread,$itemj)) == 15} continue
+	    break
 	}
-
-	#
-	# Configure the treectrl widget
-	#
-
-	$T configure -itemheight $height -selectmode browse \
-		-showroot no -showrootbutton no -showbuttons yes -showlines no \
-		-xscrollincrement 20
-
-	#
-	# Create columns
-	#
-
-	$T column create -image outlook-clip -tags clip
-	$T column create -image outlook-arrow -tags arrow
-	$T column create -image outlook-watch -tags watch
-	$T column create -text Subject -width 250 -tags subject
-	$T column create -text From -width 150 -tags from
-	$T column create -text Sent -width 150 -tags sent
-	$T column create -text Size -width 60 -justify right -tags size
-
-	# Would be nice if I could specify a column -tag too
-	# *blink* The amazing code Genie makes it so!!!
-	$T configure -treecolumn subject
-
-	# State for a read message
-	$T state define read
-
-	# State for a message with unread descendants
-	$T state define unread
-
-	#
-	# Create elements
-	#
-
-	$T element create elemImg image -image {
-		outlook-read-2Sel {selected read unread !open}
-		outlook-read-2 {read unread !open}
-		outlook-readSel {selected read}
-		outlook-read {read}
-		outlook-unreadSel {selected}
-		outlook-unread {}
+	$T item lastchild $itemj $itemi
+
+	set Message(read,$itemi) [expr rand() * 2 > 1]
+	if {$j == 0} {
+	    set Message(thread,$itemi) [incr thread]
+	    set Message(seconds,$itemi) [expr {[clock seconds] - int(rand() * 500000)}]
+	    set Message(seconds2,$itemi) $Message(seconds,$itemi)
+	    set Message(count,$thread) 1
+	} else {
+	    set Message(thread,$itemi) $Message(thread,$itemj)
+	    set Message(seconds,$itemi) [expr {$Message(seconds2,$itemj) + int(rand() * 10000)}]
+	    set Message(seconds2,$itemi) $Message(seconds,$itemi)
+	    set Message(seconds2,$itemj) $Message(seconds,$itemi)
+	    incr Message(count,$Message(thread,$itemj))
 	}
-	$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
-		-font [list "[$T cget -font] bold" {read unread !open} "[$T cget -font] bold" {!read}] -lines 1
-	$T element create sel.e rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open e -showfocus yes
-	$T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
-	$T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
-
-	#
-	# Create styles using the elements
-	#
-
-	# Image + text
-	set S [$T style create s1]
-	$T style elements $S {sel.e elemImg elemTxt}
-	$T style layout $S elemImg -expand ns
-	$T style layout $S elemTxt -padx {2 6} -squeeze x -expand ns
-	$T style layout $S sel.e -union [list elemTxt] -iexpand nes -ipadx {2 0}
-
-	# Text
-	set S [$T style create s2.we]
-	$T style elements $S {sel.we elemTxt}
-	$T style layout $S elemTxt -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.we -detach yes -iexpand xy
-
-	# Text
-	set S [$T style create s2.w]
-	$T style elements $S {sel.w elemTxt}
-	$T style layout $S elemTxt -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.w -detach yes -iexpand xy
-
-	# Set default item styles
-	$T column configure subject -itemstyle s1
-	$T column configure from -itemstyle s2.we
-	$T column configure sent -itemstyle s2.we
-	$T column configure size -itemstyle s2.w
-
-	#
-	# Create items and assign styles
-	#
-
-	set msgCnt 100
-
-	set thread 0
-	set Message(count,0) 0
-	set items [$T item id root]
-	for {set i 1} {$i < $msgCnt} {incr i} {
-		set itemi [$T item create]
-		while 1 {
-			set j [expr {int(rand() * $i)}]
-			set itemj [lindex $items $j]
-			if {$j == 0} break
-			if {[$T depth $itemj] == 5} continue
-			if {$Message(count,$Message(thread,$itemj)) == 15} continue
-			break
-		}
-		$T item lastchild $itemj $itemi
-
-		set Message(read,$itemi) [expr rand() * 2 > 1]
-		if {$j == 0} {
-			set Message(thread,$itemi) [incr thread]
-			set Message(seconds,$itemi) [expr {[clock seconds] - int(rand() * 500000)}]
-			set Message(seconds2,$itemi) $Message(seconds,$itemi)
-			set Message(count,$thread) 1
-		} else {
-			set Message(thread,$itemi) $Message(thread,$itemj)
-			set Message(seconds,$itemi) [expr {$Message(seconds2,$itemj) + int(rand() * 10000)}]
-			set Message(seconds2,$itemi) $Message(seconds,$itemi)
-			set Message(seconds2,$itemj) $Message(seconds,$itemi)
-			incr Message(count,$Message(thread,$itemj))
-		}
-		lappend items $itemi
+	lappend items $itemi
+    }
+
+    for {set i 1} {$i < $msgCnt} {incr i} {
+	set itemi [lindex $items $i]
+	set subject "This is thread number $Message(thread,$itemi)"
+	set from somebody@somewhere.net
+	set sent [clock format $Message(seconds,$itemi) -format "%d/%m/%y %I:%M %p"]
+	set size [expr {1 + int(rand() * 10)}]KB
+
+	# This message has been read
+	if {$Message(read,$itemi)} {
+	    $T item state set $itemi read
 	}
 
-	for {set i 1} {$i < $msgCnt} {incr i} {
-		set itemi [lindex $items $i]
-		set subject "This is thread number $Message(thread,$itemi)"
-		set from somebody@somewhere.net
-		set sent [clock format $Message(seconds,$itemi) -format "%d/%m/%y %I:%M %p"]
-		set size [expr {1 + int(rand() * 10)}]KB
-
-		# This message has been read
-		if {$Message(read,$itemi)} {
-			$T item state set $itemi read
-		}
-
-		# This message has unread descendants
-		if {[AnyUnreadDescendants $T $itemi]} {
-			$T item state set $itemi unread
-		}
-
-		if {[$T item numchildren $itemi]} {
-			$T item configure $itemi -button yes
+	# This message has unread descendants
+	if {[AnyUnreadDescendants $T $itemi]} {
+	    $T item state set $itemi unread
+	}
 
-			# Collapse some messages
-			if {rand() * 2 > 1} {
-				$T item collapse $itemi
-			}
-		}
+	if {[$T item numchildren $itemi]} {
+	    $T item configure $itemi -button yes
 
-#		$T item style set $i 3 s1 4 s2.we 5 s2.we 6 s2.w
-		$T item text $itemi subject $subject from $from sent $sent size $size
+	    # Collapse some messages
+	    if {rand() * 2 > 1} {
+		$T item collapse $itemi
+	    }
 	}
 
-	# Do something when the selection changes
-	$T notify bind $T <Selection> {
-
-		# One item is selected
-		if {[%T selection count] == 1} {
-			if {[info exists Message(afterId)]} {
-				after cancel $Message(afterId)
-			}
-			set Message(afterId,item) [%T selection get 0]
-			set Message(afterId) [after 500 MessageReadDelayed]
-		}
+#		$T item style set $i 3 s1 4 s2.we 5 s2.we 6 s2.w
+	$T item text $itemi subject $subject from $from sent $sent size $size
+    }
+
+    # Do something when the selection changes
+    $T notify bind $T <Selection> {
+
+	# One item is selected
+	if {[%T selection count] == 1} {
+	    if {[info exists Message(afterId)]} {
+		after cancel $Message(afterId)
+	    }
+	    set Message(afterId,item) [%T selection get 0]
+	    set Message(afterId) [after 500 MessageReadDelayed]
 	}
+    }
 
-	return
+    return
 }
 
 proc MessageReadDelayed {} {
 
-	global Message
+    global Message
 
-	set T [DemoList]
+    set T [DemoList]
 
-	unset Message(afterId)
-	set I $Message(afterId,item)
-	if {![$T selection includes $I]} return
+    unset Message(afterId)
+    set I $Message(afterId,item)
+    if {![$T selection includes $I]} return
 
-	# This message is not read
-	if {!$Message(read,$I)} {
+    # This message is not read
+    if {!$Message(read,$I)} {
 
-		# Read the message
-		$T item state set $I read
-		set Message(read,$I) 1
+	# Read the message
+	$T item state set $I read
+	set Message(read,$I) 1
 
-		# Check ancestors (except root)
-		foreach I2 [lrange [$T item ancestors $I] 0 end-1] {
+	# Check ancestors (except root)
+	foreach I2 [lrange [$T item ancestors $I] 0 end-1] {
 
-			# This ancestor has no more unread descendants
-			if {![AnyUnreadDescendants $T $I2]} {
-				$T item state set $I2 !unread
-			}
-		}
+	    # This ancestor has no more unread descendants
+	    if {![AnyUnreadDescendants $T $I2]} {
+		$T item state set $I2 !unread
+	    }
 	}
+    }
 }
 
 # Alternate implementation that does not rely on run-time states
 proc DemoOutlookNewsgroup_2 {} {
 
-	global Message
-
-	InitPics outlook-*
-
-	set T [DemoList]
-
-	set height [font metrics [$T cget -font] -linespace]
-	if {$height < 18} {
-		set height 18
+    global Message
+
+    InitPics outlook-*
+
+    set T [DemoList]
+
+    set height [font metrics [$T cget -font] -linespace]
+    if {$height < 18} {
+	set height 18
+    }
+
+    #
+    # Configure the treectrl widget
+    #
+
+    $T configure -itemheight $height -selectmode browse \
+	-showroot no -showrootbutton no -showbuttons yes -showlines no
+
+    #
+    # Create columns
+    #
+
+    $T column create -image outlook-clip -tags clip
+    $T column create -image outlook-arrow -tags arrow
+    $T column create -image outlook-watch -tags watch
+    $T column create -text Subject -width 250 -tags subject
+    $T column create -text From -width 150 -tags from
+    $T column create -text Sent -width 150 -tags sent
+    $T column create -text Size -width 60 -justify right -tags size
+
+    $T configure -treecolumn 3
+
+    #
+    # Create elements
+    #
+
+    $T element create image.unread image -image outlook-unread
+    $T element create image.read image -image outlook-read
+    $T element create image.read2 image -image outlook-read-2
+    $T element create text.read text -fill [list $::SystemHighlightText {selected focus}] \
+	-lines 1
+    $T element create text.unread text -fill [list $::SystemHighlightText {selected focus}] \
+	-font [list "[$T cget -font] bold"] -lines 1
+    $T element create sel.e rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open e -showfocus yes
+    $T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
+    $T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
+
+    #
+    # Create styles using the elements
+    #
+
+    # Image + text
+    set S [$T style create unread]
+    $T style elements $S {sel.e image.unread text.unread}
+    $T style layout $S image.unread -expand ns
+    $T style layout $S text.unread -padx {2 6} -squeeze x -expand ns
+    $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0}
+
+    # Image + text
+    set S [$T style create read]
+    $T style elements $S {sel.e image.read text.read}
+    $T style layout $S image.read -expand ns
+    $T style layout $S text.read -padx {2 6} -squeeze x -expand ns
+    $T style layout $S sel.e -union [list text.read] -iexpand nes -ipadx {2 0}
+
+    # Image + text
+    set S [$T style create read2]
+    $T style elements $S {sel.e image.read2 text.unread}
+    $T style layout $S image.read2 -expand ns
+    $T style layout $S text.unread -padx {2 6} -squeeze x -expand ns
+    $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0}
+
+    # Text
+    set S [$T style create unread.we]
+    $T style elements $S {sel.we text.unread}
+    $T style layout $S text.unread -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.we -detach yes -iexpand xy
+
+    # Text
+    set S [$T style create read.we]
+    $T style elements $S {sel.we text.read}
+    $T style layout $S text.read -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.we -detach yes -iexpand xy
+
+    # Text
+    set S [$T style create unread.w]
+    $T style elements $S {sel.w text.unread}
+    $T style layout $S text.unread -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.w -detach yes -iexpand xy
+
+    # Text
+    set S [$T style create read.w]
+    $T style elements $S {sel.w text.read}
+    $T style layout $S text.read -padx 6 -squeeze x -expand ns
+    $T style layout $S sel.w -detach yes -iexpand xy
+
+    #
+    # Create items and assign styles
+    #
+
+    set msgCnt 100
+
+    set thread 0
+    set Message(count,0) 0
+    for {set i 1} {$i < $msgCnt} {incr i} {
+	$T item create
+	while 1 {
+	    set j [expr {int(rand() * $i)}]
+	    if {$j == 0} break
+	    if {[$T depth $j] == 5} continue
+	    if {$Message(count,$Message(thread,$j)) == 15} continue
+	    break
 	}
-
-	#
-	# Configure the treectrl widget
-	#
-
-	$T configure -itemheight $height -selectmode browse \
-		-showroot no -showrootbutton no -showbuttons yes -showlines no
-
-	#
-	# Create columns
-	#
-
-	$T column create -image outlook-clip -tags clip
-	$T column create -image outlook-arrow -tags arrow
-	$T column create -image outlook-watch -tags watch
-	$T column create -text Subject -width 250 -tags subject
-	$T column create -text From -width 150 -tags from
-	$T column create -text Sent -width 150 -tags sent
-	$T column create -text Size -width 60 -justify right -tags size
-
-	$T configure -treecolumn 3
-
-	#
-	# Create elements
-	#
-
-	$T element create image.unread image -image outlook-unread
-	$T element create image.read image -image outlook-read
-	$T element create image.read2 image -image outlook-read-2
-	$T element create text.read text -fill [list $::SystemHighlightText {selected focus}] \
-		-lines 1
-	$T element create text.unread text -fill [list $::SystemHighlightText {selected focus}] \
-		-font [list "[$T cget -font] bold"] -lines 1
-	$T element create sel.e rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open e -showfocus yes
-	$T element create sel.w rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open w -showfocus yes
-	$T element create sel.we rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -open we -showfocus yes
-
-	#
-	# Create styles using the elements
-	#
-
-	# Image + text
-	set S [$T style create unread]
-	$T style elements $S {sel.e image.unread text.unread}
-	$T style layout $S image.unread -expand ns
-	$T style layout $S text.unread -padx {2 6} -squeeze x -expand ns
-	$T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0}
-
-	# Image + text
-	set S [$T style create read]
-	$T style elements $S {sel.e image.read text.read}
-	$T style layout $S image.read -expand ns
-	$T style layout $S text.read -padx {2 6} -squeeze x -expand ns
-	$T style layout $S sel.e -union [list text.read] -iexpand nes -ipadx {2 0}
-
-	# Image + text
-	set S [$T style create read2]
-	$T style elements $S {sel.e image.read2 text.unread}
-	$T style layout $S image.read2 -expand ns
-	$T style layout $S text.unread -padx {2 6} -squeeze x -expand ns
-	$T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0}
-
-	# Text
-	set S [$T style create unread.we]
-	$T style elements $S {sel.we text.unread}
-	$T style layout $S text.unread -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.we -detach yes -iexpand xy
-
-	# Text
-	set S [$T style create read.we]
-	$T style elements $S {sel.we text.read}
-	$T style layout $S text.read -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.we -detach yes -iexpand xy
-
-	# Text
-	set S [$T style create unread.w]
-	$T style elements $S {sel.w text.unread}
-	$T style layout $S text.unread -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.w -detach yes -iexpand xy
-
-	# Text
-	set S [$T style create read.w]
-	$T style elements $S {sel.w text.read}
-	$T style layout $S text.read -padx 6 -squeeze x -expand ns
-	$T style layout $S sel.w -detach yes -iexpand xy
-
-	#
-	# Create items and assign styles
-	#
-
-	set msgCnt 100
-
-	set thread 0
-	set Message(count,0) 0
-	for {set i 1} {$i < $msgCnt} {incr i} {
-		$T item create
-		while 1 {
-			set j [expr {int(rand() * $i)}]
-			if {$j == 0} break
-			if {[$T depth $j] == 5} continue
-			if {$Message(count,$Message(thread,$j)) == 15} continue
-			break
-		}
-		$T item lastchild $j $i
-
-		set Message(read,$i) [expr rand() * 2 > 1]
-		if {$j == 0} {
-			set Message(thread,$i) [incr thread]
-			set Message(seconds,$i) [expr {[clock seconds] - int(rand() * 500000)}]
-			set Message(seconds2,$i) $Message(seconds,$i)
-			set Message(count,$thread) 1
-		} else {
-			set Message(thread,$i) $Message(thread,$j)
-			set Message(seconds,$i) [expr {$Message(seconds2,$j) + int(rand() * 10000)}]
-			set Message(seconds2,$i) $Message(seconds,$i)
-			set Message(seconds2,$j) $Message(seconds,$i)
-			incr Message(count,$Message(thread,$j))
-		}
+	$T item lastchild $j $i
+
+	set Message(read,$i) [expr rand() * 2 > 1]
+	if {$j == 0} {
+	    set Message(thread,$i) [incr thread]
+	    set Message(seconds,$i) [expr {[clock seconds] - int(rand() * 500000)}]
+	    set Message(seconds2,$i) $Message(seconds,$i)
+	    set Message(count,$thread) 1
+	} else {
+	    set Message(thread,$i) $Message(thread,$j)
+	    set Message(seconds,$i) [expr {$Message(seconds2,$j) + int(rand() * 10000)}]
+	    set Message(seconds2,$i) $Message(seconds,$i)
+	    set Message(seconds2,$j) $Message(seconds,$i)
+	    incr Message(count,$Message(thread,$j))
 	}
-
-	for {set i 1} {$i < $msgCnt} {incr i} {
-		set subject "This is thread number $Message(thread,$i)"
-		set from somebody@somewhere.net
-		set sent [clock format $Message(seconds,$i) -format "%d/%m/%y %I:%M %p"]
-		set size [expr {1 + int(rand() * 10)}]KB
-		if {$Message(read,$i)} {
-			set style read
-			set style2 read
-		} else {
-			set style unread
-			set style2 unread
-		}
-		$T item style set $i 3 $style 4 $style2.we 5 $style2.we 6 $style2.w
-		$T item text $i 3 $subject 4 $from 5 $sent 6 $size
-		if {[$T item numchildren $i]} {
-			$T item configure $i -button yes
-		}
+    }
+
+    for {set i 1} {$i < $msgCnt} {incr i} {
+	set subject "This is thread number $Message(thread,$i)"
+	set from somebody@somewhere.net
+	set sent [clock format $Message(seconds,$i) -format "%d/%m/%y %I:%M %p"]
+	set size [expr {1 + int(rand() * 10)}]KB
+	if {$Message(read,$i)} {
+	    set style read
+	    set style2 read
+	} else {
+	    set style unread
+	    set style2 unread
 	}
-
-	$T notify bind $T <Selection> {
-		if {[%T selection count] == 1} {
-			set I [%T selection get 0]
-			if {!$Message(read,$I)} {
-				if {[%T item isopen $I] || ![AnyUnreadDescendants %T $I]} {
-					# unread ->read
-					%T item style map $I subject read {text.unread text.read}
-					%T item style map $I from read.we {text.unread text.read}
-					%T item style map $I sent read.we {text.unread text.read}
-					%T item style map $I size read.w {text.unread text.read}
-				} else {
-					# unread -> read2
-					%T item style map $I subject read2 {text.unread text.unread}
-				}
-				set Message(read,$I) 1
-				DisplayStylesInItem $I
-			}
-		}
+	$T item style set $i 3 $style 4 $style2.we 5 $style2.we 6 $style2.w
+	$T item text $i 3 $subject 4 $from 5 $sent 6 $size
+	if {[$T item numchildren $i]} {
+	    $T item configure $i -button yes
 	}
-
-	$T notify bind $T <Expand-after> {
-		if {$Message(read,%I) && [AnyUnreadDescendants %T %I]} {
-			# read2 -> read
-			%T item style map %I subject read {text.unread text.read}
-			# unread -> read
-			%T item style map %I from read.we {text.unread text.read}
-			%T item style map %I sent read.we {text.unread text.read}
-			%T item style map %I size read.w {text.unread text.read}
+    }
+
+    $T notify bind $T <Selection> {
+	if {[%T selection count] == 1} {
+	    set I [%T selection get 0]
+	    if {!$Message(read,$I)} {
+		if {[%T item isopen $I] || ![AnyUnreadDescendants %T $I]} {
+		    # unread ->read
+		    %T item style map $I subject read {text.unread text.read}
+		    %T item style map $I from read.we {text.unread text.read}
+		    %T item style map $I sent read.we {text.unread text.read}
+		    %T item style map $I size read.w {text.unread text.read}
+		} else {
+		    # unread -> read2
+		    %T item style map $I subject read2 {text.unread text.unread}
 		}
+		set Message(read,$I) 1
+		DisplayStylesInItem $I
+	    }
 	}
-
-	$T notify bind $T <Collapse-after> {
-		if {$Message(read,%I) && [AnyUnreadDescendants %T %I]} {
-			# read -> read2
-			%T item style map %I subject read2 {text.read text.unread}
-			# read -> unread
-			%T item style map %I from unread.we {text.read text.unread}
-			%T item style map %I sent unread.we {text.read text.unread}
-			%T item style map %I size unread.w {text.read text.unread}
-		}
+    }
+
+    $T notify bind $T <Expand-after> {
+	if {$Message(read,%I) && [AnyUnreadDescendants %T %I]} {
+	    # read2 -> read
+	    %T item style map %I subject read {text.unread text.read}
+	    # unread -> read
+	    %T item style map %I from read.we {text.unread text.read}
+	    %T item style map %I sent read.we {text.unread text.read}
+	    %T item style map %I size read.w {text.unread text.read}
+	}
+    }
+
+    $T notify bind $T <Collapse-after> {
+	if {$Message(read,%I) && [AnyUnreadDescendants %T %I]} {
+	    # read -> read2
+	    %T item style map %I subject read2 {text.read text.unread}
+	    # read -> unread
+	    %T item style map %I from unread.we {text.read text.unread}
+	    %T item style map %I sent unread.we {text.read text.unread}
+	    %T item style map %I size unread.w {text.read text.unread}
 	}
+    }
 
-	for {set i 1} {$i < $msgCnt} {incr i} {
-		if {rand() * 2 > 1} {
-			if {[$T item numchildren $i]} {
-				$T item collapse $i
-			}
-		}
+    for {set i 1} {$i < $msgCnt} {incr i} {
+	if {rand() * 2 > 1} {
+	    if {[$T item numchildren $i]} {
+		$T item collapse $i
+	    }
 	}
+    }
 
-	return
+    return
 }
 
 proc AnyUnreadDescendants {T I} {
 
-	global Message
+    global Message
 
-	foreach item [$T item descendants $I] {
-		if {!$Message(read,$item)} {
-			return 1
-		}
+    foreach item [$T item descendants $I] {
+	if {!$Message(read,$item)} {
+	    return 1
 	}
-	return 0
+    }
+    return 0
 }