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             if (fgBits)
 305             {
 306                 fg.red   = rfg * rscale / fgBits;
 307                 fg.green = gfg * gscale / fgBits;
 308                 fg.blue  = bfg * bscale / fgBits;
 309             }
 310             else fg.red = fg.green = fg.blue = 0;
 311             bgBits = xmax * ymax - fgBits;
 312             if (bgBits)
 313             {
 314                 bg.red   = rbg * rscale / bgBits;
 315                 bg.green = gbg * gscale / bgBits;
 316                 bg.blue  = bbg * bscale / bgBits;
 317             }
 318             else bg.red = bg.green = bg.blue = 0;
 319             pixmapBits = XCreateBitmapFromData( display, root_window, pXorBits, xmax, ymax );
 320             if (!pixmapBits)
 321             {
 322                 XFreePixmap( display, pixmapAll );
 323                 XFreeGC( display, gc );
 324                 image->data = NULL;
 325                 XDestroyImage( image );
 326                 return 0;
 327             }
 328
 329             /* Put the mask. */
 330             XPutImage( display, pixmapAll, gc, image,
 331                    0, 0, 0, 0, ptr->nWidth, ptr->nHeight );
 332             XSetFunction( display, gc, GXcopy );
 333             /* Put the image */
 334             XCopyArea( display, pixmapBits, pixmapAll, gc,
 335                        0, 0, xmax, ymax, 0, ptr->nHeight );
 336             XFreePixmap( display, pixmapBits );
 337         }
 338         image->data = NULL;
 339         XDestroyImage( image );
 340
 341         /* Now create the 2 pixmaps for bits and mask */
 342
 343         pixmapBits = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 344         pixmapMask = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 345         pixmapMaskInv = XCreatePixmap( display, root_window, ptr->nWidth, ptr->nHeight, 1 );
 346
 347         /* Make sure everything went OK so far */
 348
 349         if (pixmapBits && pixmapMask && pixmapMaskInv)
 350         {
 351             /* We have to do some magic here, as cursors are not fully
 352              * compatible between Windows and X11. Under X11, there
 353              * are only 3 possible color cursor: black, white and
 354              * masked. So we map the 4th Windows color (invert the
 355              * bits on the screen) to black and an additional white bit on
 356              * an other place (+1,+1). This require some boolean arithmetic:
 357              *
 358              *         Windows          |          X11
 359              * And    Xor      Result   |   Bits     Mask     Result
 360              *  0      0     black      |    0        1     background
 361              *  0      1     white      |    1        1     foreground
 362              *  1      0     no change  |    X        0     no change
 363              *  1      1     inverted   |    0        1     background
 364              *
 365              * which gives:
 366              *  Bits = not 'And' and 'Xor' or 'And2' and 'Xor2'
 367              *  Mask = not 'And' or 'Xor' or 'And2' and 'Xor2'
 368              *
 369              * FIXME: apparently some servers do support 'inverted' color.
 370              * I don't know if it's correct per the X spec, but maybe
 371              * we ought to take advantage of it.  -- AJ
 372              */
 373             XSetFunction( display, gc, GXcopy );
 374             XCopyArea( display, pixmapAll, pixmapBits, gc,
 375                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 376             XCopyArea( display, pixmapAll, pixmapMask, gc,
 377                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 378             XCopyArea( display, pixmapAll, pixmapMaskInv, gc,
 379                        0, 0, ptr->nWidth, ptr->nHeight, 0, 0 );
 380             XSetFunction( display, gc, GXand );
 381             XCopyArea( display, pixmapAll, pixmapMaskInv, gc,
 382                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 383             XSetFunction( display, gc, GXandReverse );
 384             XCopyArea( display, pixmapAll, pixmapBits, gc,
 385                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 386             XSetFunction( display, gc, GXorReverse );
 387             XCopyArea( display, pixmapAll, pixmapMask, gc,
 388                        0, ptr->nHeight, ptr->nWidth, ptr->nHeight, 0, 0 );
 389             /* Additional white */
 390             XSetFunction( display, gc, GXor );
 391             XCopyArea( display, pixmapMaskInv, pixmapMask, gc,
 392                        0, 0, ptr->nWidth, ptr->nHeight, 1, 1 );
 393             XCopyArea( display, pixmapMaskInv, pixmapBits, gc,
 394                        0, 0, ptr->nWidth, ptr->nHeight, 1, 1 );
 395             XSetFunction( display, gc, GXcopy );
 396             cursor = XCreatePixmapCursor( display, pixmapBits, pixmapMask,
 397                                 &fg, &bg, ptr->ptHotSpot.x, ptr->ptHotSpot.y );
 398         }
 399
 400         /* Now free everything */
 401
 402         if (pixmapAll) XFreePixmap( display, pixmapAll );
 403         if (pixmapBits) XFreePixmap( display, pixmapBits );
 404         if (pixmapMask) XFreePixmap( display, pixmapMask );
 405         if (pixmapMaskInv) XFreePixmap( display, pixmapMaskInv );
 406         XFreeGC( display, gc );
 407     }
 408     return cursor;
 409 }
 410
 411 /* set the cursor of a window; helper for X11DRV_SetCursor */
 412 static BOOL CALLBACK set_win_cursor( HWND hwnd, LPARAM cursor )
 413 {
 414     Window win = X11DRV_get_whole_window( hwnd );
 415     if (win) TSXDefineCursor( thread_display(), win, (Cursor)cursor );
 416     return TRUE;
 417 }
 418
 419 /***********************************************************************
 420  *              SetCursor (X11DRV.@)
 421  */
 422 void X11DRV_SetCursor( CURSORICONINFO *lpCursor )
 423 {
 424     Cursor cursor;
 425
 426     if (root_window != DefaultRootWindow(gdi_display))
 427     {
 428         /* If in desktop mode, set the cursor on the desktop window */
 429
 430         wine_tsx11_lock();
 431         cursor = X11DRV_GetCursor( gdi_display, lpCursor );
 432         if (cursor)
 433         {
 434             XDefineCursor( gdi_display, root_window, cursor );
 435             XFreeCursor( gdi_display, cursor );
 436         }
 437         wine_tsx11_unlock();
 438     }
 439     else /* set the same cursor for all top-level windows of the current thread */
 440     {
 441         Display *display = thread_display();
 442
 443         wine_tsx11_lock();
 444         cursor = X11DRV_GetCursor( display, lpCursor );
 445         wine_tsx11_unlock();
 446         if (cursor)
 447         {
 448 /*            EnumThreadWindows( GetCurrentThreadId(), set_win_cursor, (LPARAM)cursor );*/
 449             EnumWindows( set_win_cursor, (LPARAM)cursor );
 450             TSXFreeCursor( display, cursor );
 451         }
 452     }
 453 }
 454
 455 /***********************************************************************
 456  *              SetCursorPos (X11DRV.@)
 457  */
 458 void X11DRV_SetCursorPos( INT x, INT y )
 459 {
 460     Display *display = thread_display();
 461
 462     TRACE( "warping to (%d,%d)\n", x, y );
 463
 464     wine_tsx11_lock();
 465     XWarpPointer( display, root_window, root_window, 0, 0, 0, 0, x, y );
 466     XFlush( display ); /* just in case */
 467     wine_tsx11_unlock();
 468 }
 469
 470 /***********************************************************************
 471  *              GetCursorPos (X11DRV.@)
 472  */
 473 void X11DRV_GetCursorPos(LPPOINT pos)
 474 {
 475   Display *display = thread_display();
 476   Window root, child;
 477   int rootX, rootY, winX, winY;
 478   unsigned int xstate;
 479
 480   if (!TSXQueryPointer( display, root_window, &root, &child,
 481                         &rootX, &rootY, &winX, &winY, &xstate ))
 482     return;
 483
 484   TRACE("pointer at (%d,%d)\n", winX, winY );
 485   pos->x = winX;
 486   pos->y = winY;
 487 }
 488
 489 /***********************************************************************
 490  *              InitMouse (X11DRV.@)
 491  */
 492 void X11DRV_InitMouse( BYTE *key_state_table )
 493 {
 494     Window root, child;
 495     int root_x, root_y, child_x, child_y;
 496     unsigned int KeyState;
 497
 498     pKeyStateTable = key_state_table;
 499     /* Get the current mouse position and simulate an absolute mouse
 500        movement to initialize the mouse global variables */
 501     TSXQueryPointer( thread_display(), root_window, &root, &child,
 502                      &root_x, &root_y, &child_x, &child_y, &KeyState);
 503     update_key_state( KeyState );
 504     send_mouse_event( 0, MOUSEEVENTF_MOVE | MOUSEEVENTF_ABSOLUTE,
 505                       root_x, root_y, 0, GetTickCount() + X11DRV_server_startticks );
 506 }
 507
 508
 509 /***********************************************************************
 510  *           X11DRV_ButtonPress
 511  */
 512 void X11DRV_ButtonPress( HWND hwnd, XButtonEvent *event )
 513 {
 514     int buttonNum = event->button - 1;
 515     WORD wData = 0;
 516     POINT pt;
 517
 518     if (buttonNum >= NB_BUTTONS) return;
 519
 520     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 521
 522     switch (buttonNum)
 523     {
 524     case 3:
 525         wData = WHEEL_DELTA;
 526         break;
 527     case 4:
 528         wData = -WHEEL_DELTA;
 529         break;
 530     }
 531     update_key_state( event->state );
 532     send_mouse_event( hwnd, button_down_flags[buttonNum] | MOUSEEVENTF_ABSOLUTE,
 533                       pt.x, pt.y, wData, event->time );
 534 }
 535
 536
 537 /***********************************************************************
 538  *           X11DRV_ButtonRelease
 539  */
 540 void X11DRV_ButtonRelease( HWND hwnd, XButtonEvent *event )
 541 {
 542     int buttonNum = event->button - 1;
 543     POINT pt;
 544
 545     if (buttonNum >= NB_BUTTONS || !button_up_flags[buttonNum]) return;
 546
 547     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 548     update_key_state( event->state );
 549     send_mouse_event( hwnd, button_up_flags[buttonNum] | MOUSEEVENTF_ABSOLUTE,
 550                       pt.x, pt.y, 0, event->time );
 551 }
 552
 553
 554 /***********************************************************************
 555  *           X11DRV_MotionNotify
 556  */
 557 void X11DRV_MotionNotify( HWND hwnd, XMotionEvent *event )
 558 {
 559     POINT pt;
 560
 561     get_coords( &hwnd, event->window, event->x, event->y, &pt );
 562     update_key_state( event->state );
 563     send_mouse_event( hwnd, MOUSEEVENTF_MOVE | MOUSEEVENTF_ABSOLUTE,
 564                       pt.x, pt.y, 0, event->time );
 565 }
 566
 567
 568 #ifdef HAVE_LIBXXF86DGA2
 569 /**********************************************************************
 570  *              X11DRV_DGAMotionEvent
 571  */
 572 void X11DRV_DGAMotionEvent( HWND hwnd, XDGAMotionEvent *event )
 573 {
 574     update_key_state( event->state );
 575     send_mouse_event( hwnd, MOUSEEVENTF_MOVE, event->dx, event->dy, 0, event->time );
 576 }
 577
 578 /**********************************************************************
 579  *              X11DRV_DGAButtonPressEvent
 580  */
 581 void X11DRV_DGAButtonPressEvent( HWND hwnd, XDGAButtonEvent *event )
 582 {
 583     int buttonNum = event->button - 1;
 584
 585     if (buttonNum >= NB_BUTTONS) return;
 586     update_key_state( event->state );
 587     send_mouse_event( hwnd, button_down_flags[buttonNum], 0, 0, 0, event->time );
 588 }
 589
 590 /**********************************************************************
 591  *              X11DRV_DGAButtonReleaseEvent
 592  */
 593 void X11DRV_DGAButtonReleaseEvent( HWND hwnd, XDGAButtonEvent *event )
 594 {
 595     int buttonNum = event->button - 1;
 596
 597     if (buttonNum >= NB_BUTTONS) return;
 598     update_key_state( event->state );
 599     send_mouse_event( hwnd, button_up_flags[buttonNum], 0, 0, 0, event->time );
 600 }
 601 #endif /* HAVE_LIBXXF86DGA2 */