home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / winmenu.def < prev    next >
Text File  |  1994-05-03  |  3KB  |  70 lines
  1. DEFINITION MODULE WINMENU;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager additional menu functions.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. FROM   OS2DEF   IMPORT HWND;
  14.  
  15. (***************************************************************************
  16. *    WinCheckMenuItem() Sets the check state of menuitem #id to fcheck.
  17. *    returns success flag.
  18. ***************************************************************************)
  19. PROCEDURE WinCheckMenuItem
  20. ( MenuWinHandle        : HWND;
  21.   ItemId               : CARDINAL;
  22.   Check                : BOOLEAN
  23. )                      : BOOLEAN;
  24.  
  25. (***************************************************************************
  26. *  WinIsMenuItemChecked() returns the check state of menuitem #id.
  27. ***************************************************************************)
  28. PROCEDURE WinIsMenuItemChecked
  29. ( MenuWinHandle        : HWND;
  30.   ItemId               : CARDINAL
  31. )                      : BOOLEAN;
  32.  
  33. (***************************************************************************
  34. *    WinEnableMenuItem() sets the enable state of menuitem #id to fenable.
  35. *    returns success flag.
  36. ***************************************************************************)
  37. PROCEDURE WinEnableMenuItem
  38. ( MenuWinHandle        : HWND;
  39.   ItemId               : CARDINAL;
  40.   Enable               : BOOLEAN
  41. )                      : BOOLEAN;
  42.  
  43. (***************************************************************************
  44. *  WinIsMenuItemEnabled() returns the enable state of menuitem #id.
  45. ***************************************************************************)
  46. PROCEDURE WinIsMenuItemEnabled
  47. ( MenuWinHandle        : HWND;
  48.   ItemId               : CARDINAL
  49. )                      : BOOLEAN;
  50.  
  51. (***************************************************************************
  52. *  WinSetMenuItemText() sets the text of menuitem #id.
  53. *  returns success flag.
  54. ***************************************************************************)
  55. PROCEDURE WinSetMenuItemText
  56. ( MenuWinHandle        : HWND;
  57.   ItemId               : CARDINAL;
  58.   Text                 : ARRAY OF CHAR
  59. )                      : BOOLEAN;
  60.  
  61. (***************************************************************************
  62. *  WinIsMenuItemValid() returns TRUE if the specified item is a valid choice.
  63. ***************************************************************************)
  64. PROCEDURE WinIsMenuItemValid
  65. ( MenuWinHandle        : HWND;
  66.   ItemId               : CARDINAL
  67. )                      : BOOLEAN;
  68.  
  69. END WINMENU.
  70.