From 0e1f3bee359a939870cd9307945661a69a455f41 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Tue, 10 May 2005 22:52:47 +0000
Subject: Replace -arrowpad with -arrowpadx. Tweaked -xscrollincrement so
 horizontal scrolling is better with column dnd.

---
 demos/mailwasher.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl
index f890396..02e0835 100644
--- a/demos/mailwasher.tcl
+++ b/demos/mailwasher.tcl
@@ -18,7 +18,7 @@ proc DemoMailWasher {} {
 
 	$T configure -showroot no -showrootbutton no -showbuttons no \
 		-showlines no -itemheight $height -selectmode browse \
-		-xscrollincrement 1
+		-xscrollincrement 20
 
 	#
 	# Create columns
@@ -31,7 +31,7 @@ proc DemoMailWasher {} {
 	$T column create -text Size -width 40 -textpadx $pad -justify right -tag size
 	$T column create -text From -width 140 -textpadx $pad -tag from
 	$T column create -text Subject -width 240 -textpadx $pad -tag subject
-	$T column create -text Received -textpadx $pad -arrow up -arrowpad {4 0} -tag received
+	$T column create -text Received -textpadx $pad -arrow up -arrowpadx {4 0} -tag received
 	$T column create -text Attachments -textpadx $pad -tag attachments
 
 	$T state define CHECK
-- 
cgit v0.12