Mercurial > sdl-ios-xcode
annotate src/video/photon/SDL_ph_wm.c @ 288:2f5a6062db86
Updated for Watcom C++ and LCC compilers
| author | Sam Lantinga <slouken@libsdl.org> |
|---|---|
| date | Thu, 28 Feb 2002 00:28:26 +0000 |
| parents | 3d8b6b9f1e18 |
| children | 68a8a8237c09 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 SDL - Simple DirectMedia Layer | |
| 3 Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga | |
| 4 | |
| 5 This library is free software; you can redistribute it and/or | |
| 6 modify it under the terms of the GNU Library General Public | |
| 7 License as published by the Free Software Foundation; either | |
| 8 version 2 of the License, or (at your option) any later version. | |
| 9 | |
| 10 This library is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 Library General Public License for more details. | |
| 14 | |
| 15 You should have received a copy of the GNU Library General Public | |
| 16 License along with this library; if not, write to the Free | |
| 17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| 18 | |
| 19 Sam Lantinga | |
|
252
e8157fcb3114
Updated the source with the correct e-mail address
Sam Lantinga <slouken@libsdl.org>
parents:
190
diff
changeset
|
20 slouken@libsdl.org |
| 0 | 21 */ |
| 22 | |
| 23 #ifdef SAVE_RCSID | |
| 24 static char rcsid = | |
| 25 "@(#) $Id$"; | |
| 26 #endif | |
| 27 | |
|
19
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
28 #define DISABLE_X11 |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
29 |
| 0 | 30 #include <stdlib.h> |
| 31 #include <string.h> | |
| 32 #include <Ph.h> | |
|
19
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
33 #include <photon/PpProto.h> |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
34 #include <photon/PhWm.h> |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
35 #include <photon/wmapi.h> |
| 0 | 36 #include "SDL_version.h" |
| 37 #include "SDL_error.h" | |
| 38 #include "SDL_timer.h" | |
| 39 #include "SDL_video.h" | |
| 40 #include "SDL_syswm.h" | |
| 41 #include "SDL_events_c.h" | |
| 42 #include "SDL_pixels_c.h" | |
| 43 #include "SDL_ph_modes_c.h" | |
| 44 #include "SDL_ph_wm_c.h" | |
| 45 | |
| 46 /* This is necessary for working properly with Enlightenment, etc. */ | |
| 47 #define USE_ICON_WINDOW | |
| 48 | |
| 49 void ph_SetIcon(_THIS, SDL_Surface *icon, Uint8 *mask) | |
| 50 { | |
| 51 | |
| 52 #if 0 /*big*/ | |
| 53 int ncolors; | |
| 54 PhImage_t *image; | |
| 55 PgColor_t* palette; | |
| 56 | |
| 57 image = PhCreateImage( image, | |
| 58 icon->w, | |
| 59 icon->h, | |
| 60 Pg_IMAGE_DIRECT_888, | |
| 61 NULL, 0, 0 ); | |
| 62 | |
| 63 /* ---------------------------------------- */ | |
| 64 SDL_Surface *sicon; | |
| 65 // XWMHints *wmhints; | |
| 66 // XImage *icon_image; | |
| 67 // Pixmap icon_pixmap; | |
| 68 // Pixmap mask_pixmap; | |
| 69 // GC GC; | |
| 70 // XGCValues GCvalues; | |
| 71 int i, b, dbpp; | |
| 72 SDL_Rect bounds; | |
| 73 Uint8 *LSBmask, *color_tried; | |
| 74 Visual *dvis; | |
| 75 | |
| 76 /* Lock the event thread, in multi-threading environments */ | |
| 77 SDL_Lock_EventThread(); | |
| 78 | |
| 79 /* The icon must use the default visual, depth and colormap of the | |
| 80 screen, so it might need a conversion */ | |
| 81 // ? dbpp = DefaultDepth(SDL_Display, SDL_Screen); | |
| 82 switch(dbpp) { | |
| 83 case 15: | |
| 84 dbpp = 16; break; | |
| 85 case 24: | |
| 86 dbpp = 32; break; | |
| 87 } | |
| 88 dvis = DefaultVisual(SDL_Display, SDL_Screen); | |
| 89 | |
| 90 /* The Visual struct is supposed to be opaque but we cheat a little */ | |
| 91 sicon = SDL_CreateRGBSurface(SDL_SWSURFACE, icon->w, icon->h, | |
| 92 dbpp, | |
| 93 dvis->red_mask, dvis->green_mask, | |
| 94 dvis->blue_mask, 0); | |
| 95 | |
| 96 if ( sicon == NULL ) { | |
| 97 goto done; | |
| 98 } | |
| 99 /* If we already have allocated colours from the default colormap, | |
| 100 copy them */ | |
| 101 if(SDL_Visual == dvis && SDL_XColorMap == SDL_DisplayColormap | |
| 102 && this->screen->format->palette && sicon->format->palette) { | |
| 103 memcpy(sicon->format->palette->colors, | |
| 104 this->screen->format->palette->colors, | |
| 105 this->screen->format->palette->ncolors * sizeof(SDL_Color)); | |
| 106 } | |
| 107 | |
| 108 bounds.x = 0; | |
| 109 bounds.y = 0; | |
| 110 bounds.w = icon->w; | |
| 111 bounds.h = icon->h; | |
| 112 if ( SDL_LowerBlit(icon, &bounds, sicon, &bounds) < 0 ) | |
| 113 goto done; | |
| 114 | |
| 115 /* Lock down the colors used in the colormap */ | |
| 116 color_tried = NULL; | |
| 117 if ( sicon->format->BitsPerPixel == 8 ) { | |
| 118 SDL_Palette *palette; | |
| 119 Uint8 *p; | |
| 120 XColor wanted; | |
| 121 | |
| 122 palette = sicon->format->palette; | |
| 123 color_tried = malloc(palette->ncolors); | |
| 124 if ( color_tried == NULL ) { | |
| 125 goto done; | |
| 126 } | |
| 127 if ( SDL_iconcolors != NULL ) { | |
| 128 free(SDL_iconcolors); | |
| 129 } | |
| 130 SDL_iconcolors = malloc(palette->ncolors | |
| 131 * sizeof(*SDL_iconcolors)); | |
| 132 if ( SDL_iconcolors == NULL ) { | |
| 133 free(color_tried); | |
| 134 goto done; | |
| 135 } | |
| 136 memset(color_tried, 0, palette->ncolors); | |
| 137 memset(SDL_iconcolors, 0, | |
| 138 palette->ncolors * sizeof(*SDL_iconcolors)); | |
| 139 | |
| 140 p = (Uint8 *)sicon->pixels; | |
| 141 for ( i = sicon->w*sicon->h; i > 0; --i, ++p ) { | |
| 142 if ( ! color_tried[*p] ) { | |
| 143 wanted.pixel = *p; | |
| 144 wanted.red = (palette->colors[*p].r<<8); | |
| 145 wanted.green = (palette->colors[*p].g<<8); | |
| 146 wanted.blue = (palette->colors[*p].b<<8); | |
| 147 wanted.flags = (DoRed|DoGreen|DoBlue); | |
| 148 if (XAllocColor(SDL_Display, | |
| 149 SDL_DisplayColormap, &wanted)) { | |
| 150 ++SDL_iconcolors[wanted.pixel]; | |
| 151 } | |
| 152 color_tried[*p] = 1; | |
| 153 } | |
| 154 } | |
| 155 } | |
| 156 if ( color_tried != NULL ) { | |
| 157 free(color_tried); | |
| 158 } | |
| 159 | |
| 160 /* Translate mask data to LSB order and set the icon mask */ | |
| 161 i = (sicon->w/8)*sicon->h; | |
| 162 LSBmask = (Uint8 *)malloc(i); | |
| 163 if ( LSBmask == NULL ) { | |
| 164 goto done; | |
| 165 } | |
| 166 memset(LSBmask, 0, i); | |
| 167 while ( --i >= 0 ) { | |
| 168 for ( b=0; b<8; ++b ) | |
| 169 LSBmask[i] |= (((mask[i]>>b)&0x01)<<(7-b)); | |
| 170 } | |
| 171 mask_pixmap = XCreatePixmapFromBitmapData(SDL_Display, WMwindow, | |
| 172 LSBmask, sicon->w, sicon->h, 1L, 0L, 1); | |
| 173 | |
| 174 /* Transfer the image to an X11 pixmap */ | |
| 175 icon_image = XCreateImage(SDL_Display, | |
| 176 DefaultVisual(SDL_Display, SDL_Screen), | |
| 177 DefaultDepth(SDL_Display, SDL_Screen), | |
| 178 ZPixmap, 0, (char *)sicon->pixels, sicon->w, sicon->h, | |
| 179 ((sicon->format)->BytesPerPixel == 3) ? 32 : | |
| 180 (sicon->format)->BytesPerPixel*8, 0); | |
| 181 icon_pixmap = XCreatePixmap(SDL_Display, SDL_Root, sicon->w, sicon->h, | |
| 182 DefaultDepth(SDL_Display, SDL_Screen)); | |
| 183 GC = XCreateGC(SDL_Display, icon_pixmap, 0, &GCvalues); | |
| 184 XPutImage(SDL_Display, icon_pixmap, GC, icon_image, | |
| 185 0, 0, 0, 0, sicon->w, sicon->h); | |
| 186 XFreeGC(SDL_Display, GC); | |
| 187 XDestroyImage(icon_image); | |
| 188 free(LSBmask); | |
| 189 sicon->pixels = NULL; | |
| 190 | |
| 191 #ifdef USE_ICON_WINDOW | |
| 192 /* Create an icon window and set the pixmap as its background */ | |
| 193 icon_window = XCreateSimpleWindow(SDL_Display, SDL_Root, | |
| 194 0, 0, sicon->w, sicon->h, 0, | |
| 195 CopyFromParent, CopyFromParent); | |
| 196 XSetWindowBackgroundPixmap(SDL_Display, icon_window, icon_pixmap); | |
| 197 XClearWindow(SDL_Display, icon_window); | |
| 198 #endif | |
| 199 | |
| 200 /* Set the window icon to the icon pixmap (and icon window) */ | |
| 201 wmhints = XAllocWMHints(); | |
| 202 wmhints->flags = (IconPixmapHint | IconMaskHint); | |
| 203 wmhints->icon_pixmap = icon_pixmap; | |
| 204 wmhints->icon_mask = mask_pixmap; | |
| 205 #ifdef USE_ICON_WINDOW | |
| 206 wmhints->flags |= IconWindowHint; | |
| 207 wmhints->icon_window = icon_window; | |
| 208 #endif | |
| 209 XSetWMHints(SDL_Display, WMwindow, wmhints); | |
| 210 XFree(wmhints); | |
| 211 XSync(SDL_Display, False); | |
| 212 | |
| 213 done: | |
| 214 SDL_Unlock_EventThread(); | |
| 215 if ( sicon != NULL ) { | |
| 216 SDL_FreeSurface(sicon); | |
| 217 } | |
| 218 | |
| 219 #endif /*big*/ | |
| 220 return; | |
| 221 } | |
| 222 | |
|
19
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
223 /* Set window caption */ |
| 0 | 224 void ph_SetCaption(_THIS, const char *title, const char *icon) |
| 225 { | |
|
19
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
226 SDL_Lock_EventThread(); |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
227 if ( title != NULL ) { |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
228 PtSetResource(window, Pt_ARG_WINDOW_TITLE, title, 0); |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
229 } |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
230 SDL_Unlock_EventThread(); |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
231 } |
| 0 | 232 |
|
266
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
233 /* Iconify current window */ |
|
19
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
234 int ph_IconifyWindow(_THIS) |
|
8cc4dbfab9ab
Date: Thu, 19 Apr 2001 08:36:54 +0300
Sam Lantinga <slouken@lokigames.com>
parents:
0
diff
changeset
|
235 { |
|
283
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
236 PhWindowEvent_t windowevent; |
| 0 | 237 |
|
283
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
238 SDL_Lock_EventThread(); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
239 memset( &windowevent, 0, sizeof (event) ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
240 windowevent.event_f = Ph_WM_HIDE; |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
241 windowevent.event_state = Ph_WM_EVSTATE_HIDE; |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
242 windowevent.rid = PtWidgetRid( window ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
243 PtForwardWindowEvent( &windowevent ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
244 SDL_Unlock_EventThread(); |
| 0 | 245 } |
| 246 | |
| 247 SDL_GrabMode ph_GrabInputNoLock(_THIS, SDL_GrabMode mode) | |
| 248 { | |
|
266
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
249 return(mode); |
| 0 | 250 } |
| 251 | |
| 252 SDL_GrabMode ph_GrabInput(_THIS, SDL_GrabMode mode) | |
| 253 { | |
|
283
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
254 short abs_x, abs_y; |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
255 |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
256 SDL_Lock_EventThread(); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
257 /* mode = ph_GrabInputNoLock(this, mode);*/ |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
258 |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
259 if( mode == SDL_GRAB_OFF ) |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
260 { |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
261 PtSetResource(window, Pt_ARG_WINDOW_STATE, Pt_FALSE, |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
262 Ph_WM_STATE_ISALTKEY ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
263 } |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
264 else |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
265 { |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
266 PtSetResource(window, Pt_ARG_WINDOW_STATE, Pt_TRUE, |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
267 Ph_WM_STATE_ISALTKEY ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
268 |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
269 PtGetAbsPosition( window, &abs_x, &abs_y ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
270 PhMoveCursorAbs( PhInputGroup( NULL ), |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
271 abs_x + SDL_VideoSurface->w/2, |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
272 abs_y + SDL_VideoSurface->h/2 ); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
273 } |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
274 |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
275 SDL_Unlock_EventThread(); |
|
3d8b6b9f1e18
Date: Mon, 18 Feb 2002 16:46:59 +1200
Sam Lantinga <slouken@libsdl.org>
parents:
266
diff
changeset
|
276 return(mode); |
| 0 | 277 } |
| 278 | |
| 279 int ph_GetWMInfo(_THIS, SDL_SysWMinfo *info) | |
| 280 { | |
|
266
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
281 if (info->version.major <= SDL_MAJOR_VERSION) |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
282 { |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
283 return 1; |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
284 } |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
285 else |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
286 { |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
287 SDL_SetError("Application not compiled with SDL %d.%d\n", |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
288 SDL_MAJOR_VERSION, SDL_MINOR_VERSION); |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
289 return -1; |
|
c6abdda2f666
Added QNX cleanups by Mike Gorchak (thanks!)
Sam Lantinga <slouken@libsdl.org>
parents:
252
diff
changeset
|
290 } |
| 0 | 291 } |