windows/input.c

   1 /*
   2  * USER Input processing
   3  *
   4  * Copyright 1993 Bob Amstadt
   5  * Copyright 1996 Albrecht Kleine
   6  * Copyright 1997 David Faure
   7  * Copyright 1998 Morten Welinder
   8  * Copyright 1998 Ulrich Weigand
   9  *
  10  */
  11
  12 #include <stdlib.h>
  13 #include <string.h>
  14 #include <ctype.h>
  15 #include <assert.h>
  16
  17 #include "winuser.h"
  18 #include "wine/winbase16.h"
  19 #include "wine/winuser16.h"
  20 #include "wine/keyboard16.h"
  21 #include "win.h"
  22 #include "heap.h"
  23 #include "input.h"
  24 #include "keyboard.h"
  25 #include "mouse.h"
  26 #include "message.h"
  27 #include "module.h"
  28 #include "debugtools.h"
  29 #include "struct32.h"
  30 #include "winerror.h"
  31 #include "task.h"
  32
  33 DECLARE_DEBUG_CHANNEL(accel)
  34 DECLARE_DEBUG_CHANNEL(event)
  35 DECLARE_DEBUG_CHANNEL(key)
  36 DECLARE_DEBUG_CHANNEL(keyboard)
  37 DECLARE_DEBUG_CHANNEL(win)
  38
  39 static BOOL InputEnabled = TRUE;
  40 static BOOL SwappedButtons = FALSE;
  41
  42 BOOL MouseButtonsStates[3];
  43 BOOL AsyncMouseButtonsStates[3];
  44 BYTE InputKeyStateTable[256];
  45 BYTE QueueKeyStateTable[256];
  46 BYTE AsyncKeyStateTable[256];
  47
  48 typedef union
  49 {
  50     struct
  51     {
  52         unsigned long count : 16;
  53         unsigned long code : 8;
  54         unsigned long extended : 1;
  55         unsigned long unused : 2;
  56         unsigned long win_internal : 2;
  57         unsigned long context : 1;
  58         unsigned long previous : 1;
  59         unsigned long transition : 1;
  60     } lp1;
  61     unsigned long lp2;
  62 } KEYLP;
  63
  64 /***********************************************************************
  65  *           keybd_event   (USER32.583)
  66  */
  67 void WINAPI keybd_event( BYTE bVk, BYTE bScan,
  68                          DWORD dwFlags, DWORD dwExtraInfo )
  69 {
  70     DWORD posX, posY, time, extra;
  71     WORD message;
  72     KEYLP keylp;
  73     keylp.lp2 = 0;
  74
  75     if (!InputEnabled) return;
  76
  77     /*
  78      * If we are called by the Wine keyboard driver, use the additional
  79      * info pointed to by the dwExtraInfo argument.
  80      * Otherwise, we need to determine that info ourselves (probably
  81      * less accurate, but we can't help that ...).
  82      */
  83     if (   !IsBadReadPtr( (LPVOID)dwExtraInfo, sizeof(WINE_KEYBDEVENT) )
  84         && ((WINE_KEYBDEVENT *)dwExtraInfo)->magic == WINE_KEYBDEVENT_MAGIC )
  85     {
  86         WINE_KEYBDEVENT *wke = (WINE_KEYBDEVENT *)dwExtraInfo;
  87         posX = wke->posX;
  88         posY = wke->posY;
  89         time = wke->time;
  90         extra = 0;
  91     }
  92     else
  93     {
  94         DWORD keyState;
  95         time = GetTickCount();
  96         extra = dwExtraInfo;
  97
  98         if ( !EVENT_QueryPointer( &posX, &posY, &keyState ))
  99             return;
 100     }
 101
 102
 103     keylp.lp1.count = 1;
 104     keylp.lp1.code = bScan;
 105     keylp.lp1.extended = (dwFlags & KEYEVENTF_EXTENDEDKEY) != 0;
 106     keylp.lp1.win_internal = 0; /* this has something to do with dialogs,
 107                                 * don't remember where I read it - AK */
 108                                 /* it's '1' under windows, when a dialog box appears
 109                                  * and you press one of the underlined keys - DF*/
 110
 111     if ( dwFlags & KEYEVENTF_KEYUP )
 112     {
 113         BOOL sysKey = (InputKeyStateTable[VK_MENU] & 0x80)
 114                 && !(InputKeyStateTable[VK_CONTROL] & 0x80)
 115                 && !(dwFlags & KEYEVENTF_WINE_FORCEEXTENDED); /* for Alt from AltGr */
 116
 117         InputKeyStateTable[bVk] &= ~0x80;
 118         keylp.lp1.previous = 1;
 119         keylp.lp1.transition = 1;
 120         message = sysKey ? WM_SYSKEYUP : WM_KEYUP;
 121     }
 122     else
 123     {
 124         keylp.lp1.previous = (InputKeyStateTable[bVk] & 0x80) != 0;
 125         keylp.lp1.transition = 0;
 126
 127         if (!(InputKeyStateTable[bVk] & 0x80))
 128             InputKeyStateTable[bVk] ^= 0x01;
 129         InputKeyStateTable[bVk] |= 0x80;
 130
 131         message = (InputKeyStateTable[VK_MENU] & 0x80)
 132               && !(InputKeyStateTable[VK_CONTROL] & 0x80)
 133               ? WM_SYSKEYDOWN : WM_KEYDOWN;
 134     }
 135
 136     if ( message == WM_SYSKEYDOWN || message == WM_SYSKEYUP )
 137         keylp.lp1.context = (InputKeyStateTable[VK_MENU] & 0x80) != 0; /* 1 if alt */
 138
 139
 140     TRACE_(key)("            wParam=%04X, lParam=%08lX\n", bVk, keylp.lp2 );
 141     TRACE_(key)("            InputKeyState=%X\n", InputKeyStateTable[bVk] );
 142
 143     hardware_event( message, bVk, keylp.lp2, posX, posY, time, extra );
 144 }
 145
 146 /***********************************************************************
 147  *           WIN16_keybd_event   (USER.289)
 148  */
 149 void WINAPI WIN16_keybd_event( CONTEXT86 *context )
 150 {
 151     DWORD dwFlags = 0;
 152
 153     if (AH_reg(context) & 0x80) dwFlags |= KEYEVENTF_KEYUP;
 154     if (BH_reg(context) & 1   ) dwFlags |= KEYEVENTF_EXTENDEDKEY;
 155
 156     keybd_event( AL_reg(context), BL_reg(context),
 157                  dwFlags, MAKELONG(SI_reg(context), DI_reg(context)) );
 158 }
 159
 160 /***********************************************************************
 161  *           mouse_event   (USER32.584)
 162  */
 163 void WINAPI mouse_event( DWORD dwFlags, DWORD dx, DWORD dy,
 164                          DWORD cButtons, DWORD dwExtraInfo )
 165 {
 166     DWORD posX, posY, keyState, time, extra;
 167
 168     if (!InputEnabled) return;
 169
 170     /*
 171      * If we are called by the Wine mouse driver, use the additional
 172      * info pointed to by the dwExtraInfo argument.
 173      * Otherwise, we need to determine that info ourselves (probably
 174      * less accurate, but we can't help that ...).
 175      */
 176     if (   !IsBadReadPtr( (LPVOID)dwExtraInfo, sizeof(WINE_MOUSEEVENT) )
 177         && ((WINE_MOUSEEVENT *)dwExtraInfo)->magic == WINE_MOUSEEVENT_MAGIC )
 178     {
 179         WINE_MOUSEEVENT *wme = (WINE_MOUSEEVENT *)dwExtraInfo;
 180         keyState = wme->keyState;
 181         time = wme->time;
 182         extra = (DWORD)wme->hWnd;
 183
 184         assert( dwFlags & MOUSEEVENTF_ABSOLUTE );
 185         posX = (dx * GetSystemMetrics(SM_CXSCREEN)) >> 16;
 186         posY = (dy * GetSystemMetrics(SM_CYSCREEN)) >> 16;
 187     }
 188     else
 189     {
 190         time = GetTickCount();
 191         extra = dwExtraInfo;
 192
 193         if ( !EVENT_QueryPointer( &posX, &posY, &keyState ))
 194             return;
 195
 196         if ( dwFlags & MOUSEEVENTF_MOVE )
 197         {
 198             if ( dwFlags & MOUSEEVENTF_ABSOLUTE )
 199             {
 200                 posX = (dx * GetSystemMetrics(SM_CXSCREEN)) >> 16;
 201                 posY = (dy * GetSystemMetrics(SM_CYSCREEN)) >> 16;
 202             }
 203             else
 204             {
 205                 posX += dx;
 206                 posY += dy;
 207             }
 208             /* We have to actually move the cursor */
 209             SetCursorPos( posX, posY );
 210         }
 211     }
 212
 213     if ( dwFlags & MOUSEEVENTF_MOVE )
 214     {
 215         hardware_event( WM_MOUSEMOVE,
 216                         keyState, 0L, posX, posY, time, extra );
 217     }
 218     if ( dwFlags & (!SwappedButtons? MOUSEEVENTF_LEFTDOWN : MOUSEEVENTF_RIGHTDOWN) )
 219     {
 220         MouseButtonsStates[0] = AsyncMouseButtonsStates[0] = TRUE;
 221         hardware_event( WM_LBUTTONDOWN,
 222                         keyState, 0L, posX, posY, time, extra );
 223     }
 224     if ( dwFlags & (!SwappedButtons? MOUSEEVENTF_LEFTUP : MOUSEEVENTF_RIGHTUP) )
 225     {
 226         MouseButtonsStates[0] = FALSE;
 227         hardware_event( WM_LBUTTONUP,
 228                         keyState, 0L, posX, posY, time, extra );
 229     }
 230     if ( dwFlags & (!SwappedButtons? MOUSEEVENTF_RIGHTDOWN : MOUSEEVENTF_LEFTDOWN) )
 231     {
 232         MouseButtonsStates[2] = AsyncMouseButtonsStates[2] = TRUE;
 233         hardware_event( WM_RBUTTONDOWN,
 234                         keyState, 0L, posX, posY, time, extra );
 235     }
 236     if ( dwFlags & (!SwappedButtons? MOUSEEVENTF_RIGHTUP : MOUSEEVENTF_LEFTUP) )
 237     {
 238         MouseButtonsStates[2] = FALSE;
 239         hardware_event( WM_RBUTTONUP,
 240                         keyState, 0L, posX, posY, time, extra );
 241     }
 242     if ( dwFlags & MOUSEEVENTF_MIDDLEDOWN )
 243     {
 244         MouseButtonsStates[1] = AsyncMouseButtonsStates[1] = TRUE;
 245         hardware_event( WM_MBUTTONDOWN,
 246                         keyState, 0L, posX, posY, time, extra );
 247     }
 248     if ( dwFlags & MOUSEEVENTF_MIDDLEUP )
 249     {
 250         MouseButtonsStates[1] = FALSE;
 251         hardware_event( WM_MBUTTONUP,
 252                         keyState, 0L, posX, posY, time, extra );
 253     }
 254 }
 255
 256 /***********************************************************************
 257  *           WIN16_mouse_event   (USER.299)
 258  */
 259 void WINAPI WIN16_mouse_event( CONTEXT86 *context )
 260 {
 261     mouse_event( AX_reg(context), BX_reg(context), CX_reg(context),
 262                  DX_reg(context), MAKELONG(SI_reg(context), DI_reg(context)) );
 263 }
 264
 265 /***********************************************************************
 266  *           GetMouseEventProc   (USER.337)
 267  */
 268 FARPROC16 WINAPI GetMouseEventProc16(void)
 269 {
 270     HMODULE16 hmodule = GetModuleHandle16("USER");
 271     return NE_GetEntryPoint( hmodule, NE_GetOrdinal( hmodule, "mouse_event" ));
 272 }
 273
 274
 275 /**********************************************************************
 276  *                      EnableHardwareInput   (USER.331)
 277  */
 278 BOOL16 WINAPI EnableHardwareInput16(BOOL16 bEnable)
 279 {
 280   BOOL16 bOldState = InputEnabled;
 281   FIXME_(event)("(%d) - stub\n", bEnable);
 282   InputEnabled = bEnable;
 283   return bOldState;
 284 }
 285
 286
 287 /***********************************************************************
 288  *           SwapMouseButton16   (USER.186)
 289  */
 290 BOOL16 WINAPI SwapMouseButton16( BOOL16 fSwap )
 291 {
 292     BOOL16 ret = SwappedButtons;
 293     SwappedButtons = fSwap;
 294     return ret;
 295 }
 296
 297
 298 /***********************************************************************
 299  *           SwapMouseButton32   (USER32.537)
 300  */
 301 BOOL WINAPI SwapMouseButton( BOOL fSwap )
 302 {
 303     BOOL ret = SwappedButtons;
 304     SwappedButtons = fSwap;
 305     return ret;
 306 }
 307
 308 /**********************************************************************
 309  *              EVENT_Capture
 310  *
 311  * We need this to be able to generate double click messages
 312  * when menu code captures mouse in the window without CS_DBLCLK style.
 313  */
 314 HWND EVENT_Capture(HWND hwnd, INT16 ht)
 315 {
 316     HWND capturePrev = 0, captureWnd = 0;
 317     MESSAGEQUEUE *pMsgQ = 0, *pCurMsgQ = 0;
 318     WND* wndPtr = 0;
 319     INT16 captureHT = 0;
 320
 321     /* Get the messageQ for the current thread */
 322     if (!(pCurMsgQ = (MESSAGEQUEUE *)QUEUE_Lock( GetFastQueue16() )))
 323     {
 324         WARN_(win)("\tCurrent message queue not found. Exiting!\n" );
 325         goto CLEANUP;
 326     }
 327
 328     /* Get the current capture window from the perQ data of the current message Q */
 329     capturePrev = PERQDATA_GetCaptureWnd( pCurMsgQ->pQData );
 330
 331     if (!hwnd)
 332     {
 333         captureWnd = 0L;
 334         captureHT = 0;
 335     }
 336     else
 337     {
 338         wndPtr = WIN_FindWndPtr( hwnd );
 339         if (wndPtr)
 340         {
 341             TRACE_(win)("(0x%04x)\n", hwnd );
 342             captureWnd   = hwnd;
 343             captureHT    = ht;
 344         }
 345     }
 346
 347     /* Update the perQ capture window and send messages */
 348     if( capturePrev != captureWnd )
 349     {
 350         if (wndPtr)
 351         {
 352             /* Retrieve the message queue associated with this window */
 353             pMsgQ = (MESSAGEQUEUE *)QUEUE_Lock( wndPtr->hmemTaskQ );
 354             if ( !pMsgQ )
 355             {
 356                 WARN_(win)("\tMessage queue not found. Exiting!\n" );
 357                 goto CLEANUP;
 358             }
 359
 360             /* Make sure that message queue for the window we are setting capture to
 361              * shares the same perQ data as the current threads message queue.
 362              */
 363             if ( pCurMsgQ->pQData != pMsgQ->pQData )
 364                 goto CLEANUP;
 365         }
 366
 367         PERQDATA_SetCaptureWnd( pCurMsgQ->pQData, captureWnd );
 368         PERQDATA_SetCaptureInfo( pCurMsgQ->pQData, captureHT );
 369
 370         if( capturePrev )
 371     {
 372         WND* wndPtr = WIN_FindWndPtr( capturePrev );
 373         if( wndPtr && (wndPtr->flags & WIN_ISWIN32) )
 374             SendMessageA( capturePrev, WM_CAPTURECHANGED, 0L, hwnd);
 375             WIN_ReleaseWndPtr(wndPtr);
 376     }
 377 }
 378
 379 CLEANUP:
 380     /* Unlock the queues before returning */
 381     if ( pMsgQ )
 382         QUEUE_Unlock( pMsgQ );
 383     if ( pCurMsgQ )
 384         QUEUE_Unlock( pCurMsgQ );
 385
 386     WIN_ReleaseWndPtr(wndPtr);
 387     return capturePrev;
 388 }
 389
 390
 391 /**********************************************************************
 392  *              SetCapture16   (USER.18)
 393  */
 394 HWND16 WINAPI SetCapture16( HWND16 hwnd )
 395 {
 396     return (HWND16)EVENT_Capture( hwnd, HTCLIENT );
 397 }
 398
 399
 400 /**********************************************************************
 401  *              SetCapture32   (USER32.464)
 402  */
 403 HWND WINAPI SetCapture( HWND hwnd )
 404 {
 405     return EVENT_Capture( hwnd, HTCLIENT );
 406 }
 407
 408
 409 /**********************************************************************
 410  *              ReleaseCapture   (USER.19) (USER32.439)
 411  */
 412 BOOL WINAPI ReleaseCapture(void)
 413 {
 414     return (EVENT_Capture( 0, 0 ) != 0);
 415 }
 416
 417
 418 /**********************************************************************
 419  *              GetCapture16   (USER.236)
 420  */
 421 HWND16 WINAPI GetCapture16(void)
 422 {
 423     return (HWND16)GetCapture();
 424 }
 425
 426 /**********************************************************************
 427  *              GetCapture32   (USER32.208)
 428  */
 429 HWND WINAPI GetCapture(void)
 430 {
 431     MESSAGEQUEUE *pCurMsgQ = 0;
 432     HWND hwndCapture = 0;
 433
 434     /* Get the messageQ for the current thread */
 435     if (!(pCurMsgQ = (MESSAGEQUEUE *)QUEUE_Lock( GetFastQueue16() )))
 436 {
 437         TRACE_(win)("GetCapture32:  Current message queue not found. Exiting!\n" );
 438         return 0;
 439     }
 440
 441     /* Get the current capture window from the perQ data of the current message Q */
 442     hwndCapture = PERQDATA_GetCaptureWnd( pCurMsgQ->pQData );
 443
 444     QUEUE_Unlock( pCurMsgQ );
 445     return hwndCapture;
 446 }
 447
 448 /**********************************************************************
 449  *           GetKeyState      (USER.106)
 450  */
 451 INT16 WINAPI GetKeyState16(INT16 vkey)
 452 {
 453     return GetKeyState(vkey);
 454 }
 455
 456 /**********************************************************************
 457  *           GetKeyState      (USER32.249)
 458  *
 459  * An application calls the GetKeyState function in response to a
 460  * keyboard-input message.  This function retrieves the state of the key
 461  * at the time the input message was generated.  (SDK 3.1 Vol 2. p 390)
 462  */
 463 SHORT WINAPI GetKeyState(INT vkey)
 464 {
 465     INT retval;
 466
 467     switch (vkey)
 468         {
 469         case VK_LBUTTON : /* VK_LBUTTON is 1 */
 470             retval = MouseButtonsStates[0] ? 0x8000 : 0;
 471             break;
 472         case VK_MBUTTON : /* VK_MBUTTON is 4 */
 473             retval = MouseButtonsStates[1] ? 0x8000 : 0;
 474             break;
 475         case VK_RBUTTON : /* VK_RBUTTON is 2 */
 476             retval = MouseButtonsStates[2] ? 0x8000 : 0;
 477             break;
 478         default :
 479             if (vkey >= 'a' && vkey <= 'z')
 480                 vkey += 'A' - 'a';
 481             retval = ( (WORD)(QueueKeyStateTable[vkey] & 0x80) << 8 ) |
 482                        (WORD)(QueueKeyStateTable[vkey] & 0x01);
 483         }
 484     /* TRACE(key, "(0x%x) -> %x\n", vkey, retval); */
 485     return retval;
 486 }
 487
 488 /**********************************************************************
 489  *           GetKeyboardState      (USER.222)(USER32.254)
 490  *
 491  * An application calls the GetKeyboardState function in response to a
 492  * keyboard-input message.  This function retrieves the state of the keyboard
 493  * at the time the input message was generated.  (SDK 3.1 Vol 2. p 387)
 494  */
 495 BOOL WINAPI GetKeyboardState(LPBYTE lpKeyState)
 496 {
 497     TRACE_(key)("(%p)\n", lpKeyState);
 498     if (lpKeyState != NULL) {
 499         QueueKeyStateTable[VK_LBUTTON] = MouseButtonsStates[0] ? 0x80 : 0;
 500         QueueKeyStateTable[VK_MBUTTON] = MouseButtonsStates[1] ? 0x80 : 0;
 501         QueueKeyStateTable[VK_RBUTTON] = MouseButtonsStates[2] ? 0x80 : 0;
 502         memcpy(lpKeyState, QueueKeyStateTable, 256);
 503     }
 504
 505     return TRUE;
 506 }
 507
 508 /**********************************************************************
 509  *          SetKeyboardState      (USER.223)(USER32.484)
 510  */
 511 BOOL WINAPI SetKeyboardState(LPBYTE lpKeyState)
 512 {
 513     TRACE_(key)("(%p)\n", lpKeyState);
 514     if (lpKeyState != NULL) {
 515         memcpy(QueueKeyStateTable, lpKeyState, 256);
 516         MouseButtonsStates[0] = (QueueKeyStateTable[VK_LBUTTON] != 0);
 517         MouseButtonsStates[1] = (QueueKeyStateTable[VK_MBUTTON] != 0);
 518         MouseButtonsStates[2] = (QueueKeyStateTable[VK_RBUTTON] != 0);
 519     }
 520
 521     return TRUE;
 522 }
 523
 524 /**********************************************************************
 525  *           GetAsyncKeyState32      (USER32.207)
 526  *
 527  *      Determine if a key is or was pressed.  retval has high-order
 528  * bit set to 1 if currently pressed, low-order bit set to 1 if key has
 529  * been pressed.
 530  *
 531  *      This uses the variable AsyncMouseButtonsStates and
 532  * AsyncKeyStateTable (set in event.c) which have the mouse button
 533  * number or key number (whichever is applicable) set to true if the
 534  * mouse or key had been depressed since the last call to
 535  * GetAsyncKeyState.
 536  */
 537 WORD WINAPI GetAsyncKeyState(INT nKey)
 538 {
 539     short retval;
 540
 541     switch (nKey) {
 542      case VK_LBUTTON:
 543         retval = (AsyncMouseButtonsStates[0] ? 0x0001 : 0) |
 544                  (MouseButtonsStates[0] ? 0x8000 : 0);
 545         break;
 546      case VK_MBUTTON:
 547         retval = (AsyncMouseButtonsStates[1] ? 0x0001 : 0) |
 548                  (MouseButtonsStates[1] ? 0x8000 : 0);
 549         break;
 550      case VK_RBUTTON:
 551         retval = (AsyncMouseButtonsStates[2] ? 0x0001 : 0) |
 552                  (MouseButtonsStates[2] ? 0x8000 : 0);
 553         break;
 554      default:
 555         retval = AsyncKeyStateTable[nKey] |
 556                 ((InputKeyStateTable[nKey] & 0x80) ? 0x8000 : 0);
 557         break;
 558     }
 559
 560     /* all states to false */
 561     memset( AsyncMouseButtonsStates, 0, sizeof(AsyncMouseButtonsStates) );
 562     memset( AsyncKeyStateTable, 0, sizeof(AsyncKeyStateTable) );
 563
 564     TRACE_(key)("(%x) -> %x\n", nKey, retval);
 565     return retval;
 566 }
 567
 568 /**********************************************************************
 569  *            GetAsyncKeyState16        (USER.249)
 570  */
 571 WORD WINAPI GetAsyncKeyState16(INT16 nKey)
 572 {
 573     return GetAsyncKeyState(nKey);
 574 }
 575
 576 /***********************************************************************
 577  *              IsUserIdle      (USER.333)
 578  */
 579 BOOL16 WINAPI IsUserIdle16(void)
 580 {
 581     if ( GetAsyncKeyState( VK_LBUTTON ) & 0x8000 )
 582         return FALSE;
 583
 584     if ( GetAsyncKeyState( VK_RBUTTON ) & 0x8000 )
 585         return FALSE;
 586
 587     if ( GetAsyncKeyState( VK_MBUTTON ) & 0x8000 )
 588         return FALSE;
 589
 590     /* Should check for screen saver activation here ... */
 591
 592     return TRUE;
 593 }
 594
 595 /**********************************************************************
 596  *           KBD_translate_accelerator
 597  *
 598  * FIXME: should send some WM_INITMENU or/and WM_INITMENUPOPUP  -messages
 599  */
 600 static BOOL KBD_translate_accelerator(HWND hWnd,LPMSG msg,
 601                                         BYTE fVirt,WORD key,WORD cmd)
 602 {
 603     BOOL        sendmsg = FALSE;
 604
 605     if(msg->wParam == key)
 606     {
 607         if (msg->message == WM_CHAR) {
 608         if ( !(fVirt & FALT) && !(fVirt & FVIRTKEY) )
 609         {
 610           TRACE_(accel)("found accel for WM_CHAR: ('%c')\n",
 611                         msg->wParam&0xff);
 612           sendmsg=TRUE;
 613         }
 614       } else {
 615        if(fVirt & FVIRTKEY) {
 616         INT mask = 0;
 617         TRACE_(accel)("found accel for virt_key %04x (scan %04x)\n",
 618                                msg->wParam,0xff & HIWORD(msg->lParam));
 619         if(GetKeyState(VK_SHIFT) & 0x8000) mask |= FSHIFT;
 620         if(GetKeyState(VK_CONTROL) & 0x8000) mask |= FCONTROL;
 621         if(GetKeyState(VK_MENU) & 0x8000) mask |= FALT;
 622         if(mask == (fVirt & (FSHIFT | FCONTROL | FALT)))
 623           sendmsg=TRUE;
 624         else
 625           TRACE_(accel)(", but incorrect SHIFT/CTRL/ALT-state\n");
 626        }
 627        else
 628        {
 629          if (!(msg->lParam & 0x01000000))  /* no special_key */
 630          {
 631            if ((fVirt & FALT) && (msg->lParam & 0x20000000))
 632            {                                                   /* ^^ ALT pressed */
 633             TRACE_(accel)("found accel for Alt-%c\n", msg->wParam&0xff);
 634             sendmsg=TRUE;
 635            }
 636          }
 637        }
 638       }
 639
 640       if (sendmsg)      /* found an accelerator, but send a message... ? */
 641       {
 642         INT16  iSysStat,iStat,mesg=0;
 643         HMENU16 hMenu;
 644
 645         if (msg->message == WM_KEYUP || msg->message == WM_SYSKEYUP)
 646           mesg=1;
 647         else
 648          if (GetCapture())
 649            mesg=2;
 650          else
 651           if (!IsWindowEnabled(hWnd))
 652             mesg=3;
 653           else
 654           {
 655             WND* wndPtr = WIN_FindWndPtr(hWnd);
 656
 657             hMenu = (wndPtr->dwStyle & WS_CHILD) ? 0 : (HMENU)wndPtr->wIDmenu;
 658             iSysStat = (wndPtr->hSysMenu) ? GetMenuState(GetSubMenu16(wndPtr->hSysMenu, 0),
 659                                             cmd, MF_BYCOMMAND) : -1 ;
 660             iStat = (hMenu) ? GetMenuState(hMenu,
 661                                             cmd, MF_BYCOMMAND) : -1 ;
 662
 663             WIN_ReleaseWndPtr(wndPtr);
 664
 665             if (iSysStat!=-1)
 666             {
 667               if (iSysStat & (MF_DISABLED|MF_GRAYED))
 668                 mesg=4;
 669               else
 670                 mesg=WM_SYSCOMMAND;
 671             }
 672             else
 673             {
 674               if (iStat!=-1)
 675               {
 676                 if (IsIconic(hWnd))
 677                   mesg=5;
 678                 else
 679                 {
 680                  if (iStat & (MF_DISABLED|MF_GRAYED))
 681                    mesg=6;
 682                  else
 683                    mesg=WM_COMMAND;
 684                 }
 685               }
 686               else
 687                mesg=WM_COMMAND;
 688             }
 689           }
 690           if ( mesg==WM_COMMAND || mesg==WM_SYSCOMMAND )
 691           {
 692               TRACE_(accel)(", sending %s, wParam=%0x\n",
 693                   mesg==WM_COMMAND ? "WM_COMMAND" : "WM_SYSCOMMAND",
 694                   cmd);
 695               SendMessageA(hWnd, mesg, cmd, 0x00010000L);
 696           }
 697           else
 698           {
 699            /*  some reasons for NOT sending the WM_{SYS}COMMAND message:
 700             *   #0: unknown (please report!)
 701             *   #1: for WM_KEYUP,WM_SYSKEYUP
 702             *   #2: mouse is captured
 703             *   #3: window is disabled
 704             *   #4: it's a disabled system menu option
 705             *   #5: it's a menu option, but window is iconic
 706             *   #6: it's a menu option, but disabled
 707             */
 708             TRACE_(accel)(", but won't send WM_{SYS}COMMAND, reason is #%d\n",mesg);
 709             if(mesg==0)
 710               ERR_(accel)(" unknown reason - please report!");
 711           }
 712           return TRUE;
 713       }
 714     }
 715     return FALSE;
 716 }
 717
 718 /**********************************************************************
 719  *      TranslateAccelerator32      (USER32.551)(USER32.552)(USER32.553)
 720  */
 721 INT WINAPI TranslateAccelerator(HWND hWnd, HACCEL hAccel, LPMSG msg)
 722 {
 723     /* YES, Accel16! */
 724     LPACCEL16   lpAccelTbl;
 725     int         i;
 726
 727     if (msg == NULL)
 728        {
 729           WARN_(accel)("msg null; should hang here to be win compatible\n");
 730           return 0;
 731        }
 732     if (!hAccel || !(lpAccelTbl = (LPACCEL16) LockResource16(hAccel)))
 733        {
 734           WARN_(accel)("invalid accel handle=%x\n", hAccel);
 735           return 0;
 736        }
 737     if ((msg->message != WM_KEYDOWN &&
 738          msg->message != WM_KEYUP &&
 739          msg->message != WM_SYSKEYDOWN &&
 740          msg->message != WM_SYSKEYUP &&
 741          msg->message != WM_CHAR)) return 0;
 742
 743     TRACE_(accel)("TranslateAccelerators hAccel=%04x, hWnd=%04x,"
 744           "msg->hwnd=%04x, msg->message=%04x, wParam=%08x, lParam=%lx\n",
 745           hAccel,hWnd,msg->hwnd,msg->message,msg->wParam,msg->lParam);
 746
 747     i = 0;
 748     do
 749     {
 750         if (KBD_translate_accelerator(hWnd,msg,lpAccelTbl[i].fVirt,
 751                                       lpAccelTbl[i].key,lpAccelTbl[i].cmd))
 752                 return 1;
 753     } while ((lpAccelTbl[i++].fVirt & 0x80) == 0);
 754     WARN_(accel)("couldn't translate accelerator key\n");
 755     return 0;
 756 }
 757
 758 /**********************************************************************
 759  *           TranslateAccelerator16      (USER.178)
 760  */
 761 INT16 WINAPI TranslateAccelerator16(HWND16 hWnd, HACCEL16 hAccel, LPMSG16 msg)
 762 {
 763     LPACCEL16   lpAccelTbl;
 764     int         i;
 765     MSG msg32;
 766
 767     if (msg == NULL)
 768        {
 769           WARN_(accel)("msg null; should hang here to be win compatible\n");
 770           return 0;
 771        }
 772     if (!hAccel || !(lpAccelTbl = (LPACCEL16) LockResource16(hAccel)))
 773        {
 774           WARN_(accel)("invalid accel handle=%x\n", hAccel);
 775           return 0;
 776        }
 777     if ((msg->message != WM_KEYDOWN &&
 778          msg->message != WM_KEYUP &&
 779          msg->message != WM_SYSKEYDOWN &&
 780          msg->message != WM_SYSKEYUP &&
 781          msg->message != WM_CHAR)) return 0;
 782
 783     TRACE_(accel)("TranslateAccelerators hAccel=%04x, hWnd=%04x,\
 784 msg->hwnd=%04x, msg->message=%04x, wParam=%04x, lParam=%lx\n", hAccel,hWnd,msg->hwnd,msg->message,msg->wParam,msg->lParam);
 785
 786     STRUCT32_MSG16to32(msg,&msg32);
 787
 788     i = 0;
 789     do
 790     {
 791         if (KBD_translate_accelerator(hWnd,&msg32,lpAccelTbl[i].fVirt,
 792                                       lpAccelTbl[i].key,lpAccelTbl[i].cmd))
 793                 return 1;
 794     } while ((lpAccelTbl[i++].fVirt & 0x80) == 0);
 795     WARN_(accel)("couldn't translate accelerator key\n");
 796     return 0;
 797 }
 798
 799
 800 /**********************************************************************
 801  *           VkKeyScanA      (USER32.573)
 802  */
 803 WORD WINAPI VkKeyScanA(CHAR cChar)
 804 {
 805         return VkKeyScan16(cChar);
 806 }
 807
 808 /******************************************************************************
 809  *      VkKeyScanW      (USER32.576)
 810  */
 811 WORD WINAPI VkKeyScanW(WCHAR cChar)
 812 {
 813         return VkKeyScanA((CHAR)cChar); /* FIXME: check unicode */
 814 }
 815
 816 /**********************************************************************
 817  *           VkKeyScanExA      (USER32.574)
 818  */
 819 WORD WINAPI VkKeyScanExA(CHAR cChar, HKL dwhkl)
 820 {
 821                                 /* FIXME: complete workaround this is */
 822                                 return VkKeyScan16(cChar);
 823 }
 824
 825 /******************************************************************************
 826  *      VkKeyScanExW      (USER32.575)
 827  */
 828 WORD WINAPI VkKeyScanExW(WCHAR cChar, HKL dwhkl)
 829 {
 830                                 /* FIXME: complete workaround this is */
 831                                 return VkKeyScanA((CHAR)cChar); /* FIXME: check unicode */
 832 }
 833
 834 /******************************************************************************
 835  *      GetKeyboardType32      (USER32.255)
 836  */
 837 INT WINAPI GetKeyboardType(INT nTypeFlag)
 838 {
 839   return GetKeyboardType16(nTypeFlag);
 840 }
 841
 842 /******************************************************************************
 843  *      MapVirtualKey32A      (USER32.383)
 844  */
 845 UINT WINAPI MapVirtualKeyA(UINT code, UINT maptype)
 846 {
 847     return MapVirtualKey16(code,maptype);
 848 }
 849
 850 /******************************************************************************
 851  *      MapVirtualKey32W      (USER32.385)
 852  */
 853 UINT WINAPI MapVirtualKeyW(UINT code, UINT maptype)
 854 {
 855     return MapVirtualKey16(code,maptype);
 856 }
 857
 858 /******************************************************************************
 859  *      MapVirtualKeyEx32A      (USER32.384)
 860  */
 861 UINT WINAPI MapVirtualKeyEx32A(UINT code, UINT maptype, HKL hkl)
 862 {
 863     if (hkl)
 864         FIXME_(keyboard)("(%d,%d,0x%08lx), hkl unhandled!\n",code,maptype,(DWORD)hkl);
 865     return MapVirtualKey16(code,maptype);
 866 }
 867
 868 /****************************************************************************
 869  *      GetKBCodePage32   (USER32.246)
 870  */
 871 UINT WINAPI GetKBCodePage(void)
 872 {
 873     return GetKBCodePage16();
 874 }
 875
 876 /****************************************************************************
 877  *      GetKeyboardLayoutName16   (USER.477)
 878  */
 879 INT16 WINAPI GetKeyboardLayoutName16(LPSTR pwszKLID)
 880 {
 881         return GetKeyboardLayoutNameA(pwszKLID);
 882 }
 883
 884 /***********************************************************************
 885  *           GetKeyboardLayout                  (USER32.250)
 886  *
 887  * FIXME: - device handle for keyboard layout defaulted to
 888  *          the language id. This is the way Windows default works.
 889  *        - the thread identifier (dwLayout) is also ignored.
 890  */
 891 HKL WINAPI GetKeyboardLayout(DWORD dwLayout)
 892 {
 893         HKL layout;
 894         layout = GetSystemDefaultLCID(); /* FIXME */
 895         layout |= (layout<<16);          /* FIXME */
 896         TRACE_(keyboard)("returning %08x\n",layout);
 897         return layout;
 898 }
 899
 900 /****************************************************************************
 901  *      GetKeyboardLayoutName32A   (USER32.252)
 902  */
 903 INT WINAPI GetKeyboardLayoutNameA(LPSTR pwszKLID)
 904 {
 905         sprintf(pwszKLID, "%08x",GetKeyboardLayout(0));
 906         return 1;
 907 }
 908
 909 /****************************************************************************
 910  *      GetKeyboardLayoutName32W   (USER32.253)
 911  */
 912 INT WINAPI GetKeyboardLayoutNameW(LPWSTR pwszKLID)
 913 {
 914         LPSTR buf = HEAP_xalloc( GetProcessHeap(), 0, strlen("00000409")+1);
 915         int res = GetKeyboardLayoutNameA(buf);
 916         lstrcpyAtoW(pwszKLID,buf);
 917         HeapFree( GetProcessHeap(), 0, buf );
 918         return res;
 919 }
 920
 921 /****************************************************************************
 922  *      GetKeyNameText32A   (USER32.247)
 923  */
 924 INT WINAPI GetKeyNameTextA(LONG lParam, LPSTR lpBuffer, INT nSize)
 925 {
 926         return GetKeyNameText16(lParam,lpBuffer,nSize);
 927 }
 928
 929 /****************************************************************************
 930  *      GetKeyNameText32W   (USER32.248)
 931  */
 932 INT WINAPI GetKeyNameTextW(LONG lParam, LPWSTR lpBuffer, INT nSize)
 933 {
 934         LPSTR buf = HEAP_xalloc( GetProcessHeap(), 0, nSize );
 935         int res = GetKeyNameTextA(lParam,buf,nSize);
 936
 937         lstrcpynAtoW(lpBuffer,buf,nSize);
 938         HeapFree( GetProcessHeap(), 0, buf );
 939         return res;
 940 }
 941
 942 /****************************************************************************
 943  *      ToAscii32      (USER32.546)
 944  */
 945 INT WINAPI ToAscii( UINT virtKey,UINT scanCode,LPBYTE lpKeyState,
 946                         LPWORD lpChar,UINT flags )
 947 {
 948     return ToAscii16(virtKey,scanCode,lpKeyState,lpChar,flags);
 949 }
 950
 951 /****************************************************************************
 952  *      ToAscii32      (USER32.547)
 953  */
 954 INT WINAPI ToAsciiEx( UINT virtKey, UINT scanCode, LPBYTE lpKeyState,
 955                       LPWORD lpChar, UINT flags, HKL dwhkl )
 956 {
 957                 /* FIXME: need true implementation */
 958     return ToAscii16(virtKey,scanCode,lpKeyState,lpChar,flags);
 959 }
 960
 961 /**********************************************************************
 962  *           ActivateKeyboardLayout32      (USER32.1)
 963  *
 964  * Call ignored. WINE supports only system default keyboard layout.
 965  */
 966 HKL WINAPI ActivateKeyboardLayout(HKL hLayout, UINT flags)
 967 {
 968     TRACE_(keyboard)("(%d, %d)\n", hLayout, flags);
 969     ERR_(keyboard)("Only default system keyboard layout supported. Call ignored.\n");
 970     return 0;
 971 }
 972
 973
 974 /***********************************************************************
 975  *           GetKeyboardLayoutList              (USER32.251)
 976  *
 977  * FIXME: Supports only the system default language and layout and
 978  *          returns only 1 value.
 979  *
 980  * Return number of values available if either input parm is
 981  *  0, per MS documentation.
 982  *
 983  */
 984 INT WINAPI GetKeyboardLayoutList(INT nBuff,HKL *layouts)
 985 {
 986         TRACE_(keyboard)("(%d,%p)\n",nBuff,layouts);
 987         if (!nBuff || !layouts)
 988             return 1;
 989         if (layouts)
 990                 layouts[0] = GetKeyboardLayout(0);
 991         return 1;
 992 }
 993
 994
 995 /***********************************************************************
 996  *           RegisterHotKey                     (USER32.433)
 997  */
 998 BOOL WINAPI RegisterHotKey(HWND hwnd,INT id,UINT modifiers,UINT vk) {
 999         FIXME_(keyboard)("(0x%08x,%d,0x%08x,%d): stub\n",hwnd,id,modifiers,vk);
1000         return TRUE;
1001 }
1002
1003 /***********************************************************************
1004  *           UnregisterHotKey                   (USER32.565)
1005  */
1006 BOOL WINAPI UnregisterHotKey(HWND hwnd,INT id) {
1007         FIXME_(keyboard)("(0x%08x,%d): stub\n",hwnd,id);
1008         return TRUE;
1009 }
1010
1011
1012 /***********************************************************************
1013  *           ToUnicode32                       (USER32.548)
1014  */
1015 INT WINAPI ToUnicode(
1016   UINT wVirtKey,
1017   UINT wScanCode,
1018   PBYTE  lpKeyState,
1019   LPWSTR pwszBuff,
1020   INT    cchBuff,
1021   UINT wFlags) {
1022
1023        FIXME_(keyboard)(": stub\n");
1024        return 0;
1025 }
1026
1027 /***********************************************************************
1028  *           LoadKeyboardLayout32A                (USER32.367)
1029  * Call ignored. WINE supports only system default keyboard layout.
1030  */
1031 HKL WINAPI LoadKeyboardLayoutA(LPCSTR pwszKLID, UINT Flags)
1032 {
1033     TRACE_(keyboard)("(%s, %d)\n", pwszKLID, Flags);
1034     ERR_(keyboard)("Only default system keyboard layout supported. Call ignored.\n");
1035   return 0;
1036 }
1037
1038 /***********************************************************************
1039  *           LoadKeyboardLayout32W                (USER32.368)
1040  */
1041 HKL WINAPI LoadKeyboardLayoutW(LPCWSTR pwszKLID, UINT Flags)
1042 {
1043     LPSTR buf = HEAP_xalloc( GetProcessHeap(), 0, strlen("00000409")+1);
1044     int res;
1045     lstrcpynWtoA(buf,pwszKLID,8);
1046     buf[8] = 0;
1047     res = LoadKeyboardLayoutA(buf, Flags);
1048     HeapFree( GetProcessHeap(), 0, buf );
1049     return res;
1050 }