diff options
| author | welch <welch@noemail.net> | 1998-07-06 22:59:41 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1998-07-06 22:59:41 (GMT) |
| commit | 0741a2a55580b695a16a554c8fa93c8e4658e08d (patch) | |
| tree | a46fab6a4367b8c3cb936973bb23689b55dc2597 /mac/tkMacAppInit.c | |
| parent | 12637c982577f3f3876b2f56754b1d08b20d4975 (diff) | |
| download | tk-0741a2a55580b695a16a554c8fa93c8e4658e08d.zip tk-0741a2a55580b695a16a554c8fa93c8e4658e08d.tar.gz tk-0741a2a55580b695a16a554c8fa93c8e4658e08d.tar.bz2 | |
Mac updates for 8.0.3-2
FossilOrigin-Name: 95cc1e08529a3cc0a08c8599201f2759e404cdb3
Diffstat (limited to 'mac/tkMacAppInit.c')
| -rw-r--r-- | mac/tkMacAppInit.c | 12 |
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(); |