/*

SDL - Simple DirectMedia Layer

Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Library General Public

License as published by the Free Software Foundation; either

version 2 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

Library General Public License for more details.

You should have received a copy of the GNU Library General Public

License along with this library; if not, write to the Free

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Sam Lantinga

slouken@devolution.com

*/

#ifdef SAVE_RCSID

static char rcsid =

"@(#) $Id$";

#endif

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <X11/Xlib.h>

#include <X11/Xutil.h>

#include "SDL_error.h"

#include "SDL_mouse.h"

#include "SDL_events_c.h"

#include "SDL_cursor_c.h"

#include "SDL_x11dga_c.h"

#include "SDL_x11mouse_c.h"

/* The implementation dependent data for the window manager cursor */

struct WMcursor {

Cursor x_cursor;

};

void X11_FreeWMCursor(_THIS, WMcursor *cursor)

{

if ( SDL_Display != NULL ) {

SDL_Lock_EventThread();

XFreeCursor(SDL_Display, cursor->x_cursor);

XSync(SDL_Display, False);

SDL_Unlock_EventThread();

}

free(cursor);

}

WMcursor *X11_CreateWMCursor(_THIS,

Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y)

{

WMcursor *cursor;

XGCValues GCvalues;

GC GCcursor;

XImage *data_image, *mask_image;

Pixmap data_pixmap, mask_pixmap;

int clen, i;

char *x_data, *x_mask;

static XColor black = { 0, 0, 0, 0 };

static XColor white = { 0xffff, 0xffff, 0xffff, 0xffff };

/* Allocate the cursor memory */

cursor = (WMcursor *)malloc(sizeof(WMcursor));

if ( cursor == NULL ) {

SDL_OutOfMemory();

return(NULL);

}

/* Mix the mask and the data */

clen = (w/8)*h;

x_data = (char *)malloc(clen);

if ( x_data == NULL ) {

free(cursor);

SDL_OutOfMemory();

return(NULL);

}

x_mask = (char *)malloc(clen);

if ( x_mask == NULL ) {

free(cursor);

free(x_data);

SDL_OutOfMemory();

return(NULL);

}

for ( i=0; i<clen; ++i ) {

/* The mask is OR'd with the data to turn inverted color

pixels black since inverted color cursors aren't supported

under X11.

*/

x_mask[i] = data[i] | mask[i];

x_data[i] = data[i];

}

/* Prevent the event thread from running while we use the X server */

SDL_Lock_EventThread();

/* Create the data image */

data_image = XCreateImage(SDL_Display,

DefaultVisual(SDL_Display, SDL_Screen),

1, XYBitmap, 0, x_data, w, h, 8, w/8);

data_image->byte_order = MSBFirst;

data_image->bitmap_bit_order = MSBFirst;

data_pixmap = XCreatePixmap(SDL_Display, SDL_Root, w, h, 1);

/* Create the data mask */

mask_image = XCreateImage(SDL_Display,

DefaultVisual(SDL_Display, SDL_Screen),

1, XYBitmap, 0, x_mask, w, h, 8, w/8);

mask_image->byte_order = MSBFirst;

mask_image->bitmap_bit_order = MSBFirst;

mask_pixmap = XCreatePixmap(SDL_Display, SDL_Root, w, h, 1);

/* Create the graphics context */

GCvalues.function = GXcopy;

GCvalues.foreground = ~0;

GCvalues.background = 0;

GCvalues.plane_mask = AllPlanes;

GCcursor = XCreateGC(SDL_Display, data_pixmap,

(GCFunction|GCForeground|GCBackground|GCPlaneMask),

&GCvalues);

/* Blit the images to the pixmaps */

XPutImage(SDL_Display, data_pixmap, GCcursor, data_image,

0, 0, 0, 0, w, h);

XPutImage(SDL_Display, mask_pixmap, GCcursor, mask_image,

0, 0, 0, 0, w, h);

XFreeGC(SDL_Display, GCcursor);

/* These free the x_data and x_mask memory pointers */

XDestroyImage(data_image);

XDestroyImage(mask_image);

/* Create the cursor */

cursor->x_cursor = XCreatePixmapCursor(SDL_Display, data_pixmap,

mask_pixmap, &black, &white, hot_x, hot_y);

/* Release the event thread */

XSync(SDL_Display, False);

SDL_Unlock_EventThread();

return(cursor);

}

