From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Nov 1995 02:29:08 +0000 (+0000)
Subject: Set the icon of each Edwin screen to the standard Edwin icon.
X-Git-Tag: 20090517-FFI~5773
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b922799ee6b174cfdcc42367abddec45af5f5782;p=mit-scheme.git

Set the icon of each Edwin screen to the standard Edwin icon.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index db8368875..fbf25405a 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.182 1995/11/03 12:39:11 cph Exp $
+$Id: edwin.pkg,v 1.183 1995/11/04 02:29:00 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1220,12 +1220,15 @@ MIT in each case. |#
 	    font-metrics/descender
 	    font-metrics/height
 	    font-metrics/width
+	    hwnd_desktop
+	    idi_edwin
 	    kc_alt
 	    kc_ctrl
 	    kc_virtualkey
 	    key-event/code
 	    key-event/flags
 	    key-event/repeat
+	    nullhandle
 	    number-of-event-types
 	    os2ps-clear
 	    os2ps-set-colors
@@ -1238,6 +1241,7 @@ MIT in each case. |#
 	    os2win-console-wid
 	    os2win-desktop-height
 	    os2win-desktop-width
+	    os2win-destroy-pointer
 	    os2win-event-ready?
 	    os2win-focus?
 	    os2win-get-event
@@ -1245,12 +1249,14 @@ MIT in each case. |#
 	    os2win-get-pos
 	    os2win-get-size
 	    os2win-invalidate
+	    os2win-load-pointer
 	    os2win-move-cursor
 	    os2win-open
 	    os2win-open-event-qid
 	    os2win-ps
 	    os2win-scroll
 	    os2win-set-grid
+	    os2win-set-icon
 	    os2win-set-pos
 	    os2win-set-size
 	    os2win-set-state
diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index 98e95bdd6..28d9b1a28 100644
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2term.scm,v 1.9 1995/11/03 12:39:01 cph Exp $
+;;;	$Id: os2term.scm,v 1.10 1995/11/04 02:29:08 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -58,6 +58,7 @@
 (define desktop-width)
 (define desktop-height)
 (define hide-console?)
+(define edwin-screen-icon)
 
 (define (initialize-package!)
   (set! os2-display-type
@@ -82,11 +83,15 @@
 	(set! desktop-width (os2win-desktop-width))
 	(set! desktop-height (os2win-desktop-height))
 	(set! hide-console? #t)
+	(set! edwin-screen-icon
+	      (os2win-load-pointer HWND_DESKTOP NULLHANDLE IDI_EDWIN))
 	unspecific)))
 
 (define (finalize-pm-state)
   (if event-descriptor
       (begin
+	(os2win-destroy-pointer edwin-screen-icon)
+	(set! edwin-screen-icon)
 	(do () ((null? screen-list)) (os2-screen/discard! (car screen-list)))
 	(set! event-queue)
 	(os2win-close-event-qid event-descriptor)
@@ -156,6 +161,7 @@
 
 (define (open-window)
   (let ((wid (os2win-open event-descriptor "Edwin")))
+    (os2win-set-icon wid edwin-screen-icon)
     (let ((metrics (set-normal-font! wid current-font)))
       (os2ps-set-colors (os2win-ps wid)
 			(face-foreground-color normal-face)