Re: [PATCH 1] gitk: on OSX bring the gitk window to front

From: Tair Sabirgaliev <tair.sabirgaliev@bee.kz>
Date: Apr 24, 2013, 09:48 UTC
Message-ID: <3EE7D8B9-5FAE-43F5-9BE3-C4AE2A75B57D@bee.kz>
In-Reply-To: <1l1scng.k9ly7ci7gjd2M%lists@haller-berlin.de>

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>
---
 gitk | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gitk b/gitk
index 572f73f..66e59b1 100755
--- a/gitk
+++ b/gitk
@@ -11687,6 +11687,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)

-- 
1.8.2.1