diff options
| author | treectrl <treectrl> | 2006-09-16 20:31:05 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-09-16 20:31:05 (GMT) |
| commit | f7afa1ba0d7fbb85d203be9ec72126245052268e (patch) | |
| tree | 6ac8fbbea164f1152d0d779aa4fa100e71129419 /library | |
| parent | 5dfeff5bd981f2a4580381b8474fab42d97a9497 (diff) | |
| download | tktreectrl-f7afa1ba0d7fbb85d203be9ec72126245052268e.zip tktreectrl-f7afa1ba0d7fbb85d203be9ec72126245052268e.tar.gz tktreectrl-f7afa1ba0d7fbb85d203be9ec72126245052268e.tar.bz2 | |
Clicking in a disabled item starts the marquee drag.
Diffstat (limited to 'library')
| -rw-r--r-- | library/filelist-bindings.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl index 573e59d..468feff 100644 --- a/library/filelist-bindings.tcl +++ b/library/filelist-bindings.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: filelist-bindings.tcl,v 1.21 2006/09/05 21:57:21 treectrl Exp $ +# RCS: @(#) $Id: filelist-bindings.tcl,v 1.22 2006/09/16 20:31:05 treectrl Exp $ bind TreeCtrlFileList <Double-ButtonPress-1> { TreeCtrl::FileListEditCancel %W @@ -126,6 +126,9 @@ proc ::TreeCtrl::FileListButton1 {T x y} { break } } + if {![$T item enabled $item]} { + set ok 0 + } if {$ok} { set Priv(drag,motion) 0 set Priv(drag,click,x) $x |