summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tkMacAppInit.c6
-rw-r--r--mac/tkMacClipboard.c4
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);