diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/filelist-bindings.tcl | 2 | ||||
-rw-r--r-- | library/treectrl.tcl | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl index 43e61ec..3c61336 100644 --- a/library/filelist-bindings.tcl +++ b/library/filelist-bindings.tcl @@ -31,6 +31,8 @@ bind TreeCtrlFileList <ButtonRelease-1> { break } +namespace eval TreeCtrl {} + proc TreeCtrl::FileListButton1 {T x y} { variable Priv focus $T diff --git a/library/treectrl.tcl b/library/treectrl.tcl index a965818..9b8864e 100644 --- a/library/treectrl.tcl +++ b/library/treectrl.tcl @@ -190,6 +190,9 @@ namespace eval ::TreeCtrl { } } +# Retrieve filelist bindings from this dir +source [file join [file dirname [info script]] filelist-bindings.tcl] + proc ::TreeCtrl::CursorCheck {w x y} { variable Priv set id [$w identify $x $y] |