From 4dfb3aeabdcba38301d5fb68534eec9dc88028bd Mon Sep 17 00:00:00 2001
From: jingham <jingham>
Date: Thu, 10 Feb 2000 08:53:06 +0000
Subject: Add support for Appearance Manager 1.2 Floating windows, and the new
 window classes in unsupported1

---
 mac/tkMacAppInit.c   | 6 +++++-
 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);
-- 
cgit v0.12