summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-rw-r--r--library/filelist-bindings.tcl2
-rw-r--r--library/treectrl.tcl3
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]