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

[Gisle Aas <gisle@aas.no>]

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 <gisle@aas.no>
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 <gisle@aas.no>
---
 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