summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7b85a17)
raw | patch | inline | side by side (parent: 7b85a17)
author | Shawn O. Pearce <spearce@spearce.org> | |
Tue, 21 Nov 2006 17:00:50 +0000 (12:00 -0500) | ||
committer | Shawn O. Pearce <spearce@spearce.org> | |
Tue, 21 Nov 2006 17:00:50 +0000 (12:00 -0500) |
Darwn based UNIX systems are not necessarily Mac OS X. However the only
windowing system used by Tk that is Mac OS X is 'aqua', and only 'aqua'
exists on Mac OS X. Therefore this is a more reliable test for the
Macintosh platform.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
windowing system used by Tk that is Mac OS X is 'aqua', and only 'aqua'
exists on Mac OS X. Therefore this is a more reliable test for the
Macintosh platform.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
git-gui | patch | blob | history |
index 3e53fbd623f14446de6aabb79614ce34ef6e0cfe..afd9ac026e79cce4811de0cb4fa9b7c6d6bc23f6 100755 (executable)
--- a/git-gui
+++ b/git-gui
proc is_MacOSX {} {
global tcl_platform tk_library
- if {$tcl_platform(platform) eq {unix}
- && $tcl_platform(os) eq {Darwin}
- && [string match /Library/Frameworks/* $tk_library]} {
+ if {[tk windowingsystem] eq {aqua}} {
return 1
}
return 0