git-gui: Don't quit when we destroy a child widget

[git.git] / git-gui.sh

diff --git a/git-gui.sh b/git-gui.sh
index d6472636c366b52552c70d259f3288758591d6c0..a8185a3014d4f10f11efe9ff7b917b89fc07cf03 100755 (executable)
--- a/git-gui.sh
+++ b/git-gui.sh
@@ -1600,7 +1600,7 @@ unset browser doc_path doc_url
 
 # -- Standard bindings
 #
-bind .   <Destroy> do_quit
+bind .   <Destroy> {if {{%W} eq {.}} do_quit}
 bind all <$M1B-Key-q> do_quit
 bind all <$M1B-Key-Q> do_quit
 bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}