diff options
| -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 |