int X11_ShowWMCursor(_THIS, WMcursor *cursor)

{

/* Don't do anything if the display is gone */

if ( SDL_Display == NULL ) {

return(0);

}

/* Set the X11 cursor cursor, or blank if cursor is NULL */

if ( SDL_Window ) {

SDL_Lock_EventThread();

if ( cursor == NULL ) {

if ( SDL_BlankCursor != NULL ) {

XDefineCursor(SDL_Display, SDL_Window,

SDL_BlankCursor->x_cursor);

}

} else {

XDefineCursor(SDL_Display, SDL_Window, cursor->x_cursor);

}

XSync(SDL_Display, False);

SDL_Unlock_EventThread();

}

return(1);

}

void X11_WarpWMCursor(_THIS, Uint16 x, Uint16 y)

{

if ( using_dga & DGA_MOUSE ) {

x += (this->screen->offset % this->screen->pitch) /

this->screen->format->BytesPerPixel;

y += (this->screen->offset / this->screen->pitch);

SDL_PrivateMouseMotion(0, 0, x, y);

} else {

SDL_Lock_EventThread();

XWarpPointer(SDL_Display, None, SDL_Window, 0, 0, 0, 0, x, y);

XSync(SDL_Display, False);

SDL_Unlock_EventThread();

}

}

/* Sets the mouse acceleration from a string of the form:

2/1/0

The first number is the numerator, followed by the acceleration

denumenator and threshold.

*/

static void SetMouseAccel(_THIS, const char *accel_param)

{

int i;

int accel_value[3];

char *mouse_param, *mouse_param_buf, *pin;

mouse_param_buf = (char *)malloc(strlen(accel_param)+1);

if ( ! mouse_param_buf ) {

return;

}

strcpy(mouse_param_buf, accel_param);

mouse_param = mouse_param_buf;

for ( i=0; (i < 3) && mouse_param; ++i ) {

pin = strchr(mouse_param, '/');

if ( pin ) {

*pin = '\0';

}

accel_value[i] = atoi(mouse_param);

if ( pin ) {

mouse_param = pin+1;

} else {

mouse_param = NULL;

}

}

if ( mouse_param_buf ) {

XChangePointerControl(SDL_Display, True, True,

accel_value[0], accel_value[1], accel_value[2]);

free(mouse_param_buf);

}

}

/* Check to see if we need to enter or leave mouse relative mode */

void X11_CheckMouseModeNoLock(_THIS)

{

char *env_override;

int enable_relative = 1;

/* Allow the user to override the relative mouse mode.

They almost never want to do this, as it seriously affects

applications that rely on continuous relative mouse motion.

*/

if ( env_override ) {

enable_relative = atoi(env_override);

}

if ( enable_relative &&

!(SDL_cursorstate & CURSOR_VISIBLE) &&

if ( ! mouse_relative ) {

X11_EnableDGAMouse(this);

if ( ! (using_dga & DGA_MOUSE) ) {

char *xmouse_accel;

SDL_GetMouseState(&mouse_last.x, &mouse_last.y);

/* Use as raw mouse mickeys as possible */

XGetPointerControl(SDL_Display,

&mouse_accel.numerator,

&mouse_accel.denominator,

&mouse_accel.threshold);

xmouse_accel=getenv("SDL_VIDEO_X11_MOUSEACCEL");

if ( xmouse_accel ) {

SetMouseAccel(this, xmouse_accel);

}

}

mouse_relative = 1;

}

} else {

if ( mouse_relative ) {

if ( using_dga & DGA_MOUSE ) {

X11_DisableDGAMouse(this);

} else {

XChangePointerControl(SDL_Display, True, True,

mouse_accel.numerator,

mouse_accel.denominator,

mouse_accel.threshold);

}

mouse_relative = 0;

}

}

}

void X11_CheckMouseMode(_THIS)

{

SDL_Lock_EventThread();

X11_CheckMouseModeNoLock(this);

SDL_Unlock_EventThread();

}