/*

SDL - Simple DirectMedia Layer

Copyright (C) 1997-2006 Sam Lantinga

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

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 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

Lesser General Public License for more details.

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

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

Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

Sam Lantinga

slouken@libsdl.org

*/

#include "SDL_config.h"

#include <X11/Xlib.h>

#include <X11/Xutil.h>

#include "SDL_version.h"

#include "SDL_timer.h"

#include "SDL_video.h"

#include "SDL_syswm.h"

#include "../SDL_pixels_c.h"

#include "../../events/SDL_events_c.h"

#include "SDL_x11modes_c.h"

#include "SDL_x11wm_c.h"

static Uint8

reverse_byte (Uint8 x)

{

x = (x & 0xaa) >> 1 | (x & 0x55) << 1;

x = (x & 0xcc) >> 2 | (x & 0x33) << 2;

x = (x & 0xf0) >> 4 | (x & 0x0f) << 4;

return x;

}

void

X11_SetIcon (_THIS, SDL_Surface * icon, Uint8 * mask)

{

SDL_Surface *sicon;

XWMHints *wmhints;

XImage *icon_image;

Pixmap icon_pixmap;

Pixmap mask_pixmap;

Window icon_window = None;

GC gc;

XGCValues GCvalues;

int i, dbpp;

SDL_Rect bounds;

Uint8 *LSBmask;

Visual *dvis;

char *p;

int masksize;

SDL_Lock_EventThread ();

/* The icon must use the default visual, depth and colormap of the

screen, so it might need a conversion */

dvis = DefaultVisual (SDL_Display, SDL_Screen);

dbpp = DefaultDepth (SDL_Display, SDL_Screen);

for (i = 0; i < this->hidden->nvisuals; i++) {

if (this->hidden->visuals[i].visual == dvis) {

dbpp = this->hidden->visuals[i].bpp;

break;

}

}

/* The Visual struct is supposed to be opaque but we cheat a little */

sicon = SDL_CreateRGBSurface (SDL_SWSURFACE, icon->w, icon->h,

dbpp,

dvis->red_mask, dvis->green_mask,

dvis->blue_mask, 0);

if (sicon == NULL)

goto done;

if (dbpp == 8) {

/* Default visual is 8bit; we need to allocate colours from

the default colormap */

SDL_Color want[256], got[256];

int nwant;

Colormap dcmap;

int missing;

dcmap = DefaultColormap (SDL_Display, SDL_Screen);

if (icon->format->palette) {

/* The icon has a palette as well - we just have to

find those colours */

nwant = icon->format->palette->ncolors;

SDL_memcpy (want, icon->format->palette->colors,

nwant * sizeof want[0]);

} else {

/* try the standard 6x6x6 cube for lack of better

ideas */

int r, g, b, i;

for (r = i = 0; r < 256; r += 0x33)

for (g = 0; g < 256; g += 0x33)

for (b = 0; b < 256; b += 0x33, i++) {

want[i].r = r;

want[i].g = g;

want[i].b = b;

}

nwant = 216;

}

if (SDL_iconcolors) {

/* free already allocated colours first */

unsigned long freelist[512];

int nfree = 0;

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

while (SDL_iconcolors[i]) {

freelist[nfree++] = i;

SDL_iconcolors[i]--;

}

}

XFreeColors (GFX_Display, dcmap, freelist, nfree, 0);

}

if (!SDL_iconcolors)

SDL_iconcolors = SDL_malloc (256 * sizeof *SDL_iconcolors);

SDL_memset (SDL_iconcolors, 0, 256 * sizeof *SDL_iconcolors);

/* try to allocate the colours */

SDL_memset (got, 0, sizeof got);

missing = 0;

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

XColor c;

c.red = want[i].r << 8;

c.green = want[i].g << 8;

c.blue = want[i].b << 8;

c.flags = DoRed | DoGreen | DoBlue;

if (XAllocColor (GFX_Display, dcmap, &c)) {

/* got the colour */

SDL_iconcolors[c.pixel]++;

got[c.pixel] = want[i];

} else {

missing = 1;

}

}

if (missing) {

/* Some colours were apparently missing, so we just

allocate all the rest as well */

XColor cols[256];

for (i = 0; i < 256; i++)

cols[i].pixel = i;

XQueryColors (GFX_Display, dcmap, cols, 256);

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

got[i].r = cols[i].red >> 8;

got[i].g = cols[i].green >> 8;

got[i].b = cols[i].blue >> 8;

if (!SDL_iconcolors[i]) {

if (XAllocColor (GFX_Display, dcmap, cols + i)) {

SDL_iconcolors[i] = 1;

} else {

/* index not available */

got[i].r = 0;

got[i].g = 0;

got[i].b = 0;

}

}

}

}

