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>
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