diff --git a/gitk b/gitk index a70787a879..36e8647b33 100755 --- a/gitk +++ b/gitk @@ -338,6 +338,7 @@ proc error_popup msg { button $w.ok -text OK -command "destroy $w" pack $w.ok -side bottom -fill x bind $w "grab $w; focus $w" + bind $w "destroy $w" tkwait window $w }