summaryrefslogtreecommitdiffstats
path: root/macosx/tkMacOSXXStubs.c
diff options
context:
space:
mode:
Diffstat (limited to 'macosx/tkMacOSXXStubs.c')
-rw-r--r--macosx/tkMacOSXXStubs.c11
1 files changed, 8 insertions, 3 deletions
diff --git a/macosx/tkMacOSXXStubs.c b/macosx/tkMacOSXXStubs.c
index a92fbcf..baadba5 100644
--- a/macosx/tkMacOSXXStubs.c
+++ b/macosx/tkMacOSXXStubs.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.2 2002/08/31 06:12:31 das Exp $
+ * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.3 2003/03/18 13:47:52 das Exp $
*/
#include "tkInt.h"
@@ -116,6 +116,11 @@ TkpOpenDisplay(
display->display_name = macScreenName;
display->qlen = 0;
display->fd = fd;
+ display->proto_major_version = 10;
+ Gestalt(gestaltQuickdrawVersion, (long*)&display->proto_minor_version);
+ display->proto_minor_version -= gestaltMacOSXQD;
+ display->vendor = "Apple";
+ Gestalt(gestaltSystemVersion, (long*)&display->release);
screen->root = ROOT_ID;
screen->display = display;
@@ -648,9 +653,9 @@ TkGetServerInfo(
char buffer[8 + TCL_INTEGER_SPACE * 2];
char buffer2[TCL_INTEGER_SPACE];
- sprintf(buffer, "X%dR%d ", ProtocolVersion(Tk_Display(tkwin)),
+ sprintf(buffer, "QD%dR%x ", ProtocolVersion(Tk_Display(tkwin)),
ProtocolRevision(Tk_Display(tkwin)));
- sprintf(buffer2, " %d", VendorRelease(Tk_Display(tkwin)));
+ sprintf(buffer2, " %x", VendorRelease(Tk_Display(tkwin)));
Tcl_AppendResult(interp, buffer, ServerVendor(Tk_Display(tkwin)),
buffer2, (char *) NULL);
}