git-gui: Focus into blame panels on Mac OS.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>

diff --git a/git-gui.sh b/git-gui.sh
index d3cf57af5a67970cca05b122c4d8b9bf5d2cb7a4..f44e5490991aa95ef92b8939993abe751e8e0f2d 100755 (executable)
--- a/git-gui.sh
+++ b/git-gui.sh
@@ -3339,7 +3339,7 @@ proc show_blame {commit path} {
                                $w.out.linenumber_t \\
                                $w.out.file_t \\
                                $i @%x,%y
-                       break
+                       focus $i
                "
                bind_button3 $i "
                        set cursorX %x
@@ -3349,6 +3349,7 @@ proc show_blame {commit path} {
                "
        }
 
+       bind $w.cm.t <Button-1> "focus $w.cm.t"
        bind $tl <Visibility> "focus $tl"
        bind $tl <Destroy> "
                array unset blame_status {$w}
@@ -3428,6 +3429,7 @@ proc read_blame_incremental {fd w w_load w_cmit w_line w_file} {
                                $w_file tag conf g$cmit
                                $w_line tag raise in_sel
                                $w_file tag raise in_sel
+                               $w_file tag raise sel
                                set blame_data($w,$cmit,order) $blame_data($w,commit_count)
                                incr blame_data($w,commit_count)
                                lappend blame_data($w,commit_list) $cmit