Add primitive to destroy icons.

diff --git a/v7/src/microcode/os2pm.c b/v7/src/microcode/os2pm.c
index 272489187b1b9715ad8da470c7b9c1bf71f73df7..91f42dd0d5d8c1cd14e2ae0526e14440cc47a5d3 100644 (file)
--- a/v7/src/microcode/os2pm.c
+++ b/v7/src/microcode/os2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.c,v 1.24 1995/11/04 02:10:56 cph Exp $
+$Id: os2pm.c,v 1.25 1995/11/04 02:23:44 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -2392,6 +2392,12 @@ window_load_pointer (qid_t qid, HWND desktop, HMODULE module, ULONG id)
   return (WinLoadPointer (desktop, module, id));
 }
 
+static BOOL
+window_destroy_pointer (qid_t qid, HPOINTER pointer)
+{
+  return (WinLoadPointer (pointer));
+}
+
 static BOOL
 window_set_icon (window_t * window, HPOINTER icon)
 {

diff --git a/v7/src/microcode/os2pm.scm b/v7/src/microcode/os2pm.scm
index ae45cb1a07528d4cc43233cc931a33f206904254..1c9ad734264a858f094d8f9e24f182e49d0b5c20 100644 (file)
--- a/v7/src/microcode/os2pm.scm
+++ b/v7/src/microcode/os2pm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2pm.scm,v 1.5 1995/11/04 02:11:13 cph Exp $
+$Id: os2pm.scm,v 1.6 1995/11/04 02:24:08 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -1071,6 +1071,10 @@ MIT in each case. */
   (value ("HPOINTER" pointer))
   (arguments qid ("HWND" desktop) ("HMODULE" module) (ulong id)))
 
+(define-pm-procedure window_destroy_pointer
+  (value ("BOOL" successp))
+  (arguments qid ("HPOINTER" icon)))
+
 (define-pm-procedure window_set_icon
   (value ("BOOL" successp))
   (arguments window ("HPOINTER" icon)))

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index fcb5b2b1ac7a3a46a922239c608dd09edc3f19a5..cb9ff66aee8ec890166857e507110a52f733fb1e 100644 (file)
--- a/v7/src/microcode/pros2pm.c
+++ b/v7/src/microcode/pros2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pros2pm.c,v 1.16 1995/11/04 02:11:06 cph Exp $
+$Id: pros2pm.c,v 1.17 1995/11/04 02:25:07 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -951,6 +951,13 @@ DEFINE_PRIMITIVE ("OS2WIN-LOAD-POINTER", Prim_OS2_window_load_pointer, 3, 3, 0)
                                                (arg_ulong_integer (3)))));
 }
 
+DEFINE_PRIMITIVE ("OS2WIN-DESTROY-POINTER", Prim_OS2_window_destroy_pointer, 1, 1, 0)
+{
+  PRIMITIVE_HEADER (1);
+  PRIMITIVE_RETURN
+    (BOOLEAN_TO_OBJECT (OS2_window_destroy_pointer (arg_ulong_integer (1))));
+}
+
 DEFINE_PRIMITIVE ("OS2WIN-SET-ICON", Prim_OS2_window_set_icon, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);

diff --git a/v7/src/runtime/os2winp.scm b/v7/src/runtime/os2winp.scm
index 3b395422e74678e131ed492947dad120e9fc0965..52e54e89912291bef03a1fdf4fbeb77a4e48a9ee 100644 (file)
--- a/v7/src/runtime/os2winp.scm
+++ b/v7/src/runtime/os2winp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2winp.scm,v 1.12 1995/11/04 01:53:49 cph Exp $
+$Id: os2winp.scm,v 1.13 1995/11/04 02:25:38 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -88,6 +88,7 @@ MIT in each case. |#
   (os2win-console-wid 0)
   (os2win-desktop-height 0)
   (os2win-desktop-width 0)
+  (os2win-destroy-pointer 1)
   (os2win-event-ready? 2)
   (os2win-focus? 1)
   (os2win-font-dialog 2)