diff options
author | treectrl <treectrl> | 2005-06-04 18:16:43 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-06-04 18:16:43 (GMT) |
commit | c53cfe18bd0080af1ef6c500ec5b97fdd1d8b5b0 (patch) | |
tree | b099d4f279aa19b6999ddb8c3f045d3f2fcaf107 | |
parent | f6b56365e630fb8e48be6fd89100ab717d2eacb6 (diff) | |
download | tktreectrl-c53cfe18bd0080af1ef6c500ec5b97fdd1d8b5b0.zip tktreectrl-c53cfe18bd0080af1ef6c500ec5b97fdd1d8b5b0.tar.gz tktreectrl-c53cfe18bd0080af1ef6c500ec5b97fdd1d8b5b0.tar.bz2 |
Fix bug 1210747: entry or text widget could keep focus when hidden.
-rw-r--r-- | library/filelist-bindings.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl index 7ebe2b9..ea512ec 100644 --- a/library/filelist-bindings.tcl +++ b/library/filelist-bindings.tcl @@ -622,6 +622,7 @@ proc ::TreeCtrl::EntryClose {T accept} { variable Priv place forget $T.entry + focus $T update if {$accept} { @@ -821,6 +822,7 @@ proc ::TreeCtrl::TextClose {T accept} { variable Priv place forget $T.text + focus $T update if {$accept} { |