gitk: Bind Key-Return to create on new branch dialog

diff --git a/gitk b/gitk
index 00ea8da7359cb3fa8197adce0a47d7a0c5c54a92..0f9ff7f65979661ec3f6e8f330887b83d8092524 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -7625,6 +7625,7 @@ proc mkbranch {} {
     grid $top.id $top.sha1 -sticky w
     label $top.nlab -text [mc "Name:"]
     entry $top.name -width 40
+    bind $top.name <Key-Return> "[list mkbrgo $top]"
     grid $top.nlab $top.name -sticky w
     frame $top.buts
     button $top.buts.go -text [mc "Create"] -command [list mkbrgo $top]