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 db8368875f4fa171c8c0f16e11d13ba05ab3f82e..fbf25405af2a16926f6e68186316b4a0850b1bd4 100644 (file)
--- 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 98e95bdd619d78ad6cda907a8c0ce3b53c82d014..28d9b1a282d49ef51c16ba767eaade7ee2efe075 100644 (file)
--- 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)