modules/win95.message.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.message :win95.message)
   5
   6 (cl:in-package cl-w32api.module.win95.message)
   7
   8 (require-and-inherit-module "win95.~")
   9
  10 (defcstructex-exported MSG
  11   (hwnd    HWND)
  12   (message UINT)
  13   (wParam  WPARAM)
  14   (lParam  LPARAM)
  15   (time    DWORD)
  16   (pt      (:inline POINT)))
  17
  18 (defconstant-exported WM_APP 32768)
  19
  20 (defconstant-exported WM_ACTIVATE 6)
  21
  22 (defconstant-exported WM_ACTIVATEAPP 28)
  23
  24 (defconstant-exported WM_AFXFIRST 864)
  25
  26 (defconstant-exported WM_AFXLAST 895)
  27
  28 (defconstant-exported WM_ASKCBFORMATNAME 780)
  29
  30 (defconstant-exported WM_CANCELJOURNAL 75)
  31
  32 (defconstant-exported WM_CANCELMODE 31)
  33
  34 (defconstant-exported WM_CAPTURECHANGED 533)
  35
  36 (defconstant-exported WM_CHANGECBCHAIN 781)
  37
  38 (defconstant-exported WM_CHAR 258)
  39
  40 (defconstant-exported WM_CHARTOITEM 47)
  41
  42 (defconstant-exported WM_CHILDACTIVATE 34)
  43
  44 (defconstant-exported WM_CLEAR 771)
  45
  46 (defconstant-exported WM_CLOSE 16)
  47
  48 (defconstant-exported WM_COMMAND 273)
  49
  50 (defconstant-exported WM_COMMNOTIFY 68)
  51
  52 (defconstant-exported WM_COMPACTING 65)
  53
  54 (defconstant-exported WM_COMPAREITEM 57)
  55
  56 (defconstant-exported WM_CONTEXTMENU 123)
  57
  58 (defconstant-exported WM_COPY 769)
  59
  60 (defconstant-exported WM_COPYDATA 74)
  61
  62 (defconstant-exported WM_CREATE 1)
  63
  64 (defconstant-exported WM_CTLCOLORBTN 309)
  65
  66 (defconstant-exported WM_CTLCOLORDLG 310)
  67
  68 (defconstant-exported WM_CTLCOLOREDIT 307)
  69
  70 (defconstant-exported WM_CTLCOLORLISTBOX 308)
  71
  72 (defconstant-exported WM_CTLCOLORMSGBOX 306)
  73
  74 (defconstant-exported WM_CTLCOLORSCROLLBAR 311)
  75
  76 (defconstant-exported WM_CTLCOLORSTATIC 312)
  77
  78 (defconstant-exported WM_CUT 768)
  79
  80 (defconstant-exported WM_DEADCHAR 259)
  81
  82 (defconstant-exported WM_DELETEITEM 45)
  83
  84 (defconstant-exported WM_DESTROY 2)
  85
  86 (defconstant-exported WM_DESTROYCLIPBOARD 775)
  87
  88 (defconstant-exported WM_DEVICECHANGE 537)
  89
  90 (defconstant-exported WM_DEVMODECHANGE 27)
  91
  92 (defconstant-exported WM_DISPLAYCHANGE 126)
  93
  94 (defconstant-exported WM_DRAWCLIPBOARD 776)
  95
  96 (defconstant-exported WM_DRAWITEM 43)
  97
  98 (defconstant-exported WM_DROPFILES 563)
  99
 100 (defconstant-exported WM_ENABLE 10)
 101
 102 (defconstant-exported WM_ENDSESSION 22)
 103
 104 (defconstant-exported WM_ENTERIDLE 289)
 105
 106 (defconstant-exported WM_ENTERMENULOOP 529)
 107
 108 (defconstant-exported WM_ENTERSIZEMOVE 561)
 109
 110 (defconstant-exported WM_ERASEBKGND 20)
 111
 112 (defconstant-exported WM_EXITMENULOOP 530)
 113
 114 (defconstant-exported WM_EXITSIZEMOVE 562)
 115
 116 (defconstant-exported WM_FONTCHANGE 29)
 117
 118 (defconstant-exported WM_GETDLGCODE 135)
 119
 120 (defconstant-exported WM_GETFONT 49)
 121
 122 (defconstant-exported WM_GETHOTKEY 51)
 123
 124 (defconstant-exported WM_GETICON 127)
 125
 126 (defconstant-exported WM_GETMINMAXINFO 36)
 127
 128 (defconstant-exported WM_GETTEXT 13)
 129
 130 (defconstant-exported WM_GETTEXTLENGTH 14)
 131
 132 (defconstant-exported WM_HANDHELDFIRST 856)
 133
 134 (defconstant-exported WM_HANDHELDLAST 863)
 135
 136 (defconstant-exported WM_HELP 83)
 137
 138 (defconstant-exported WM_HOTKEY 786)
 139
 140 (defconstant-exported WM_HSCROLL 276)
 141
 142 (defconstant-exported WM_HSCROLLCLIPBOARD 782)
 143
 144 (defconstant-exported WM_ICONERASEBKGND 39)
 145
 146 (defconstant-exported WM_INITDIALOG 272)
 147
 148 (defconstant-exported WM_INITMENU 278)
 149
 150 (defconstant-exported WM_INITMENUPOPUP 279)
 151
 152 (defconstant-exported WM_INPUTLANGCHANGE 81)
 153
 154 (defconstant-exported WM_INPUTLANGCHANGEREQUEST 80)
 155
 156 (defconstant-exported WM_KEYDOWN 256)
 157
 158 (defconstant-exported WM_KEYUP 257)
 159
 160 (defconstant-exported WM_KILLFOCUS 8)
 161
 162 (defconstant-exported WM_MDIACTIVATE 546)
 163
 164 (defconstant-exported WM_MDICASCADE 551)
 165
 166 (defconstant-exported WM_MDICREATE 544)
 167
 168 (defconstant-exported WM_MDIDESTROY 545)
 169
 170 (defconstant-exported WM_MDIGETACTIVE 553)
 171
 172 (defconstant-exported WM_MDIICONARRANGE 552)
 173
 174 (defconstant-exported WM_MDIMAXIMIZE 549)
 175
 176 (defconstant-exported WM_MDINEXT 548)
 177
 178 (defconstant-exported WM_MDIREFRESHMENU 564)
 179
 180 (defconstant-exported WM_MDIRESTORE 547)
 181
 182 (defconstant-exported WM_MDISETMENU 560)
 183
 184 (defconstant-exported WM_MDITILE 550)
 185
 186 (defconstant-exported WM_MEASUREITEM 44)
 187
 188 (defconstant-exported WM_MENUCHAR 288)
 189
 190 (defconstant-exported WM_MENUSELECT 287)
 191
 192 (defconstant-exported WM_NEXTMENU 531)
 193
 194 (defconstant-exported WM_MOVE 3)
 195
 196 (defconstant-exported WM_MOVING 534)
 197
 198 (defconstant-exported WM_NCACTIVATE 134)
 199
 200 (defconstant-exported WM_NCCALCSIZE 131)
 201
 202 (defconstant-exported WM_NCCREATE 129)
 203
 204 (defconstant-exported WM_NCDESTROY 130)
 205
 206 (defconstant-exported WM_NCHITTEST 132)
 207
 208 (defconstant-exported WM_NCLBUTTONDBLCLK 163)
 209
 210 (defconstant-exported WM_NCLBUTTONDOWN 161)
 211
 212 (defconstant-exported WM_NCLBUTTONUP 162)
 213
 214 (defconstant-exported WM_NCMBUTTONDBLCLK 169)
 215
 216 (defconstant-exported WM_NCMBUTTONDOWN 167)
 217
 218 (defconstant-exported WM_NCMBUTTONUP 168)
 219
 220 (defconstant-exported WM_NCMOUSEMOVE 160)
 221
 222 (defconstant-exported WM_NCPAINT 133)
 223
 224 (defconstant-exported WM_NCRBUTTONDBLCLK 166)
 225
 226 (defconstant-exported WM_NCRBUTTONDOWN 164)
 227
 228 (defconstant-exported WM_NCRBUTTONUP 165)
 229
 230 (defconstant-exported WM_NEXTDLGCTL 40)
 231
 232 (defconstant-exported WM_NOTIFY 78)
 233
 234 (defconstant-exported WM_NOTIFYFORMAT 85)
 235
 236 (defconstant-exported WM_NULL 0)
 237
 238 (defconstant-exported WM_PAINT 15)
 239
 240 (defconstant-exported WM_PAINTCLIPBOARD 777)
 241
 242 (defconstant-exported WM_PAINTICON 38)
 243
 244 (defconstant-exported WM_PALETTECHANGED 785)
 245
 246 (defconstant-exported WM_PALETTEISCHANGING 784)
 247
 248 (defconstant-exported WM_PARENTNOTIFY 528)
 249
 250 (defconstant-exported WM_PASTE 770)
 251
 252 (defconstant-exported WM_PENWINFIRST 896)
 253
 254 (defconstant-exported WM_PENWINLAST 911)
 255
 256 (defconstant-exported WM_POWER 72)
 257
 258 (defconstant-exported WM_POWERBROADCAST 536)
 259
 260 (defconstant-exported WM_PRINT 791)
 261
 262 (defconstant-exported WM_PRINTCLIENT 792)
 263
 264 (defconstant-exported WM_QUERYDRAGICON 55)
 265
 266 (defconstant-exported WM_QUERYENDSESSION 17)
 267
 268 (defconstant-exported WM_QUERYNEWPALETTE 783)
 269
 270 (defconstant-exported WM_QUERYOPEN 19)
 271
 272 (defconstant-exported WM_QUEUESYNC 35)
 273
 274 (defconstant-exported WM_QUIT 18)
 275
 276 (defconstant-exported WM_RENDERALLFORMATS 774)
 277
 278 (defconstant-exported WM_RENDERFORMAT 773)
 279
 280 (defconstant-exported WM_SETCURSOR 32)
 281
 282 (defconstant-exported WM_SETFOCUS 7)
 283
 284 (defconstant-exported WM_SETFONT 48)
 285
 286 (defconstant-exported WM_SETHOTKEY 50)
 287
 288 (defconstant-exported WM_SETICON 128)
 289
 290 (defconstant-exported WM_SETREDRAW 11)
 291
 292 (defconstant-exported WM_SETTEXT 12)
 293
 294 (defconstant-exported WM_SETTINGCHANGE 26)
 295
 296 (defconstant-exported WM_SHOWWINDOW 24)
 297
 298 (defconstant-exported WM_SIZE 5)
 299
 300 (defconstant-exported WM_SIZECLIPBOARD 779)
 301
 302 (defconstant-exported WM_SIZING 532)
 303
 304 (defconstant-exported WM_SPOOLERSTATUS 42)
 305
 306 (defconstant-exported WM_STYLECHANGED 125)
 307
 308 (defconstant-exported WM_STYLECHANGING 124)
 309
 310 (defconstant-exported WM_SYSCHAR 262)
 311
 312 (defconstant-exported WM_SYSCOLORCHANGE 21)
 313
 314 (defconstant-exported WM_SYSCOMMAND 274)
 315
 316 (defconstant-exported WM_SYSDEADCHAR 263)
 317
 318 (defconstant-exported WM_SYSKEYDOWN 260)
 319
 320 (defconstant-exported WM_SYSKEYUP 261)
 321
 322 (defconstant-exported WM_TCARD 82)
 323
 324 (defconstant-exported WM_THEMECHANGED 794)
 325
 326 (defconstant-exported WM_TIMECHANGE 30)
 327
 328 (defconstant-exported WM_TIMER 275)
 329
 330 (defconstant-exported WM_UNDO 772)
 331
 332 (defconstant-exported WM_USER 1024)
 333
 334 (defconstant-exported WM_USERCHANGED 84)
 335
 336 (defconstant-exported WM_VKEYTOITEM 46)
 337
 338 (defconstant-exported WM_VSCROLL 277)
 339
 340 (defconstant-exported WM_VSCROLLCLIPBOARD 778)
 341
 342 (defconstant-exported WM_WINDOWPOSCHANGED 71)
 343
 344 (defconstant-exported WM_WINDOWPOSCHANGING 70)
 345
 346 (defconstant-exported WM_WININICHANGE 26)
 347
 348 (defconstant-exported WM_KEYFIRST 256)
 349
 350 (defconstant-exported WM_KEYLAST 264)
 351
 352 (defconstant-exported WM_SYNCPAINT 136)
 353
 354 (defconstant-exported WM_MOUSEACTIVATE 33)
 355
 356 (defconstant-exported WM_MOUSEMOVE 512)
 357
 358 (defconstant-exported WM_LBUTTONDOWN 513)
 359
 360 (defconstant-exported WM_LBUTTONUP 514)
 361
 362 (defconstant-exported WM_LBUTTONDBLCLK 515)
 363
 364 (defconstant-exported WM_RBUTTONDOWN 516)
 365
 366 (defconstant-exported WM_RBUTTONUP 517)
 367
 368 (defconstant-exported WM_RBUTTONDBLCLK 518)
 369
 370 (defconstant-exported WM_MBUTTONDOWN 519)
 371
 372 (defconstant-exported WM_MBUTTONUP 520)
 373
 374 (defconstant-exported WM_MBUTTONDBLCLK 521)
 375
 376 (defconstant-exported WM_MOUSEWHEEL 522)
 377
 378 (defconstant-exported WM_MOUSEFIRST 512)
 379
 380 (defconstant-exported WM_MOUSELAST 522)
 381
 382 (defconstant-exported WM_MOUSEHOVER #x2A1)
 383
 384 (defconstant-exported WM_MOUSELEAVE #x2A3)
 385
 386 (defcfunex-exported ("BroadcastSystemMessage" BroadcastSystemMessage :convention :stdcall) :int32
 387   (arg0 :unsigned-long)
 388   (arg1 :pointer)
 389   (arg2 :unsigned-int)
 390   (arg3 :unsigned-int)
 391   (arg4 :int32))
 392
 393 (defcfunex-exported ("BroadcastSystemMessageA" BroadcastSystemMessageA :convention :stdcall) :int32
 394   (arg0 :unsigned-long)
 395   (arg1 :pointer)
 396   (arg2 :unsigned-int)
 397   (arg3 :unsigned-int)
 398   (arg4 :int32))
 399
 400 (defcfunex-exported ("BroadcastSystemMessageW" BroadcastSystemMessageW :convention :stdcall) :int32
 401   (arg0 :unsigned-long)
 402   (arg1 :pointer)
 403   (arg2 :unsigned-int)
 404   (arg3 :unsigned-int)
 405   (arg4 :int32))
 406
 407 (defcfunex-exported ("DefWindowProcA" DefWindowProcA :convention :stdcall) :int32
 408   (|hWnd|   HWND)
 409   (|Msg|    UINT)
 410   (|wParam| WPARAM)
 411   (|lParam| LPARAM))
 412
 413 (defcfunex-exported ("DefWindowProcW" DefWindowProcW :convention :stdcall) :int32
 414   (|hWnd|   HWND)
 415   (|Msg|    UINT)
 416   (|wParam| WPARAM)
 417   (|lParam| LPARAM))
 418
 419 (define-abbrev-exported DefWindowProc DefWindowProcW)
 420
 421 (defcfunex-exported ("DispatchMessageA" DispatchMessageA :convention :stdcall) LONG
 422   (|lpMsg| MSG))
 423
 424 (defcfunex-exported ("DispatchMessageW" DispatchMessageW :convention :stdcall) LONG
 425   (|lpMsg| MSG))
 426
 427 (define-abbrev-exported DispatchMessage DispatchMessageW)
 428
 429 (defcfunex-exported ("GetMessageA" GetMessageA :convention :stdcall) BOOL
 430   (|lpMsg|         MSG)
 431   (|hWnd|          HWND)
 432   (|wMsgFilterMin| UINT)
 433   (|wMsgFilterMax| UINT))
 434
 435 (defcfunex-exported ("GetMessageW" GetMessageW :convention :stdcall) BOOL
 436   (|lpMsg|         MSG)
 437   (|hWnd|          HWND)
 438   (|wMsgFilterMin| UINT)
 439   (|wMsgFilterMax| UINT))
 440
 441 (define-abbrev-exported GetMessage GetMessageW)
 442
 443 (defcfunex-exported ("GetMessageExtraInfo" GetMessageExtraInfo :convention :stdcall) LONG)
 444
 445 (defcfunex-exported ("GetMessagePos" GetMessagePos :convention :stdcall) DWORD)
 446
 447 (defcfunex-exported ("GetMessageTime" GetMessageTime :convention :stdcall) LONG)
 448
 449 (defcfunex-exported ("InSendMessage" InSendMessage :convention :stdcall) BOOL)
 450
 451 (defcfunex-exported ("PeekMessageA" PeekMessageA :convention :stdcall) BOOL
 452   (|lpMsg|         MSG)
 453   (|hWnd|          HWND)
 454   (|wMsgFilterMin| UINT)
 455   (|wMsgFilterMax| UINT)
 456   (|wRemoveMsg|    UINT))
 457
 458 (defcfunex-exported ("PeekMessageW" PeekMessageW :convention :stdcall) BOOL
 459   (|lpMsg|         MSG)
 460   (|hWnd|          HWND)
 461   (|wMsgFilterMin| UINT)
 462   (|wMsgFilterMax| UINT)
 463   (|wRemoveMsg|    UINT))
 464
 465 (define-abbrev-exported PeekMessage PeekMessageW)
 466
 467 (defcfunex-exported ("PostMessageA" PostMessageA :convention :stdcall) BOOL
 468   (|hWnd| HWND)
 469   (|Msg|  UINT)
 470   (|wParam| WPARAM)
 471   (|lParam| LPARAM))
 472
 473 (defcfunex-exported ("PostMessageW" PostMessageW :convention :stdcall) BOOL
 474   (|hWnd| HWND)
 475   (|Msg|  UINT)
 476   (|wParam| WPARAM)
 477   (|lParam| LPARAM))
 478
 479 (define-abbrev-exported PostMessage PostMessageW)
 480
 481 (defcfunex-exported ("PostQuitMessage" PostQuitMessage :convention :stdcall) VOID
 482   (|nExitCode| :int))
 483
 484 (defcfunex-exported ("PostThreadMessageA" PostThreadMessageA :convention :stdcall) :int
 485   (arg0 :unsigned-long)
 486   (arg1 :unsigned-int)
 487   (arg2 :unsigned-int)
 488   (arg3 :int32))
 489
 490 (defcfunex-exported ("PostThreadMessageW" PostThreadMessageW :convention :stdcall) :int
 491   (arg0 :unsigned-long)
 492   (arg1 :unsigned-int)
 493   (arg2 :unsigned-int)
 494   (arg3 :int32))
 495
 496 (defcfunex-exported ("SendMessageA" SendMessageA :convention :stdcall) :int32
 497   (arg0 :pointer)
 498   (arg1 :unsigned-int)
 499   (arg2 :unsigned-int)
 500   (arg3 :int32))
 501
 502 (defcfunex-exported ("SendMessageW" SendMessageW :convention :stdcall) :int32
 503   (arg0 :pointer)
 504   (arg1 :unsigned-int)
 505   (arg2 :unsigned-int)
 506   (arg3 :int32))
 507
 508 (defcfunex-exported ("SendMessageCallbackA" SendMessageCallbackA :convention :stdcall) :int
 509   (arg0 :pointer)
 510   (arg1 :unsigned-int)
 511   (arg2 :unsigned-int)
 512   (arg3 :int32)
 513   (arg4 :pointer)
 514   (arg5 :unsigned-long))
 515
 516 (defcfunex-exported ("SendMessageCallbackW" SendMessageCallbackW :convention :stdcall) :int
 517   (arg0 :pointer)
 518   (arg1 :unsigned-int)
 519   (arg2 :unsigned-int)
 520   (arg3 :int32)
 521   (arg4 :pointer)
 522   (arg5 :unsigned-long))
 523
 524 (defcfunex-exported ("SendMessageTimeoutA" SendMessageTimeoutA :convention :stdcall) :int32
 525   (arg0 :pointer)
 526   (arg1 :unsigned-int)
 527   (arg2 :unsigned-int)
 528   (arg3 :int32)
 529   (arg4 :unsigned-int)
 530   (arg5 :unsigned-int)
 531   (arg6 :pointer))
 532
 533 (defcfunex-exported ("SendMessageTimeoutW" SendMessageTimeoutW :convention :stdcall) :int32
 534   (arg0 :pointer)
 535   (arg1 :unsigned-int)
 536   (arg2 :unsigned-int)
 537   (arg3 :int32)
 538   (arg4 :unsigned-int)
 539   (arg5 :unsigned-int)
 540   (arg6 :pointer))
 541
 542 (defcfunex-exported ("SetMessageExtraInfo" SetMessageExtraInfo :convention :stdcall) LPARAM
 543   (|lParam| LPARAM))
 544
 545 (defcfunex-exported ("TranslateMessage" TranslateMessage :convention :stdcall) BOOL
 546   (|lpMsg| MSG))
 547
 548 (defcfunex-exported ("WaitMessage" WaitMessage :convention :stdcall) BOOL)
 549