From c53cfe18bd0080af1ef6c500ec5b97fdd1d8b5b0 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 4 Jun 2005 18:16:43 +0000
Subject: Fix bug 1210747: entry or text widget could keep focus when hidden.

---
 library/filelist-bindings.tcl | 2 ++
 1 file changed, 2 insertions(+)

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} {
-- 
cgit v0.12