diff options
author | treectrl <treectrl> | 2005-05-10 22:52:47 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-05-10 22:52:47 (GMT) |
commit | 0e1f3bee359a939870cd9307945661a69a455f41 (patch) | |
tree | 81bbd601e31e33eed49e911d86803dfd5daf9739 | |
parent | 4b76ef9bce841342e120d49c9b30d68e584932c0 (diff) | |
download | tktreectrl-0e1f3bee359a939870cd9307945661a69a455f41.zip tktreectrl-0e1f3bee359a939870cd9307945661a69a455f41.tar.gz tktreectrl-0e1f3bee359a939870cd9307945661a69a455f41.tar.bz2 |
Replace -arrowpad with -arrowpadx.
Tweaked -xscrollincrement so horizontal scrolling is better with column dnd.
-rw-r--r-- | demos/mailwasher.tcl | 4 |
1 files 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 |