From: Tair Sabirgaliev <tair.sabirgaliev@bee.kz>
Date: Wed, 24 Apr 2013 09:48:27 +0000 (+0600)
Subject: gitk: On OSX, bring the gitk window to front
X-Git-Tag: v1.8.3-rc2~1^2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=76bf6ff93e1766b8813f0cdbe9089080010ba646;p=git

gitk: On OSX, bring the gitk window to front

On OSX, Tcl/Tk application windows are created behind all
the applications down the stack of windows.  This is very
annoying, because once a gitk window appears, it's the
downmost window and switching to it is pain.

The patch is: if we are on OSX, use osascript to
bring the current Wish process window to front.

Signed-off-by: Tair Sabirgaliev <tair.sabirgaliev@gmail.com>
Thanks-to: Stefan Haller <lists@haller-berlin.de>
Signed-off-by: Paul Mackerras <paulus@samba.org>
---

diff --git a/gitk b/gitk
index 22a05b0373..5cd00d80fe 100755
--- a/gitk
+++ b/gitk
@@ -11751,6 +11751,15 @@ if {[catch {package require Tk 8.4} err]} {
     exit 1
 }
 
+# on OSX bring the current Wish process window to front
+if {[tk windowingsystem] eq "aqua"} {
+    exec osascript -e [format {
+        tell application "System Events"
+            set frontmost of processes whose unix id is %d to true
+        end tell
+    } [pid] ]
+}
+
 # Unset GIT_TRACE var if set
 if { [info exists ::env(GIT_TRACE)] } {
     unset ::env(GIT_TRACE)