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

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

[Gisle Aas]

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

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

[Sverre Rabbelier]

Heya,

On Mon, Feb 2, 2009 at 14:36, Gisle Aas <gisle@aas.no> 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 <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
>
> 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 <gisle@aas.no>

There, fixed that for ya :).

-- 
Cheers,

Sverre Rabbelier