1 files changed, 12 insertions, 0 deletions
diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c
index ebc2c18..bbbbba0 100644
--- a/mac/tkMacAppInit.c
+++ b/mac/tkMacAppInit.c
@@ -18,6 +18,7 @@
 #include <Dialogs.h>
 #include <SegLoad.h>
 #include <Traps.h>
+#include <Appearance.h>
 
 #include "tk.h"
 #include "tkInt.h"
@@ -221,6 +222,17 @@ MacintoshInit()
      */
     tcl_macQdPtr = &qd;
 
+    /*
+     * If appearance is present, then register Tk as an Appearance client
+     * This means that the mapping from non-Appearance to Appearance cdefs
+     * will be done for Tk regardless of the setting in the Appearance
+     * control panel.  
+     */
+     
+     if (TkMacHaveAppearance()) {
+         RegisterAppearanceClient();
+     }
+
     InitGraf(&tcl_macQdPtr->thePort);
     InitFonts();
     InitWindows();