msxml3: Allow IXMLDOMDocument to save as another IXMLDOMDocument.
[wine] / dlls / user32 / 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  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  */
24
25 #include "config.h"
26 #include "wine/port.h"
27
28 #include <stdlib.h>
29 #include <string.h>
30 #include <stdarg.h>
31 #include <stdio.h>
32 #include <ctype.h>
33 #include <assert.h>
34
35 #define NONAMELESSUNION
36 #define NONAMELESSSTRUCT
37 #include "windef.h"
38 #include "winbase.h"
39 #include "wingdi.h"
40 #include "winuser.h"
41 #include "winnls.h"
42 #include "winternl.h"
43 #include "winerror.h"
44 #include "win.h"
45 #include "user_private.h"
46 #include "wine/server.h"
47 #include "wine/debug.h"
48
49 WINE_DEFAULT_DEBUG_CHANNEL(win);
50 WINE_DECLARE_DEBUG_CHANNEL(keyboard);
51
52
53 /***********************************************************************
54  *           get_key_state
55  */
56 static WORD get_key_state(void)
57 {
58     WORD ret = 0;
59
60     if (GetSystemMetrics( SM_SWAPBUTTON ))
61     {
62         if (GetAsyncKeyState(VK_RBUTTON) & 0x80) ret |= MK_LBUTTON;
63         if (GetAsyncKeyState(VK_LBUTTON) & 0x80) ret |= MK_RBUTTON;
64     }
65     else
66     {
67         if (GetAsyncKeyState(VK_LBUTTON) & 0x80) ret |= MK_LBUTTON;
68         if (GetAsyncKeyState(VK_RBUTTON) & 0x80) ret |= MK_RBUTTON;
69     }
70     if (GetAsyncKeyState(VK_MBUTTON) & 0x80)  ret |= MK_MBUTTON;
71     if (GetAsyncKeyState(VK_SHIFT) & 0x80)    ret |= MK_SHIFT;
72     if (GetAsyncKeyState(VK_CONTROL) & 0x80)  ret |= MK_CONTROL;
73     if (GetAsyncKeyState(VK_XBUTTON1) & 0x80) ret |= MK_XBUTTON1;
74     if (GetAsyncKeyState(VK_XBUTTON2) & 0x80) ret |= MK_XBUTTON2;
75     return ret;
76 }
77
78
79 /***********************************************************************
80  *              SendInput  (USER32.@)
81  */
82 UINT WINAPI SendInput( UINT count, LPINPUT inputs, int size )
83 {
84     if (TRACE_ON(win))
85     {
86         UINT i;
87
88         for (i = 0; i < count; i++)
89         {
90             switch(inputs[i].type)
91             {
92             case INPUT_MOUSE:
93                 TRACE("mouse: dx %d, dy %d, data %x, flags %x, time %u, info %lx\n",
94                       inputs[i].u.mi.dx, inputs[i].u.mi.dy, inputs[i].u.mi.mouseData,
95                       inputs[i].u.mi.dwFlags, inputs[i].u.mi.time, inputs[i].u.mi.dwExtraInfo);
96                 break;
97
98             case INPUT_KEYBOARD:
99                 TRACE("keyboard: vk %x, scan %x, flags %x, time %u, info %lx\n",
100                       inputs[i].u.ki.wVk, inputs[i].u.ki.wScan, inputs[i].u.ki.dwFlags,
101                       inputs[i].u.ki.time, inputs[i].u.ki.dwExtraInfo);
102                 break;
103
104             case INPUT_HARDWARE:
105                 TRACE("hardware: msg %d, wParamL %x, wParamH %x\n",
106                       inputs[i].u.hi.uMsg, inputs[i].u.hi.wParamL, inputs[i].u.hi.wParamH);
107                 break;
108
109             default:
110                 FIXME("unknown input type %u\n", inputs[i].type);
111                 break;
112             }
113         }
114     }
115
116     return USER_Driver->pSendInput( count, inputs, size );
117 }
118
119
120 /***********************************************************************
121  *              keybd_event (USER32.@)
122  */
123 void WINAPI keybd_event( BYTE bVk, BYTE bScan,
124                          DWORD dwFlags, ULONG_PTR dwExtraInfo )
125 {
126     INPUT input;
127
128     input.type = INPUT_KEYBOARD;
129     input.u.ki.wVk = bVk;
130     input.u.ki.wScan = bScan;
131     input.u.ki.dwFlags = dwFlags;
132     input.u.ki.time = GetTickCount();
133     input.u.ki.dwExtraInfo = dwExtraInfo;
134     SendInput( 1, &input, sizeof(input) );
135 }
136
137
138 /***********************************************************************
139  *              mouse_event (USER32.@)
140  */
141 void WINAPI mouse_event( DWORD dwFlags, DWORD dx, DWORD dy,
142                          DWORD dwData, ULONG_PTR dwExtraInfo )
143 {
144     INPUT input;
145
146     input.type = INPUT_MOUSE;
147     input.u.mi.dx = dx;
148     input.u.mi.dy = dy;
149     input.u.mi.mouseData = dwData;
150     input.u.mi.dwFlags = dwFlags;
151     input.u.mi.time = GetCurrentTime();
152     input.u.mi.dwExtraInfo = dwExtraInfo;
153     SendInput( 1, &input, sizeof(input) );
154 }
155
156
157 /***********************************************************************
158  *              GetCursorPos (USER32.@)
159  */
160 BOOL WINAPI GetCursorPos( POINT *pt )
161 {
162     if (!pt) return FALSE;
163     return USER_Driver->pGetCursorPos( pt );
164 }
165
166
167 /***********************************************************************
168  *              GetCursorInfo (USER32.@)
169  */
170 BOOL WINAPI GetCursorInfo( PCURSORINFO pci )
171 {
172     if (!pci) return 0;
173     if (get_user_thread_info()->cursor_count >= 0) pci->flags = CURSOR_SHOWING;
174     else pci->flags = 0;
175     GetCursorPos(&pci->ptScreenPos);
176     return 1;
177 }
178
179
180 /***********************************************************************
181  *              SetCursorPos (USER32.@)
182  */
183 BOOL WINAPI SetCursorPos( INT x, INT y )
184 {
185     return USER_Driver->pSetCursorPos( x, y );
186 }
187
188
189 /**********************************************************************
190  *              SetCapture (USER32.@)
191  */
192 HWND WINAPI SetCapture( HWND hwnd )
193 {
194     HWND previous = 0;
195
196     SERVER_START_REQ( set_capture_window )
197     {
198         req->handle = hwnd;
199         req->flags  = 0;
200         if (!wine_server_call_err( req ))
201         {
202             previous = reply->previous;
203             hwnd = reply->full_handle;
204         }
205     }
206     SERVER_END_REQ;
207
208     if (previous && previous != hwnd)
209         SendMessageW( previous, WM_CAPTURECHANGED, 0, (LPARAM)hwnd );
210     return previous;
211 }
212
213
214 /**********************************************************************
215  *              ReleaseCapture (USER32.@)
216  */
217 BOOL WINAPI ReleaseCapture(void)
218 {
219     BOOL ret;
220     HWND previous = 0;
221
222     SERVER_START_REQ( set_capture_window )
223     {
224         req->handle = 0;
225         req->flags  = 0;
226         if ((ret = !wine_server_call_err( req ))) previous = reply->previous;
227     }
228     SERVER_END_REQ;
229
230     if (previous) SendMessageW( previous, WM_CAPTURECHANGED, 0, 0 );
231
232     /* Somebody may have missed some mouse movements */
233     mouse_event( MOUSEEVENTF_MOVE, 0, 0, 0, 0 );
234
235     return ret;
236 }
237
238
239 /**********************************************************************
240  *              GetCapture (USER32.@)
241  */
242 HWND WINAPI GetCapture(void)
243 {
244     HWND ret = 0;
245
246     SERVER_START_REQ( get_thread_input )
247     {
248         req->tid = GetCurrentThreadId();
249         if (!wine_server_call_err( req )) ret = reply->capture;
250     }
251     SERVER_END_REQ;
252     return ret;
253 }
254
255
256 /**********************************************************************
257  *              GetAsyncKeyState (USER32.@)
258  *
259  *      Determine if a key is or was pressed.  retval has high-order
260  * bit set to 1 if currently pressed, low-order bit set to 1 if key has
261  * been pressed.
262  */
263 SHORT WINAPI GetAsyncKeyState(INT nKey)
264 {
265     return USER_Driver->pGetAsyncKeyState( nKey );
266 }
267
268
269 /***********************************************************************
270  *              GetQueueStatus (USER32.@)
271  */
272 DWORD WINAPI GetQueueStatus( UINT flags )
273 {
274     DWORD ret = 0;
275
276     if (flags & ~(QS_ALLINPUT | QS_ALLPOSTMESSAGE | QS_SMRESULT))
277     {
278         SetLastError( ERROR_INVALID_FLAGS );
279         return 0;
280     }
281
282     /* check for pending X events */
283     USER_Driver->pMsgWaitForMultipleObjectsEx( 0, NULL, 0, flags, 0 );
284
285     SERVER_START_REQ( get_queue_status )
286     {
287         req->clear = 1;
288         wine_server_call( req );
289         ret = MAKELONG( reply->changed_bits & flags, reply->wake_bits & flags );
290     }
291     SERVER_END_REQ;
292     return ret;
293 }
294
295
296 /***********************************************************************
297  *              GetInputState   (USER32.@)
298  */
299 BOOL WINAPI GetInputState(void)
300 {
301     DWORD ret = 0;
302
303     /* check for pending X events */
304     USER_Driver->pMsgWaitForMultipleObjectsEx( 0, NULL, 0, QS_INPUT, 0 );
305
306     SERVER_START_REQ( get_queue_status )
307     {
308         req->clear = 0;
309         wine_server_call( req );
310         ret = reply->wake_bits & (QS_KEY | QS_MOUSEBUTTON);
311     }
312     SERVER_END_REQ;
313     return ret;
314 }
315
316
317 /******************************************************************
318  *              GetLastInputInfo (USER32.@)
319  */
320 BOOL WINAPI GetLastInputInfo(PLASTINPUTINFO plii)
321 {
322     BOOL ret;
323
324     TRACE("%p\n", plii);
325
326     if (plii->cbSize != sizeof (*plii) )
327     {
328         SetLastError(ERROR_INVALID_PARAMETER);
329         return FALSE;
330     }
331
332     SERVER_START_REQ( get_last_input_time )
333     {
334         ret = !wine_server_call_err( req );
335         if (ret)
336             plii->dwTime = reply->time;
337     }
338     SERVER_END_REQ;
339     return ret;
340 }
341
342
343 /******************************************************************
344 *               GetRawInputDeviceList (USER32.@)
345 */
346 UINT WINAPI GetRawInputDeviceList(PRAWINPUTDEVICELIST pRawInputDeviceList, PUINT puiNumDevices, UINT cbSize)
347 {
348     FIXME("(pRawInputDeviceList=%p, puiNumDevices=%p, cbSize=%d) stub!\n", pRawInputDeviceList, puiNumDevices, cbSize);
349
350     if(pRawInputDeviceList)
351         memset(pRawInputDeviceList, 0, sizeof *pRawInputDeviceList);
352     *puiNumDevices = 0;
353     return 0;
354 }
355
356
357 /******************************************************************
358 *               RegisterRawInputDevices (USER32.@)
359 */
360 BOOL WINAPI RegisterRawInputDevices(PRAWINPUTDEVICE pRawInputDevices, UINT uiNumDevices, UINT cbSize)
361 {
362     FIXME("(pRawInputDevices=%p, uiNumDevices=%d, cbSize=%d) stub!\n", pRawInputDevices, uiNumDevices, cbSize);
363
364     return TRUE;
365 }
366
367
368 /******************************************************************
369 *               GetRawInputData (USER32.@)
370 */
371 UINT WINAPI GetRawInputData(HRAWINPUT hRawInput, UINT uiCommand, LPVOID pData, PUINT pcbSize, UINT cbSizeHeader)
372 {
373     FIXME("(hRawInput=%p, uiCommand=%d, pData=%p, pcbSize=%p, cbSizeHeader=%d) stub!\n",
374             hRawInput, uiCommand, pData, pcbSize, cbSizeHeader);
375
376     return 0;
377 }
378
379
380 /******************************************************************
381 *               GetRawInputBuffer (USER32.@)
382 */
383 UINT WINAPI GetRawInputBuffer(PRAWINPUT pData, PUINT pcbSize, UINT cbSizeHeader)
384 {
385     FIXME("(pData=%p, pcbSize=%p, cbSizeHeader=%d) stub!\n", pData, pcbSize, cbSizeHeader);
386
387     return 0;
388 }
389
390
391 /******************************************************************
392 *               GetRawInputDeviceInfoA (USER32.@)
393 */
394 UINT WINAPI GetRawInputDeviceInfoA(HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize)
395 {
396     FIXME("(hDevice=%p, uiCommand=%d, pData=%p, pcbSize=%p) stub!\n", hDevice, uiCommand, pData, pcbSize);
397
398     return 0;
399 }
400
401
402 /******************************************************************
403 *               GetRawInputDeviceInfoW (USER32.@)
404 */
405 UINT WINAPI GetRawInputDeviceInfoW(HANDLE hDevice, UINT uiCommand, LPVOID pData, PUINT pcbSize)
406 {
407     FIXME("(hDevice=%p, uiCommand=%d, pData=%p, pcbSize=%p) stub!\n", hDevice, uiCommand, pData, pcbSize);
408
409     return 0;
410 }
411
412
413 /******************************************************************
414 *               GetRegisteredRawInputDevices (USER32.@)
415 */
416 UINT WINAPI GetRegisteredRawInputDevices(PRAWINPUTDEVICE pRawInputDevices, PUINT puiNumDevices, UINT cbSize)
417 {
418     FIXME("(pRawInputDevices=%p, puiNumDevices=%p, cbSize=%d) stub!\n", pRawInputDevices, puiNumDevices, cbSize);
419
420     return 0;
421 }
422
423
424 /******************************************************************
425 *               DefRawInputProc (USER32.@)
426 */
427 LRESULT WINAPI DefRawInputProc(PRAWINPUT *paRawInput, INT nInput, UINT cbSizeHeader)
428 {
429     FIXME("(paRawInput=%p, nInput=%d, cbSizeHeader=%d) stub!\n", *paRawInput, nInput, cbSizeHeader);
430
431     return 0;
432 }
433
434
435 /**********************************************************************
436  *              AttachThreadInput (USER32.@)
437  *
438  * Attaches the input processing mechanism of one thread to that of
439  * another thread.
440  */
441 BOOL WINAPI AttachThreadInput( DWORD from, DWORD to, BOOL attach )
442 {
443     BOOL ret;
444
445     SERVER_START_REQ( attach_thread_input )
446     {
447         req->tid_from = from;
448         req->tid_to   = to;
449         req->attach   = attach;
450         ret = !wine_server_call_err( req );
451     }
452     SERVER_END_REQ;
453     return ret;
454 }
455
456
457 /**********************************************************************
458  *              GetKeyState (USER32.@)
459  *
460  * An application calls the GetKeyState function in response to a
461  * keyboard-input message.  This function retrieves the state of the key
462  * at the time the input message was generated.
463  */
464 SHORT WINAPI GetKeyState(INT vkey)
465 {
466     SHORT retval = 0;
467
468     SERVER_START_REQ( get_key_state )
469     {
470         req->tid = GetCurrentThreadId();
471         req->key = vkey;
472         if (!wine_server_call( req )) retval = (signed char)reply->state;
473     }
474     SERVER_END_REQ;
475     TRACE("key (0x%x) -> %x\n", vkey, retval);
476     return retval;
477 }
478
479
480 /**********************************************************************
481  *              GetKeyboardState (USER32.@)
482  */
483 BOOL WINAPI GetKeyboardState( LPBYTE state )
484 {
485     BOOL ret;
486
487     TRACE("(%p)\n", state);
488
489     memset( state, 0, 256 );
490     SERVER_START_REQ( get_key_state )
491     {
492         req->tid = GetCurrentThreadId();
493         req->key = -1;
494         wine_server_set_reply( req, state, 256 );
495         ret = !wine_server_call_err( req );
496     }
497     SERVER_END_REQ;
498     return ret;
499 }
500
501
502 /**********************************************************************
503  *              SetKeyboardState (USER32.@)
504  */
505 BOOL WINAPI SetKeyboardState( LPBYTE state )
506 {
507     BOOL ret;
508
509     SERVER_START_REQ( set_key_state )
510     {
511         req->tid = GetCurrentThreadId();
512         wine_server_add_data( req, state, 256 );
513         ret = !wine_server_call_err( req );
514     }
515     SERVER_END_REQ;
516     return ret;
517 }
518
519
520 /**********************************************************************
521  *              VkKeyScanA (USER32.@)
522  *
523  * VkKeyScan translates an ANSI character to a virtual-key and shift code
524  * for the current keyboard.
525  * high-order byte yields :
526  *      0       Unshifted
527  *      1       Shift
528  *      2       Ctrl
529  *      3-5     Shift-key combinations that are not used for characters
530  *      6       Ctrl-Alt
531  *      7       Ctrl-Alt-Shift
532  *      I.e. :  Shift = 1, Ctrl = 2, Alt = 4.
533  * FIXME : works ok except for dead chars :
534  * VkKeyScan '^'(0x5e, 94) ... got keycode 00 ... returning 00
535  * VkKeyScan '`'(0x60, 96) ... got keycode 00 ... returning 00
536  */
537 SHORT WINAPI VkKeyScanA(CHAR cChar)
538 {
539     WCHAR wChar;
540
541     if (IsDBCSLeadByte(cChar)) return -1;
542
543     MultiByteToWideChar(CP_ACP, 0, &cChar, 1, &wChar, 1);
544     return VkKeyScanW(wChar);
545 }
546
547 /******************************************************************************
548  *              VkKeyScanW (USER32.@)
549  */
550 SHORT WINAPI VkKeyScanW(WCHAR cChar)
551 {
552     return VkKeyScanExW(cChar, GetKeyboardLayout(0));
553 }
554
555 /**********************************************************************
556  *              VkKeyScanExA (USER32.@)
557  */
558 WORD WINAPI VkKeyScanExA(CHAR cChar, HKL dwhkl)
559 {
560     WCHAR wChar;
561
562     if (IsDBCSLeadByte(cChar)) return -1;
563
564     MultiByteToWideChar(CP_ACP, 0, &cChar, 1, &wChar, 1);
565     return VkKeyScanExW(wChar, dwhkl);
566 }
567
568 /******************************************************************************
569  *              VkKeyScanExW (USER32.@)
570  */
571 WORD WINAPI VkKeyScanExW(WCHAR cChar, HKL dwhkl)
572 {
573     return USER_Driver->pVkKeyScanEx(cChar, dwhkl);
574 }
575
576 /**********************************************************************
577  *              OemKeyScan (USER32.@)
578  */
579 DWORD WINAPI OemKeyScan(WORD wOemChar)
580 {
581     return wOemChar;
582 }
583
584 /******************************************************************************
585  *              GetKeyboardType (USER32.@)
586  */
587 INT WINAPI GetKeyboardType(INT nTypeFlag)
588 {
589     TRACE_(keyboard)("(%d)\n", nTypeFlag);
590     switch(nTypeFlag)
591     {
592     case 0:      /* Keyboard type */
593         return 4;    /* AT-101 */
594     case 1:      /* Keyboard Subtype */
595         return 0;    /* There are no defined subtypes */
596     case 2:      /* Number of F-keys */
597         return 12;   /* We're doing an 101 for now, so return 12 F-keys */
598     default:
599         WARN_(keyboard)("Unknown type\n");
600         return 0;    /* The book says 0 here, so 0 */
601     }
602 }
603
604 /******************************************************************************
605  *              MapVirtualKeyA (USER32.@)
606  */
607 UINT WINAPI MapVirtualKeyA(UINT code, UINT maptype)
608 {
609     return MapVirtualKeyExA( code, maptype, GetKeyboardLayout(0) );
610 }
611
612 /******************************************************************************
613  *              MapVirtualKeyW (USER32.@)
614  */
615 UINT WINAPI MapVirtualKeyW(UINT code, UINT maptype)
616 {
617     return MapVirtualKeyExW(code, maptype, GetKeyboardLayout(0));
618 }
619
620 /******************************************************************************
621  *              MapVirtualKeyExA (USER32.@)
622  */
623 UINT WINAPI MapVirtualKeyExA(UINT code, UINT maptype, HKL hkl)
624 {
625     UINT ret;
626
627     ret = MapVirtualKeyExW( code, maptype, hkl );
628     if (maptype == MAPVK_VK_TO_CHAR)
629     {
630         BYTE ch = 0;
631         WCHAR wch = ret;
632
633         WideCharToMultiByte( CP_ACP, 0, &wch, 1, (LPSTR)&ch, 1, NULL, NULL );
634         ret = ch;
635     }
636     return ret;
637 }
638
639 /******************************************************************************
640  *              MapVirtualKeyExW (USER32.@)
641  */
642 UINT WINAPI MapVirtualKeyExW(UINT code, UINT maptype, HKL hkl)
643 {
644     TRACE_(keyboard)("(%d, %d, %p)\n", code, maptype, hkl);
645
646     return USER_Driver->pMapVirtualKeyEx(code, maptype, hkl);
647 }
648
649 /****************************************************************************
650  *              GetKBCodePage (USER32.@)
651  */
652 UINT WINAPI GetKBCodePage(void)
653 {
654     return GetOEMCP();
655 }
656
657 /***********************************************************************
658  *              GetKeyboardLayout (USER32.@)
659  *
660  *        - device handle for keyboard layout defaulted to
661  *          the language id. This is the way Windows default works.
662  *        - the thread identifier (dwLayout) is also ignored.
663  */
664 HKL WINAPI GetKeyboardLayout(DWORD dwLayout)
665 {
666     return USER_Driver->pGetKeyboardLayout(dwLayout);
667 }
668
669 /****************************************************************************
670  *              GetKeyboardLayoutNameA (USER32.@)
671  */
672 BOOL WINAPI GetKeyboardLayoutNameA(LPSTR pszKLID)
673 {
674     WCHAR buf[KL_NAMELENGTH];
675
676     if (GetKeyboardLayoutNameW(buf))
677         return WideCharToMultiByte( CP_ACP, 0, buf, -1, pszKLID, KL_NAMELENGTH, NULL, NULL ) != 0;
678     return FALSE;
679 }
680
681 /****************************************************************************
682  *              GetKeyboardLayoutNameW (USER32.@)
683  */
684 BOOL WINAPI GetKeyboardLayoutNameW(LPWSTR pwszKLID)
685 {
686     return USER_Driver->pGetKeyboardLayoutName(pwszKLID);
687 }
688
689 /****************************************************************************
690  *              GetKeyNameTextA (USER32.@)
691  */
692 INT WINAPI GetKeyNameTextA(LONG lParam, LPSTR lpBuffer, INT nSize)
693 {
694     WCHAR buf[256];
695     INT ret;
696
697     if (!GetKeyNameTextW(lParam, buf, 256))
698     {
699         lpBuffer[0] = 0;
700         return 0;
701     }
702     ret = WideCharToMultiByte(CP_ACP, 0, buf, -1, lpBuffer, nSize, NULL, NULL);
703     if (!ret && nSize)
704     {
705         ret = nSize - 1;
706         lpBuffer[ret] = 0;
707     }
708     return ret;
709 }
710
711 /****************************************************************************
712  *              GetKeyNameTextW (USER32.@)
713  */
714 INT WINAPI GetKeyNameTextW(LONG lParam, LPWSTR lpBuffer, INT nSize)
715 {
716     return USER_Driver->pGetKeyNameText( lParam, lpBuffer, nSize );
717 }
718
719 /****************************************************************************
720  *              ToUnicode (USER32.@)
721  */
722 INT WINAPI ToUnicode(UINT virtKey, UINT scanCode, LPBYTE lpKeyState,
723                      LPWSTR lpwStr, int size, UINT flags)
724 {
725     return ToUnicodeEx(virtKey, scanCode, lpKeyState, lpwStr, size, flags, GetKeyboardLayout(0));
726 }
727
728 /****************************************************************************
729  *              ToUnicodeEx (USER32.@)
730  */
731 INT WINAPI ToUnicodeEx(UINT virtKey, UINT scanCode, LPBYTE lpKeyState,
732                        LPWSTR lpwStr, int size, UINT flags, HKL hkl)
733 {
734     return USER_Driver->pToUnicodeEx(virtKey, scanCode, lpKeyState, lpwStr, size, flags, hkl);
735 }
736
737 /****************************************************************************
738  *              ToAscii (USER32.@)
739  */
740 INT WINAPI ToAscii( UINT virtKey, UINT scanCode, LPBYTE lpKeyState,
741                     LPWORD lpChar, UINT flags )
742 {
743     return ToAsciiEx(virtKey, scanCode, lpKeyState, lpChar, flags, GetKeyboardLayout(0));
744 }
745
746 /****************************************************************************
747  *              ToAsciiEx (USER32.@)
748  */
749 INT WINAPI ToAsciiEx( UINT virtKey, UINT scanCode, LPBYTE lpKeyState,
750                       LPWORD lpChar, UINT flags, HKL dwhkl )
751 {
752     WCHAR uni_chars[2];
753     INT ret, n_ret;
754
755     ret = ToUnicodeEx(virtKey, scanCode, lpKeyState, uni_chars, 2, flags, dwhkl);
756     if (ret < 0) n_ret = 1; /* FIXME: make ToUnicode return 2 for dead chars */
757     else n_ret = ret;
758     WideCharToMultiByte(CP_ACP, 0, uni_chars, n_ret, (LPSTR)lpChar, 2, NULL, NULL);
759     return ret;
760 }
761
762 /**********************************************************************
763  *              ActivateKeyboardLayout (USER32.@)
764  */
765 HKL WINAPI ActivateKeyboardLayout(HKL hLayout, UINT flags)
766 {
767     TRACE_(keyboard)("(%p, %d)\n", hLayout, flags);
768
769     return USER_Driver->pActivateKeyboardLayout(hLayout, flags);
770 }
771
772 /**********************************************************************
773  *              BlockInput (USER32.@)
774  */
775 BOOL WINAPI BlockInput(BOOL fBlockIt)
776 {
777     FIXME_(keyboard)("(%d): stub\n", fBlockIt);
778     SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
779
780     return FALSE;
781 }
782
783 /***********************************************************************
784  *              GetKeyboardLayoutList (USER32.@)
785  *
786  * Return number of values available if either input parm is
787  *  0, per MS documentation.
788  */
789 UINT WINAPI GetKeyboardLayoutList(INT nBuff, HKL *layouts)
790 {
791     TRACE_(keyboard)("(%d,%p)\n",nBuff,layouts);
792
793     return USER_Driver->pGetKeyboardLayoutList(nBuff, layouts);
794 }
795
796
797 /***********************************************************************
798  *              RegisterHotKey (USER32.@)
799  */
800 BOOL WINAPI RegisterHotKey(HWND hwnd,INT id,UINT modifiers,UINT vk)
801 {
802     static int once;
803     if (!once++) FIXME_(keyboard)("(%p,%d,0x%08x,%d): stub\n",hwnd,id,modifiers,vk);
804     return TRUE;
805 }
806
807 /***********************************************************************
808  *              UnregisterHotKey (USER32.@)
809  */
810 BOOL WINAPI UnregisterHotKey(HWND hwnd,INT id)
811 {
812     static int once;
813     if (!once++) FIXME_(keyboard)("(%p,%d): stub\n",hwnd,id);
814     return TRUE;
815 }
816
817 /***********************************************************************
818  *              LoadKeyboardLayoutW (USER32.@)
819  */
820 HKL WINAPI LoadKeyboardLayoutW(LPCWSTR pwszKLID, UINT Flags)
821 {
822     TRACE_(keyboard)("(%s, %d)\n", debugstr_w(pwszKLID), Flags);
823
824     return USER_Driver->pLoadKeyboardLayout(pwszKLID, Flags);
825 }
826
827 /***********************************************************************
828  *              LoadKeyboardLayoutA (USER32.@)
829  */
830 HKL WINAPI LoadKeyboardLayoutA(LPCSTR pwszKLID, UINT Flags)
831 {
832     HKL ret;
833     UNICODE_STRING pwszKLIDW;
834
835     if (pwszKLID) RtlCreateUnicodeStringFromAsciiz(&pwszKLIDW, pwszKLID);
836     else pwszKLIDW.Buffer = NULL;
837
838     ret = LoadKeyboardLayoutW(pwszKLIDW.Buffer, Flags);
839     RtlFreeUnicodeString(&pwszKLIDW);
840     return ret;
841 }
842
843
844 /***********************************************************************
845  *              UnloadKeyboardLayout (USER32.@)
846  */
847 BOOL WINAPI UnloadKeyboardLayout(HKL hkl)
848 {
849     TRACE_(keyboard)("(%p)\n", hkl);
850
851     return USER_Driver->pUnloadKeyboardLayout(hkl);
852 }
853
854 typedef struct __TRACKINGLIST {
855     TRACKMOUSEEVENT tme;
856     POINT pos; /* center of hover rectangle */
857 } _TRACKINGLIST;
858
859 /* FIXME: move tracking stuff into a per thread data */
860 static _TRACKINGLIST tracking_info;
861 static UINT_PTR timer;
862
863 static void check_mouse_leave(HWND hwnd, int hittest)
864 {
865     if (tracking_info.tme.hwndTrack != hwnd)
866     {
867         if (tracking_info.tme.dwFlags & TME_NONCLIENT)
868             PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSELEAVE, 0, 0);
869         else
870             PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSELEAVE, 0, 0);
871
872         /* remove the TME_LEAVE flag */
873         tracking_info.tme.dwFlags &= ~TME_LEAVE;
874     }
875     else
876     {
877         if (hittest == HTCLIENT)
878         {
879             if (tracking_info.tme.dwFlags & TME_NONCLIENT)
880             {
881                 PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSELEAVE, 0, 0);
882                 /* remove the TME_LEAVE flag */
883                 tracking_info.tme.dwFlags &= ~TME_LEAVE;
884             }
885         }
886         else
887         {
888             if (!(tracking_info.tme.dwFlags & TME_NONCLIENT))
889             {
890                 PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSELEAVE, 0, 0);
891                 /* remove the TME_LEAVE flag */
892                 tracking_info.tme.dwFlags &= ~TME_LEAVE;
893             }
894         }
895     }
896 }
897
898 static void CALLBACK TrackMouseEventProc(HWND hwnd, UINT uMsg, UINT_PTR idEvent,
899                                          DWORD dwTime)
900 {
901     POINT pos;
902     INT hoverwidth = 0, hoverheight = 0, hittest;
903
904     TRACE("hwnd %p, msg %04x, id %04lx, time %u\n", hwnd, uMsg, idEvent, dwTime);
905
906     GetCursorPos(&pos);
907     hwnd = WINPOS_WindowFromPoint(hwnd, pos, &hittest);
908
909     TRACE("point %s hwnd %p hittest %d\n", wine_dbgstr_point(&pos), hwnd, hittest);
910
911     SystemParametersInfoW(SPI_GETMOUSEHOVERWIDTH, 0, &hoverwidth, 0);
912     SystemParametersInfoW(SPI_GETMOUSEHOVERHEIGHT, 0, &hoverheight, 0);
913
914     TRACE("tracked pos %s, current pos %s, hover width %d, hover height %d\n",
915            wine_dbgstr_point(&tracking_info.pos), wine_dbgstr_point(&pos),
916            hoverwidth, hoverheight);
917
918     /* see if this tracking event is looking for TME_LEAVE and that the */
919     /* mouse has left the window */
920     if (tracking_info.tme.dwFlags & TME_LEAVE)
921     {
922         check_mouse_leave(hwnd, hittest);
923     }
924
925     if (tracking_info.tme.hwndTrack != hwnd)
926     {
927         /* mouse is gone, stop tracking mouse hover */
928         tracking_info.tme.dwFlags &= ~TME_HOVER;
929     }
930
931     /* see if we are tracking hovering for this hwnd */
932     if (tracking_info.tme.dwFlags & TME_HOVER)
933     {
934         /* has the cursor moved outside the rectangle centered around pos? */
935         if ((abs(pos.x - tracking_info.pos.x) > (hoverwidth / 2)) ||
936             (abs(pos.y - tracking_info.pos.y) > (hoverheight / 2)))
937         {
938             /* record this new position as the current position */
939             tracking_info.pos = pos;
940         }
941         else
942         {
943             if (hittest == HTCLIENT)
944             {
945                 ScreenToClient(hwnd, &pos);
946                 TRACE("client cursor pos %s\n", wine_dbgstr_point(&pos));
947
948                 PostMessageW(tracking_info.tme.hwndTrack, WM_MOUSEHOVER,
949                              get_key_state(), MAKELPARAM( pos.x, pos.y ));
950             }
951             else
952             {
953                 if (tracking_info.tme.dwFlags & TME_NONCLIENT)
954                     PostMessageW(tracking_info.tme.hwndTrack, WM_NCMOUSEHOVER,
955                                  hittest, MAKELPARAM( pos.x, pos.y ));
956             }
957
958             /* stop tracking mouse hover */
959             tracking_info.tme.dwFlags &= ~TME_HOVER;
960         }
961     }
962
963     /* stop the timer if the tracking list is empty */
964     if (!(tracking_info.tme.dwFlags & (TME_HOVER | TME_LEAVE)))
965     {
966         KillSystemTimer(tracking_info.tme.hwndTrack, timer);
967         timer = 0;
968         tracking_info.tme.hwndTrack = 0;
969         tracking_info.tme.dwFlags = 0;
970         tracking_info.tme.dwHoverTime = 0;
971     }
972 }
973
974
975 /***********************************************************************
976  * TrackMouseEvent [USER32]
977  *
978  * Requests notification of mouse events
979  *
980  * During mouse tracking WM_MOUSEHOVER or WM_MOUSELEAVE events are posted
981  * to the hwnd specified in the ptme structure.  After the event message
982  * is posted to the hwnd, the entry in the queue is removed.
983  *
984  * If the current hwnd isn't ptme->hwndTrack the TME_HOVER flag is completely
985  * ignored. The TME_LEAVE flag results in a WM_MOUSELEAVE message being posted
986  * immediately and the TME_LEAVE flag being ignored.
987  *
988  * PARAMS
989  *     ptme [I,O] pointer to TRACKMOUSEEVENT information structure.
990  *
991  * RETURNS
992  *     Success: non-zero
993  *     Failure: zero
994  *
995  */
996
997 BOOL WINAPI
998 TrackMouseEvent (TRACKMOUSEEVENT *ptme)
999 {
1000     HWND hwnd;
1001     POINT pos;
1002     DWORD hover_time;
1003     INT hittest;
1004
1005     TRACE("%x, %x, %p, %u\n", ptme->cbSize, ptme->dwFlags, ptme->hwndTrack, ptme->dwHoverTime);
1006
1007     if (ptme->cbSize != sizeof(TRACKMOUSEEVENT)) {
1008         WARN("wrong TRACKMOUSEEVENT size from app\n");
1009         SetLastError(ERROR_INVALID_PARAMETER);
1010         return FALSE;
1011     }
1012
1013     /* fill the TRACKMOUSEEVENT struct with the current tracking for the given hwnd */
1014     if (ptme->dwFlags & TME_QUERY )
1015     {
1016         *ptme = tracking_info.tme;
1017         /* set cbSize in the case it's not initialized yet */
1018         ptme->cbSize = sizeof(TRACKMOUSEEVENT);
1019
1020         return TRUE; /* return here, TME_QUERY is retrieving information */
1021     }
1022
1023     if (!IsWindow(ptme->hwndTrack))
1024     {
1025         SetLastError(ERROR_INVALID_WINDOW_HANDLE);
1026         return FALSE;
1027     }
1028
1029     hover_time = ptme->dwHoverTime;
1030
1031     /* if HOVER_DEFAULT was specified replace this with the systems current value.
1032      * TME_LEAVE doesn't need to specify hover time so use default */
1033     if (hover_time == HOVER_DEFAULT || hover_time == 0 || !(ptme->dwHoverTime&TME_HOVER))
1034         SystemParametersInfoW(SPI_GETMOUSEHOVERTIME, 0, &hover_time, 0);
1035
1036     GetCursorPos(&pos);
1037     hwnd = WINPOS_WindowFromPoint(ptme->hwndTrack, pos, &hittest);
1038     TRACE("point %s hwnd %p hittest %d\n", wine_dbgstr_point(&pos), hwnd, hittest);
1039
1040     if (ptme->dwFlags & ~(TME_CANCEL | TME_HOVER | TME_LEAVE | TME_NONCLIENT))
1041         FIXME("Unknown flag(s) %08x\n", ptme->dwFlags & ~(TME_CANCEL | TME_HOVER | TME_LEAVE | TME_NONCLIENT));
1042
1043     if (ptme->dwFlags & TME_CANCEL)
1044     {
1045         if (tracking_info.tme.hwndTrack == ptme->hwndTrack)
1046         {
1047             tracking_info.tme.dwFlags &= ~(ptme->dwFlags & ~TME_CANCEL);
1048
1049             /* if we aren't tracking on hover or leave remove this entry */
1050             if (!(tracking_info.tme.dwFlags & (TME_HOVER | TME_LEAVE)))
1051             {
1052                 KillSystemTimer(tracking_info.tme.hwndTrack, timer);
1053                 timer = 0;
1054                 tracking_info.tme.hwndTrack = 0;
1055                 tracking_info.tme.dwFlags = 0;
1056                 tracking_info.tme.dwHoverTime = 0;
1057             }
1058         }
1059     } else {
1060         /* In our implementation it's possible that another window will receive a
1061          * WM_MOUSEMOVE and call TrackMouseEvent before TrackMouseEventProc is
1062          * called. In such a situation post the WM_MOUSELEAVE now */
1063         if (tracking_info.tme.dwFlags & TME_LEAVE && tracking_info.tme.hwndTrack != NULL)
1064             check_mouse_leave(hwnd, hittest);
1065
1066         if (timer)
1067         {
1068             KillSystemTimer(tracking_info.tme.hwndTrack, timer);
1069             timer = 0;
1070             tracking_info.tme.hwndTrack = 0;
1071             tracking_info.tme.dwFlags = 0;
1072             tracking_info.tme.dwHoverTime = 0;
1073         }
1074
1075         if (ptme->hwndTrack == hwnd)
1076         {
1077             /* Adding new mouse event to the tracking list */
1078             tracking_info.tme = *ptme;
1079             tracking_info.tme.dwHoverTime = hover_time;
1080
1081             /* Initialize HoverInfo variables even if not hover tracking */
1082             tracking_info.pos = pos;
1083
1084             timer = SetSystemTimer(tracking_info.tme.hwndTrack, (UINT_PTR)&tracking_info.tme, hover_time, TrackMouseEventProc);
1085         }
1086     }
1087
1088     return TRUE;
1089 }
1090
1091 /***********************************************************************
1092  * GetMouseMovePointsEx [USER32]
1093  *
1094  * RETURNS
1095  *     Success: count of point set in the buffer
1096  *     Failure: -1
1097  */
1098 int WINAPI GetMouseMovePointsEx(UINT size, LPMOUSEMOVEPOINT ptin, LPMOUSEMOVEPOINT ptout, int count, DWORD res) {
1099
1100     if((size != sizeof(MOUSEMOVEPOINT)) || (count < 0) || (count > 64)) {
1101         SetLastError(ERROR_INVALID_PARAMETER);
1102         return -1;
1103     }
1104
1105     if(!ptin || !ptout) {
1106         SetLastError(ERROR_NOACCESS);
1107         return -1;
1108     }
1109
1110     FIXME("(%d %p %p %d %d) stub\n", size, ptin, ptout, count, res);
1111
1112     SetLastError(ERROR_POINT_NOT_FOUND);
1113     return -1;
1114 }