Set the icon of each graphics window to the standard graphics icon.

diff --git a/v7/src/runtime/os2graph.scm b/v7/src/runtime/os2graph.scm
index e7e51588c6abc3e6152fe542807125efa177090e..dc6c298ed73030c62754edfd602cd84503a9c084 100644 (file)
--- a/v7/src/runtime/os2graph.scm
+++ b/v7/src/runtime/os2graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2graph.scm,v 1.10 1995/06/28 01:59:24 adams Exp $
+$Id: os2graph.scm,v 1.11 1995/11/04 02:33:56 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -116,6 +116,7 @@ MIT in each case. |#
 (define image-list)
 (define user-event-mask)
 (define user-event-queue)
+(define graphics-window-icon)
 
 ;; This event mask contains just button events.
 (define user-event-mask:default #x0001)
@@ -123,6 +124,8 @@ MIT in each case. |#
 (define (finalize-pm-state!)
   (if event-descriptor
       (begin
+       (os2win-destroy-pointer graphics-window-icon)
+       (set! graphics-window-icon)
        (do ((windows (protection-list-elements window-list) (cdr windows)))
            ((null? windows))
          (close-window (car windows)))
@@ -225,13 +228,16 @@ MIT in each case. |#
              (permanently-register-input-thread-event
               event-descriptor
               (current-thread)
-              read-and-process-event))))
+              read-and-process-event))
+       (set! graphics-window-icon
+             (os2win-load-pointer HWND_DESKTOP NULLHANDLE IDI_GRAPHICS))))
   (open-window descriptor->device
               (if (default-object? width) 256 width)
               (if (default-object? height) 256 height)))
 
 (define (open-window descriptor->device width height)
   (let ((wid (os2win-open event-descriptor "Scheme Graphics")))
+    (os2win-set-icon wid graphics-window-icon)
     (os2win-show-cursor wid #f)
     (os2win-show wid #t)
     (os2win-set-size wid width height)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 17515fe44ed59d4ba0b8ba7e3a119b8e49dedfc2..e8ec7924853ab60816f6dcd38b46235dfa708a83 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.265 1995/10/28 01:12:35 cph Exp $
+$Id: runtime.pkg,v 14.266 1995/11/04 02:34:03 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -2547,6 +2547,8 @@ MIT in each case. |#
          font-metrics/height
          font-metrics/width
          help-event/code
+         hwnd_desktop
+         idi_graphics
          kc_alt
          kc_char
          kc_composite
@@ -2604,6 +2606,7 @@ MIT in each case. |#
          ms_conditionalcascade
          ms_titlebutton
          ms_verticalflip
+         nullhandle
          number-of-event-types
          os2menu-create
          os2menu-destroy
@@ -2648,6 +2651,7 @@ MIT in each case. |#
          os2win-console-wid
          os2win-desktop-height
          os2win-desktop-width
+         os2win-destroy-pointer
          os2win-event-ready?
          os2win-focus?
          os2win-frame-handle
@@ -2656,12 +2660,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