Change OS2_menu_set_item_attributes to return the success value that

the message-send returns.

diff --git a/v7/src/microcode/os2pm.c b/v7/src/microcode/os2pm.c
index dda12b4c28569e39c8b64d44fae090ac7d207f9e..00d77f6086702a31568826dab881a9ba0d5da442 100644 (file)
--- a/v7/src/microcode/os2pm.c
+++ b/v7/src/microcode/os2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.c,v 1.21 1995/11/03 01:29:14 cph Exp $
+$Id: os2pm.c,v 1.22 1995/11/04 00:08:27 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -2025,13 +2025,13 @@ menu_get_item_attributes (qid_t qid, HWND menu, USHORT id, USHORT submenup,
                                    (MPFROMSHORT (mask)))));
 }
 
-static void
+static BOOL
 menu_set_item_attributes (qid_t qid, HWND menu, USHORT id, USHORT submenup,
                          USHORT mask, USHORT attributes)
 {
-  (void) WinSendMsg (menu, MM_SETITEMATTR,
-                    (MPFROM2SHORT (id, submenup)),
-                    (MPFROM2SHORT (mask, attributes)));
+  return (LONGFROMMR (WinSendMsg (menu, MM_SETITEMATTR,
+                                 (MPFROM2SHORT (id, submenup)),
+                                 (MPFROM2SHORT (mask, attributes)))));
 }
 
 static HWND

diff --git a/v7/src/microcode/os2pm.scm b/v7/src/microcode/os2pm.scm
index 969a2403638bdf3580dcb163ae8aabf09a57630d..ecad819ad470dce5ffa8f2975a908ec1a22e2281 100644 (file)
--- a/v7/src/microcode/os2pm.scm
+++ b/v7/src/microcode/os2pm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2pm.scm,v 1.2 1995/11/03 01:29:45 cph Exp $
+$Id: os2pm.scm,v 1.3 1995/11/04 00:08:40 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -1018,6 +1018,7 @@ MIT in each case. */
             (ushort mask)))
 
 (define-pm-procedure menu_set_item_attributes
+  (value ("BOOL" successp))
   (arguments qid
             ("HWND" menu)
             (ushort id)

diff --git a/v7/src/microcode/pros2pm.c b/v7/src/microcode/pros2pm.c
index fbf866fcd79db7aefabc0af872ed8d966db5e5e9..c89b7b2c464f430fa2ae21d98803dfdadf26d027 100644 (file)
--- a/v7/src/microcode/pros2pm.c
+++ b/v7/src/microcode/pros2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pros2pm.c,v 1.11 1995/11/03 01:30:21 cph Exp $
+$Id: pros2pm.c,v 1.12 1995/11/04 00:08:15 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -872,13 +872,13 @@ DEFINE_PRIMITIVE ("OS2MENU-GET-ITEM-ATTRIBUTES", Prim_OS2_menu_get_item_attribut
 DEFINE_PRIMITIVE ("OS2MENU-SET-ITEM-ATTRIBUTES", Prim_OS2_menu_set_item_attributes, 5, 5, 0)
 {
   PRIMITIVE_HEADER (5);
-  OS2_menu_set_item_attributes (pm_qid,
-                               (HWND_ARG (1)),
-                               (USHORT_ARG (2)),
-                               (BOOLEAN_ARG (3)),
-                               (USHORT_ARG (4)),
-                               (USHORT_ARG (5)));
-  PRIMITIVE_RETURN (UNSPECIFIC);
+  PRIMITIVE_RETURN
+    (BOOLEAN_TO_OBJECT (OS2_menu_set_item_attributes (pm_qid,
+                                                     (HWND_ARG (1)),
+                                                     (USHORT_ARG (2)),
+                                                     (BOOLEAN_ARG (3)),
+                                                     (USHORT_ARG (4)),
+                                                     (USHORT_ARG (5)))));
 }
 
 DEFINE_PRIMITIVE ("OS2WIN-LOAD-MENU", Prim_OS2_window_load_menu, 3, 3, 0)