From: Stefan Haller <stefan@haller-berlin.de>
Date: Thu, 6 Jun 2013 08:17:47 +0000 (+0200)
Subject: git-gui: bring wish process to front on Mac
X-Git-Tag: gitgui-0.18.0~3
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7d2017e7738ace254d0b653ce844d07af8ecf026;p=thirdparty%2Fgit.git

git-gui: bring wish process to front on Mac

On Mac OS X, any application that is started from the Terminal will open
behind all running applications; as a work-around, manually bring ourselves
to the front. (Stolen from gitk, commit 76bf6ff93e.)

We do this as the very first thing, so that any message boxes that might pop
up during the rest of the startup sequence are actually seen by the user.

[PT: added catch and moved down to ensure Tk has been loaded]

Signed-off-by: Stefan Haller <stefan@haller-berlin.de>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---

diff --git a/git-gui.sh b/git-gui.sh
index e133331ef5..7031759751 100755
--- a/git-gui.sh
+++ b/git-gui.sh
@@ -135,6 +135,20 @@ proc strcat {args} {
 ::msgcat::mcload $oguimsg
 unset oguimsg
 
+######################################################################
+##
+## On Mac, bring the current Wish process window to front
+
+if {[tk windowingsystem] eq "aqua"} {
+	catch {
+		exec osascript -e [format {
+			tell application "System Events"
+				set frontmost of processes whose unix id is %d to true
+			end tell
+		} [pid]]
+	}
+}
+
 ######################################################################
 ##
 ## read only globals