diff options
author | treectrl <treectrl> | 2006-11-12 05:48:22 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-12 05:48:22 (GMT) |
commit | b2c577e82acbc8db1f6ea21333b4bd63dba052ab (patch) | |
tree | 4d6a90a56c03691e7755b009915d6248c84711f4 /demos | |
parent | a362dfc6b6f8ebdf2799373c3d2ff80d89524f13 (diff) | |
download | tktreectrl-b2c577e82acbc8db1f6ea21333b4bd63dba052ab.zip tktreectrl-b2c577e82acbc8db1f6ea21333b4bd63dba052ab.tar.gz tktreectrl-b2c577e82acbc8db1f6ea21333b4bd63dba052ab.tar.bz2 |
Fixed improper binding on the demo list.
Diffstat (limited to 'demos')
-rw-r--r-- | demos/explorer.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/demos/explorer.tcl b/demos/explorer.tcl index d42315f..69204eb 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: explorer.tcl,v 1.20 2006/11/01 02:03:21 treectrl Exp $ +# RCS: @(#) $Id: explorer.tcl,v 1.21 2006/11/12 05:48:22 treectrl Exp $ set Dir [file dirname [file dirname [info script]]] @@ -61,7 +61,7 @@ proc DemoExplorerAux {scriptDir scriptFile} { set Explorer(scriptDir) $scriptDir set Explorer(scriptFile) $scriptFile - bind $T <Double-ButtonPress-1> { + bind DemoExplorer <Double-ButtonPress-1> { ExplorerDoubleButton1 %W %x %y } @@ -232,7 +232,7 @@ proc DemoExplorerDetails {} { set ::SortColumn name $T notify bind $T <Header-invoke> { ExplorerHeaderInvoke %T %C } - bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoExplorer TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] return } @@ -432,7 +432,7 @@ proc DemoExplorerLargeIcons {} { } $T item element configure active C0 elemTxt -lines 3 - bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoExplorer TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] return } @@ -577,7 +577,7 @@ proc DemoExplorerList {} { $T activate [$T item firstchild root] - bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoExplorer TreeCtrlFileList TreeCtrl [winfo toplevel $T] all] return } |