SDL_SetColors (sicon, got, 0, 256);

}

bounds.x = 0;

bounds.y = 0;

bounds.w = icon->w;

bounds.h = icon->h;

if (SDL_LowerBlit (icon, &bounds, sicon, &bounds) < 0)

goto done;

/* We need the mask as given, except in LSBfirst format instead of

MSBfirst. Reverse the bits in each byte. */

masksize = ((sicon->w + 7) >> 3) * sicon->h;

LSBmask = SDL_malloc (masksize);

if (LSBmask == NULL) {

goto done;

}

SDL_memset (LSBmask, 0, masksize);

for (i = 0; i < masksize; i++)

LSBmask[i] = reverse_byte (mask[i]);

mask_pixmap = XCreatePixmapFromBitmapData (SDL_Display, WMwindow,

(char *) LSBmask,

sicon->w, sicon->h, 1L, 0L, 1);

/* Transfer the image to an X11 pixmap */

icon_image = XCreateImage (SDL_Display,

DefaultVisual (SDL_Display, SDL_Screen),

DefaultDepth (SDL_Display, SDL_Screen),

ZPixmap, 0, sicon->pixels,

sicon->w, sicon->h, 32, 0);

icon_image->byte_order = (SDL_BYTEORDER == SDL_BIG_ENDIAN)

? MSBFirst : LSBFirst;

icon_pixmap = XCreatePixmap (SDL_Display, SDL_Root, sicon->w, sicon->h,

DefaultDepth (SDL_Display, SDL_Screen));

gc = XCreateGC (SDL_Display, icon_pixmap, 0, &GCvalues);

XPutImage (SDL_Display, icon_pixmap, gc, icon_image,

0, 0, 0, 0, sicon->w, sicon->h);

XFreeGC (SDL_Display, gc);

XDestroyImage (icon_image);

SDL_free (LSBmask);

sicon->pixels = NULL;

/* Some buggy window managers (some versions of Enlightenment, it

seems) need an icon window *and* icon pixmap to work properly, while

it screws up others. The default is only to use a pixmap. */

p = SDL_getenv ("SDL_VIDEO_X11_ICONWIN");

if (p && *p) {

icon_window = XCreateSimpleWindow (SDL_Display, SDL_Root,

0, 0, sicon->w, sicon->h, 0,

CopyFromParent, CopyFromParent);

XSetWindowBackgroundPixmap (SDL_Display, icon_window, icon_pixmap);

XClearWindow (SDL_Display, icon_window);

}

/* Set the window icon to the icon pixmap (and icon window) */

wmhints = XAllocWMHints ();

wmhints->flags = (IconPixmapHint | IconMaskHint);

wmhints->icon_pixmap = icon_pixmap;

wmhints->icon_mask = mask_pixmap;

if (icon_window != None) {

wmhints->flags |= IconWindowHint;

wmhints->icon_window = icon_window;

}

XSetWMHints (SDL_Display, WMwindow, wmhints);

XFree (wmhints);

XSync (SDL_Display, False);

done:

SDL_Unlock_EventThread ();

SDL_FreeSurface (sicon);

}

void

X11_SetCaptionNoLock (_THIS, const char *title, const char *icon)

{

XTextProperty titleprop, iconprop;

Status status;

#ifdef X_HAVE_UTF8_STRING

Atom _NET_WM_NAME;

Atom _NET_WM_ICON_NAME;

/* Look up some useful Atoms */

if (SDL_X11_HAVE_UTF8) {

_NET_WM_NAME = XInternAtom (SDL_Display, "_NET_WM_NAME", False);

_NET_WM_ICON_NAME =

XInternAtom (SDL_Display, "_NET_WM_ICON_NAME", False);

}

#endif

if (title != NULL) {

char *title_latin1 = SDL_iconv_utf8_latin1 ((char *) title);

if (!title_latin1) {

SDL_OutOfMemory ();

return;

}

status = XStringListToTextProperty (&title_latin1, 1, &titleprop);

SDL_free (title_latin1);

if (status) {

XSetTextProperty (SDL_Display, WMwindow, &titleprop, XA_WM_NAME);

XFree (titleprop.value);

}

#ifdef X_HAVE_UTF8_STRING

if (SDL_X11_HAVE_UTF8) {

status = Xutf8TextListToTextProperty (SDL_Display,

(char **) &title, 1,

XUTF8StringStyle,

&titleprop);

if (status == Success) {

XSetTextProperty (SDL_Display, WMwindow, &titleprop,

_NET_WM_NAME);

XFree (titleprop.value);

}

}

#endif

}

if (icon != NULL) {

char *icon_latin1 = SDL_iconv_utf8_latin1 ((char *) icon);

if (!icon_latin1) {

SDL_OutOfMemory ();

return;

}

status = XStringListToTextProperty (&icon_latin1, 1, &iconprop);

SDL_free (icon_latin1);

if (status) {

XSetTextProperty (SDL_Display, WMwindow, &iconprop,

XA_WM_ICON_NAME);

XFree (iconprop.value);

}

#ifdef X_HAVE_UTF8_STRING

if (SDL_X11_HAVE_UTF8) {

status = Xutf8TextListToTextProperty (SDL_Display,

(char **) &icon, 1,

XUTF8StringStyle,

&iconprop);

if (status == Success) {

XSetTextProperty (SDL_Display, WMwindow, &iconprop,

_NET_WM_ICON_NAME);

XFree (iconprop.value);

}

}

#endif

}

XSync (SDL_Display, False);

}

