From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 31 May 1995 00:17:27 +0000 (+0000)
Subject: Use CLR_ arguments to set initial colors for a window.  Apparently the
X-Git-Tag: 20090517-FFI~6267
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=087302e26fd2d4b4b0c8ecb387d998b5739cd2cd;p=mit-scheme.git

Use CLR_ arguments to set initial colors for a window.  Apparently the
value returned by GpiQueryBackColor is invalid on some displays.
---

diff --git a/v7/src/microcode/os2pm.c b/v7/src/microcode/os2pm.c
index 18789ed19..a38ce4afd 100644
--- a/v7/src/microcode/os2pm.c
+++ b/v7/src/microcode/os2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.c,v 1.17 1995/05/20 10:14:06 cph Exp $
+$Id: os2pm.c,v 1.18 1995/05/31 00:17:27 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -3464,8 +3464,8 @@ create_ps (pst_t type, HDC hdc, qid_t qid)
   (PS_HANDLE (ps)) = hps;
   (PS_ID (ps)) = (allocate_id ((& psid_table), ps));
   (PS_QID (ps)) = qid;
-  (PS_FOREGROUND_COLOR (ps)) = (GpiQueryColor (hps));
-  (PS_BACKGROUND_COLOR (ps)) = (GpiQueryBackColor (hps));
+  (PS_FOREGROUND_COLOR (ps)) = CLR_DEFAULT;
+  (PS_BACKGROUND_COLOR (ps)) = CLR_BACKGROUND;
   (PS_VISUAL_TYPE (ps)) = type;
   (PS_VISUAL (ps)) = 0;
   (PS_CHAR_INCREMENTS (ps)) = 0;