[PATCH] Force gitk as the forground process when it starts up on Mac OS X

It annoys me that gitk always start out in the background on Mac OS X.
 This patch fixes this for those that have the tclCarbonProcess
package installed.  Unfortunately that package is not shipped by
default from Apple, but it's part of ActiveTcl.

--Gisle

From 272c7f9b6a2bcdf48e4141b9dc5af445fa69a27b Mon Sep 17 00:00:00 2001

From: Gisle Aas <redacted>
Date: Mon, 2 Feb 2009 14:27:20 +0100
Subject: [PATCH] Force gitk as the forground process when it starts up
on Mac OS X

Signed-off-by: Gisle Aas <redacted>
---
 gitk-git/gitk |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/gitk-git/gitk b/gitk-git/gitk
index dc2a439..e0c11f7 100644
--- a/gitk-git/gitk
+++ b/gitk-git/gitk

@@ -10918,5 +10918,11 @@ if {[info exists permviews]} {
 if {[tk windowingsystem] eq "win32"} {
     focus -force .
 }
+if {[tk windowingsystem] eq "aqua"} {
+    catch {
+        package require tclCarbonProcesses
+        carbon::setFrontProcess [carbon::getCurrentProcess]
+    }
+}

 getcommits {}

-- 
1.6.1.28.gc32f76

Heya,

On Mon, Feb 2, 2009 at 14:36, Gisle Aas [off-list ref] wrote:

It annoys me that gitk always start out in the background on Mac OS X. Hence this patch
--Gisle


From 272c7f9b6a2bcdf48e4141b9dc5af445fa69a27b Mon Sep 17 00:00:00 2001
From: Gisle Aas <redacted>
Date: Mon, 2 Feb 2009 14:27:20 +0100
Subject: [PATCH] Force gitk as the forground process when it starts up
on Mac OS X

This patch makes gitk start in the foreground this for those that have the
tclCarbonProcess package installed.  Unfortunately that package is not
shipped by default from Apple, but it's part of ActiveTcl.

Signed-off-by: Gisle Aas <redacted>

There, fixed that for ya :).

-- 
Cheers,

Sverre Rabbelier