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

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 e7e51588c..dc6c298ed 100644
--- 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 17515fe44..e8ec79248 100644
--- 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