diff options
author | jingham <jingham@noemail.net> | 1998-11-11 17:28:50 (GMT) |
---|---|---|
committer | jingham <jingham@noemail.net> | 1998-11-11 17:28:50 (GMT) |
commit | 1e6b17b73a104a5e5c35c0097ed8f58ac692eab2 (patch) | |
tree | 993d1f2ceab5039b6806719996992d39b39829da /mac/tkMacColor.c | |
parent | e524a106f98fa7850e76a96cd4f35e58808bae1d (diff) | |
download | tk-1e6b17b73a104a5e5c35c0097ed8f58ac692eab2.zip tk-1e6b17b73a104a5e5c35c0097ed8f58ac692eab2.tar.gz tk-1e6b17b73a104a5e5c35c0097ed8f58ac692eab2.tar.bz2 |
Make the Macintosh Menu's adopt the current Theme Appearance if the Appearance extension (version 1.0.1 or later) is installed
FossilOrigin-Name: 969e94cbbdf8d50cee7e2f4298810aa2a0c5610b
Diffstat (limited to 'mac/tkMacColor.c')
-rw-r--r-- | mac/tkMacColor.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/mac/tkMacColor.c b/mac/tkMacColor.c index 4de218d..d7ee825 100644 --- a/mac/tkMacColor.c +++ b/mac/tkMacColor.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacColor.c,v 1.2 1998/09/14 18:23:34 stanton Exp $ + * RCS: @(#) $Id: tkMacColor.c,v 1.3 1998/11/11 17:29:57 jingham Exp $ */ #include <tkColor.h> @@ -90,6 +90,8 @@ TkSetMacColor( case MENU_TEXT_PIXEL: GetMenuPartColor((pixel >> 24), macColor); return true; + case APPEARANCE_PIXEL: + return false; case PIXEL_MAGIC: default: macColor->blue = (unsigned short) ((pixel & 0xFF) << 8); @@ -252,6 +254,12 @@ TkpGetColor( GetMenuPartColor(MENU_TEXT_PIXEL, &rgbValue); pixelCode = MENU_TEXT_PIXEL; foundSystemColor = true; + } else if (!strcasecmp(name+6, "AppearanceColor")) { + color.red = 0; + color.green = 0; + color.blue = 0; + pixelCode = APPEARANCE_PIXEL; + foundSystemColor = true; } if (foundSystemColor) { |