windows/mouse.c

   1 /*
   2  * MOUSE driver
   3  *
   4  * Copyright 1998 Ulrich Weigand
   5  *
   6  */
   7
   8 #include <string.h>
   9
  10 #include "debugtools.h"
  11 #include "callback.h"
  12 #include "builtin16.h"
  13 #include "mouse.h"
  14 #include "monitor.h"
  15 #include "winuser.h"
  16 #include "win.h"
  17
  18 DEFAULT_DEBUG_CHANNEL(event)
  19
  20 /**********************************************************************/
  21
  22 MOUSE_DRIVER *MOUSE_Driver = NULL;
  23
  24 static LPMOUSE_EVENT_PROC DefMouseEventProc = NULL;
  25
  26 /***********************************************************************
  27  *           MOUSE_Inquire                       (MOUSE.1)
  28  */
  29 WORD WINAPI MOUSE_Inquire(LPMOUSEINFO mouseInfo)
  30 {
  31     mouseInfo->msExist = TRUE;
  32     mouseInfo->msRelative = FALSE;
  33     mouseInfo->msNumButtons = 2;
  34     mouseInfo->msRate = 34;  /* the DDK says so ... */
  35     mouseInfo->msXThreshold = 0;
  36     mouseInfo->msYThreshold = 0;
  37     mouseInfo->msXRes = 0;
  38     mouseInfo->msYRes = 0;
  39     mouseInfo->msMouseCommPort = 0;
  40
  41     return sizeof(MOUSEINFO);
  42 }
  43
  44 /***********************************************************************
  45  *           MOUSE_Enable                        (MOUSE.2)
  46  */
  47 VOID WINAPI MOUSE_Enable(LPMOUSE_EVENT_PROC lpMouseEventProc)
  48 {
  49     static BOOL initDone = FALSE;
  50
  51     THUNK_Free( (FARPROC)DefMouseEventProc );
  52     DefMouseEventProc = lpMouseEventProc;
  53
  54     /* Now initialize the mouse driver */
  55     if (initDone == FALSE) MOUSE_Driver->pInit();
  56     initDone = TRUE;
  57 }
  58
  59 static VOID WINAPI MOUSE_CallMouseEventProc( FARPROC16 proc,
  60                                              DWORD dwFlags, DWORD dx, DWORD dy,
  61                                              DWORD cButtons, DWORD dwExtraInfo )
  62 {
  63     CONTEXT86 context;
  64
  65     memset( &context, 0, sizeof(context) );
  66     CS_reg(&context)  = SELECTOROF( proc );
  67     EIP_reg(&context) = OFFSETOF( proc );
  68     AX_reg(&context)  = (WORD)dwFlags;
  69     BX_reg(&context)  = (WORD)dx;
  70     CX_reg(&context)  = (WORD)dy;
  71     DX_reg(&context)  = (WORD)cButtons;
  72     SI_reg(&context)  = LOWORD( dwExtraInfo );
  73     DI_reg(&context)  = HIWORD( dwExtraInfo );
  74
  75     CallTo16RegisterShort( &context, 0 );
  76 }
  77
  78 VOID WINAPI WIN16_MOUSE_Enable( FARPROC16 proc )
  79 {
  80     LPMOUSE_EVENT_PROC thunk =
  81       (LPMOUSE_EVENT_PROC)THUNK_Alloc( proc, (RELAY)MOUSE_CallMouseEventProc );
  82
  83     MOUSE_Enable( thunk );
  84 }
  85
  86 /***********************************************************************
  87  *           MOUSE_Disable                       (MOUSE.3)
  88  */
  89 VOID WINAPI MOUSE_Disable(VOID)
  90 {
  91     THUNK_Free( (FARPROC)DefMouseEventProc );
  92     DefMouseEventProc = 0;
  93 }
  94
  95 /***********************************************************************
  96  *           MOUSE_SendEvent
  97  */
  98 void MOUSE_SendEvent( DWORD mouseStatus, DWORD posX, DWORD posY,
  99                       DWORD keyState, DWORD time, HWND hWnd )
 100 {
 101     int width  = MONITOR_GetWidth (&MONITOR_PrimaryMonitor);
 102     int height = MONITOR_GetHeight(&MONITOR_PrimaryMonitor);
 103     int iWndsLocks;
 104     WINE_MOUSEEVENT wme;
 105     BOOL bOldWarpPointer;
 106
 107     if ( !DefMouseEventProc ) return;
 108
 109     TRACE("(%04lX,%ld,%ld)\n", mouseStatus, posX, posY );
 110
 111     if (mouseStatus & MOUSEEVENTF_MOVE) {
 112       if (mouseStatus & MOUSEEVENTF_ABSOLUTE) {
 113         /* Relative mouse movements seems not to be scaled as absolute ones */
 114         posX = (((long)posX << 16) + width-1)  / width;
 115         posY = (((long)posY << 16) + height-1) / height;
 116       }
 117     }
 118
 119     wme.magic    = WINE_MOUSEEVENT_MAGIC;
 120     wme.time     = time;
 121     wme.hWnd     = hWnd;
 122     wme.keyState = keyState;
 123
 124     bOldWarpPointer = MOUSE_Driver->pEnableWarpPointer(FALSE);
 125     /* To avoid deadlocks, we have to suspend all locks on windows structures
 126        before the program control is passed to the mouse driver */
 127     iWndsLocks = WIN_SuspendWndsLock();
 128     DefMouseEventProc( mouseStatus, posX, posY, 0, (DWORD)&wme );
 129     WIN_RestoreWndsLock(iWndsLocks);
 130     MOUSE_Driver->pEnableWarpPointer(bOldWarpPointer);
 131 }