dlls/x11drv/mouse.c

   1 /*
   2  * X11 mouse driver
   3  *
   4  * Copyright 1998 Ulrich Weigand
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include "ts_xlib.h"
  24 #ifdef HAVE_LIBXXF86DGA2
  25 #include "ts_xf86dga2.h"
  26 #endif
  27
  28 #include "windef.h"
  29 #include "wine/winuser16.h"
  30
  31 #include "x11drv.h"
  32 #include "wine/debug.h"
  33
  34 WINE_DEFAULT_DEBUG_CHANNEL(cursor);
  35
  36 /**********************************************************************/
  37
  38 #define NB_BUTTONS   5     /* Windows can handle 3 buttons and the wheel too */
  39
  40 static const UINT button_down_flags[NB_BUTTONS] =
  41 {
  42     MOUSEEVENTF_LEFTDOWN,
  43     MOUSEEVENTF_MIDDLEDOWN,
  44     MOUSEEVENTF_RIGHTDOWN,
  45     MOUSEEVENTF_WHEEL,
  46     MOUSEEVENTF_WHEEL
  47 };
  48
  49 static const UINT button_up_flags[NB_BUTTONS] =
  50 {
  51     MOUSEEVENTF_LEFTUP,
  52     MOUSEEVENTF_MIDDLEUP,
  53     MOUSEEVENTF_RIGHTUP,
  54     0,
  55     0
  56 };
  57
  58 static BYTE *pKeyStateTable;
  59
  60
  61 /***********************************************************************
  62  *              get_coords
  63  *
  64  * get the coordinates of a mouse event
  65  */
  66 static void get_coords( HWND *hwnd, Window window, int x, int y, POINT *pt )
  67 {
  68     struct x11drv_win_data *data;
  69     WND *win;
  70
  71     if (!(win = WIN_GetPtr( *hwnd )) || win == WND_OTHER_PROCESS) return;
  72     data = win->pDriverData;
  73
  74     if (window == data->whole_window)
  75     {
  76         x -= data->client_rect.left;
  77         y -= data->client_rect.top;
  78     }
  79     WIN_ReleasePtr( win );
  80
  81     pt->x = x;
  82     pt->y = y;
  83     if (*hwnd != GetDesktopWindow())
  84     {
  85         ClientToScreen( *hwnd, pt );
  86         *hwnd = GetAncestor( *hwnd, GA_ROOT );
  87     }
  88 }
  89
  90
  91 /***********************************************************************
  92  *              update_key_state
  93  *
  94  * Update the key state with what X provides us
  95  */
  96 static void update_key_state( unsigned int state )
  97 {
  98     pKeyStateTable[VK_LBUTTON] = (state & Button1Mask ? 0x80 : 0);
  99     pKeyStateTable[VK_MBUTTON] = (state & Button2Mask ? 0x80 : 0);
 100     pKeyStateTable[VK_RBUTTON] = (state & Button3Mask ? 0x80 : 0);
 101     pKeyStateTable[VK_SHIFT]   = (state & ShiftMask   ? 0x80 : 0);
 102     pKeyStateTable[VK_CONTROL] = (state & ControlMask ? 0x80 : 0);
 103 }
 104
 105
 106 /***********************************************************************
 107  *              send_mouse_event
 108  */
 109 static void send_mouse_event( HWND hwnd, DWORD flags, DWORD posX, DWORD posY,
 110                               DWORD data, Time time )
 111 {
 112     INPUT input;
 113
 114     TRACE("(%04lX,%ld,%ld)\n", flags, posX, posY );
 115
 116     if (flags & MOUSEEVENTF_ABSOLUTE)
 117     {
 118         int width  = GetSystemMetrics( SM_CXSCREEN );
 119         int height = GetSystemMetrics( SM_CYSCREEN );
 120         /* Relative mouse movements seem not to be scaled as absolute ones */
 121         posX = (((long)posX << 16) + width-1)  / width;
 122         posY = (((long)posY << 16) + height-1) / height;
 123     }
 124
 125     input.type             = WINE_INTERNAL_INPUT_MOUSE;
 126     input.u.mi.dx          = posX;
 127     input.u.mi.dy          = posY;
 128     input.u.mi.mouseData   = data;
 129     input.u.mi.dwFlags     = flags;
 130     input.u.mi.time        = time - X11DRV_server_startticks;
 131     input.u.mi.dwExtraInfo = (ULONG_PTR)hwnd;
 132     SendInput( 1, &input, sizeof(input) );
 133 }
 134
 135
 136 /***********************************************************************
 137  *              X11DRV_GetCursor
 138  */
 139 Cursor X11DRV_GetCursor( Display *display, CURSORICONINFO *ptr )
 140 {
 141     Pixmap pixmapBits, pixmapMask, pixmapMaskInv, pixmapAll;
 142     XColor fg, bg;
 143     Cursor cursor = None;
 144
 145     if (!ptr)  /* Create an empty cursor */
 146     {
 147         static const char data[] = { 0 };
 148
 149         bg.red = bg.green = bg.blue = 0x0000;
 150         pixmapBits = XCreateBitmapFromData( display, root_window, data, 1, 1 );
 151         if (pixmapBits)
 152         {
 153             cursor = XCreatePixmapCursor( display, pixmapBits, pixmapBits,
 154                                           &bg, &bg, 0, 0 );
 155             XFreePixmap( display, pixmapBits );
 156         }
 157     }
 158     else  /* Create the X cursor from the bits */
 159     {
 160         XImage *image;
 161         GC gc;
 162
 163         TRACE("Bitmap %dx%d planes=%d bpp=%d bytesperline=%d\n",
 164             ptr->nWidth, ptr->nHeight, ptr->bPlanes, ptr->bBitsPerPixel,
 165             ptr->nWidthBytes);
 166         /* Create a pixmap and transfer all the bits to it */
 167
 168         /* NOTE: Following hack works, but only because XFree depth
 169          *       1 images really use 1 bit/pixel (and so the same layout
 170          *       as the Windows cursor data). Perhaps use a more generic
 171          *       algorithm here.
 172          */
 173         /* This pixmap will be written with two bitmaps. The first is
 174          *  the mask and the second is the image.
 175          */
 176         if (!(pixmapAll = XCreatePixmap( display, root_window,
 177                   ptr->nWidth, ptr->nHeight * 2, 1 )))
 178             return 0;
 179         if (!(image = XCreateImage( display, visual,
 180                 1, ZPixmap, 0, (char *)(ptr + 1), ptr->nWidth,
 181                 ptr->nHeight * 2, 16, ptr->nWidthBytes/ptr->bBitsPerPixel)))
 182         {
 183             XFreePixmap( display, pixmapAll );
 184             return 0;
 185         }
 186         gc = XCreateGC( display, pixmapAll, 0, NULL );
 187         XSetGraphicsExposures( display, gc, False );
 188         image->byte_order = MSBFirst;
 189         image->bitmap_bit_order = MSBFirst;
 190         image->bitmap_unit = 16;
 191         _XInitImageFuncPtrs(image);
 192         if (ptr->bPlanes * ptr->bBitsPerPixel == 1)
 193         {
 194             /* A plain old white on black cursor. */
 195             fg.red = fg.green = fg.blue = 0xffff;
 196             bg.red = bg.green = bg.blue = 0x0000;
 197             XPutImage( display, pixmapAll, gc, image,
 198                 0, 0, 0, 0, ptr->nWidth, ptr->nHeight * 2 );
 199         }
 200         else
 201         {
 202             int     rbits, gbits, bbits, red, green, blue;
 203             int     rfg, gfg, bfg, rbg, gbg, bbg;
 204             int     rscale, gscale, bscale;
 205             int     x, y, xmax, ymax, bitIndex, byteIndex, xorIndex;
 206             unsigned char *theMask, *theImage, theChar;
 207             int     threshold, fgBits, bgBits, bitShifted;
 208             BYTE    pXorBits[128];   /* Up to 32x32 icons */
 209
 210             switch (ptr->bBitsPerPixel)
 211             {
 212             case 24:
 213                 rbits = 8;
 214                 gbits = 8;
 215                 bbits = 8;
 216                 threshold = 0x40;
 217                 break;
 218             case 16:
 219                 rbits = 5;
 220                 gbits = 6;
 221                 bbits = 5;
 222                 threshold = 0x40;
 223                 break;
 224             default:
 225                 FIXME("Currently no support for cursors with %d bits per pixel\n",
 226                   ptr->bBitsPerPixel);
 227                 XFreePixmap( display, pixmapAll );
 228                 XFreeGC( display, gc );
 229                 image->data = NULL;
 230                 XDestroyImage( image );
 231                 return 0;
 232             }
 233             /* The location of the mask. */
 234             theMask = (char *)(ptr + 1);
 235             /* The mask should still be 1 bit per pixel. The color image
 236              * should immediately follow the mask.
 237              */
 238             theImage = &theMask[ptr->nWidth/8 * ptr->nHeight];
 239             rfg = gfg = bfg = rbg = gbg = bbg = 0;
 240             bitIndex = 0;
 241             byteIndex = 0;
 242             xorIndex = 0;
 243             fgBits = 0;
 244             bitShifted = 0x01;
 245             xmax = (ptr->nWidth > 32) ? 32 : ptr->nWidth;
 246             if (ptr->nWidth > 32) {
 247                 ERR("Got a %dx%d cursor. Cannot handle larger than 32x32.\n",
 248                   ptr->nWidth, ptr->nHeight);
 249             }
 250             ymax = (ptr->nHeight > 32) ? 32 : ptr->nHeight;
 251
 252             memset(pXorBits, 0, 128);
 253             for (y=0; y<ymax; y++)
 254             {
 255                 for (x=0; x<xmax; x++)
 256                 {
 257                         red = green = blue = 0;
 258                         switch (ptr->bBitsPerPixel)
 259                         {
 260                         case 24:
 261                             theChar = theImage[byteIndex++];
 262                             blue = theChar;
 263                             theChar = theImage[byteIndex++];
 264                             green = theChar;
 265                             theChar = theImage[byteIndex++];
 266                             red = theChar;
 267                             break;
 268                         case 16:
 269                             theChar = theImage[byteIndex++];
 270                             blue = theChar & 0x1F;
 271                             green = (theChar & 0xE0) >> 5;
 272                             theChar = theImage[byteIndex++];
 273                             green |= (theChar & 0x07) << 3;
 274                             red = (theChar & 0xF8) >> 3;
 275                             break;
 276                         }
 277
 278                     if (red+green+blue > threshold)
 279                     {
 280                         rfg += red;
 281                         gfg += green;
 282                         bfg += blue;
 283                         fgBits++;
 284                         pXorBits[xorIndex] |= bitShifted;
 285                     }
 286                     else
 287                     {
 288                         rbg += red;
 289                         gbg += green;
 290                         bbg += blue;
 291                     }
 292                     if (x%8 == 7)
 293                     {
 294                         bitShifted = 0x01;
 295                         xorIndex++;
 296                     }
 297                     else
 298                         bitShifted = bitShifted << 1;
 299                 }
 300             }
 301             rscale = 1 << (16 - rbits);
 302             gscale = 1 << (16 - gbits);
 303             bscale = 1 << (16 - bbits);
 304             fg.red   = rfg * rscale / fgBits;
 305             fg.green = gfg * gscale / fgBits;
 306             fg.blue  = bfg * bscale / fgBits;
 307             bgBits = xmax * ymax - fgBits;
 308             bg.red   = rbg * rscale / bgBits;
 309             bg.green = gbg * gscale / bgBits;
 310             bg.blue  = bbg * bscale / bgBits;
 311             pixmapBits = XCreateBitmapFromData( display, root_window, pXorBits, xmax, ymax );
 312             if (!pixmapBits)
 313             {
 314                 XFreePixmap( display, pixmapAll );
 315                 XFreeGC( display, gc );
 316                 image->data = NULL;
 317                 XDestroyImage( image );
 318                 return 0;
 319             }
 320
 321             /* Put the mask. */
 322             XPutImage( display, pixmapAll, gc, image,
 323                    0, 0, 0, 0, ptr->nWidth, ptr->nHeight );
 324             XSetFunction( display, gc, GXcopy );
 325             /* Put the image */
 326             XCopyArea( display, pixmapBits, pixmapAll, gc,
 327                        0, 0, xmax, ymax, 0, ptr->nHeight );
 328             XFreePixmap( display, pixmapBits );
 329         }
 330         image->data = NULL;
 331         XDestroyImage( image );
 332
 333         /* Now create the 2 pixmaps for bits and mask */
 334
 335         pixmapBits = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 336         pixmapMask = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 337         pixmapMaskInv = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 338
 339         /* Make sure everything went OK so far */
 340
 341         if (pixmapBits && pixmapMask && pixmapMaskInv)
 342         {
 343             /* We have to do some magic here, as cursors are not fully
 344              * compatible between Windows and X11. Under X11, there
 345              * are only 3 possible color cursor: black, white and
 346              * masked. So we map the 4th Windows color (invert the
 347              * bits on the screen) to black and an additional white bit on
 348              * an other place (+1,+1). This require some boolean arithmetic:
 349              *
 350              *         Windows          |          X11
 351              * And    Xor      Result   |   Bits     Mask     Result
 352              *  0      0     black      |    0        1     background
 353              *  0      1     white      |    1        1     foreground
 354              *  1      0     no change  |    X        0     no change
 355              *  1      1     inverted   |    0        1     background
 356              *
 357              * which gives:
 358              *  Bits = not 'And' and 'Xor' or 'And2' and 'Xor2'
 359              *  Mask = not 'And' or 'Xor' or 'And2' and 'Xor2'
 360              *
 361              * FIXME: apparently some servers do support 'inverted' color.
 362              * I don't know if it's correct per the X spec, but maybe
 363              * we ought to take advantage of it.  -- AJ
 364              */
 365             XSetFunction( display, gc, GXcopy );
 366             XCopyArea( display, pixmapAll, pixmapBits, gc,
 367                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 368             XCopyArea( display, pixmapAll, pixmapMask, gc,
 369                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 370             XCopyArea( display, pixmapAll, pixmapMaskInv, gc,
 371                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 372             XSetFunction( display, gc, GXand );
 373             XCopyArea( display, pixmapAll, pixmapMaskInv, gc,
 374                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 375             XSetFunction( display, gc, GXandReverse );
 376             XCopyArea( display, pixmapAll, pixmapBits, gc,
 377                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 378             XSetFunction( display, gc, GXorReverse );
 379             XCopyArea( display, pixmapAll, pixmapMask, gc,
 380                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 381             /* Additional white */
 382             XSetFunction( display, gc, GXor );
 383             XCopyArea( display, pixmapMaskInv, pixmapMask, gc,
 384                        0, 0, ptr->nWidth, ptr->nHeight, 1, 1 );
 385             XCopyArea( display, pixmapMaskInv, pixmapBits, gc,
 386                        0, 0, ptr->nWidth, ptr->nHeight, 1, 1 );
 387             XSetFunction( display, gc, GXcopy );
 388             cursor = XCreatePixmapCursor( display, pixmapBits, pixmapMask,
 389                                 &fg, &bg, ptr->ptHotSpot.x, ptr->ptHotSpot.y );
 390         }
 391
 392         /* Now free everything */
 393
 394         if (pixmapAll) XFreePixmap( display, pixmapAll );
 395         if (pixmapBits) XFreePixmap( display, pixmapBits );
 396         if (pixmapMask) XFreePixmap( display, pixmapMask );
 397         if (pixmapMaskInv) XFreePixmap( display, pixmapMaskInv );
 398         XFreeGC( display, gc );
 399     }
 400     return cursor;
 401 }
 402
 403 /* set the cursor of a window; helper for X11DRV_SetCursor */
 404 static BOOL CALLBACK set_win_cursor( HWND hwnd, LPARAM cursor )
 405 {
 406     Window win = X11DRV_get_whole_window( hwnd );
 407     if (win) TSXDefineCursor( thread_display(), win, (Cursor)cursor );
 408     return TRUE;
 409 }
 410
 411 /***********************************************************************
 412  *              SetCursor (X11DRV.@)
 413  */
 414 void X11DRV_SetCursor( CURSORICONINFO *lpCursor )
 415 {
 416     Cursor cursor;
 417
 418     if (root_window != DefaultRootWindow(gdi_display))
 419     {
 420         /* If in desktop mode, set the cursor on the desktop window */
 421
 422         wine_tsx11_lock();
 423         cursor = X11DRV_GetCursor( gdi_display, lpCursor );
 424         if (cursor)
 425         {
 426             XDefineCursor( gdi_display, root_window, cursor );
 427             XFreeCursor( gdi_display, cursor );
 428         }
 429         wine_tsx11_unlock();
 430     }
 431     else /* set the same cursor for all top-level windows of the current thread */
 432     {
 433         Display *display = thread_display();
 434
 435         wine_tsx11_lock();
 436         cursor = X11DRV_GetCursor( display, lpCursor );
 437         wine_tsx11_unlock();
 438         if (cursor)
 439         {
 440 /*            EnumThreadWindows( GetCurrentThreadId(), set_win_cursor, (LPARAM)cursor );*/
 441             EnumWindows( set_win_cursor, (LPARAM)cursor );
 442             TSXFreeCursor( display, cursor );
 443         }
 444     }
 445 }
 446
 447 /***********************************************************************
 448  *              SetCursorPos (X11DRV.@)
 449  */
 450 void X11DRV_SetCursorPos( INT x, INT y )
 451 {
 452     Display *display = thread_display();
 453
 454     TRACE( "warping to (%d,%d)\n", x, y );
 455
 456     wine_tsx11_lock();
 457     XWarpPointer( display, root_window, root_window, 0, 0, 0, 0, x, y );
 458     XFlush( display ); /* just in case */
 459     wine_tsx11_unlock();
 460 }
 461
 462 /***********************************************************************
 463  *              GetCursorPos (X11DRV.@)
 464  */
 465 void X11DRV_GetCursorPos(LPPOINT pos)
 466 {
 467   Display *display = thread_display();
 468   Window root, child;
 469   int rootX, rootY, winX, winY;
 470   unsigned int xstate;
 471
 472   if (!TSXQueryPointer( display, root_window, &root, &child,
 473                         &rootX, &rootY, &winX, &winY, &xstate ))
 474     return;
 475
 476   TRACE("pointer at (%d,%d)\n", winX, winY );
 477   pos->x = winX;
 478   pos->y = winY;
 479 }
 480
 481 /***********************************************************************
 482  *              InitMouse (X11DRV.@)
 483  */
 484 void X11DRV_InitMouse( BYTE *key_state_table )
 485 {
 486     Window root, child;
 487     int root_x, root_y, child_x, child_y;
 488     unsigned int KeyState;
 489
 490     pKeyStateTable = key_state_table;
 491     /* Get the current mouse position and simulate an absolute mouse
 492        movement to initialize the mouse global variables */
 493     TSXQueryPointer( thread_display(), root_window, &root, &child,
 494                      &root_x, &root_y, &child_x, &child_y, &KeyState);
 495     update_key_state( KeyState );
 496     send_mouse_event( 0, MOUSEEVENTF_MOVE | MOUSEEVENTF_ABSOLUTE,
 497                       root_x, root_y, 0, GetTickCount() + X11DRV_server_startticks );
 498 }
 499
 500
 501 /***********************************************************************
 502  *           X11DRV_ButtonPress
 503  */
 504 void X11DRV_ButtonPress( HWND hwnd, XButtonEvent *event )
 505 {
 506     int buttonNum = event->button - 1;
 507     WORD wData = 0;
 508     POINT pt;
 509
 510     if (buttonNum >= NB_BUTTONS) return;
 511
 512     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 513
 514     switch (buttonNum)
 515     {
 516     case 3:
 517         wData = WHEEL_DELTA;
 518         break;
 519     case 4:
 520         wData = -WHEEL_DELTA;
 521         break;
 522     }
 523     update_key_state( event->state );
 524     send_mouse_event( hwnd, button_down_flags[buttonNum] | MOUSEEVENTF_ABSOLUTE,
 525                       pt.x, pt.y, wData, event->time );
 526 }
 527
 528
 529 /***********************************************************************
 530  *           X11DRV_ButtonRelease
 531  */
 532 void X11DRV_ButtonRelease( HWND hwnd, XButtonEvent *event )
 533 {
 534     int buttonNum = event->button - 1;
 535     POINT pt;
 536
 537     if (buttonNum >= NB_BUTTONS || !button_up_flags[buttonNum]) return;
 538
 539     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 540     update_key_state( event->state );
 541     send_mouse_event( hwnd, button_up_flags[buttonNum] | MOUSEEVENTF_ABSOLUTE,
 542                       pt.x, pt.y, 0, event->time );
 543 }
 544
 545
 546 /***********************************************************************
 547  *           X11DRV_MotionNotify
 548  */
 549 void X11DRV_MotionNotify( HWND hwnd, XMotionEvent *event )
 550 {
 551     POINT pt;
 552
 553     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 554     update_key_state( event->state );
 555     send_mouse_event( hwnd, MOUSEEVENTF_MOVE | MOUSEEVENTF_ABSOLUTE,
 556                       pt.x, pt.y, 0, event->time );
 557 }
 558
 559
 560 #ifdef HAVE_LIBXXF86DGA2
 561 /**********************************************************************
 562  *              X11DRV_DGAMotionEvent
 563  */
 564 void X11DRV_DGAMotionEvent( HWND hwnd, XDGAMotionEvent *event )
 565 {
 566     update_key_state( event->state );
 567     send_mouse_event( hwnd, MOUSEEVENTF_MOVE, event->dx, event->dy, 0, event->time );
 568 }
 569
 570 /**********************************************************************
 571  *              X11DRV_DGAButtonPressEvent
 572  */
 573 void X11DRV_DGAButtonPressEvent( HWND hwnd, XDGAButtonEvent *event )
 574 {
 575     int buttonNum = event->button - 1;
 576
 577     if (buttonNum >= NB_BUTTONS) return;
 578     update_key_state( event->state );
 579     send_mouse_event( hwnd, button_down_flags[buttonNum], 0, 0, 0, event->time );
 580 }
 581
 582 /**********************************************************************
 583  *              X11DRV_DGAButtonReleaseEvent
 584  */
 585 void X11DRV_DGAButtonReleaseEvent( HWND hwnd, XDGAButtonEvent *event )
 586 {
 587     int buttonNum = event->button - 1;
 588
 589     if (buttonNum >= NB_BUTTONS) return;
 590     update_key_state( event->state );
 591     send_mouse_event( hwnd, button_up_flags[buttonNum], 0, 0, 0, event->time );
 592 }
 593 #endif /* HAVE_LIBXXF86DGA2 */