diff options
| author | treectrl <treectrl> | 2003-01-05 23:04:10 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2003-01-05 23:04:10 (GMT) |
| commit | 34ec0d2303e657dedf76ba8bb9db4854fbd5a523 (patch) | |
| tree | f49e22f2647fac7fd891e9c6152de2c2575036a4 /library/filelist-bindings.tcl | |
| parent | 8f07d896fd0963fa2e55c1ac1e0d287efe6fd00b (diff) | |
| download | tktreectrl-34ec0d2303e657dedf76ba8bb9db4854fbd5a523.zip tktreectrl-34ec0d2303e657dedf76ba8bb9db4854fbd5a523.tar.gz tktreectrl-34ec0d2303e657dedf76ba8bb9db4854fbd5a523.tar.bz2 | |
-padw/e -> -padx
Diffstat (limited to 'library/filelist-bindings.tcl')
| -rw-r--r-- | library/filelist-bindings.tcl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl index 382f92c..f46d9b0 100644 --- a/library/filelist-bindings.tcl +++ b/library/filelist-bindings.tcl @@ -324,8 +324,13 @@ proc TreeCtrl::FileListEdit {T I S E} { # Multi-line edit if {$lines ne "1"} { scan [$T item bbox $I 0] "%d %d %d %d" x1 y1 x2 y2 - set padw [$T style layout $S $E -padw] - set pade [$T style layout $S $E -pade] + set padx [$T style layout $S $E -padx] + if {[llength $padx] == 2} { + set padw [lindex $padx 0] + set pade [lindex $padx 1] + } else { + set pade [set padw $padx] + } TextExpanderOpen $T $I 0 $E [expr {$x2 - $x1 - $padw - $pade}] # Single-line edit |