void

X11_SetCaption (_THIS, const char *title, const char *icon)

{

SDL_Lock_EventThread ();

X11_SetCaptionNoLock (this, title, icon);

SDL_Unlock_EventThread ();

}

/* Iconify the window */

int

X11_IconifyWindow (_THIS)

{

int result;

SDL_Lock_EventThread ();

result = XIconifyWindow (SDL_Display, WMwindow, SDL_Screen);

XSync (SDL_Display, False);

SDL_Unlock_EventThread ();

return (result);

}

SDL_GrabMode

X11_GrabInputNoLock (_THIS, SDL_GrabMode mode)

{

int result;

if (SDL_VideoSurface == NULL) {

return (SDL_GRAB_OFF);

}

if (!SDL_Window) {

return (mode); /* Will be set later on mode switch */

}

if (mode == SDL_GRAB_OFF) {

XUngrabPointer (SDL_Display, CurrentTime);

XUngrabKeyboard (SDL_Display, CurrentTime);

} else {

if (SDL_VideoSurface->flags & SDL_FULLSCREEN) {

/* Unbind the mouse from the fullscreen window */

XUngrabPointer (SDL_Display, CurrentTime);

}

/* Try to grab the mouse */

#if 0 /* We'll wait here until we actually grab, otherwise behavior undefined */

for (numtries = 0; numtries < 10; ++numtries) {

#else

for (;;) {

#endif

result = XGrabPointer (SDL_Display, SDL_Window, True, 0,

GrabModeAsync, GrabModeAsync,

SDL_Window, None, CurrentTime);

if (result == GrabSuccess) {

break;

}

SDL_Delay (100);

}

if (result != GrabSuccess) {

/* Uh, oh, what do we do here? */ ;

}

/* Now grab the keyboard */

XGrabKeyboard (SDL_Display, WMwindow, True,

GrabModeAsync, GrabModeAsync, CurrentTime);

/* Raise the window if we grab the mouse */

if (!(SDL_VideoSurface->flags & SDL_FULLSCREEN))

XRaiseWindow (SDL_Display, WMwindow);

/* Make sure we register input focus */

SDL_PrivateAppActive (1, SDL_APPINPUTFOCUS);

}

XSync (SDL_Display, False);

return (mode);

}

SDL_GrabMode

X11_GrabInput (_THIS, SDL_GrabMode mode)

{

SDL_Lock_EventThread ();

mode = X11_GrabInputNoLock (this, mode);

SDL_Unlock_EventThread ();

return (mode);

}

/* If 'info' is the right version, this function fills it and returns 1.

Otherwise, in case of a version mismatch, it returns -1.

*/

static void

lock_display (void)

{

SDL_Lock_EventThread ();

}

static void

unlock_display (void)

{

/* Make sure any X11 transactions are completed */

SDL_VideoDevice *this = current_video;

XSync (SDL_Display, False);

SDL_Unlock_EventThread ();

}

int

X11_GetWMInfo (_THIS, SDL_SysWMinfo * info)

{

if (info->version.major <= SDL_MAJOR_VERSION) {

info->subsystem = SDL_SYSWM_X11;

info->info.x11.display = SDL_Display;

info->info.x11.window = SDL_Window;

if (SDL_VERSIONNUM (info->version.major,

info->version.minor,

info->version.patch) >= 1002) {

info->info.x11.fswindow = FSwindow;

info->info.x11.wmwindow = WMwindow;

}

info->info.x11.lock_func = lock_display;

info->info.x11.unlock_func = unlock_display;

return (1);

} else {

SDL_SetError ("Application not compiled with SDL %d.%d\n",

SDL_MAJOR_VERSION, SDL_MINOR_VERSION);

return (-1);

}

}

/* vi: set ts=4 sw=4 expandtab: */