basis/windows/user32/user32.factor

   1 ! Copyright (C) 2005, 2006 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.syntax parser namespaces
   4 kernel math windows.types generalizations math.bitwise
   5 classes.struct literals windows.kernel32 system accessors ;
   6 IN: windows.user32
   7
   8 ! HKL for ActivateKeyboardLayout
   9 CONSTANT: HKL_PREV 0
  10 CONSTANT: HKL_NEXT 1
  11
  12 CONSTANT: CW_USEDEFAULT HEX: 80000000
  13
  14 CONSTANT: WS_OVERLAPPED       HEX: 00000000
  15 CONSTANT: WS_POPUP            HEX: 80000000
  16 CONSTANT: WS_CHILD            HEX: 40000000
  17 CONSTANT: WS_MINIMIZE         HEX: 20000000
  18 CONSTANT: WS_VISIBLE          HEX: 10000000
  19 CONSTANT: WS_DISABLED         HEX: 08000000
  20 CONSTANT: WS_CLIPSIBLINGS     HEX: 04000000
  21 CONSTANT: WS_CLIPCHILDREN     HEX: 02000000
  22 CONSTANT: WS_MAXIMIZE         HEX: 01000000
  23 CONSTANT: WS_CAPTION          HEX: 00C00000
  24 CONSTANT: WS_BORDER           HEX: 00800000
  25 CONSTANT: WS_DLGFRAME         HEX: 00400000
  26 CONSTANT: WS_VSCROLL          HEX: 00200000
  27 CONSTANT: WS_HSCROLL          HEX: 00100000
  28 CONSTANT: WS_SYSMENU          HEX: 00080000
  29 CONSTANT: WS_THICKFRAME       HEX: 00040000
  30 CONSTANT: WS_GROUP            HEX: 00020000
  31 CONSTANT: WS_TABSTOP          HEX: 00010000
  32 CONSTANT: WS_MINIMIZEBOX      HEX: 00020000
  33 CONSTANT: WS_MAXIMIZEBOX      HEX: 00010000
  34
  35 ! Common window styles
  36 : WS_OVERLAPPEDWINDOW ( -- n )
  37     {
  38         WS_OVERLAPPED
  39         WS_CAPTION
  40         WS_SYSMENU
  41         WS_THICKFRAME
  42         WS_MINIMIZEBOX
  43         WS_MAXIMIZEBOX
  44     } flags ; foldable
  45
  46 : WS_POPUPWINDOW ( -- n )
  47     { WS_POPUP WS_BORDER WS_SYSMENU } flags ; foldable
  48
  49 ALIAS: WS_CHILDWINDOW      WS_CHILD
  50
  51 ALIAS: WS_TILED            WS_OVERLAPPED
  52 ALIAS: WS_ICONIC           WS_MINIMIZE
  53 ALIAS: WS_SIZEBOX          WS_THICKFRAME
  54 ALIAS: WS_TILEDWINDOW WS_OVERLAPPEDWINDOW
  55
  56 ! Extended window styles
  57
  58 CONSTANT: WS_EX_DLGMODALFRAME     HEX: 00000001
  59 CONSTANT: WS_EX_NOPARENTNOTIFY    HEX: 00000004
  60 CONSTANT: WS_EX_TOPMOST           HEX: 00000008
  61 CONSTANT: WS_EX_ACCEPTFILES       HEX: 00000010
  62 CONSTANT: WS_EX_TRANSPARENT       HEX: 00000020
  63 CONSTANT: WS_EX_MDICHILD          HEX: 00000040
  64 CONSTANT: WS_EX_TOOLWINDOW        HEX: 00000080
  65 CONSTANT: WS_EX_WINDOWEDGE        HEX: 00000100
  66 CONSTANT: WS_EX_CLIENTEDGE        HEX: 00000200
  67 CONSTANT: WS_EX_CONTEXTHELP       HEX: 00000400
  68
  69 CONSTANT: WS_EX_RIGHT             HEX: 00001000
  70 CONSTANT: WS_EX_LEFT              HEX: 00000000
  71 CONSTANT: WS_EX_RTLREADING        HEX: 00002000
  72 CONSTANT: WS_EX_LTRREADING        HEX: 00000000
  73 CONSTANT: WS_EX_LEFTSCROLLBAR     HEX: 00004000
  74 CONSTANT: WS_EX_RIGHTSCROLLBAR    HEX: 00000000
  75 CONSTANT: WS_EX_CONTROLPARENT     HEX: 00010000
  76 CONSTANT: WS_EX_STATICEDGE        HEX: 00020000
  77 CONSTANT: WS_EX_APPWINDOW         HEX: 00040000
  78
  79 : WS_EX_OVERLAPPEDWINDOW ( -- n )
  80     WS_EX_WINDOWEDGE WS_EX_CLIENTEDGE bitor ; foldable
  81
  82 : WS_EX_PALETTEWINDOW ( -- n )
  83     { WS_EX_WINDOWEDGE WS_EX_TOOLWINDOW WS_EX_TOPMOST } flags ; foldable
  84
  85 CONSTANT: CS_VREDRAW          HEX: 0001
  86 CONSTANT: CS_HREDRAW          HEX: 0002
  87 CONSTANT: CS_DBLCLKS          HEX: 0008
  88 CONSTANT: CS_OWNDC            HEX: 0020
  89 CONSTANT: CS_CLASSDC          HEX: 0040
  90 CONSTANT: CS_PARENTDC         HEX: 0080
  91 CONSTANT: CS_NOCLOSE          HEX: 0200
  92 CONSTANT: CS_SAVEBITS         HEX: 0800
  93 CONSTANT: CS_BYTEALIGNCLIENT  HEX: 1000
  94 CONSTANT: CS_BYTEALIGNWINDOW  HEX: 2000
  95 CONSTANT: CS_GLOBALCLASS      HEX: 4000
  96
  97 CONSTANT: COLOR_SCROLLBAR         0
  98 CONSTANT: COLOR_BACKGROUND        1
  99 CONSTANT: COLOR_ACTIVECAPTION     2
 100 CONSTANT: COLOR_INACTIVECAPTION   3
 101 CONSTANT: COLOR_MENU              4
 102 CONSTANT: COLOR_WINDOW            5
 103 CONSTANT: COLOR_WINDOWFRAME       6
 104 CONSTANT: COLOR_MENUTEXT          7
 105 CONSTANT: COLOR_WINDOWTEXT        8
 106 CONSTANT: COLOR_CAPTIONTEXT       9
 107 CONSTANT: COLOR_ACTIVEBORDER      10
 108 CONSTANT: COLOR_INACTIVEBORDER    11
 109 CONSTANT: COLOR_APPWORKSPACE      12
 110 CONSTANT: COLOR_HIGHLIGHT         13
 111 CONSTANT: COLOR_HIGHLIGHTTEXT     14
 112 CONSTANT: COLOR_BTNFACE           15
 113 CONSTANT: COLOR_BTNSHADOW         16
 114 CONSTANT: COLOR_GRAYTEXT          17
 115 CONSTANT: COLOR_BTNTEXT           18
 116 CONSTANT: COLOR_INACTIVECAPTIONTEXT 19
 117 CONSTANT: COLOR_BTNHIGHLIGHT      20
 118
 119 CONSTANT: IDI_APPLICATION     32512
 120 CONSTANT: IDI_HAND            32513
 121 CONSTANT: IDI_QUESTION        32514
 122 CONSTANT: IDI_EXCLAMATION     32515
 123 CONSTANT: IDI_ASTERISK        32516
 124 CONSTANT: IDI_WINLOGO         32517
 125
 126 ! ShowWindow() Commands
 127 CONSTANT: SW_HIDE             0
 128 CONSTANT: SW_SHOWNORMAL       1
 129 CONSTANT: SW_NORMAL           1
 130 CONSTANT: SW_SHOWMINIMIZED    2
 131 CONSTANT: SW_SHOWMAXIMIZED    3
 132 CONSTANT: SW_MAXIMIZE         3
 133 CONSTANT: SW_SHOWNOACTIVATE   4
 134 CONSTANT: SW_SHOW             5
 135 CONSTANT: SW_MINIMIZE         6
 136 CONSTANT: SW_SHOWMINNOACTIVE  7
 137 CONSTANT: SW_SHOWNA           8
 138 CONSTANT: SW_RESTORE          9
 139 CONSTANT: SW_SHOWDEFAULT      10
 140 CONSTANT: SW_FORCEMINIMIZE    11
 141 CONSTANT: SW_MAX              11
 142
 143 ! PeekMessage
 144 CONSTANT: PM_NOREMOVE   0
 145 CONSTANT: PM_REMOVE     1
 146 CONSTANT: PM_NOYIELD    2
 147 ! : PM_QS_INPUT         (QS_INPUT << 16) ;
 148 ! : PM_QS_POSTMESSAGE   ((QS_POSTMESSAGE | QS_HOTKEY | QS_TIMER) << 16) ;
 149 ! : PM_QS_PAINT         (QS_PAINT << 16) ;
 150 ! : PM_QS_SENDMESSAGE   (QS_SENDMESSAGE << 16) ;
 151
 152
 153 !
 154 ! Standard Cursor IDs
 155 !
 156 CONSTANT: IDC_ARROW           32512
 157 CONSTANT: IDC_IBEAM           32513
 158 CONSTANT: IDC_WAIT            32514
 159 CONSTANT: IDC_CROSS           32515
 160 CONSTANT: IDC_UPARROW         32516
 161 CONSTANT: IDC_SIZE            32640 ! OBSOLETE: use IDC_SIZEALL
 162 CONSTANT: IDC_ICON            32641 ! OBSOLETE: use IDC_ARROW
 163 CONSTANT: IDC_SIZENWSE        32642
 164 CONSTANT: IDC_SIZENESW        32643
 165 CONSTANT: IDC_SIZEWE          32644
 166 CONSTANT: IDC_SIZENS          32645
 167 CONSTANT: IDC_SIZEALL         32646
 168 CONSTANT: IDC_NO              32648 ! not in win3.1
 169 CONSTANT: IDC_HAND            32649
 170 CONSTANT: IDC_APPSTARTING     32650 ! not in win3.1
 171 CONSTANT: IDC_HELP            32651
 172
 173 ! Predefined Clipboard Formats
 174 CONSTANT: CF_TEXT             1
 175 CONSTANT: CF_BITMAP           2
 176 CONSTANT: CF_METAFILEPICT     3
 177 CONSTANT: CF_SYLK             4
 178 CONSTANT: CF_DIF              5
 179 CONSTANT: CF_TIFF             6
 180 CONSTANT: CF_OEMTEXT          7
 181 CONSTANT: CF_DIB              8
 182 CONSTANT: CF_PALETTE          9
 183 CONSTANT: CF_PENDATA          10
 184 CONSTANT: CF_RIFF             11
 185 CONSTANT: CF_WAVE             12
 186 CONSTANT: CF_UNICODETEXT      13
 187 CONSTANT: CF_ENHMETAFILE      14
 188 CONSTANT: CF_HDROP            15
 189 CONSTANT: CF_LOCALE           16
 190 CONSTANT: CF_DIBV5            17
 191 CONSTANT: CF_MAX              18
 192
 193 CONSTANT: CF_OWNERDISPLAY HEX: 0080
 194 CONSTANT: CF_DSPTEXT HEX: 0081
 195 CONSTANT: CF_DSPBITMAP HEX: 0082
 196 CONSTANT: CF_DSPMETAFILEPICT HEX: 0083
 197 CONSTANT: CF_DSPENHMETAFILE HEX: 008E
 198
 199 ! "Private" formats don't get GlobalFree()'d
 200 CONSTANT: CF_PRIVATEFIRST HEX: 200
 201 CONSTANT: CF_PRIVATELAST HEX: 2FF
 202
 203 ! "GDIOBJ" formats do get DeleteObject()'d
 204 CONSTANT: CF_GDIOBJFIRST HEX: 300
 205 CONSTANT: CF_GDIOBJLAST HEX: 3FF
 206
 207 ! Virtual Keys, Standard Set
 208 CONSTANT: VK_LBUTTON        HEX: 01
 209 CONSTANT: VK_RBUTTON        HEX: 02
 210 CONSTANT: VK_CANCEL         HEX: 03
 211 CONSTANT: VK_MBUTTON        HEX: 04  ! NOT contiguous with L & RBUTTON
 212 CONSTANT: VK_XBUTTON1       HEX: 05  ! NOT contiguous with L & RBUTTON
 213 CONSTANT: VK_XBUTTON2       HEX: 06  ! NOT contiguous with L & RBUTTON
 214 ! 0x07 : unassigned
 215 CONSTANT: VK_BACK           HEX: 08
 216 CONSTANT: VK_TAB            HEX: 09
 217 ! 0x0A - 0x0B : reserved
 218
 219 CONSTANT: VK_CLEAR          HEX: 0C
 220 CONSTANT: VK_RETURN         HEX: 0D
 221
 222 CONSTANT: VK_SHIFT          HEX: 10
 223 CONSTANT: VK_CONTROL        HEX: 11
 224 CONSTANT: VK_MENU           HEX: 12
 225 CONSTANT: VK_PAUSE          HEX: 13
 226 CONSTANT: VK_CAPITAL        HEX: 14
 227
 228 CONSTANT: VK_KANA           HEX: 15
 229 CONSTANT: VK_HANGEUL        HEX: 15 ! old name - here for compatibility
 230 CONSTANT: VK_HANGUL         HEX: 15
 231 CONSTANT: VK_JUNJA          HEX: 17
 232 CONSTANT: VK_FINAL          HEX: 18
 233 CONSTANT: VK_HANJA          HEX: 19
 234 CONSTANT: VK_KANJI          HEX: 19
 235
 236 CONSTANT: VK_ESCAPE         HEX: 1B
 237
 238 CONSTANT: VK_CONVERT        HEX: 1C
 239 CONSTANT: VK_NONCONVERT     HEX: 1D
 240 CONSTANT: VK_ACCEPT         HEX: 1E
 241 CONSTANT: VK_MODECHANGE     HEX: 1F
 242
 243 CONSTANT: VK_SPACE          HEX: 20
 244 CONSTANT: VK_PRIOR          HEX: 21
 245 CONSTANT: VK_NEXT           HEX: 22
 246 CONSTANT: VK_END            HEX: 23
 247 CONSTANT: VK_HOME           HEX: 24
 248 CONSTANT: VK_LEFT           HEX: 25
 249 CONSTANT: VK_UP             HEX: 26
 250 CONSTANT: VK_RIGHT          HEX: 27
 251 CONSTANT: VK_DOWN           HEX: 28
 252 CONSTANT: VK_SELECT         HEX: 29
 253 CONSTANT: VK_PRINT          HEX: 2A
 254 CONSTANT: VK_EXECUTE        HEX: 2B
 255 CONSTANT: VK_SNAPSHOT       HEX: 2C
 256 CONSTANT: VK_INSERT         HEX: 2D
 257 CONSTANT: VK_DELETE         HEX: 2E
 258 CONSTANT: VK_HELP           HEX: 2F
 259
 260 CONSTANT: VK_0 CHAR: 0
 261 CONSTANT: VK_1 CHAR: 1
 262 CONSTANT: VK_2 CHAR: 2
 263 CONSTANT: VK_3 CHAR: 3
 264 CONSTANT: VK_4 CHAR: 4
 265 CONSTANT: VK_5 CHAR: 5
 266 CONSTANT: VK_6 CHAR: 6
 267 CONSTANT: VK_7 CHAR: 7
 268 CONSTANT: VK_8 CHAR: 8
 269 CONSTANT: VK_9 CHAR: 9
 270
 271 CONSTANT: VK_A CHAR: A
 272 CONSTANT: VK_B CHAR: B
 273 CONSTANT: VK_C CHAR: C
 274 CONSTANT: VK_D CHAR: D
 275 CONSTANT: VK_E CHAR: E
 276 CONSTANT: VK_F CHAR: F
 277 CONSTANT: VK_G CHAR: G
 278 CONSTANT: VK_H CHAR: H
 279 CONSTANT: VK_I CHAR: I
 280 CONSTANT: VK_J CHAR: J
 281 CONSTANT: VK_K CHAR: K
 282 CONSTANT: VK_L CHAR: L
 283 CONSTANT: VK_M CHAR: M
 284 CONSTANT: VK_N CHAR: N
 285 CONSTANT: VK_O CHAR: O
 286 CONSTANT: VK_P CHAR: P
 287 CONSTANT: VK_Q CHAR: Q
 288 CONSTANT: VK_R CHAR: R
 289 CONSTANT: VK_S CHAR: S
 290 CONSTANT: VK_T CHAR: T
 291 CONSTANT: VK_U CHAR: U
 292 CONSTANT: VK_V CHAR: V
 293 CONSTANT: VK_W CHAR: W
 294 CONSTANT: VK_X CHAR: X
 295 CONSTANT: VK_Y CHAR: Y
 296 CONSTANT: VK_Z CHAR: Z
 297
 298 CONSTANT: VK_LWIN           HEX: 5B
 299 CONSTANT: VK_RWIN           HEX: 5C
 300 CONSTANT: VK_APPS           HEX: 5D
 301
 302 ! 0x5E : reserved
 303
 304 CONSTANT: VK_SLEEP          HEX: 5F
 305
 306 CONSTANT: VK_NUMPAD0        HEX: 60
 307 CONSTANT: VK_NUMPAD1        HEX: 61
 308 CONSTANT: VK_NUMPAD2        HEX: 62
 309 CONSTANT: VK_NUMPAD3        HEX: 63
 310 CONSTANT: VK_NUMPAD4        HEX: 64
 311 CONSTANT: VK_NUMPAD5        HEX: 65
 312 CONSTANT: VK_NUMPAD6        HEX: 66
 313 CONSTANT: VK_NUMPAD7        HEX: 67
 314 CONSTANT: VK_NUMPAD8        HEX: 68
 315 CONSTANT: VK_NUMPAD9        HEX: 69
 316 CONSTANT: VK_MULTIPLY       HEX: 6A
 317 CONSTANT: VK_ADD            HEX: 6B
 318 CONSTANT: VK_SEPARATOR      HEX: 6C
 319 CONSTANT: VK_SUBTRACT       HEX: 6D
 320 CONSTANT: VK_DECIMAL        HEX: 6E
 321 CONSTANT: VK_DIVIDE         HEX: 6F
 322 CONSTANT: VK_F1             HEX: 70
 323 CONSTANT: VK_F2             HEX: 71
 324 CONSTANT: VK_F3             HEX: 72
 325 CONSTANT: VK_F4             HEX: 73
 326 CONSTANT: VK_F5             HEX: 74
 327 CONSTANT: VK_F6             HEX: 75
 328 CONSTANT: VK_F7             HEX: 76
 329 CONSTANT: VK_F8             HEX: 77
 330 CONSTANT: VK_F9             HEX: 78
 331 CONSTANT: VK_F10            HEX: 79
 332 CONSTANT: VK_F11            HEX: 7A
 333 CONSTANT: VK_F12            HEX: 7B
 334 CONSTANT: VK_F13            HEX: 7C
 335 CONSTANT: VK_F14            HEX: 7D
 336 CONSTANT: VK_F15            HEX: 7E
 337 CONSTANT: VK_F16            HEX: 7F
 338 CONSTANT: VK_F17            HEX: 80
 339 CONSTANT: VK_F18            HEX: 81
 340 CONSTANT: VK_F19            HEX: 82
 341 CONSTANT: VK_F20            HEX: 83
 342 CONSTANT: VK_F21            HEX: 84
 343 CONSTANT: VK_F22            HEX: 85
 344 CONSTANT: VK_F23            HEX: 86
 345 CONSTANT: VK_F24            HEX: 87
 346
 347 ! 0x88 - 0x8F : unassigned
 348
 349 CONSTANT: VK_NUMLOCK        HEX: 90
 350 CONSTANT: VK_SCROLL         HEX: 91
 351
 352 ! NEC PC-9800 kbd definitions
 353 CONSTANT: VK_OEM_NEC_EQUAL  HEX: 92  ! '=' key on numpad
 354
 355 ! Fujitsu/OASYS kbd definitions
 356 CONSTANT: VK_OEM_FJ_JISHO   HEX: 92  ! 'Dictionary' key
 357 CONSTANT: VK_OEM_FJ_MASSHOU HEX: 93  ! 'Unregister word' key
 358 CONSTANT: VK_OEM_FJ_TOUROKU HEX: 94  ! 'Register word' key
 359 CONSTANT: VK_OEM_FJ_LOYA    HEX: 95  ! 'Left OYAYUBI' key
 360 CONSTANT: VK_OEM_FJ_ROYA    HEX: 96  ! 'Right OYAYUBI' key
 361
 362 ! 0x97 - 0x9F : unassigned
 363
 364 ! VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys.
 365 ! Used only as parameters to GetAsyncKeyState() and GetKeyState().
 366 ! No other API or message will distinguish left and right keys in this way.
 367 CONSTANT: VK_LSHIFT         HEX: A0
 368 CONSTANT: VK_RSHIFT         HEX: A1
 369 CONSTANT: VK_LCONTROL       HEX: A2
 370 CONSTANT: VK_RCONTROL       HEX: A3
 371 CONSTANT: VK_LMENU          HEX: A4
 372 CONSTANT: VK_RMENU          HEX: A5
 373
 374 CONSTANT: VK_BROWSER_BACK        HEX: A6
 375 CONSTANT: VK_BROWSER_FORWARD     HEX: A7
 376 CONSTANT: VK_BROWSER_REFRESH     HEX: A8
 377 CONSTANT: VK_BROWSER_STOP        HEX: A9
 378 CONSTANT: VK_BROWSER_SEARCH      HEX: AA
 379 CONSTANT: VK_BROWSER_FAVORITES   HEX: AB
 380 CONSTANT: VK_BROWSER_HOME        HEX: AC
 381
 382 CONSTANT: VK_VOLUME_MUTE         HEX: AD
 383 CONSTANT: VK_VOLUME_DOWN         HEX: AE
 384 CONSTANT: VK_VOLUME_UP           HEX: AF
 385 CONSTANT: VK_MEDIA_NEXT_TRACK    HEX: B0
 386 CONSTANT: VK_MEDIA_PREV_TRACK    HEX: B1
 387 CONSTANT: VK_MEDIA_STOP          HEX: B2
 388 CONSTANT: VK_MEDIA_PLAY_PAUSE    HEX: B3
 389 CONSTANT: VK_LAUNCH_MAIL         HEX: B4
 390 CONSTANT: VK_LAUNCH_MEDIA_SELECT HEX: B5
 391 CONSTANT: VK_LAUNCH_APP1         HEX: B6
 392 CONSTANT: VK_LAUNCH_APP2         HEX: B7
 393
 394 ! 0xB8 - 0xB9 : reserved
 395
 396 CONSTANT: VK_OEM_1          HEX: BA  ! ';:' for US
 397 CONSTANT: VK_OEM_PLUS       HEX: BB  ! '+' any country
 398 CONSTANT: VK_OEM_COMMA      HEX: BC  ! ',' any country
 399 CONSTANT: VK_OEM_MINUS      HEX: BD  ! '-' any country
 400 CONSTANT: VK_OEM_PERIOD     HEX: BE  ! '.' any country
 401 CONSTANT: VK_OEM_2          HEX: BF  ! '/?' for US
 402 CONSTANT: VK_OEM_3          HEX: C0  ! '`~' for US
 403
 404 ! 0xC1 - 0xD7 : reserved
 405
 406 ! 0xD8 - 0xDA : unassigned
 407
 408 CONSTANT: VK_OEM_4          HEX: DB !  '[{' for US
 409 CONSTANT: VK_OEM_5          HEX: DC !  '\|' for US
 410 CONSTANT: VK_OEM_6          HEX: DD !  ']}' for US
 411 CONSTANT: VK_OEM_7          HEX: DE !  ''"' for US
 412 CONSTANT: VK_OEM_8          HEX: DF
 413
 414 ! 0xE0 : reserved
 415
 416 ! Various extended or enhanced keyboards
 417 CONSTANT: VK_OEM_AX         HEX: E1 !  'AX' key on Japanese AX kbd
 418 CONSTANT: VK_OEM_102        HEX: E2 !  "<>" or "\|" on RT 102-key kbd.
 419 CONSTANT: VK_ICO_HELP       HEX: E3 !  Help key on ICO
 420 CONSTANT: VK_ICO_00         HEX: E4 !  00 key on ICO
 421
 422 CONSTANT: VK_PROCESSKEY     HEX: E5
 423
 424 CONSTANT: VK_ICO_CLEAR      HEX: E6
 425
 426 CONSTANT: VK_PACKET         HEX: E7
 427
 428 ! 0xE8 : unassigned
 429
 430 ! Nokia/Ericsson definitions
 431 CONSTANT: VK_OEM_RESET      HEX: E9
 432 CONSTANT: VK_OEM_JUMP       HEX: EA
 433 CONSTANT: VK_OEM_PA1        HEX: EB
 434 CONSTANT: VK_OEM_PA2        HEX: EC
 435 CONSTANT: VK_OEM_PA3        HEX: ED
 436 CONSTANT: VK_OEM_WSCTRL     HEX: EE
 437 CONSTANT: VK_OEM_CUSEL      HEX: EF
 438 CONSTANT: VK_OEM_ATTN       HEX: F0
 439 CONSTANT: VK_OEM_FINISH     HEX: F1
 440 CONSTANT: VK_OEM_COPY       HEX: F2
 441 CONSTANT: VK_OEM_AUTO       HEX: F3
 442 CONSTANT: VK_OEM_ENLW       HEX: F4
 443 CONSTANT: VK_OEM_BACKTAB    HEX: F5
 444
 445 CONSTANT: VK_ATTN           HEX: F6
 446 CONSTANT: VK_CRSEL          HEX: F7
 447 CONSTANT: VK_EXSEL          HEX: F8
 448 CONSTANT: VK_EREOF          HEX: F9
 449 CONSTANT: VK_PLAY           HEX: FA
 450 CONSTANT: VK_ZOOM           HEX: FB
 451 CONSTANT: VK_NONAME         HEX: FC
 452 CONSTANT: VK_PA1            HEX: FD
 453 CONSTANT: VK_OEM_CLEAR      HEX: FE
 454 ! 0xFF : reserved
 455
 456 ! Key State Masks for Mouse Messages
 457 CONSTANT: MK_LBUTTON          HEX: 0001
 458 CONSTANT: MK_RBUTTON          HEX: 0002
 459 CONSTANT: MK_SHIFT            HEX: 0004
 460 CONSTANT: MK_CONTROL          HEX: 0008
 461 CONSTANT: MK_MBUTTON          HEX: 0010
 462 CONSTANT: MK_XBUTTON1         HEX: 0020
 463 CONSTANT: MK_XBUTTON2         HEX: 0040
 464
 465 ! Some fields are not defined for win64
 466 ! Window field offsets for GetWindowLong()
 467 CONSTANT: GWL_WNDPROC         -4
 468 CONSTANT: GWL_HINSTANCE       -6
 469 CONSTANT: GWL_HWNDPARENT      -8
 470 CONSTANT: GWL_USERDATA        -21
 471 CONSTANT: GWL_ID              -12
 472
 473 CONSTANT: GWL_STYLE           -16
 474 CONSTANT: GWL_EXSTYLE         -20
 475
 476 CONSTANT: GWLP_WNDPROC        -4
 477 CONSTANT: GWLP_HINSTANCE      -6
 478 CONSTANT: GWLP_HWNDPARENT     -8
 479 CONSTANT: GWLP_USERDATA       -21
 480 CONSTANT: GWLP_ID             -12
 481
 482 ! Class field offsets for GetClassLong()
 483 CONSTANT: GCL_MENUNAME        -8
 484 CONSTANT: GCL_HBRBACKGROUND   -10
 485 CONSTANT: GCL_HCURSOR         -12
 486 CONSTANT: GCL_HICON           -14
 487 CONSTANT: GCL_HMODULE         -16
 488 CONSTANT: GCL_WNDPROC         -24
 489 CONSTANT: GCL_HICONSM         -34
 490 CONSTANT: GCL_CBWNDEXTRA      -18
 491 CONSTANT: GCL_CBCLSEXTRA      -20
 492 CONSTANT: GCL_STYLE           -26
 493 CONSTANT: GCW_ATOM            -32
 494
 495 CONSTANT: GCLP_MENUNAME       -8
 496 CONSTANT: GCLP_HBRBACKGROUND  -10
 497 CONSTANT: GCLP_HCURSOR        -12
 498 CONSTANT: GCLP_HICON          -14
 499 CONSTANT: GCLP_HMODULE        -16
 500 CONSTANT: GCLP_WNDPROC        -24
 501 CONSTANT: GCLP_HICONSM        -34
 502
 503 CONSTANT: MB_ICONASTERISK    HEX: 00000040
 504 CONSTANT: MB_ICONEXCLAMATION HEX: 00000030
 505 CONSTANT: MB_ICONHAND        HEX: 00000010
 506 CONSTANT: MB_ICONQUESTION    HEX: 00000020
 507 CONSTANT: MB_OK              HEX: 00000000
 508
 509 ALIAS: FVIRTKEY TRUE
 510 CONSTANT: FNOINVERT 2
 511 CONSTANT: FSHIFT 4
 512 CONSTANT: FCONTROL 8
 513 CONSTANT: FALT 16
 514
 515 CONSTANT: MAPVK_VK_TO_VSC 0
 516 CONSTANT: MAPVK_VSC_TO_VK 1
 517 CONSTANT: MAPVK_VK_TO_CHAR 2
 518 CONSTANT: MAPVK_VSC_TO_VK_EX 3
 519 CONSTANT: MAPVK_VK_TO_VSC_EX 3
 520
 521 CONSTANT: TME_HOVER 1
 522 CONSTANT: TME_LEAVE 2
 523 CONSTANT: TME_NONCLIENT 16
 524 CONSTANT: TME_QUERY HEX: 40000000
 525 CONSTANT: TME_CANCEL HEX: 80000000
 526 CONSTANT: HOVER_DEFAULT HEX: ffffffff
 527 STRUCT: TRACKMOUSEEVENT
 528     { cbSize DWORD }
 529     { dwFlags DWORD }
 530     { hwndTrack HWND }
 531     { dwHoverTime DWORD } ;
 532 TYPEDEF: TRACKMOUSEEVENT* LPTRACKMOUSEEVENT
 533
 534 CONSTANT: DBT_DEVICEARRIVAL HEX: 8000
 535 CONSTANT: DBT_DEVICEREMOVECOMPLETE HEX: 8004
 536
 537 CONSTANT: DBT_DEVTYP_DEVICEINTERFACE 5
 538
 539 CONSTANT: DEVICE_NOTIFY_WINDOW_HANDLE 0
 540 CONSTANT: DEVICE_NOTIFY_SERVICE_HANDLE 1
 541
 542 CONSTANT: DEVICE_NOTIFY_ALL_INTERFACE_CLASSES 4
 543
 544 STRUCT: DEV_BROADCAST_HDR
 545     { dbch_size DWORD }
 546     { dbch_devicetype DWORD }
 547     { dbch_reserved DWORD } ;
 548
 549 STRUCT: DEV_BROADCAST_DEVICEW
 550     { dbcc_size DWORD }
 551     { dbcc_devicetype DWORD }
 552     { dbcc_reserved DWORD }
 553     { dbcc_classguid GUID }
 554     { dbcc_name WCHAR[1] } ;
 555
 556 CONSTANT: CCHDEVICENAME 32
 557
 558 STRUCT: MONITORINFOEX
 559     { cbSize DWORD }
 560     { rcMonitor RECT }
 561     { rcWork RECT }
 562     { dwFlags DWORD }
 563     { szDevice { TCHAR CCHDEVICENAME } } ;
 564
 565 TYPEDEF: MONITORINFOEX* LPMONITORINFOEX
 566 TYPEDEF: MONITORINFOEX* LPMONITORINFO
 567
 568 CONSTANT: MONITOR_DEFAULTTONULL 0
 569 CONSTANT: MONITOR_DEFAULTTOPRIMARY 1
 570 CONSTANT: MONITOR_DEFAULTTONEAREST 2
 571 CONSTANT: MONITORINFOF_PRIMARY 1
 572 CONSTANT: SWP_NOSIZE 1
 573 CONSTANT: SWP_NOMOVE 2
 574 CONSTANT: SWP_NOZORDER 4
 575 CONSTANT: SWP_NOREDRAW 8
 576 CONSTANT: SWP_NOACTIVATE 16
 577 CONSTANT: SWP_FRAMECHANGED 32
 578 CONSTANT: SWP_SHOWWINDOW 64
 579 CONSTANT: SWP_HIDEWINDOW 128
 580 CONSTANT: SWP_NOCOPYBITS 256
 581 CONSTANT: SWP_NOOWNERZORDER 512
 582 CONSTANT: SWP_NOSENDCHANGING 1024
 583 CONSTANT: SWP_DRAWFRAME SWP_FRAMECHANGED
 584 CONSTANT: SWP_NOREPOSITION SWP_NOOWNERZORDER
 585 CONSTANT: SWP_DEFERERASE 8192
 586 CONSTANT: SWP_ASYNCWINDOWPOS 16384
 587
 588 CONSTANT: MF_ENABLED         HEX: 0000
 589 CONSTANT: MF_GRAYED          HEX: 0001
 590 CONSTANT: MF_DISABLED        HEX: 0002
 591 CONSTANT: MF_STRING          HEX: 0000
 592 CONSTANT: MF_BITMAP          HEX: 0004
 593 CONSTANT: MF_UNCHECKED       HEX: 0000
 594 CONSTANT: MF_CHECKED         HEX: 0008
 595 CONSTANT: MF_POPUP           HEX: 0010
 596 CONSTANT: MF_MENUBARBREAK    HEX: 0020
 597 CONSTANT: MF_MENUBREAK       HEX: 0040
 598 CONSTANT: MF_UNHILITE        HEX: 0000
 599 CONSTANT: MF_HILITE          HEX: 0080
 600 CONSTANT: MF_OWNERDRAW       HEX: 0100
 601 CONSTANT: MF_USECHECKBITMAPS HEX: 0200
 602 CONSTANT: MF_BYCOMMAND       HEX: 0000
 603 CONSTANT: MF_BYPOSITION      HEX: 0400
 604 CONSTANT: MF_SEPARATOR       HEX: 0800
 605 CONSTANT: MF_DEFAULT         HEX: 1000
 606 CONSTANT: MF_SYSMENU         HEX: 2000
 607 CONSTANT: MF_HELP            HEX: 4000
 608 CONSTANT: MF_RIGHTJUSTIFY    HEX: 4000
 609 CONSTANT: MF_MOUSESELECT     HEX: 8000
 610
 611 CONSTANT: SPI_GETBEEP               1
 612 CONSTANT: SPI_SETBEEP               2
 613 CONSTANT: SPI_GETMOUSE              3
 614 CONSTANT: SPI_SETMOUSE              4
 615 CONSTANT: SPI_GETBORDER             5
 616 CONSTANT: SPI_SETBORDER             6
 617 CONSTANT: SPI_GETKEYBOARDSPEED      10
 618 CONSTANT: SPI_SETKEYBOARDSPEED      11
 619 CONSTANT: SPI_LANGDRIVER            12
 620 CONSTANT: SPI_ICONHORIZONTALSPACING 13
 621 CONSTANT: SPI_GETSCREENSAVETIMEOUT  14
 622 CONSTANT: SPI_SETSCREENSAVETIMEOUT  15
 623 CONSTANT: SPI_GETSCREENSAVEACTIVE   16
 624 CONSTANT: SPI_SETSCREENSAVEACTIVE   17
 625 CONSTANT: SPI_GETGRIDGRANULARITY    18
 626 CONSTANT: SPI_SETGRIDGRANULARITY    19
 627 CONSTANT: SPI_SETDESKWALLPAPER      20
 628 CONSTANT: SPI_SETDESKPATTERN        21
 629 CONSTANT: SPI_GETKEYBOARDDELAY      22
 630 CONSTANT: SPI_SETKEYBOARDDELAY      23
 631 CONSTANT: SPI_ICONVERTICALSPACING   24
 632 CONSTANT: SPI_GETICONTITLEWRAP      25
 633 CONSTANT: SPI_SETICONTITLEWRAP      26
 634 CONSTANT: SPI_GETMENUDROPALIGNMENT  27
 635 CONSTANT: SPI_SETMENUDROPALIGNMENT  28
 636 CONSTANT: SPI_SETDOUBLECLKWIDTH     29
 637 CONSTANT: SPI_SETDOUBLECLKHEIGHT    30
 638 CONSTANT: SPI_GETICONTITLELOGFONT   31
 639 CONSTANT: SPI_SETDOUBLECLICKTIME    32
 640 CONSTANT: SPI_SETMOUSEBUTTONSWAP    33
 641 CONSTANT: SPI_SETICONTITLELOGFONT   34
 642 CONSTANT: SPI_GETFASTTASKSWITCH     35
 643 CONSTANT: SPI_SETFASTTASKSWITCH     36
 644 CONSTANT: SPI_SETDRAGFULLWINDOWS    37
 645 CONSTANT: SPI_GETDRAGFULLWINDOWS    38
 646
 647 CONSTANT: SPI_GETFILTERKEYS         50
 648 CONSTANT: SPI_SETFILTERKEYS         51
 649 CONSTANT: SPI_GETTOGGLEKEYS         52
 650 CONSTANT: SPI_SETTOGGLEKEYS         53
 651 CONSTANT: SPI_GETMOUSEKEYS          54
 652 CONSTANT: SPI_SETMOUSEKEYS          55
 653 CONSTANT: SPI_GETSHOWSOUNDS         56
 654 CONSTANT: SPI_SETSHOWSOUNDS         57
 655 CONSTANT: SPI_GETSTICKYKEYS         58
 656 CONSTANT: SPI_SETSTICKYKEYS         59
 657 CONSTANT: SPI_GETACCESSTIMEOUT      60
 658 CONSTANT: SPI_SETACCESSTIMEOUT      61
 659
 660 CONSTANT: SPI_GETSOUNDSENTRY        64
 661 CONSTANT: SPI_SETSOUNDSENTRY        65
 662
 663 ! WINVER >= 0x0400
 664 CONSTANT: SPI_GETNONCLIENTMETRICS   41
 665 CONSTANT: SPI_SETNONCLIENTMETRICS   42
 666 CONSTANT: SPI_GETMINIMIZEDMETRICS   43
 667 CONSTANT: SPI_SETMINIMIZEDMETRICS   44
 668 CONSTANT: SPI_GETICONMETRICS        45
 669 CONSTANT: SPI_SETICONMETRICS        46
 670 CONSTANT: SPI_SETWORKAREA           47
 671 CONSTANT: SPI_GETWORKAREA           48
 672 CONSTANT: SPI_SETPENWINDOWS         49
 673
 674 CONSTANT: SPI_GETSERIALKEYS         62
 675 CONSTANT: SPI_SETSERIALKEYS         63
 676 CONSTANT: SPI_GETHIGHCONTRAST       66
 677 CONSTANT: SPI_SETHIGHCONTRAST       67
 678 CONSTANT: SPI_GETKEYBOARDPREF       68
 679 CONSTANT: SPI_SETKEYBOARDPREF       69
 680 CONSTANT: SPI_GETSCREENREADER       70
 681 CONSTANT: SPI_SETSCREENREADER       71
 682 CONSTANT: SPI_GETANIMATION          72
 683 CONSTANT: SPI_SETANIMATION          73
 684 CONSTANT: SPI_GETFONTSMOOTHING      74
 685 CONSTANT: SPI_SETFONTSMOOTHING      75
 686 CONSTANT: SPI_SETDRAGWIDTH          76
 687 CONSTANT: SPI_SETDRAGHEIGHT         77
 688 CONSTANT: SPI_SETHANDHELD           78
 689 CONSTANT: SPI_GETLOWPOWERTIMEOUT    79
 690 CONSTANT: SPI_GETPOWEROFFTIMEOUT    80
 691 CONSTANT: SPI_SETLOWPOWERTIMEOUT    81
 692 CONSTANT: SPI_SETPOWEROFFTIMEOUT    82
 693 CONSTANT: SPI_GETLOWPOWERACTIVE     83
 694 CONSTANT: SPI_GETPOWEROFFACTIVE     84
 695 CONSTANT: SPI_SETLOWPOWERACTIVE     85
 696 CONSTANT: SPI_SETPOWEROFFACTIVE     86
 697 CONSTANT: SPI_SETCURSORS            87
 698 CONSTANT: SPI_SETICONS              88
 699 CONSTANT: SPI_GETDEFAULTINPUTLANG   89
 700 CONSTANT: SPI_SETDEFAULTINPUTLANG   90
 701 CONSTANT: SPI_SETLANGTOGGLE         91
 702 CONSTANT: SPI_GETWINDOWSEXTENSION   92
 703 CONSTANT: SPI_SETMOUSETRAILS        93
 704 CONSTANT: SPI_GETMOUSETRAILS        94
 705 CONSTANT: SPI_SETSCREENSAVERRUNNING 97
 706 ALIAS: SPI_SCREENSAVERRUNNING    SPI_SETSCREENSAVERRUNNING
 707
 708 ! WIN32_WINNT >= 0x0400 || WIN32_WINDOWS > 0x0400
 709 CONSTANT: SPI_GETMOUSEHOVERWIDTH    98
 710 CONSTANT: SPI_SETMOUSEHOVERWIDTH    99
 711 CONSTANT: SPI_GETMOUSEHOVERHEIGHT   100
 712 CONSTANT: SPI_SETMOUSEHOVERHEIGHT   101
 713 CONSTANT: SPI_GETMOUSEHOVERTIME     102
 714 CONSTANT: SPI_SETMOUSEHOVERTIME     103
 715 CONSTANT: SPI_GETWHEELSCROLLLINES   104
 716 CONSTANT: SPI_SETWHEELSCROLLLINES   105
 717
 718 CONSTANT: SPI_GETSHOWIMEUI          110
 719 CONSTANT: SPI_SETSHOWIMEUI          111
 720
 721 ! WINVER >= 0x0500
 722 CONSTANT: SPI_GETMOUSESPEED         112
 723 CONSTANT: SPI_SETMOUSESPEED         113
 724 CONSTANT: SPI_GETSCREENSAVERRUNNING 114
 725
 726 CONSTANT: SPI_GETACTIVEWINDOWTRACKING    HEX: 1000
 727 CONSTANT: SPI_SETACTIVEWINDOWTRACKING    HEX: 1001
 728 CONSTANT: SPI_GETMENUANIMATION           HEX: 1002
 729 CONSTANT: SPI_SETMENUANIMATION           HEX: 1003
 730 CONSTANT: SPI_GETCOMBOBOXANIMATION       HEX: 1004
 731 CONSTANT: SPI_SETCOMBOBOXANIMATION       HEX: 1005
 732 CONSTANT: SPI_GETLISTBOXSMOOTHSCROLLING  HEX: 1006
 733 CONSTANT: SPI_SETLISTBOXSMOOTHSCROLLING  HEX: 1007
 734 CONSTANT: SPI_GETGRADIENTCAPTIONS        HEX: 1008
 735 CONSTANT: SPI_SETGRADIENTCAPTIONS        HEX: 1009
 736 CONSTANT: SPI_GETMENUUNDERLINES          HEX: 100A
 737 CONSTANT: SPI_SETMENUUNDERLINES          HEX: 100B
 738 CONSTANT: SPI_GETACTIVEWNDTRKZORDER      HEX: 100C
 739 CONSTANT: SPI_SETACTIVEWNDTRKZORDER      HEX: 100D
 740 CONSTANT: SPI_GETHOTTRACKING             HEX: 100E
 741 CONSTANT: SPI_SETHOTTRACKING             HEX: 100F
 742 CONSTANT: SPI_GETFOREGROUNDLOCKTIMEOUT   HEX: 2000
 743 CONSTANT: SPI_SETFOREGROUNDLOCKTIMEOUT   HEX: 2001
 744 CONSTANT: SPI_GETACTIVEWNDTRKTIMEOUT     HEX: 2002
 745 CONSTANT: SPI_SETACTIVEWNDTRKTIMEOUT     HEX: 2003
 746 CONSTANT: SPI_GETFOREGROUNDFLASHCOUNT    HEX: 2004
 747 CONSTANT: SPI_SETFOREGROUNDFLASHCOUNT    HEX: 2005
 748
 749 ! SystemParamInfo Flags
 750 CONSTANT: SPIF_UPDATEINIFILE              1
 751 CONSTANT: SPIF_SENDWININICHANGE           2
 752 ALIAS: SPIF_SENDCHANGE                 SPIF_SENDWININICHANGE
 753
 754
 755 TYPEDEF: HANDLE HRAWINPUT
 756 : GET_RAWINPUT_CODE_WPARAM ( wParam -- n ) HEX: ff bitand ; inline
 757
 758 CONSTANT: RIM_INPUT        0
 759 CONSTANT: RIM_INPUTSINK    1
 760
 761 CONSTANT: RIM_TYPEMOUSE    0
 762 CONSTANT: RIM_TYPEKEYBOARD 1
 763 CONSTANT: RIM_TYPEHID      2
 764
 765 STRUCT: RAWINPUTHEADER
 766     { dwType  DWORD  }
 767     { dwSize  DWORD  }
 768     { hDevice HANDLE }
 769     { wParam  WPARAM } ;
 770 TYPEDEF: RAWINPUTHEADER* PRAWINPUTHEADER
 771 TYPEDEF: RAWINPUTHEADER* LPRAWINPUTHEADER
 772 STRUCT: RAWMOUSE_BUTTONS_USBUTTONS
 773     { usButtonFlags USHORT }
 774     { usButtonData  USHORT } ;
 775
 776 UNION-STRUCT: RAWMOUSE_BUTTONS
 777     { ulButtons ULONG                      }
 778     { usButtons RAWMOUSE_BUTTONS_USBUTTONS } ;
 779 STRUCT: RAWMOUSE
 780     { usFlags            USHORT            }
 781     { uButtons           RAWMOUSE_BUTTONS  }
 782     { ulRawButtons       ULONG             }
 783     { lLastX             LONG              }
 784     { lLastY             LONG              }
 785     { ulExtraInformation ULONG             } ;
 786 TYPEDEF: RAWMOUSE* PRAWMOUSE
 787 TYPEDEF: RAWMOUSE* LPRAWMOUSE
 788
 789 CONSTANT: RI_MOUSE_LEFT_BUTTON_DOWN   HEX: 0001
 790 CONSTANT: RI_MOUSE_LEFT_BUTTON_UP     HEX: 0002
 791 CONSTANT: RI_MOUSE_RIGHT_BUTTON_DOWN  HEX: 0004
 792 CONSTANT: RI_MOUSE_RIGHT_BUTTON_UP    HEX: 0008
 793 CONSTANT: RI_MOUSE_MIDDLE_BUTTON_DOWN HEX: 0010
 794 CONSTANT: RI_MOUSE_MIDDLE_BUTTON_UP   HEX: 0020
 795
 796 : RI_MOUSE_BUTTON_1_DOWN      ( -- n ) RI_MOUSE_LEFT_BUTTON_DOWN ; inline
 797 : RI_MOUSE_BUTTON_1_UP        ( -- n ) RI_MOUSE_LEFT_BUTTON_UP ; inline
 798 : RI_MOUSE_BUTTON_2_DOWN      ( -- n ) RI_MOUSE_RIGHT_BUTTON_DOWN ; inline
 799 : RI_MOUSE_BUTTON_2_UP        ( -- n ) RI_MOUSE_RIGHT_BUTTON_UP ; inline
 800 : RI_MOUSE_BUTTON_3_DOWN      ( -- n ) RI_MOUSE_MIDDLE_BUTTON_DOWN ; inline
 801 : RI_MOUSE_BUTTON_3_UP        ( -- n ) RI_MOUSE_MIDDLE_BUTTON_UP ; inline
 802
 803 CONSTANT: RI_MOUSE_BUTTON_4_DOWN      HEX: 0040
 804 CONSTANT: RI_MOUSE_BUTTON_4_UP        HEX: 0080
 805 CONSTANT: RI_MOUSE_BUTTON_5_DOWN      HEX: 0100
 806 CONSTANT: RI_MOUSE_BUTTON_5_UP        HEX: 0200
 807 CONSTANT: RI_MOUSE_WHEEL              HEX: 0400
 808
 809 CONSTANT: MOUSE_MOVE_RELATIVE      0
 810 CONSTANT: MOUSE_MOVE_ABSOLUTE      1
 811 CONSTANT: MOUSE_VIRTUAL_DESKTOP    HEX: 02
 812 CONSTANT: MOUSE_ATTRIBUTES_CHANGED HEX: 04
 813 CONSTANT: MOUSE_MOVE_NOCOALESCE    HEX: 08
 814
 815 STRUCT: RAWKEYBOARD
 816     { MakeCode         USHORT }
 817     { Flags            USHORT }
 818     { Reserved         USHORT }
 819     { VKey             USHORT }
 820     { Message          UINT   }
 821     { ExtraInformation ULONG  } ;
 822 TYPEDEF: RAWKEYBOARD* PRAWKEYBOARD
 823 TYPEDEF: RAWKEYBOARD* LPRAWKEYBOARD
 824
 825 CONSTANT: KEYBOARD_OVERRUN_MAKE_CODE    HEX: FF
 826
 827 CONSTANT: RI_KEY_MAKE             0
 828 CONSTANT: RI_KEY_BREAK            1
 829 CONSTANT: RI_KEY_E0               2
 830 CONSTANT: RI_KEY_E1               4
 831 CONSTANT: RI_KEY_TERMSRV_SET_LED  8
 832 CONSTANT: RI_KEY_TERMSRV_SHADOW   HEX: 10
 833
 834 STRUCT: RAWHID
 835     { dwSizeHid DWORD   }
 836     { dwCount   DWORD   }
 837     { bRawData  BYTE[1] } ;
 838 TYPEDEF: RAWHID* PRAWHID
 839 TYPEDEF: RAWHID* LPRAWHID
 840
 841 UNION-STRUCT: RAWINPUT_UNION
 842     { mouse    RAWMOUSE }
 843     { keyboard RAWKEYBOARD }
 844     { hid      RAWHID } ;
 845 STRUCT: RAWINPUT
 846     { header RAWINPUTHEADER }
 847     { data   RAWINPUT_UNION } ;
 848 TYPEDEF: RAWINPUT* PRAWINPUT
 849 TYPEDEF: RAWINPUT* LPRAWINPUT
 850
 851 : RAWINPUT_ALIGN ( x -- y )
 852     cpu x86.32 = [ 4 ] [ 8 ] if align ; inline
 853 : NEXTRAWINPUTBLOCK ( struct -- next-struct )
 854     dup header>> dwSize>> swap <displaced-alien> RAWINPUT_ALIGN RAWINPUT memory>struct ; inline
 855
 856 CONSTANT: RID_INPUT               HEX: 10000003
 857 CONSTANT: RID_HEADER              HEX: 10000005
 858 CONSTANT: RIDI_PREPARSEDDATA      HEX: 20000005
 859 CONSTANT: RIDI_DEVICENAME         HEX: 20000007
 860 CONSTANT: RIDI_DEVICEINFO         HEX: 2000000b
 861
 862 STRUCT: RID_DEVICE_INFO_MOUSE
 863     { dwId                 DWORD }
 864     { dwNumberOfButtons    DWORD }
 865     { dwSampleRate         DWORD }
 866     { fHasHorizontalWheel  BOOL  } ;
 867 TYPEDEF: RID_DEVICE_INFO_MOUSE* PRID_DEVICE_INFO_MOUSE
 868
 869 STRUCT: RID_DEVICE_INFO_KEYBOARD
 870     { dwType                 DWORD }
 871     { dwSubType              DWORD }
 872     { dwKeyboardMode         DWORD }
 873     { dwNumberOfFunctionKeys DWORD }
 874     { dwNumberOfIndicators   DWORD }
 875     { dwNumberOfKeysTotal    DWORD } ;
 876 TYPEDEF: RID_DEVICE_INFO_KEYBOARD* PRID_DEVICE_INFO_KEYBOARD
 877
 878 STRUCT: RID_DEVICE_INFO_HID
 879     { dwVendorId      DWORD  }
 880     { dwProductId     DWORD  }
 881     { dwVersionNumber DWORD  }
 882     { usUsagePage     USHORT }
 883     { usUsage         USHORT } ;
 884 TYPEDEF: RID_DEVICE_INFO_HID* PRID_DEVICE_INFO_HID
 885
 886 UNION-STRUCT: RID_DEVICE_INFO_UNION
 887     { mouse    RID_DEVICE_INFO_MOUSE    }
 888     { keyboard RID_DEVICE_INFO_KEYBOARD }
 889     { hid      RID_DEVICE_INFO_HID      } ;
 890 STRUCT: RID_DEVICE_INFO
 891     { cbSize DWORD                 }
 892     { dwType DWORD                 }
 893     { data   RID_DEVICE_INFO_UNION } ;
 894 TYPEDEF: RID_DEVICE_INFO* PRID_DEVICE_INFO
 895 TYPEDEF: RID_DEVICE_INFO* LPRID_DEVICE_INFO
 896
 897 STRUCT: RAWINPUTDEVICE
 898     { usUsagePage USHORT }
 899     { usUsage     USHORT }
 900     { dwFlags     DWORD  }
 901     { hwndTarget  HWND   } ;
 902 TYPEDEF: RAWINPUTDEVICE* PRAWINPUTDEVICE
 903 TYPEDEF: RAWINPUTDEVICE* LPRAWINPUTDEVICE
 904 TYPEDEF: RAWINPUTDEVICE* PCRAWINPUTDEVICE
 905
 906 CONSTANT: RIDEV_REMOVE            HEX: 00000001
 907 CONSTANT: RIDEV_EXCLUDE           HEX: 00000010
 908 CONSTANT: RIDEV_PAGEONLY          HEX: 00000020
 909 CONSTANT: RIDEV_NOLEGACY          HEX: 00000030
 910 CONSTANT: RIDEV_INPUTSINK         HEX: 00000100
 911 CONSTANT: RIDEV_CAPTUREMOUSE      HEX: 00000200
 912 CONSTANT: RIDEV_NOHOTKEYS         HEX: 00000200
 913 CONSTANT: RIDEV_APPKEYS           HEX: 00000400
 914 CONSTANT: RIDEV_EXINPUTSINK       HEX: 00001000
 915 CONSTANT: RIDEV_DEVNOTIFY         HEX: 00002000
 916 CONSTANT: RIDEV_EXMODEMASK        HEX: 000000F0
 917
 918 : RIDEV_EXMODE ( mode -- x ) RIDEV_EXMODEMASK bitand ; inline
 919
 920 CONSTANT: GIDC_ARRIVAL             1
 921 CONSTANT: GIDC_REMOVAL             2
 922
 923 : GET_DEVICE_CHANGE_WPARAM ( wParam -- x ) HEX: ffff bitand ; inline
 924
 925 STRUCT: RAWINPUTDEVICELIST
 926     { hDevice HANDLE }
 927     { dwType  DWORD  } ;
 928 TYPEDEF: RAWINPUTDEVICELIST* PRAWINPUTDEVICELIST
 929
 930 CONSTANT: CCHFORMNAME 32
 931
 932 CONSTANT: CDS_UPDATEREGISTRY      HEX: 00000001
 933 CONSTANT: CDS_TEST                HEX: 00000002
 934 CONSTANT: CDS_FULLSCREEN          HEX: 00000004
 935 CONSTANT: CDS_GLOBAL              HEX: 00000008
 936 CONSTANT: CDS_SET_PRIMARY         HEX: 00000010
 937 CONSTANT: CDS_RESET               HEX: 40000000
 938 CONSTANT: CDS_SETRECT             HEX: 20000000
 939 CONSTANT: CDS_NORESET             HEX: 10000000
 940
 941 CONSTANT: DISP_CHANGE_SUCCESSFUL 0
 942 CONSTANT: DISP_CHANGE_RESTART 1
 943 CONSTANT: DISP_CHANGE_FAILED     -1
 944 CONSTANT: DISP_CHANGE_BADMODE    -2
 945 CONSTANT: DISP_CHANGE_NOTUPDATED -3
 946 CONSTANT: DISP_CHANGE_BADFLAGS   -4
 947 CONSTANT: DISP_CHANGE_BADPARAM   -5
 948
 949
 950
 951 STRUCT: DEVMODE
 952     { dmDeviceName TCHAR[CCHDEVICENAME] }
 953     { dmSpecVersion WORD }
 954     { dmDriverVersion WORD }
 955     { dmSize WORD }
 956     { dmDriverExtra WORD }
 957     { dmFields DWORD }
 958
 959     { dmOrientation short }
 960     { dmPaperSize short }
 961     { dmPaperLength short }
 962     { dmPaperWidth short }
 963     { dmScale short }
 964     { dmCopies short }
 965     { dmDefaultSource short }
 966     { dmPrintQuality short }
 967
 968     { dmColor short }
 969     { dmDuplex short }
 970     { dmYResolution short }
 971     { dmTTOption short }
 972     { dmCollate short }
 973     { dmFormName TCHAR[CCHFORMNAME] }
 974     { dmLogPixels WORD }
 975     { dmBitsPerPel DWORD }
 976     { dmPelsWidth DWORD }
 977     { dmPelsHeight DWORD }
 978     { dmDisplayFlags DWORD }
 979     { dmDisplayFrequency DWORD }
 980     { dmiCMMethod DWORD }
 981     { dmICMIntent DWORD }
 982
 983     { dmMediaType DWORD }
 984     { dmDitherType DWORD }
 985     { dmReserved1 DWORD }
 986     { dmReserved2 DWORD }
 987     { dmPanningWidth DWORD } ;
 988
 989 ! union { DWORD dmDisplayFlags; DWORD dmNup; } ;
 990   ! union {
 991     ! struct {
 992       ! short dmOrientation;
 993       ! short dmPaperSize;
 994       ! short dmPaperLength;
 995       ! short dmPaperWidth;
 996       ! short dmScale;
 997       ! short dmCopies;
 998       ! short dmDefaultSource;
 999       ! short dmPrintQuality;
1000     ! } ;
1001     ! struct {
1002       ! POINTL dmPosition;
1003       ! DWORD dmDisplayOrientation;
1004       ! DWORD dmDisplayFixedOutput;
1005     ! } ;
1006   ! } ;
1007
1008 TYPEDEF: DEVMODE* PDEVMODE
1009 TYPEDEF: DEVMODE* LPDEVMODE
1010
1011 LIBRARY: user32
1012
1013 FUNCTION: HKL ActivateKeyboardLayout ( HKL hkl, UINT Flags ) ;
1014 FUNCTION: BOOL AdjustWindowRect ( LPRECT lpRect, DWORD dwStyle, BOOL bMenu ) ;
1015 FUNCTION: BOOL AdjustWindowRectEx ( LPRECT lpRect, DWORD dwStyle, BOOL bMenu, DWORD dwExStyle ) ;
1016 ! FUNCTION: AlignRects
1017 ! FUNCTION: AllowForegroundActivation
1018 ! FUNCTION: AllowSetForegroundWindow
1019 ! FUNCTION: AnimateWindow
1020
1021 FUNCTION: BOOL AnyPopup ( ) ;
1022
1023 ! FUNCTION: AppendMenuA
1024 ! FUNCTION: AppendMenuW
1025 ! FUNCTION: ArrangeIconicWindows
1026 ! FUNCTION: AttachThreadInput
1027 ! FUNCTION: BeginDeferWindowPos
1028
1029 FUNCTION: HDC BeginPaint ( HWND hwnd, LPPAINTSTRUCT lpPaint ) ;
1030
1031 ! FUNCTION: BlockInput
1032 ! FUNCTION: BringWindowToTop
1033 ! FUNCTION: BroadcastSystemMessage
1034 ! FUNCTION: BroadcastSystemMessageA
1035 ! FUNCTION: BroadcastSystemMessageExA
1036 ! FUNCTION: BroadcastSystemMessageExW
1037 ! FUNCTION: BroadcastSystemMessageW
1038 ! FUNCTION: BuildReasonArray
1039 ! FUNCTION: CalcMenuBar
1040 ! FUNCTION: CallMsgFilter
1041 ! FUNCTION: CallMsgFilterA
1042 ! FUNCTION: CallMsgFilterW
1043 ! FUNCTION: CallNextHookEx
1044 ! FUNCTION: CallWindowProcA
1045 ! FUNCTION: CallWindowProcW
1046 ! FUNCTION: CascadeChildWindows
1047 ! FUNCTION: CascadeWindows
1048 ! FUNCTION: ChangeClipboardChain
1049 FUNCTION: LONG ChangeDisplaySettingsExW ( LPCTSTR lpszDeviceName, DEVMODE *lpDevMode, HWND hwnd, DWORD dwFlags, LPVOID lParam ) ;
1050 FUNCTION: LONG ChangeDisplaySettingsW ( DEVMODE *lpDevMode, DWORD dwFlags ) ;
1051 ALIAS: ChangeDisplaySettingsEx ChangeDisplaySettingsExW
1052 ALIAS: ChangeDisplaySettings ChangeDisplaySettingsW
1053 ! FUNCTION: ChangeMenuA
1054 ! FUNCTION: ChangeMenuW
1055 ! FUNCTION: CharLowerA
1056 ! FUNCTION: CharLowerBuffA
1057 ! FUNCTION: CharLowerBuffW
1058 ! FUNCTION: CharLowerW
1059 ! FUNCTION: CharNextA
1060 ! FUNCTION: CharNextExA
1061 ! FUNCTION: CharNextW
1062 ! FUNCTION: CharPrevA
1063 ! FUNCTION: CharPrevExA
1064 ! FUNCTION: CharPrevW
1065 ! FUNCTION: CharToOemA
1066 ! FUNCTION: CharToOemBuffA
1067 ! FUNCTION: CharToOemBuffW
1068 ! FUNCTION: CharToOemW
1069 ! FUNCTION: CharUpperA
1070 ! FUNCTION: CharUpperBuffA
1071 ! FUNCTION: CharUpperBuffW
1072 ! FUNCTION: CharUpperW
1073 ! FUNCTION: CheckDlgButton
1074 ! FUNCTION: CheckMenuItem
1075 ! FUNCTION: CheckMenuRadioItem
1076 ! FUNCTION: CheckRadioButton
1077 FUNCTION: HWND ChildWindowFromPoint ( HWND hWndParent, POINT point ) ;
1078 ! FUNCTION: ChildWindowFromPointEx
1079 ! FUNCTION: ClientThreadSetup
1080 FUNCTION: BOOL ClientToScreen ( HWND hWnd, POINT* point ) ;
1081 ! FUNCTION: CliImmSetHotKey
1082 FUNCTION: int ClipCursor ( RECT* clipRect ) ;
1083 FUNCTION: BOOL CloseClipboard ( ) ;
1084 ! FUNCTION: CloseDesktop
1085 ! FUNCTION: CloseWindow
1086 ! FUNCTION: CloseWindowStation
1087 ! FUNCTION: CopyAcceleratorTableA
1088 FUNCTION: int CopyAcceleratorTableW ( HACCEL hAccelSrc, LPACCEL lpAccelDst, int cAccelEntries ) ;
1089 ALIAS: CopyAcceleratorTable CopyAcceleratorTableW
1090 ! FUNCTION: CopyIcon
1091 ! FUNCTION: CopyImage
1092 ! FUNCTION: CopyRect
1093 ! FUNCTION: CountClipboardFormats
1094 ! FUNCTION: CreateAcceleratorTableA
1095 FUNCTION: HACCEL CreateAcceleratorTableW ( LPACCEL lpaccl, int cEntries ) ;
1096 ALIAS: CreateAcceleratorTable CreateAcceleratorTableW
1097 ! FUNCTION: CreateCaret
1098 ! FUNCTION: CreateCursor
1099 ! FUNCTION: CreateDesktopA
1100 ! FUNCTION: CreateDesktopW
1101 ! FUNCTION: CreateDialogIndirectParamA
1102 ! FUNCTION: CreateDialogIndirectParamAorW
1103 ! FUNCTION: CreateDialogIndirectParamW
1104 ! FUNCTION: CreateDialogParamA
1105 ! FUNCTION: CreateDialogParamW
1106 ! FUNCTION: CreateIcon
1107 ! FUNCTION: CreateIconFromResource
1108 ! FUNCTION: CreateIconFromResourceEx
1109 ! FUNCTION: CreateIconIndirect
1110 ! FUNCTION: CreateMDIWindowA
1111 ! FUNCTION: CreateMDIWindowW
1112 ! FUNCTION: CreateMenu
1113 ! FUNCTION: CreatePopupMenu
1114 ! FUNCTION: CreateSystemThreads
1115
1116 FUNCTION: HWND CreateWindowExW (
1117                 DWORD dwExStyle,
1118                 LPCTSTR lpClassName,
1119                 LPCTSTR lpWindowName,
1120                 DWORD dwStyle,
1121                 uint X,
1122                 uint Y,
1123                 uint nWidth,
1124                 uint nHeight,
1125                 HWND hWndParent,
1126                 HMENU hMenu,
1127                 HINSTANCE hInstance,
1128                 LPVOID lpParam ) ;
1129
1130 ALIAS: CreateWindowEx CreateWindowExW
1131
1132 : CreateWindow ( a b c d e f g h i j k -- hwnd ) 0 12 -nrot CreateWindowEx ; inline
1133
1134 ! FUNCTION: CreateWindowStationA
1135 ! FUNCTION: CreateWindowStationW
1136 ! FUNCTION: CsrBroadcastSystemMessageExW
1137 ! FUNCTION: CtxInitUser32
1138 ! FUNCTION: DdeAbandonTransaction
1139 ! FUNCTION: DdeAccessData
1140 ! FUNCTION: DdeAddData
1141 ! FUNCTION: DdeClientTransaction
1142 ! FUNCTION: DdeCmpStringHandles
1143 ! FUNCTION: DdeConnect
1144 ! FUNCTION: DdeConnectList
1145 ! FUNCTION: DdeCreateDataHandle
1146 ! FUNCTION: DdeCreateStringHandleA
1147 ! FUNCTION: DdeCreateStringHandleW
1148 ! FUNCTION: DdeDisconnect
1149 ! FUNCTION: DdeDisconnectList
1150 ! FUNCTION: DdeEnableCallback
1151 ! FUNCTION: DdeFreeDataHandle
1152 ! FUNCTION: DdeFreeStringHandle
1153 ! FUNCTION: DdeGetData
1154 ! FUNCTION: DdeGetLastError
1155 ! FUNCTION: DdeGetQualityOfService
1156 ! FUNCTION: DdeImpersonateClient
1157 ! FUNCTION: DdeInitializeA
1158 ! FUNCTION: DdeInitializeW
1159 ! FUNCTION: DdeKeepStringHandle
1160 ! FUNCTION: DdeNameService
1161 ! FUNCTION: DdePostAdvise
1162 ! FUNCTION: DdeQueryConvInfo
1163 ! FUNCTION: DdeQueryNextServer
1164 ! FUNCTION: DdeQueryStringA
1165 ! FUNCTION: DdeQueryStringW
1166 ! FUNCTION: DdeReconnect
1167 ! FUNCTION: DdeSetQualityOfService
1168 ! FUNCTION: DdeSetUserHandle
1169 ! FUNCTION: DdeUnaccessData
1170 ! FUNCTION: DdeUninitialize
1171 ! FUNCTION: DefDlgProcA
1172 ! FUNCTION: DefDlgProcW
1173 ! FUNCTION: DeferWindowPos
1174 ! FUNCTION: DefFrameProcA
1175 ! FUNCTION: DefFrameProcW
1176 ! FUNCTION: DefMDIChildProcA
1177 ! FUNCTION: DefMDIChildProcW
1178 FUNCTION: LRESULT DefRawInputProc ( PRAWINPUT* paRawInput, INT nInput, UINT cbSizeHeader ) ;
1179 FUNCTION: LRESULT DefWindowProcW ( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam ) ;
1180 ALIAS: DefWindowProc DefWindowProcW
1181 ! FUNCTION: DeleteMenu
1182 ! FUNCTION: DeregisterShellHookWindow
1183 FUNCTION: BOOL DestroyAcceleratorTable ( HACCEL hAccel ) ;
1184 ! FUNCTION: DestroyCaret
1185 ! FUNCTION: DestroyCursor
1186 ! FUNCTION: DestroyIcon
1187 ! FUNCTION: DestroyMenu
1188 ! FUNCTION: DestroyReasons
1189 FUNCTION: BOOL DestroyWindow ( HWND hWnd ) ;
1190 ! FUNCTION: DeviceEventWorker
1191 ! FUNCTION: DialogBoxIndirectParamA
1192 ! FUNCTION: DialogBoxIndirectParamAorW
1193 ! FUNCTION: DialogBoxIndirectParamW
1194 ! FUNCTION: DialogBoxParamA
1195 ! FUNCTION: DialogBoxParamW
1196 ! FUNCTION: DisableProcessWindowsGhosting
1197
1198 FUNCTION: LONG DispatchMessageW ( MSG* lpMsg ) ;
1199 ALIAS: DispatchMessage DispatchMessageW
1200
1201 ! FUNCTION: DisplayExitWindowsWarnings
1202 ! FUNCTION: DlgDirListA
1203 ! FUNCTION: DlgDirListComboBoxA
1204 ! FUNCTION: DlgDirListComboBoxW
1205 ! FUNCTION: DlgDirListW
1206 ! FUNCTION: DlgDirSelectComboBoxExA
1207 ! FUNCTION: DlgDirSelectComboBoxExW
1208 ! FUNCTION: DlgDirSelectExA
1209 ! FUNCTION: DlgDirSelectExW
1210 ! FUNCTION: DragDetect
1211 ! FUNCTION: DragObject
1212
1213
1214 FUNCTION: BOOL DrawAnimatedRects ( HWND hWnd, int idAni, RECT* lprcFrom, RECT* lprcTo ) ;
1215 ! FUNCTION: BOOL DrawCaption ( HWND hWnd, HDC hdc, LPRECT lprc, UINT uFlags ) ;
1216
1217 ! FUNCTION: DrawEdge
1218 ! FUNCTION: DrawFocusRect
1219 ! FUNCTION: DrawFrame
1220 ! FUNCTION: DrawFrameControl
1221
1222 FUNCTION: BOOL DrawIcon ( HDC hDC, int X, int Y, HICON hIcon ) ;
1223
1224 ! FUNCTION: DrawIconEx
1225 ! FUNCTION: DrawMenuBar
1226 ! FUNCTION: DrawMenuBarTemp
1227 ! FUNCTION: DrawStateA
1228 ! FUNCTION: DrawStateW
1229 ! FUNCTION: DrawTextA
1230 ! FUNCTION: DrawTextExA
1231 ! FUNCTION: DrawTextExW
1232 ! FUNCTION: DrawTextW
1233 ! FUNCTION: EditWndProc
1234 FUNCTION: BOOL EmptyClipboard ( ) ;
1235 FUNCTION: BOOL EnableMenuItem ( HMENU hMenu, UINT uIDEnableItem, UINT uEnable ) ;
1236 ! FUNCTION: EnableScrollBar
1237 ! FUNCTION: EnableWindow
1238 ! FUNCTION: EndDeferWindowPos
1239 ! FUNCTION: EndDialog
1240 ! FUNCTION: EndMenu
1241
1242 FUNCTION: BOOL EndPaint ( HWND hWnd, PAINTSTRUCT* lpPaint) ;
1243
1244 ! FUNCTION: EndTask
1245 ! FUNCTION: EnterReaderModeHelper
1246 ! FUNCTION: EnumChildWindows
1247 FUNCTION: UINT EnumClipboardFormats ( UINT format ) ;
1248 ! FUNCTION: EnumDesktopsA
1249 ! FUNCTION: EnumDesktopsW
1250 ! FUNCTION: EnumDesktopWindows
1251 ! FUNCTION: EnumDisplayDevicesA
1252 ! FUNCTION: EnumDisplayDevicesW
1253 ! FUNCTION: EnumDisplayMonitors
1254 ! FUNCTION: EnumDisplaySettingsA
1255 ! FUNCTION: EnumDisplaySettingsExA
1256 ! FUNCTION: EnumDisplaySettingsExW
1257 FUNCTION: BOOL EnumDisplaySettingsW ( LPCTSTR lpszDeviceName, DWORD iModeNum, DEVMODE *lpDevMode ) ;
1258 ALIAS: EnumDisplaySettings EnumDisplaySettingsW
1259 ! FUNCTION: EnumPropsA
1260 ! FUNCTION: EnumPropsExA
1261 ! FUNCTION: EnumPropsExW
1262 ! FUNCTION: EnumPropsW
1263 ! FUNCTION: EnumThreadWindows
1264 ! FUNCTION: EnumWindows
1265 ! FUNCTION: EnumWindowStationsA
1266 ! FUNCTION: EnumWindowStationsW
1267 ! FUNCTION: EqualRect
1268 ! FUNCTION: ExcludeUpdateRgn
1269 ! FUNCTION: ExitWindowsEx
1270 FUNCTION: int FillRect ( HDC hDC, RECT* lprc, HBRUSH hbr ) ;
1271 FUNCTION: HWND FindWindowA ( c-string lpClassName, c-string lpWindowName ) ;
1272 FUNCTION: HWND FindWindowExA ( HWND hwndParent, HWND childAfter, c-string lpClassName, c-string lpWindowName ) ;
1273 ! FUNCTION: FindWindowExW
1274 ! FUNCTION: FindWindowW
1275 ! FUNCTION: FlashWindow
1276 ! FUNCTION: FlashWindowEx
1277 ! FUNCTION: FrameRect
1278 ! FUNCTION: FreeDDElParam
1279 ! FUNCTION: GetActiveWindow
1280 ! FUNCTION: GetAltTabInfo
1281 ! FUNCTION: GetAltTabInfoA
1282 ! FUNCTION: GetAltTabInfoW
1283 ! FUNCTION: GetAncestor
1284 ! FUNCTION: GetAppCompatFlags
1285 ! FUNCTION: GetAppCompatFlags2
1286 ! FUNCTION: GetAsyncKeyState
1287 FUNCTION: HWND GetCapture ( ) ;
1288 ! FUNCTION: GetCaretBlinkTime
1289 ! FUNCTION: GetCaretPos
1290 FUNCTION: BOOL GetClassInfoW ( HINSTANCE hInst, LPCWSTR lpszClass, LPWNDCLASS lpwcx ) ;
1291 ALIAS: GetClassInfo GetClassInfoW
1292
1293 FUNCTION: BOOL GetClassInfoExW ( HINSTANCE hInst, LPCWSTR lpszClass, LPWNDCLASSEX lpwcx ) ;
1294 ALIAS: GetClassInfoEx GetClassInfoExW
1295
1296 FUNCTION: ULONG_PTR GetClassLongW ( HWND hWnd, int nIndex ) ;
1297 ALIAS: GetClassLong GetClassLongW
1298 ALIAS: GetClassLongPtr GetClassLongW
1299
1300
1301 ! FUNCTION: GetClassNameA
1302 ! FUNCTION: GetClassNameW
1303 ! FUNCTION: GetClassWord
1304 FUNCTION: BOOL GetClientRect ( HWND hWnd, LPRECT lpRect ) ;
1305
1306 FUNCTION: HANDLE GetClipboardData ( UINT uFormat ) ;
1307
1308 ! FUNCTION: GetClipboardFormatNameA
1309 ! FUNCTION: GetClipboardFormatNameW
1310 FUNCTION: HWND GetClipboardOwner ( ) ;
1311 FUNCTION: DWORD GetClipboardSequenceNumber ( ) ;
1312 ! FUNCTION: GetClipboardViewer
1313 ! FUNCTION: GetClipCursor
1314 ! FUNCTION: GetComboBoxInfo
1315 ! FUNCTION: GetCursor
1316 ! FUNCTION: GetCursorFrameInfo
1317 ! FUNCTION: GetCursorInfo
1318 ! FUNCTION: GetCursorPos
1319 FUNCTION: HDC GetDC ( HWND hWnd ) ;
1320 FUNCTION: HDC GetDCEx ( HWND hWnd, HRGN hrgnClip, DWORD flags ) ;
1321 FUNCTION: HWND GetDesktopWindow ( ) ;
1322 ! FUNCTION: GetDialogBaseUnits
1323 ! FUNCTION: GetDlgCtrlID
1324 ! FUNCTION: GetDlgItem
1325 ! FUNCTION: GetDlgItemInt
1326 ! FUNCTION: GetDlgItemTextA
1327 ! FUNCTION: GetDlgItemTextW
1328 FUNCTION: uint GetDoubleClickTime ( ) ;
1329 FUNCTION: HWND GetFocus ( ) ;
1330 ! FUNCTION: GetForegroundWindow
1331 ! FUNCTION: GetGuiResources
1332 ! FUNCTION: GetGUIThreadInfo
1333 ! FUNCTION: GetIconInfo
1334 ! FUNCTION: GetInputDesktop
1335 ! FUNCTION: GetInputState
1336 ! FUNCTION: GetInternalWindowPos
1337 ! FUNCTION: GetKBCodePage
1338 ! FUNCTION: GetKeyboardLayout
1339 ! FUNCTION: GetKeyboardLayoutList
1340 ! FUNCTION: GetKeyboardLayoutNameA
1341 ! FUNCTION: GetKeyboardLayoutNameW
1342 ! FUNCTION: GetKeyboardState
1343 ! FUNCTION: GetKeyboardType
1344 ! FUNCTION: GetKeyNameTextA
1345 ! FUNCTION: GetKeyNameTextW
1346 FUNCTION: SHORT GetKeyState ( int nVirtKey ) ;
1347 ! FUNCTION: GetLastActivePopup
1348 ! FUNCTION: GetLastInputInfo
1349 ! FUNCTION: GetLayeredWindowAttributes
1350 ! FUNCTION: GetListBoxInfo
1351 ! FUNCTION: GetMenu
1352 ! FUNCTION: GetMenuBarInfo
1353 ! FUNCTION: GetMenuCheckMarkDimensions
1354 ! FUNCTION: GetMenuContextHelpId
1355 ! FUNCTION: GetMenuDefaultItem
1356 ! FUNCTION: GetMenuInfo
1357 ! FUNCTION: GetMenuItemCount
1358 ! FUNCTION: GetMenuItemID
1359 ! FUNCTION: GetMenuItemInfoA
1360 ! FUNCTION: GetMenuItemInfoW
1361 ! FUNCTION: GetMenuItemRect
1362 ! FUNCTION: GetMenuState
1363 ! FUNCTION: GetMenuStringA
1364 ! FUNCTION: GetMenuStringW
1365
1366 FUNCTION: BOOL GetMessageW ( LPMSG lpMsg, HWND hWnd, UINT wMsgFilterMin, UINT wMsgFilterMax ) ;
1367 ALIAS: GetMessage GetMessageW
1368
1369 ! FUNCTION: GetMessageExtraInfo
1370 ! FUNCTION: GetMessagePos
1371 ! FUNCTION: GetMessageTime
1372 ! FUNCTION: GetMonitorInfoA
1373
1374 FUNCTION: BOOL GetMonitorInfoW ( HMONITOR hMonitor, LPMONITORINFO lpmi ) ;
1375 ALIAS: GetMonitorInfo GetMonitorInfoW
1376
1377 ! FUNCTION: GetMouseMovePointsEx
1378 ! FUNCTION: GetNextDlgGroupItem
1379 ! FUNCTION: GetNextDlgTabItem
1380 ! FUNCTION: GetOpenClipboardWindow
1381 FUNCTION: HWND GetParent ( HWND hWnd ) ;
1382 FUNCTION: int GetPriorityClipboardFormat ( UINT* paFormatPriorityList, int cFormats ) ;
1383 ! FUNCTION: GetProcessDefaultLayout
1384 ! FUNCTION: GetProcessWindowStation
1385 ! FUNCTION: GetProgmanWindow
1386 ! FUNCTION: GetPropA
1387 ! FUNCTION: GetPropW
1388 ! FUNCTION: GetQueueStatus
1389 FUNCTION: UINT GetRawInputBuffer ( PRAWINPUT pData, PUINT pcbSize, UINT cbSizeHeader ) ;
1390 FUNCTION: UINT GetRawInputData ( HRAWINPUT hRawInput, UINT uiCommand, LPVOID pData, PUINT pcbSize, UINT cbSizeHeader ) ;
1391 FUNCTION: UINT GetRawInputDeviceInfoA ( HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize ) ;
1392 FUNCTION: UINT GetRawInputDeviceInfoW ( HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize ) ;
1393 ALIAS: GetRawInputDeviceInfo GetRawInputDeviceInfoW
1394 FUNCTION: UINT GetRawInputDeviceList ( PRAWINPUTDEVICELIST pRawInputDeviceList, PUINT puiNumDevices, UINT cbSize ) ;
1395 FUNCTION: UINT GetRegisteredRawInputDevices ( PRAWINPUTDEVICE pRawInputDevices, PUINT puiNumDevices, UINT cbSize ) ;
1396 ! FUNCTION: GetReasonTitleFromReasonCode
1397 ! FUNCTION: GetScrollBarInfo
1398 ! FUNCTION: GetScrollInfo
1399 ! FUNCTION: GetScrollPos
1400 ! FUNCTION: GetScrollRange
1401 ! FUNCTION: GetShellWindow
1402 ! FUNCTION: GetSubMenu
1403 FUNCTION: COLORREF GetSysColor ( int nIndex ) ;
1404 FUNCTION: HBRUSH GetSysColorBrush ( int nIndex ) ;
1405 FUNCTION: HMENU GetSystemMenu ( HWND hWnd, BOOL bRevert ) ;
1406 ! FUNCTION: GetSystemMetrics
1407 ! FUNCTION: GetTabbedTextExtentA
1408 ! FUNCTION: GetTabbedTextExtentW
1409 ! FUNCTION: GetTaskmanWindow
1410 ! FUNCTION: GetThreadDesktop
1411 ! FUNCTION: GetTitleBarInfo
1412
1413
1414 FUNCTION: HWND GetTopWindow ( HWND hWnd ) ;
1415 ! FUNCTION: BOOL GetUpdateRect ( HWND hWnd, LPRECT lpRect, BOOL bErase ) ;
1416 FUNCTION: int GetUpdateRgn ( HWND hWnd, HRGN hRgn, BOOL bErase ) ;
1417
1418
1419 ! FUNCTION: GetUserObjectInformationA
1420 ! FUNCTION: GetUserObjectInformationW
1421 ! FUNCTION: GetUserObjectSecurity
1422 FUNCTION: HWND GetWindow ( HWND hWnd, UINT uCmd ) ;
1423 ! FUNCTION: GetWindowContextHelpId
1424 ! FUNCTION: GetWindowDC
1425 ! FUNCTION: GetWindowInfo
1426 ! FUNCTION: GetWindowLongA
1427 ! FUNCTION: GetWindowLongW
1428 FUNCTION: LONG_PTR GetWindowLongW ( HANDLE hWnd, int index ) ;
1429 ALIAS: GetWindowLong GetWindowLongW
1430
1431 FUNCTION: LONG_PTR GetWindowLongPtr ( HWND hWnd, int nIndex ) ;
1432 ! FUNCTION: GetWindowModuleFileName
1433 ! FUNCTION: GetWindowModuleFileNameA
1434 ! FUNCTION: GetWindowModuleFileNameW
1435 ! FUNCTION: GetWindowPlacement
1436 FUNCTION: BOOL GetWindowRect ( HWND hWnd, LPRECT lpRect ) ;
1437 ! FUNCTION: GetWindowRgn
1438 ! FUNCTION: GetWindowRgnBox
1439 FUNCTION: int GetWindowTextA ( HWND hWnd, char* lpString, int nMaxCount ) ;
1440 ! FUNCTION: GetWindowTextLengthA
1441 ! FUNCTION: GetWindowTextLengthW
1442 ! FUNCTION: GetWindowTextW
1443 FUNCTION: DWORD GetWindowThreadProcessId ( HWND hWnd, void* lpdwProcessId ) ;
1444 ! FUNCTION: GetWindowWord
1445 ! FUNCTION: GetWinStationInfo
1446 ! FUNCTION: GrayStringA
1447 ! FUNCTION: GrayStringW
1448 ! FUNCTION: HideCaret
1449 ! FUNCTION: HiliteMenuItem
1450 ! FUNCTION: ImpersonateDdeClientWindow
1451 ! FUNCTION: IMPGetIMEA
1452 ! FUNCTION: IMPGetIMEW
1453 ! FUNCTION: IMPQueryIMEA
1454 ! FUNCTION: IMPQueryIMEW
1455 ! FUNCTION: IMPSetIMEA
1456 ! FUNCTION: IMPSetIMEW
1457 ! FUNCTION: InflateRect
1458 ! FUNCTION: InitializeLpkHooks
1459 ! FUNCTION: InitializeWin32EntryTable
1460 ! FUNCTION: InSendMessage
1461 ! FUNCTION: InSendMessageEx
1462 ! FUNCTION: InsertMenuA
1463 ! FUNCTION: InsertMenuItemA
1464 ! FUNCTION: InsertMenuItemW
1465 ! FUNCTION: InsertMenuW
1466 ! FUNCTION: InternalGetWindowText
1467 ! FUNCTION: IntersectRect
1468 ! FUNCTION: InvalidateRect
1469 ! FUNCTION: InvalidateRgn
1470 ! FUNCTION: InvertRect
1471 ! FUNCTION: IsCharAlphaA
1472 ! FUNCTION: IsCharAlphaNumericA
1473 ! FUNCTION: IsCharAlphaNumericW
1474 ! FUNCTION: IsCharAlphaW
1475 ! FUNCTION: IsCharLowerA
1476 ! FUNCTION: IsCharLowerW
1477 ! FUNCTION: IsCharUpperA
1478 ! FUNCTION: IsCharUpperW
1479 FUNCTION: BOOL IsChild ( HWND hWndParent, HWND hWnd ) ;
1480 FUNCTION: BOOL IsClipboardFormatAvailable ( UINT format ) ;
1481 ! FUNCTION: IsDialogMessage
1482 ! FUNCTION: IsDialogMessageA
1483 ! FUNCTION: IsDialogMessageW
1484 ! FUNCTION: IsDlgButtonChecked
1485 FUNCTION: BOOL IsGUIThread ( BOOL bConvert ) ;
1486 FUNCTION: BOOL IsHungAppWindow ( HWND hWnd ) ;
1487 FUNCTION: BOOL IsIconic ( HWND hWnd ) ;
1488 FUNCTION: BOOL IsMenu ( HMENU hMenu ) ;
1489 ! FUNCTION: BOOL IsRectEmpty
1490 ! FUNCTION: BOOL IsServerSideWindow
1491 FUNCTION: BOOL IsWindow ( HWND hWnd ) ;
1492 ! FUNCTION: BOOL IsWindowEnabled
1493 ! FUNCTION: BOOL IsWindowInDestroy
1494 FUNCTION: BOOL IsWindowUnicode ( HWND hWnd ) ;
1495 FUNCTION: BOOL IsWindowVisible ( HWND hWnd ) ;
1496 ! FUNCTION: BOOL IsWinEventHookInstalled
1497 FUNCTION: BOOL IsZoomed ( HWND hWnd ) ;
1498 ! FUNCTION: keybd_event
1499 ! FUNCTION: KillSystemTimer
1500 ! FUNCTION: KillTimer
1501 ! FUNCTION: LoadAcceleratorsA
1502 FUNCTION: HACCEL LoadAcceleratorsW ( HINSTANCE hInstance, LPCTSTR lpTableName ) ;
1503 ! FUNCTION: LoadBitmapA
1504 ! FUNCTION: LoadBitmapW
1505 ! FUNCTION: LoadCursorFromFileA
1506 ! FUNCTION: LoadCursorFromFileW
1507
1508
1509 ! FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, LPCWSTR lpCursorName ) ;
1510 FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, ushort lpCursorName ) ;
1511 ALIAS: LoadCursor LoadCursorW
1512
1513 ! FUNCTION: HICON LoadIconA ( HINSTANCE hInstance, LPCTSTR lpIconName ) ;
1514 FUNCTION: HICON LoadIconW ( HINSTANCE hInstance, LPCTSTR lpIconName ) ;
1515 ALIAS: LoadIcon LoadIconW
1516
1517 ! FUNCTION: LoadImageA
1518 ! FUNCTION: LoadImageW
1519 ! FUNCTION: LoadKeyboardLayoutA
1520 ! FUNCTION: LoadKeyboardLayoutEx
1521 ! FUNCTION: LoadKeyboardLayoutW
1522 ! FUNCTION: LoadLocalFonts
1523 ! FUNCTION: LoadMenuA
1524 ! FUNCTION: LoadMenuIndirectA
1525 ! FUNCTION: LoadMenuIndirectW
1526 ! FUNCTION: LoadMenuW
1527 ! FUNCTION: LoadRemoteFonts
1528 ! FUNCTION: LoadStringA
1529 ! FUNCTION: LoadStringW
1530 ! FUNCTION: LockSetForegroundWindow
1531 ! FUNCTION: LockWindowStation
1532 ! FUNCTION: LockWindowUpdate
1533 ! FUNCTION: LockWorkStation
1534 ! FUNCTION: LookupIconIdFromDirectory
1535 ! FUNCTION: LookupIconIdFromDirectoryEx
1536 ! FUNCTION: MapDialogRect
1537
1538 FUNCTION: UINT MapVirtualKeyW ( UINT uCode, UINT uMapType ) ;
1539 ALIAS: MapVirtualKey MapVirtualKeyW
1540
1541 FUNCTION: UINT MapVirtualKeyExW ( UINT uCode, UINT uMapType, HKL dwhkl ) ;
1542 ALIAS: MapVirtualKeyEx MapVirtualKeyExW
1543
1544 ! FUNCTION: MapWindowPoints
1545 ! FUNCTION: MB_GetString
1546 ! FUNCTION: MBToWCSEx
1547 ! FUNCTION: MenuItemFromPoint
1548 ! FUNCTION: MenuWindowProcA
1549 ! FUNCTION: MenuWindowProcW
1550
1551 ! -1 is Simple beep
1552 FUNCTION: BOOL MessageBeep ( UINT uType ) ;
1553
1554 FUNCTION: int MessageBoxA (
1555                 HWND hWnd,
1556                 LPCSTR lpText,
1557                 LPCSTR lpCaption,
1558                 UINT uType ) ;
1559
1560 FUNCTION: int MessageBoxW (
1561                 HWND hWnd,
1562                 LPCWSTR lpText,
1563                 LPCWSTR lpCaption,
1564                 UINT uType) ;
1565
1566 FUNCTION: int MessageBoxExA ( HWND hWnd,
1567                 LPCSTR lpText,
1568                 LPCSTR lpCaption,
1569                 UINT uType,
1570                 WORD wLanguageId
1571                 ) ;
1572
1573 FUNCTION: int MessageBoxExW (
1574                 HWND hWnd,
1575                 LPCWSTR lpText,
1576                 LPCWSTR lpCaption,
1577                 UINT uType,
1578                 WORD wLanguageId ) ;
1579
1580 ! FUNCTION: int MessageBoxIndirectA ( MSGBOXPARAMSA* params ) ;
1581 ! FUNCTION: int MessageBoxIndirectW ( MSGBOXPARAMSW* params ) ;
1582
1583
1584 ALIAS: MessageBox MessageBoxW
1585
1586 ALIAS: MessageBoxEx MessageBoxExW
1587
1588 ! : MessageBoxIndirect
1589     ! \ MessageBoxIndirectW \ MessageBoxIndirectA unicode-exec ;
1590
1591 ! FUNCTION: MessageBoxTimeoutA ! dllexported, not in header
1592 ! FUNCTION: MessageBoxTimeoutW ! dllexported, not in header
1593
1594 ! FUNCTION: ModifyMenuA
1595 ! FUNCTION: ModifyMenuW
1596 ! FUNCTION: MonitorFromPoint
1597 ! FUNCTION: MonitorFromRect
1598 FUNCTION: HMONITOR MonitorFromWindow ( HWND hWnd, DWORD dwFlags ) ;
1599 ! FUNCTION: mouse_event
1600
1601
1602 FUNCTION: BOOL MoveWindow (
1603     HWND hWnd,
1604     int X,
1605     int Y,
1606     int nWidth,
1607     int nHeight,
1608     BOOL bRepaint ) ;
1609
1610 ! FUNCTION: MsgWaitForMultipleObjects
1611 ! FUNCTION: MsgWaitForMultipleObjectsEx
1612 ! FUNCTION: NotifyWinEvent
1613 ! FUNCTION: OemKeyScan
1614 ! FUNCTION: OemToCharA
1615 ! FUNCTION: OemToCharBuffA
1616 ! FUNCTION: OemToCharBuffW
1617 ! FUNCTION: OemToCharW
1618 ! FUNCTION: OffsetRect
1619 FUNCTION: BOOL OpenClipboard ( HWND hWndNewOwner ) ;
1620 ! FUNCTION: OpenDesktopA
1621 ! FUNCTION: OpenDesktopW
1622 ! FUNCTION: OpenIcon
1623 ! FUNCTION: OpenInputDesktop
1624 ! FUNCTION: OpenWindowStationA
1625 ! FUNCTION: OpenWindowStationW
1626 ! FUNCTION: PackDDElParam
1627 ! FUNCTION: PaintDesktop
1628 ! FUNCTION: PaintMenuBar
1629 FUNCTION: BOOL PeekMessageA ( LPMSG lpMsg, HWND hWnd, UINT wMsgFilterMin, UINT wMsgFilterMax, UINT wRemoveMsg ) ;
1630 FUNCTION: BOOL PeekMessageW ( LPMSG lpMsg, HWND hWnd, UINT wMsgFilterMin, UINT wMsgFilterMax, UINT wRemoveMsg ) ;
1631 ALIAS: PeekMessage PeekMessageW
1632
1633 ! FUNCTION: PostMessageA
1634 ! FUNCTION: PostMessageW
1635 FUNCTION: void PostQuitMessage ( int nExitCode ) ;
1636 ! FUNCTION: PostThreadMessageA
1637 ! FUNCTION: PostThreadMessageW
1638 ! FUNCTION: PrintWindow
1639 ! FUNCTION: PrivateExtractIconExA
1640 ! FUNCTION: PrivateExtractIconExW
1641 ! FUNCTION: PrivateExtractIconsA
1642 ! FUNCTION: PrivateExtractIconsW
1643 ! FUNCTION: PrivateSetDbgTag
1644 ! FUNCTION: PrivateSetRipFlags
1645 ! FUNCTION: PtInRect
1646 ! FUNCTION: QuerySendMessage
1647 ! FUNCTION: QueryUserCounters
1648 ! FUNCTION: RealChildWindowFromPoint
1649 ! FUNCTION: RealGetWindowClass
1650 ! FUNCTION: RealGetWindowClassA
1651 ! FUNCTION: RealGetWindowClassW
1652 ! FUNCTION: ReasonCodeNeedsBugID
1653 ! FUNCTION: ReasonCodeNeedsComment
1654 ! FUNCTION: RecordShutdownReason
1655 ! FUNCTION: RedrawWindow
1656
1657 FUNCTION: ATOM RegisterClassA ( WNDCLASS* lpWndClass ) ;
1658 FUNCTION: ATOM RegisterClassW ( WNDCLASS* lpWndClass ) ;
1659 FUNCTION: ATOM RegisterClassExA ( WNDCLASSEX* lpwcx ) ;
1660 FUNCTION: ATOM RegisterClassExW ( WNDCLASSEX* lpwcx ) ;
1661
1662 ALIAS: RegisterClass RegisterClassW
1663 ALIAS: RegisterClassEx RegisterClassExW
1664
1665 ! FUNCTION: RegisterClipboardFormatA
1666 ! FUNCTION: RegisterClipboardFormatW
1667 FUNCTION: HANDLE RegisterDeviceNotificationA ( HANDLE hRecipient, LPVOID NotificationFilter, DWORD Flags ) ;
1668 FUNCTION: HANDLE RegisterDeviceNotificationW ( HANDLE hRecipient, LPVOID NotificationFilter, DWORD Flags ) ;
1669 ALIAS: RegisterDeviceNotification RegisterDeviceNotificationW
1670 ! FUNCTION: RegisterHotKey
1671 ! FUNCTION: RegisterLogonProcess
1672 ! FUNCTION: RegisterMessagePumpHook
1673 FUNCTION: BOOL RegisterRawInputDevices ( PCRAWINPUTDEVICE pRawInputDevices, UINT uiNumDevices, UINT cbSize ) ;
1674 ! FUNCTION: RegisterServicesProcess
1675 ! FUNCTION: RegisterShellHookWindow
1676 ! FUNCTION: RegisterSystemThread
1677 ! FUNCTION: RegisterTasklist
1678 ! FUNCTION: RegisterUserApiHook
1679 ! FUNCTION: RegisterWindowMessageA
1680 ! FUNCTION: RegisterWindowMessageW
1681 FUNCTION: BOOL ReleaseCapture ( ) ;
1682 FUNCTION: int ReleaseDC ( HWND hWnd, HDC hDC ) ;
1683 ! FUNCTION: RemoveMenu
1684 ! FUNCTION: RemovePropA
1685 ! FUNCTION: RemovePropW
1686 ! FUNCTION: ReplyMessage
1687 ! FUNCTION: ResolveDesktopForWOW
1688 ! FUNCTION: ReuseDDElParam
1689 ! FUNCTION: ScreenToClient
1690 ! FUNCTION: ScrollChildren
1691 ! FUNCTION: ScrollDC
1692 ! FUNCTION: ScrollWindow
1693 ! FUNCTION: ScrollWindowEx
1694 ! FUNCTION: SendDlgItemMessageA
1695 ! FUNCTION: SendDlgItemMessageW
1696 ! FUNCTION: SendIMEMessageExA
1697 ! FUNCTION: SendIMEMessageExW
1698 ! FUNCTION: UINT SendInput ( UINT nInputs, LPINPUT pInputs, int cbSize ) ;
1699 FUNCTION: LRESULT SendMessageW ( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam ) ;
1700 ALIAS: SendMessage SendMessageW
1701 ! FUNCTION: SendMessageCallbackA
1702 ! FUNCTION: SendMessageCallbackW
1703 ! FUNCTION: SendMessageTimeoutA
1704 ! FUNCTION: SendMessageTimeoutW
1705 ! FUNCTION: SendNotifyMessageA
1706 ! FUNCTION: SendNotifyMessageW
1707 ! FUNCTION: SetActiveWindow
1708 FUNCTION: HWND SetCapture ( HWND hWnd ) ;
1709 ! FUNCTION: SetCaretBlinkTime
1710 ! FUNCTION: SetCaretPos
1711
1712 FUNCTION: ULONG_PTR SetClassLongW ( HWND hWnd, int nIndex, LONG_PTR dwNewLong ) ;
1713 ALIAS: SetClassLongPtr SetClassLongW
1714 ALIAS: SetClassLong SetClassLongW
1715
1716 ! FUNCTION: SetClassWord
1717 FUNCTION: HANDLE SetClipboardData ( UINT uFormat, HANDLE hMem ) ;
1718 ! FUNCTION: SetClipboardViewer
1719 ! FUNCTION: SetConsoleReserveKeys
1720 ! FUNCTION: SetCursor
1721 ! FUNCTION: SetCursorContents
1722 ! FUNCTION: SetCursorPos
1723 ! FUNCTION: SetDebugErrorLevel
1724 ! FUNCTION: SetDeskWallpaper
1725 ! FUNCTION: SetDlgItemInt
1726 ! FUNCTION: SetDlgItemTextA
1727 ! FUNCTION: SetDlgItemTextW
1728 ! FUNCTION: SetDoubleClickTime
1729 FUNCTION: HWND SetFocus ( HWND hWnd ) ;
1730 FUNCTION: BOOL SetForegroundWindow ( HWND hWnd ) ;
1731 ! FUNCTION: SetInternalWindowPos
1732 ! FUNCTION: SetKeyboardState
1733 ! type is ignored
1734 FUNCTION: void SetLastErrorEx ( DWORD dwErrCode, DWORD dwType ) ;
1735 : SetLastError ( errcode -- ) 0 SetLastErrorEx ; inline
1736 ! FUNCTION: SetLayeredWindowAttributes
1737 ! FUNCTION: SetLogonNotifyWindow
1738 ! FUNCTION: SetMenu
1739 ! FUNCTION: SetMenuContextHelpId
1740 ! FUNCTION: SetMenuDefaultItem
1741 ! FUNCTION: SetMenuInfo
1742 ! FUNCTION: SetMenuItemBitmaps
1743 ! FUNCTION: SetMenuItemInfoA
1744 ! FUNCTION: SetMenuItemInfoW
1745 ! FUNCTION: SetMessageExtraInfo
1746 ! FUNCTION: SetMessageQueue
1747 ! FUNCTION: SetParent
1748 ! FUNCTION: SetProcessDefaultLayout
1749 ! FUNCTION: SetProcessWindowStation
1750 ! FUNCTION: SetProgmanWindow
1751 ! FUNCTION: SetPropA
1752 ! FUNCTION: SetPropW
1753 ! FUNCTION: SetRect
1754 ! FUNCTION: SetRectEmpty
1755 ! FUNCTION: SetScrollInfo
1756 ! FUNCTION: SetScrollPos
1757 ! FUNCTION: SetScrollRange
1758 ! FUNCTION: SetShellWindow
1759 ! FUNCTION: SetShellWindowEx
1760 ! FUNCTION: SetSysColors
1761 ! FUNCTION: SetSysColorsTemp
1762 ! FUNCTION: SetSystemCursor
1763 ! FUNCTION: SetSystemMenu
1764 ! FUNCTION: SetSystemTimer
1765 ! FUNCTION: SetTaskmanWindow
1766 ! FUNCTION: SetThreadDesktop
1767 ! FUNCTION: SetTimer
1768 ! FUNCTION: SetUserObjectInformationA
1769 ! FUNCTION: SetUserObjectInformationW
1770 ! FUNCTION: SetUserObjectSecurity
1771 ! FUNCTION: SetWindowContextHelpId
1772 ! FUNCTION: SetWindowLongA
1773 ! FUNCTION: SetWindowLongW
1774 FUNCTION: LONG_PTR SetWindowLongW ( HANDLE hWnd, int index, LONG_PTR dwNewLong ) ;
1775 ALIAS: SetWindowLong SetWindowLongW
1776 ! FUNCTION: SetWindowPlacement
1777 FUNCTION: BOOL SetWindowPos ( HWND hWnd, HWND hWndInsertAfter, int X, int Y, int cx, int cy, UINT uFlags ) ;
1778
1779 FUNCTION: LONG_PTR SetWindowLongPtr ( HWND hWnd, int nIndex, LONG_PTR dwNewLong ) ;
1780
1781 : HWND_BOTTOM ( -- alien ) 1 <alien> ;
1782 : HWND_NOTOPMOST ( -- alien ) -2 <alien> ;
1783 CONSTANT: HWND_TOP f
1784 : HWND_TOPMOST ( -- alien ) -1 <alien> ;
1785
1786 ! FUNCTION: SetWindowRgn
1787 ! FUNCTION: SetWindowsHookA
1788 ! FUNCTION: SetWindowsHookExA
1789 ! FUNCTION: SetWindowsHookExW
1790 ! FUNCTION: SetWindowsHookW
1791 ! FUNCTION: SetWindowStationUser
1792 ! FUNCTION: SetWindowTextA
1793 ! FUNCTION: SetWindowTextW
1794 ! FUNCTION: SetWindowWord
1795 ! FUNCTION: SetWinEventHook
1796 ! FUNCTION: ShowCaret
1797 FUNCTION: int ShowCursor ( BOOL show ) ;
1798 ! FUNCTION: ShowOwnedPopups
1799 ! FUNCTION: ShowScrollBar
1800 ! FUNCTION: ShowStartGlass
1801
1802 FUNCTION: BOOL ShowWindow ( HWND hWnd, int nCmdShow ) ;
1803
1804 ! FUNCTION: ShowWindowAsync
1805 ! FUNCTION: SoftModalMessageBox
1806 ! FUNCTION: SubtractRect
1807 ! FUNCTION: SwapMouseButton
1808 ! FUNCTION: SwitchDesktop
1809 ! FUNCTION: SwitchToThisWindow
1810 ! FUNCTION: SystemParametersInfoA
1811
1812 FUNCTION: BOOL SystemParametersInfoW ( UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni ) ;
1813 ALIAS: SystemParametersInfo SystemParametersInfoW
1814
1815 ! FUNCTION: TabbedTextOutA
1816 ! FUNCTION: TabbedTextOutW
1817 ! FUNCTION: TileChildWindows
1818 ! FUNCTION: TileWindows
1819 ! FUNCTION: ToAscii
1820 ! FUNCTION: ToAsciiEx
1821 ! FUNCTION: ToUnicode
1822 ! FUNCTION: ToUnicodeEx
1823 FUNCTION: BOOL TrackMouseEvent ( LPTRACKMOUSEEVENT lpEventTrack ) ;
1824 ! FUNCTION: TrackPopupMenu
1825 ! FUNCTION: TrackPopupMenuEx
1826 ! FUNCTION: TranslateAccelerator
1827 ! FUNCTION: TranslateAcceleratorA
1828 FUNCTION: int TranslateAcceleratorW ( HWND hWnd, HACCEL hAccTable, LPMSG lpMsg ) ;
1829 ALIAS: TranslateAccelerator TranslateAcceleratorW
1830
1831 ! FUNCTION: TranslateMDISysAccel
1832 FUNCTION: BOOL TranslateMessage ( MSG* lpMsg ) ;
1833
1834 ! FUNCTION: UnhookWindowsHook
1835 ! FUNCTION: UnhookWindowsHookEx
1836 ! FUNCTION: UnhookWinEvent
1837 ! FUNCTION: UnionRect
1838 ! FUNCTION: UnloadKeyboardLayout
1839 ! FUNCTION: UnlockWindowStation
1840 ! FUNCTION: UnpackDDElParam
1841 FUNCTION: BOOL UnregisterClassW ( LPCWSTR lpClassName, HINSTANCE hInstance ) ;
1842 ALIAS: UnregisterClass UnregisterClassW
1843 FUNCTION: BOOL UnregisterDeviceNotification ( HANDLE hDevNotify ) ;
1844 ! FUNCTION: UnregisterHotKey
1845 ! FUNCTION: UnregisterMessagePumpHook
1846 ! FUNCTION: UnregisterUserApiHook
1847 ! FUNCTION: UpdateLayeredWindow
1848 ! FUNCTION: UpdatePerUserSystemParameters
1849
1850 FUNCTION: BOOL UpdateWindow ( HWND hWnd ) ;
1851
1852 ! FUNCTION: User32InitializeImmEntryTable
1853 ! FUNCTION: UserClientDllInitialize
1854 ! FUNCTION: UserHandleGrantAccess
1855 ! FUNCTION: UserLpkPSMTextOut
1856 ! FUNCTION: UserLpkTabbedTextOut
1857 ! FUNCTION: UserRealizePalette
1858 ! FUNCTION: UserRegisterWowHandlers
1859 ! FUNCTION: ValidateRect
1860 ! FUNCTION: ValidateRgn
1861 ! FUNCTION: VkKeyScanA
1862 ! FUNCTION: VkKeyScanExA
1863 ! FUNCTION: VkKeyScanExW
1864 ! FUNCTION: VkKeyScanW
1865 ! FUNCTION: VRipOutput
1866 ! FUNCTION: VTagOutput
1867 ! FUNCTION: WaitForInputIdle
1868 ! FUNCTION: WaitMessage
1869 ! FUNCTION: WCSToMBEx
1870 ! FUNCTION: Win32PoolAllocationStats
1871 ! FUNCTION: WindowFromDC
1872 ! FUNCTION: WindowFromPoint
1873 ! FUNCTION: WinHelpA
1874 ! FUNCTION: WinHelpW
1875 ! FUNCTION: WINNLSEnableIME
1876 ! FUNCTION: WINNLSGetEnableStatus
1877 ! FUNCTION: WINNLSGetIMEHotkey
1878 ! FUNCTION: wsprintfA
1879 ! FUNCTION: wsprintfW
1880 ! FUNCTION: wvsprintfA
1881 ! FUNCTION: wvsprintfW
1882
1883 : msgbox ( str -- )
1884     f swap "DebugMsg" MB_OK MessageBox drop ;