modules/win95.menu.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.menu :win95.menu)
   5
   6 (cl:in-package cl-w32api.module.win95.menu)
   7
   8 (defcfunex-exported ("GetMenu" GetMenu :convention :stdcall) :pointer
   9   (arg0 :pointer))
  10
  11 (defcfunex-exported ("GetMenuCheckMarkDimensions" GetMenuCheckMarkDimensions :convention :stdcall) :int32)
  12
  13
  14 (defcfunex-exported ("GetMenuDefaultItem" GetMenuDefaultItem :convention :stdcall) :unsigned-int
  15   (arg0 :pointer)
  16   (arg1 :unsigned-int)
  17   (arg2 :unsigned-int))
  18
  19 (defcfunex-exported ("GetMenuItemCount" GetMenuItemCount :convention :stdcall) :int
  20   (arg0 :pointer))
  21
  22 (defcfunex-exported ("GetMenuItemID" GetMenuItemID :convention :stdcall) :unsigned-int
  23   (arg0 :pointer)
  24   (arg1 :int))
  25
  26 (defcfunex-exported ("GetMenuItemInfoA" GetMenuItemInfoA :convention :stdcall) :int
  27   (arg0 :pointer)
  28   (arg1 :unsigned-int)
  29   (arg2 :int)
  30   (arg3 :pointer))
  31
  32 (defcfunex-exported ("GetMenuItemInfoW" GetMenuItemInfoW :convention :stdcall) :int
  33   (arg0 :pointer)
  34   (arg1 :unsigned-int)
  35   (arg2 :int)
  36   (arg3 :pointer))
  37
  38 (defcfunex-exported ("GetMenuItemRect" GetMenuItemRect :convention :stdcall) :int
  39   (arg0 :pointer)
  40   (arg1 :pointer)
  41   (arg2 :unsigned-int)
  42   (arg3 :pointer))
  43
  44 (defcfunex-exported ("SetMenu" SetMenu :convention :stdcall) :int
  45   (arg0 :pointer)
  46   (arg1 :pointer))
  47
  48 (defcfunex-exported ("SetMenuDefaultItem" SetMenuDefaultItem :convention :stdcall) :int
  49   (arg0 :pointer)
  50   (arg1 :unsigned-int)
  51   (arg2 :unsigned-int))
  52
  53 (defcfunex-exported ("SetMenuItemBitmaps" SetMenuItemBitmaps :convention :stdcall) :int
  54   (arg0 :pointer)
  55   (arg1 :unsigned-int)
  56   (arg2 :unsigned-int)
  57   (arg3 :pointer)
  58   (arg4 :pointer))
  59
  60 (defcfunex-exported ("SetMenuItemInfoA" SetMenuItemInfoA :convention :stdcall) :int
  61   (arg0 :pointer)
  62   (arg1 :unsigned-int)
  63   (arg2 :int)
  64   (arg3 :pointer))
  65
  66 (defcfunex-exported ("SetMenuItemInfoW" SetMenuItemInfoW :convention :stdcall) :int
  67   (arg0 :pointer)
  68   (arg1 :unsigned-int)
  69   (arg2 :int)
  70   (arg3 :pointer))
  71
  72 (defcfunex-exported ("TrackPopupMenu" TrackPopupMenu :convention :stdcall) :int
  73   (arg0 :pointer)
  74   (arg1 :unsigned-int)
  75   (arg2 :int)
  76   (arg3 :int)
  77   (arg4 :int)
  78   (arg5 :pointer)
  79   (arg6 :pointer))
  80
  81 (defcfunex-exported ("TrackPopupMenuEx" TrackPopupMenuEx :convention :stdcall) :int
  82   (arg0 :pointer)
  83   (arg1 :unsigned-int)
  84   (arg2 :int)
  85   (arg3 :int)
  86   (arg4 :pointer)
  87   (arg5 :pointer))
  88
  89 ;;obsolete
  90
  91 (defcfunex-exported ("AppendMenuA" AppendMenuA :convention :stdcall) :int
  92   (arg0 :pointer)
  93   (arg1 :unsigned-int)
  94   (arg2 :unsigned-int)
  95   (arg3 :string))
  96
  97 (defcfunex-exported ("AppendMenuW" AppendMenuW :convention :stdcall) :int
  98   (arg0 :pointer)
  99   (arg1 :unsigned-int)
 100   (arg2 :unsigned-int)
 101   (arg3 :pointer))
 102
 103 (defcfunex-exported ("ChangeMenuA" ChangeMenuA :convention :stdcall) :int
 104   (arg0 :pointer)
 105   (arg1 :unsigned-int)
 106   (arg2 :string)
 107   (arg3 :unsigned-int)
 108   (arg4 :unsigned-int))
 109
 110 (defcfunex-exported ("ChangeMenuW" ChangeMenuW :convention :stdcall) :int
 111   (arg0 :pointer)
 112   (arg1 :unsigned-int)
 113   (arg2 :pointer)
 114   (arg3 :unsigned-int)
 115   (arg4 :unsigned-int))
 116
 117
 118 (defcfunex-exported ("InsertMenuA" InsertMenuA :convention :stdcall) :int
 119   (arg0 :pointer)
 120   (arg1 :unsigned-int)
 121   (arg2 :unsigned-int)
 122   (arg3 :unsigned-int)
 123   (arg4 :string))
 124
 125 (defcfunex-exported ("InsertMenuW" InsertMenuW :convention :stdcall) :int
 126   (arg0 :pointer)
 127   (arg1 :unsigned-int)
 128   (arg2 :unsigned-int)
 129   (arg3 :unsigned-int)
 130   (arg4 :pointer))
 131
 132 (defcfunex-exported ("ModifyMenuA" ModifyMenuA :convention :stdcall) :int
 133   (arg0 :pointer)
 134   (arg1 :unsigned-int)
 135   (arg2 :unsigned-int)
 136   (arg3 :unsigned-int)
 137   (arg4 :string))
 138
 139 (defcfunex-exported ("ModifyMenuW" ModifyMenuW :convention :stdcall) :int
 140   (arg0 :pointer)
 141   (arg1 :unsigned-int)
 142   (arg2 :unsigned-int)
 143   (arg3 :unsigned-int)
 144   (arg4 :pointer))
 145
 146 (defcfunex-exported ("RemoveMenu" RemoveMenu :convention :stdcall) :int
 147   (arg0 :pointer)
 148   (arg1 :unsigned-int)
 149   (arg2 :unsigned-int))
 150