git-gui: New Git version check support routine

diff --git a/lib/merge.tcl b/lib/merge.tcl
index 642d6eefbda00ec61c4e017ba0a78cc13caa6352..889182f5454ac0f636fc57c31a16331c097b0c71 100644 (file)
--- a/lib/merge.tcl
+++ b/lib/merge.tcl
@@ -123,8 +123,10 @@ Please select fewer branches.  To merge more than 15 branches, merge the branche
        set msg "Merging $current_branch, [join $names {, }]"
        set ui_status_value "$msg..."
        set cons [console::new "Merge" $msg]
-       console::exec $cons $cmd [namespace code [list _finish $revcnt]]
-       bind $w <Destroy> {}
+       console::exec $cons $cmd \
+               [namespace code [list _finish $revcnt $cons]]
+
+       wm protocol $w WM_DELETE_WINDOW {}
        destroy $w
 }
 
@@ -211,7 +213,9 @@ proc dialog {} {
        pack $w.buttons.visualize -side left
        button $w.buttons.create -text Merge -command $_start
        pack $w.buttons.create -side right
-       button $w.buttons.cancel -text {Cancel} -command [list destroy $w]
+       button $w.buttons.cancel \
+               -text {Cancel} \
+               -command "unlock_index;destroy $w"
        pack $w.buttons.cancel -side right -padx 5
        pack $w.buttons -side bottom -fill x -pady 10 -padx 10
 
@@ -249,7 +253,7 @@ proc dialog {} {
        bind $w <$M1B-Key-Return> $_start
        bind $w <Visibility> "grab $w; focus $w.source.l"
        bind $w <Key-Escape> "unlock_index;destroy $w"
-       bind $w <Destroy> unlock_index
+       wm protocol $w WM_DELETE_WINDOW "unlock_index;destroy $w"
        wm title $w "[appname] ([reponame]): Merge"
        tkwait window $w
 }