diff options
| -rw-r--r-- | mac/tkMacAppInit.c | 6 | ||||
| -rw-r--r-- | mac/tkMacClipboard.c | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c index 9772f36..670e8fa 100644 --- a/mac/tkMacAppInit.c +++ b/mac/tkMacAppInit.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacAppInit.c,v 1.11 1999/06/16 05:33:58 jingham Exp $ + * RCS: @(#) $Id: tkMacAppInit.c,v 1.12 2000/02/10 08:53:06 jingham Exp $ */ #include <Gestalt.h> @@ -250,7 +250,11 @@ MacintoshInit() InitGraf(&tcl_macQdPtr->thePort); InitFonts(); + if (TkMacHaveAppearance() >= 0x110) { + InitFloatingWindows(); + } else { InitWindows(); + } InitMenus(); InitDialogs((long) NULL); InitCursor(); diff --git a/mac/tkMacClipboard.c b/mac/tkMacClipboard.c index 011a89c..c565392 100644 --- a/mac/tkMacClipboard.c +++ b/mac/tkMacClipboard.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacClipboard.c,v 1.5 2000/01/06 02:22:36 hobbs Exp $ + * RCS: @(#) $Id: tkMacClipboard.c,v 1.6 2000/02/10 08:53:11 jingham Exp $ */ #include "tkInt.h" @@ -74,7 +74,7 @@ TkSelGetSelection( Tcl_ExternalToUtfDString(NULL, *handle, length, &encodedText); result = (*proc)(clientData, interp, - Tcl_DStringValue(encodedText)); + Tcl_DStringValue(&encodedText)); Tcl_DStringFree(&encodedText); HUnlock(handle); |