Message ID | 49cdbff270f30f91418dde5c704836f51e1e4f61.1687876885.git.gitgitgadget@gmail.com (mailing list archive) |
---|---|
State | New, archived |
Headers | show |
Series | gitk: improve keyboard support | expand |
diff --git a/gitk-git/gitk b/gitk-git/gitk index 5b01d1902a5..9d93053e360 100755 --- a/gitk-git/gitk +++ b/gitk-git/gitk @@ -9922,7 +9922,7 @@ proc resethead {reset_target_id} { ${NS}::button $w.cancel -text [mc Cancel] -command "destroy $w" bind $w <Key-Escape> [list destroy $w] pack $w.cancel -side right -fill x -padx 20 -pady 20 - bind $w <Visibility> "grab $w; focus $w" + bind $w <Visibility> "grab $w; focus $w.ok" tkwait window $w if {!$confirm_ok} return if {[catch {set fd [open \