diff options
| author | hobbs2 <hobbs2> | 2004-10-09 22:57:44 (GMT) |
|---|---|---|
| committer | hobbs2 <hobbs2> | 2004-10-09 22:57:44 (GMT) |
| commit | e1c3597075e8c087370a97c37be6f2c38c7e50b8 (patch) | |
| tree | 2a8e7bfcbff5de8c4084b5613a63c1bfd313cc1a /library | |
| parent | f417a7d7fba806ef0324af04604e9b8001b6199e (diff) | |
| download | tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.zip tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.tar.gz tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.tar.bz2 | |
* pkgIndex.tcl.in: Automate creation of pkgIndex.tcl and use
* demos/demo.tcl: tcl_findLibrary to avoid the issue of build vs.
* tests/all.tcl: install package.
* generic/tkTreeCtrl.c:
* library/filelist-bindings.tcl: ensure TreeCtrl namespace exists
* library/treectrl.tcl: source filelist-bindings
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] |