From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Nov 1995 01:01:16 +0000 (+0000)
Subject: Load an icon resource for the console window.
X-Git-Tag: 20090517-FFI~5782
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cc3c20d2460e55e275d6fa2e71a80b88c52a3a07;p=mit-scheme.git

Load an icon resource for the console window.
---

diff --git a/v7/src/microcode/os2pmcon.c b/v7/src/microcode/os2pmcon.c
index 138d5e904..b205a8e5f 100644
--- a/v7/src/microcode/os2pmcon.c
+++ b/v7/src/microcode/os2pmcon.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pmcon.c,v 1.18 1995/11/04 00:10:51 cph Exp $
+$Id: os2pmcon.c,v 1.19 1995/11/04 01:01:08 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -161,7 +161,7 @@ OS2_initialize_pm_console (void)
 			  (FCF_TITLEBAR | FCF_SYSMENU
 			   | FCF_SHELLPOSITION | FCF_SIZEBORDER
 			   | FCF_MINMAX | FCF_TASKLIST
-			   | FCF_MENU | FCF_ACCELTABLE),
+			   | FCF_MENU | FCF_ACCELTABLE | FCF_ICON),
 			  NULLHANDLE,
 			  ID_PMCON_RESOURCES,
 			  0, "Scheme"));
diff --git a/v7/src/microcode/os2pmcon.rc b/v7/src/microcode/os2pmcon.rc
index 1da75c685..d1a303f96 100644
--- a/v7/src/microcode/os2pmcon.rc
+++ b/v7/src/microcode/os2pmcon.rc
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pmcon.rc,v 1.2 1995/11/03 01:30:07 cph Exp $
+$Id: os2pmcon.rc,v 1.3 1995/11/04 01:01:16 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -37,6 +37,31 @@ MIT in each case. */
 #include <os2.h>
 #include "os2pmcon.h"
 
+#ifdef SCHEME
+ICON ID_PMCON_RESOURCES "os2utl\\lambda2.ico"
+ICON 11 "os2utl\\bch.ico"
+#else
+#ifdef BCHSCHEM
+ICON ID_PMCON_RESOURCES "os2utl\\bch.ico"
+ICON 11 "os2utl\\lambda2.ico"
+#endif
+#endif
+
+ICON 12 "os2utl\\coffee.ico"
+ICON 13 "os2utl\\conses.ico"
+ICON 14 "os2utl\\edwin.ico"
+ICON 15 "os2utl\\envir1.ico"
+ICON 16 "os2utl\\graphics.ico"
+ICON 17 "os2utl\\lambda.ico"
+ICON 18 "os2utl\\liar1.ico"
+ICON 19 "os2utl\\liar2.ico"
+ICON 20 "os2utl\\liar3.ico"
+ICON 21 "os2utl\\mincer.ico"
+ICON 22 "os2utl\\shield1.ico"
+ICON 23 "os2utl\\shield2.ico"
+ICON 24 "os2utl\\shield3.ico"
+ICON 25 "os2utl\\shield4.ico"
+
 MENU ID_PMCON_RESOURCES
 {
   SUBMENU "~File", IDM_FILE