git-gui: Refactor our ui_status_value update technique

diff --git a/lib/branch_delete.tcl b/lib/branch_delete.tcl
index 16ca6938bec5c93f189e3a63eb0c6cd44ed9503b..138e84192c9389e240f1833d2b4223b39e1cc880 100644 (file)
--- a/lib/branch_delete.tcl
+++ b/lib/branch_delete.tcl
@@ -40,6 +40,7 @@ constructor dialog {} {
                -height 10 \
                -width 70 \
                -selectmode extended \
+               -exportselection false \
                -yscrollcommand [list $w.list.sby set]
        scrollbar $w.list.sby -command [list $w.list.l yview]
        pack $w.list.sby -side right -fill y
@@ -80,13 +81,7 @@ method _select {} {
 method _delete {} {
        global all_heads
 
-       if {[catch {set check_cmt [$w_check get_commit]} err]} {
-               tk_messageBox \
-                       -icon error \
-                       -type ok \
-                       -title [wm title $w] \
-                       -parent $w \
-                       -message "Invalid revision: [$w_check get]"
+       if {[catch {set check_cmt [$w_check commit_or_die]}]} {
                return
        }