diff options
author | treectrl <treectrl> | 2006-11-22 03:31:56 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-22 03:31:56 (GMT) |
commit | b13bcd1b140aea828d29d96fd02b4b0118984645 (patch) | |
tree | aebe15f6556f2f144d636c511447b2ba4b4e1ad5 /demos | |
parent | bb12a7034bf5797bcbded9e103f404642acb23b2 (diff) | |
download | tktreectrl-b13bcd1b140aea828d29d96fd02b4b0118984645.zip tktreectrl-b13bcd1b140aea828d29d96fd02b4b0118984645.tar.gz tktreectrl-b13bcd1b140aea828d29d96fd02b4b0118984645.tar.bz2 |
Comment added.
Diffstat (limited to 'demos')
-rw-r--r-- | demos/explorer.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/demos/explorer.tcl b/demos/explorer.tcl index 69204eb..3462030 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: explorer.tcl,v 1.21 2006/11/12 05:48:22 treectrl Exp $ +# RCS: @(#) $Id: explorer.tcl,v 1.22 2006/11/22 03:31:56 treectrl Exp $ set Dir [file dirname [file dirname [info script]]] @@ -59,6 +59,7 @@ proc DemoExplorerAux {scriptDir scriptFile} { set ::TreeCtrl::Priv(DirCnt,$T) [llength $globDirs] + # Double-clicking a directory displays its contents. set Explorer(scriptDir) $scriptDir set Explorer(scriptFile) $scriptFile bind DemoExplorer <Double-ButtonPress-1> { |