sdl-ios-xcode: src/video/os2fslib/SDL

annotate src/video/os2fslib/SDL_os2fslib.c @ 2825:620a91b6d263

Date: Tue, 02 Dec 2008 23:38:26 +0100 From: Couriersud Subject: Re: SDL: Keyboard layout unknown I have attached a diff which will add an additional keyboard layout to the x11 driver. The issue arose, when I moved to ubuntu intrepid. I was only able to map the keys available on my keyboard. The differences to the existing keyboard was the mapping of HOME,UP,DOWN and some other keys. Now only one issue remains. Dead keys (e.g. ^, ` ') on european keyboards do not generate a "scancode" event. Just a text event when the key is composed (e.g. ?? ?? ??).

author	Sam Lantinga <slouken@libsdl.org>
date	Wed, 03 Dec 2008 04:32:24 +0000
parents	204be4fc2726
children	99210400e8b9

rev	line source
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1 /*
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3 Copyright (C) 1997-2004 Sam Lantinga
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	4
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	6 modify it under the terms of the GNU Library General Public
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	8 version 2 of the License, or (at your option) any later version.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	9
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	13 Library General Public License for more details.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	14
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	15 You should have received a copy of the GNU Library General Public
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	16 License along with this library; if not, write to the Free
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	18
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	19 Sam Lantinga
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	20 slouken@libsdl.org
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	21 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1361 diff changeset	22 #include "SDL_config.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	23
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	24 #define _ULS_CALLCONV_
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	25 #define CALLCONV _System
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	26 #include <unidef.h> // Unicode API
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	27 #include <uconv.h> // Unicode API (codepage conversion)
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	28
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	29 #include <process.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	30 #include <time.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	31
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	32 #include "SDL_video.h"
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	33 #include "SDL_mouse.h"
1361 19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	34 #include "../SDL_sysvideo.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	35 #include "../SDL_pixels_c.h"
19418e4422cb New configure-based build system. Still work in progress, but much improved Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	36 #include "../../events/SDL_events_c.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	37
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	38 #include "SDL_os2fslib.h"
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	39
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	40 static ULONG ulFCFToUse =
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	41 FCF_TITLEBAR \|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	42 FCF_SYSMENU \|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	43 FCF_MINBUTTON \|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	44 FCF_MAXBUTTON \| FCF_NOBYTEALIGN \| FCF_SIZEBORDER \| FCF_TASKLIST;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	45
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	46 static int bMouseCaptured = 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	47 static int bMouseCapturable = 0;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	48 static HPOINTER hptrGlobalPointer = NULL;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	49 static HPOINTER hptrCurrentIcon = NULL;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	50 static int iWindowSizeX = 320;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	51 static int iWindowSizeY = 200;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	52 static int bWindowResized = 0;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	53
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	54 #pragma pack(1)
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	55 typedef struct BMPINFO
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	56 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	57 BITMAPINFO;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	58 RGB clr;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	59 } BMPINFO, *PBMPINFO;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	60 #pragma pack()
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	61
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	62
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	63 // Backdoors:
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	64 DECLSPEC void SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	65 SDL_OS2FSLIB_SetFCFToUse(ULONG ulFCF)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	66 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	67 ulFCFToUse = ulFCF;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	68 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	69
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	70 // Configuration defines:
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	71
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	72 // We have to report empty alpha mask, otherwise SDL will select
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	73 // alpha blitters, and this will have unwanted results, as we don't
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	74 // support alpha channel in FSLib yet.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	75 #define REPORT_EMPTY_ALPHA_MASK
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	76
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	77 // Experimental: Move every FSLib_BitBlt() call into window message
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	78 // processing function.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	79 // This may fix dirt left on desktop. Or not.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	80 //#define BITBLT_IN_WINMESSAGEPROC
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	81
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	82 // Experimental-2: Use WinLockWindowUpdate() in around bitblts!
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	83 // This is not enabled, because it seems to cause more problems
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	84 // than good.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	85 //#define USE_WINLOCKWINDOWUPDATE_AROUND_BITBLTS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	86
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	87 // Use the following to show resized image instead of black stuff
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	88 // even if the surface is resizable.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	89 //#define RESIZE_EVEN_IF_RESIZABLE
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	90
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	91 /* The translation table from a VK keysym to a SDL keysym */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	92 static SDLKey HWScanKeyMap[256];
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	93 static SDL_keysym *TranslateKey(int vkey, int chcode, int scancode,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	94 SDL_keysym * keysym, int iPressed);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	95 static int iShiftIsPressed;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	96
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	97 #ifdef BITBLT_IN_WINMESSAGEPROC
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	98 #define WM_UPDATERECTSREQUEST WM_USER+50
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	99 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	100
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	101 #ifdef USE_WINLOCKWINDOWUPDATE_AROUND_BITBLTS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	102 #define FSLIB_BITBLT(hwnd, buffer, top, left, width, height) \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	103 { \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	104 WinLockWindowUpdate(HWND_DESKTOP, HWND_DESKTOP); \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	105 FSLib_BitBlt(hwnd, buffer, top, left, width, height); \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	106 WinLockWindowUpdate(HWND_DESKTOP, NULL); \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	107 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	108 #else
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	109 #define FSLIB_BITBLT(hwnd, buffer, top, left, width, height) \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	110 FSLib_BitBlt(hwnd, buffer, top, left, width, height);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	111 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	112
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	113 /////////////////////////////////////////////////////////////////////
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	114 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	115 // SetAccessableWindowPos
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	116 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	117 // Same as WinSetWindowPos(), but takes care for the window to be
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	118 // always on the screen, the titlebar will be accessable everytime.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	119 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	120 /////////////////////////////////////////////////////////////////////
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	121 static BOOL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	122 SetAccessableWindowPos(HWND hwnd, HWND hwndInsertBehind,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	123 LONG x, LONG y, LONG cx, LONG cy, ULONG fl)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	124 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	125 SWP swpDesktop, swp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	126 // Get desktop area
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	127 WinQueryWindowPos(HWND_DESKTOP, &swpDesktop);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	128
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	129 if ((fl & SWP_MOVE) && (fl & SWP_SIZE)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	130 // If both moving and sizing, then change size and pos now!!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	131 if (x + cx > swpDesktop.cx)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	132 x = swpDesktop.cx - cx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	133 if (x < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	134 x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	135 if (y < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	136 y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	137 if (y + cy > swpDesktop.cy)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	138 y = swpDesktop.cy - cy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	139 return WinSetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	140 } else if (fl & SWP_MOVE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	141 // Just moving
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	142 WinQueryWindowPos(hwnd, &swp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	143 if (x + swp.cx > swpDesktop.cx)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	144 x = swpDesktop.cx - swp.cx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	145 if (x < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	146 x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	147 if (y < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	148 y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	149 if (y + swp.cy > swpDesktop.cy)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	150 y = swpDesktop.cy - swp.cy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	151 return WinSetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	152 } else if (fl & SWP_SIZE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	153 // Just sizing
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	154 WinQueryWindowPos(hwnd, &swp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	155 x = swp.x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	156 y = swp.y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	157 if (x + cx > swpDesktop.cx)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	158 x = swpDesktop.cx - cx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	159 if (x < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	160 x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	161 if (y < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	162 y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	163 if (y + cy > swpDesktop.cy)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	164 y = swpDesktop.cy - cy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	165 return WinSetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	166 fl \| SWP_MOVE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	167 } else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	168 return WinSetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	169 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	170
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	171 static UniChar
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	172 NativeCharToUniChar(int chcode)
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	173 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	174 UniChar ucResult = (UniChar) chcode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	175 int rc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	176 UconvObject ucoTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	177 char achFrom[2];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	178 char *pchFrom;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	179 size_t iFromCount;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	180 UniChar aucTo[10];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	181 UniChar *pucTo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	182 size_t iToCount;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	183 size_t iNonIdentical;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	184
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	185 // Create unicode convert object
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	186 rc = UniCreateUconvObject(L"", &ucoTemp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	187 if (rc != ULS_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	188 // Could not create convert object!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	189 return ucResult;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	190 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	191 // Convert language code string to unicode string
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	192 achFrom[0] = (char) chcode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	193 achFrom[1] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	194 iFromCount = sizeof(char) * 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	195 iToCount = sizeof(UniChar) * 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	196 pucTo = &(aucTo[0]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	197 pchFrom = &(achFrom[0]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	198
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	199 rc = UniUconvToUcs(ucoTemp,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	200 &pchFrom,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	201 &iFromCount, &pucTo, &iToCount, &iNonIdentical);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	202
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	203 if (rc != ULS_SUCCESS) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	204 // Could not convert language code to UCS string!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	205 UniFreeUconvObject(ucoTemp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	206 return ucResult;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	207 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	208
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	209 UniFreeUconvObject(ucoTemp);
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	210
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	211 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	212 printf("%02x converted to %02x\n", (int) chcode, (int) (aucTo[0]));
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	213 #endif
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	214
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	215 return aucTo[0];
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	216 }
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	217
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	218 /////////////////////////////////////////////////////////////////////
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	219 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	220 // TranslateKey
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	221 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	222 // This creates SDL Keycodes from VK_ and hardware scan codes
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	223 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	224 /////////////////////////////////////////////////////////////////////
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	225 static SDL_keysym *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	226 TranslateKey(int vkey, int chcode, int scancode, SDL_keysym * keysym,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	227 int iPressed)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	228 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	229 keysym->scancode = (unsigned char) scancode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	230 keysym->mod = KMOD_NONE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	231 keysym->unicode = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	232
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	233 if (iPressed && SDL_TranslateUNICODE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	234 if (chcode)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	235 keysym->unicode = NativeCharToUniChar(chcode);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	236 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	237 keysym->unicode = vkey;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	238 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	239
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	240 keysym->sym = HWScanKeyMap[scancode];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	241
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	242 // Now stuffs based on state of shift key(s)!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	243 if (vkey == VK_SHIFT) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	244 iShiftIsPressed = iPressed;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	245 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	246
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	247 if ((iShiftIsPressed) && (SDL_TranslateUNICODE)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	248 // Change syms, if Unicode stuff is required
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	249 // I think it's silly, but it's SDL...
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	250 switch (keysym->sym) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	251 case SDLK_BACKQUOTE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	252 keysym->sym = '~';
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	253 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	254 case SDLK_1:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	255 keysym->sym = SDLK_EXCLAIM;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	256 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	257 case SDLK_2:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	258 keysym->sym = SDLK_AT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	259 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	260 case SDLK_3:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	261 keysym->sym = SDLK_HASH;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	262 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	263 case SDLK_4:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	264 keysym->sym = SDLK_DOLLAR;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	265 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	266 case SDLK_5:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	267 keysym->sym = '%';
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	268 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	269 case SDLK_6:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	270 keysym->sym = SDLK_CARET;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	271 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	272 case SDLK_7:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	273 keysym->sym = SDLK_AMPERSAND;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	274 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	275 case SDLK_8:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	276 keysym->sym = SDLK_ASTERISK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	277 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	278 case SDLK_9:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	279 keysym->sym = SDLK_LEFTPAREN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	280 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	281 case SDLK_0:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	282 keysym->sym = SDLK_RIGHTPAREN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	283 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	284 case SDLK_MINUS:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	285 keysym->sym = SDLK_UNDERSCORE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	286 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	287 case SDLK_PLUS:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	288 keysym->sym = SDLK_EQUALS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	289 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	290
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	291 case SDLK_LEFTBRACKET:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	292 keysym->sym = '{';
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	293 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	294 case SDLK_RIGHTBRACKET:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	295 keysym->sym = '}';
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	296 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	297
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	298 case SDLK_SEMICOLON:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	299 keysym->sym = SDLK_COLON;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	300 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	301 case SDLK_QUOTE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	302 keysym->sym = SDLK_QUOTEDBL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	303 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	304 case SDLK_BACKSLASH:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	305 keysym->sym = '\|';
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	306 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	307
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	308 case SDLK_COMMA:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	309 keysym->sym = SDLK_LESS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	310 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	311 case SDLK_PERIOD:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	312 keysym->sym = SDLK_GREATER;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	313 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	314 case SDLK_SLASH:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	315 keysym->sym = SDLK_QUESTION;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	316 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	317
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	318 default:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	319 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	320 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	321 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	322 return keysym;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	323 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	324
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	325 #define CONVERTMOUSEPOSITION() \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	326 /* We have to inverse the mouse position, because every non-os/2 system */ \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	327 /* has a coordinate system where the (0;0) is the top-left corner, */ \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	328 /* while on os/2 it's the bottom left corner! */ \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	329 if (FSLib_QueryFSMode(hwnd)) \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	330 { \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	331 /* We're in FS mode! */ \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	332 /* In FS mode our window is as big as fullscreen mode, but not necessary as */ \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	333 /* big as the source buffer (can be bigger) */ \
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	334 /* So, limit mouse pos to source buffer size! */ \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	335 if (ppts->x<0) ppts->x = 0; \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	336 if (ppts->y<0) ppts->y = 0; \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	337 if (ppts->x>=pVideo->hidden->SrcBufferDesc.uiXResolution) ppts->x = pVideo->hidden->SrcBufferDesc.uiXResolution-1; \
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	338 if (ppts->y>=pVideo->hidden->SrcBufferDesc.uiYResolution) ppts->y = pVideo->hidden->SrcBufferDesc.uiYResolution-1; \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	339 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */ \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	340 ptl.x = ppts->x; ptl.y = ppts->y; \
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	341 WinMapWindowPoints(pVideo->hidden->hwndClient, HWND_DESKTOP, &ptl, 1); \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	342 WinSetPointerPos(HWND_DESKTOP, ptl.x, ptl.y); \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	343 /* Then convert OS/2 position to SDL position */ \
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	344 ppts->y = pVideo->hidden->SrcBufferDesc.uiYResolution - ppts->y - 1; \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	345 } else \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	346 { \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	347 SWP swpClient; \
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	348 /* We're in windowed mode! */ \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	349 WinQueryWindowPos(pVideo->hidden->hwndClient, &swpClient); \
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	350 /* Convert OS/2 mouse position to SDL position, and also scale it! */ \
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	351 (ppts->x) = (ppts->x) * pVideo->hidden->SrcBufferDesc.uiXResolution / swpClient.cx; \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	352 (ppts->y) = (ppts->y) * pVideo->hidden->SrcBufferDesc.uiYResolution / swpClient.cy; \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	353 (ppts->y) = pVideo->hidden->SrcBufferDesc.uiYResolution - (ppts->y) - 1; \
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	354 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	355
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	356
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	357
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	358 /////////////////////////////////////////////////////////////////////
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	359 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	360 // WndProc
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	361 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	362 // This is the message processing window procedure for the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	363 // SDLWindowClass, which is the client window in our application.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	364 // It handles switching back and away from the app (taking care of
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	365 // going out and back to and from fullscreen mode), sending keystrokes
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	366 // and mouse events to where it has to be sent, etc...
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	367 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	368 /////////////////////////////////////////////////////////////////////
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	369 static MRESULT EXPENTRY
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	370 WndProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	371 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	372 HPS ps;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	373 RECTL rcl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	374 SDL_VideoDevice *pVideo = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	375
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	376 switch (msg) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	377 case WM_CHAR: // Keypress notification
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	378 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	379 // printf("WM_CHAR\n"); fflush(stdout);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	380 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	381 pVideo = WinQueryWindowPtr(hwnd, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	382 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	383 /*
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	384 // We skip repeated keys:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	385 if (CHARMSG(&msg)->cRepeat>1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	386 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	387 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	388 // printf("Repeated key (%d), skipping...\n", CHARMSG(&msg)->cRepeat); fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	389 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	390 return (MRESULT) TRUE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	391 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	392 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	393
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	394 // If it's not repeated, then let's see if its pressed or released!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	395 if (SHORT1FROMMP(mp1) & KC_KEYUP) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	396 // A key has been released
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	397 SDL_keysym keysym;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	398
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	399 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	400 // printf("WM_CHAR, keyup, code is [0x%0x]\n", CHAR4FROMMP(mp1)); // HW scan code
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	401 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	402
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	403 // One problem is with F1, which gets only the keyup message because
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	404 // it is a system key.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	405 // So, when we get keyup message, we simulate keydown too!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	406 // UPDATE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	407 // This problem should be solved now, that the accelerator keys are
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	408 // disabled for this window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	409 /*
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	410 if (SHORT2FROMMP(mp2)==VK_F1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	411 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	412 SDL_PrivateKeyboard(SDL_PRESSED, TranslateKey(SHORT2FROMMP(mp2), // VK_ code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	413 SHORT1FROMMP(mp2), // Character code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	414 CHAR4FROMMP(mp1), // HW Scan code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	415 &keysym,0));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	416 } */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	417
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	418 SDL_PrivateKeyboard(SDL_RELEASED, TranslateKey(SHORT2FROMMP(mp2), // VK_ code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	419 SHORT1FROMMP(mp2), // Character code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	420 CHAR4FROMMP(mp1), // HW Scan code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	421 &keysym, 0));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	422
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	423 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	424 // A key has been pressed
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	425 SDL_keysym keysym;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	426
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	427 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	428 // printf("WM_CHAR, keydown, code is [0x%0x]\n", CHAR4FROMMP(mp1)); // HW scan code
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	429 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	430 // Check for fastkeys: ALT+HOME to toggle FS mode
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	431 // ALT+END to close app
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	432 if ((SHORT1FROMMP(mp1) & KC_ALT) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	433 (SHORT2FROMMP(mp2) == VK_HOME)) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	434 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	435 printf(" Pressed ALT+HOME!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	436 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	437 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	438 // Only switch between fullscreen and back if it's not
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	439 // a resizable mode!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	440 if ((!pVideo->hidden->pSDLSurface) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	441 ((pVideo->hidden->pSDLSurface)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	442 &&
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	443 ((pVideo->hidden->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	444 pSDLSurface->flags & SDL_RESIZABLE) == 0)))
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	445 FSLib_ToggleFSMode(hwnd, !FSLib_QueryFSMode(hwnd));
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	446 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	447 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	448 printf(" Resizable mode, so discarding ALT+HOME!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	449 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	450 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	451 } else if ((SHORT1FROMMP(mp1) & KC_ALT) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	452 (SHORT2FROMMP(mp2) == VK_END)) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	453 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	454 printf(" Pressed ALT+END!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	455 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	456 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	457 // Close window, and get out of loop!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	458 // Also send event to SDL application, but we won't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	459 // wait for it to be processed!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	460 SDL_PrivateQuit();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	461 WinPostMsg(hwnd, WM_QUIT, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	462 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	463
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	464 SDL_PrivateKeyboard(SDL_PRESSED, TranslateKey(SHORT2FROMMP(mp2), // VK_ code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	465 SHORT1FROMMP(mp2), // Character code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	466 CHAR4FROMMP(mp1), // HW Scan code
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	467 &keysym,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	468 1));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	469
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	470 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	471 }
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	472 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	473 return (MRESULT) TRUE;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	474
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	475 case WM_TRANSLATEACCEL:
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	476 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	477 PQMSG pqmsg;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	478 pqmsg = (PQMSG) mp1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	479 if (mp1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	480 if (pqmsg->msg == WM_CHAR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	481 // WM_CHAR message!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	482 // Let's filter the ALT keypress and all other acceleration keys!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	483 return (MRESULT) FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	484 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	485 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	486 break; // Default processing (pass to parent until frame control)
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	487 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	488
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	489 case WM_PAINT: // Window redraw!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	490 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	491 printf("WM_PAINT (0x%x)\n", hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	492 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	493 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	494 ps = WinBeginPaint(hwnd, 0, &rcl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	495 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	496 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	497 if (!pVideo->hidden->pSDLSurface) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	498 RECTL rclRect;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	499 // So, don't blit now!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	500 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	501 printf("WM_PAINT : Skipping blit while resizing (Pre!)!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	502 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	503 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	504 WinQueryWindowRect(hwnd, &rclRect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	505 // Fill with black
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	506 WinFillRect(ps, &rclRect, CLR_BLACK);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	507 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	508 if (DosRequestMutexSem
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	509 (pVideo->hidden->hmtxUseSrcBuffer, 1000) == NO_ERROR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	510 int iTop, iLeft, iWidth, iHeight;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	511 int iXScaleError, iYScaleError;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	512 int iXScaleError2, iYScaleError2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	513 SWP swp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	514
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	515 // Re-blit the modified area!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	516 // For this, we have to calculate the points, scaled!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	517 WinQueryWindowPos(hwnd, &swp);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	518 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	519 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	520 ("WM_PAINT : WinSize: %d %d, BufSize: %d %d\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	521 swp.cx, swp.cy,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	522 pVideo->hidden->SrcBufferDesc.uiXResolution,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	523 pVideo->hidden->SrcBufferDesc.uiYResolution);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	524 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	525 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	526
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	527 #ifndef RESIZE_EVEN_IF_RESIZABLE
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	528 // But only blit if the window is not resizable, or if
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	529 // the window is resizable and the source buffer size is the
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	530 // same as the destination buffer size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	531 if ((!pVideo->hidden->pSDLSurface) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	532 ((pVideo->hidden->pSDLSurface) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	533 (pVideo->hidden->pSDLSurface->flags & SDL_RESIZABLE)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	534 &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	535 ((swp.cx !=
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	536 pVideo->hidden->SrcBufferDesc.uiXResolution)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	537 \|\| (swp.cy !=
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	538 pVideo->hidden->SrcBufferDesc.uiYResolution))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	539 && (!FSLib_QueryFSMode(hwnd)))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	540 RECTL rclRect;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	541 // Resizable surface and in resizing!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	542 // So, don't blit now!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	543 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	544 printf("WM_PAINT : Skipping blit while resizing!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	545 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	546 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	547 WinQueryWindowRect(hwnd, &rclRect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	548 // Fill with black
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	549 WinFillRect(ps, &rclRect, CLR_BLACK);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	550 } else
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	551 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	552 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	553
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	554 iXScaleError =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	555 (pVideo->hidden->SrcBufferDesc.uiXResolution -
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	556 1) / swp.cx;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	557 iYScaleError =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	558 (pVideo->hidden->SrcBufferDesc.uiYResolution -
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	559 1) / swp.cy;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	560 if (iXScaleError < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	561 iXScaleError = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	562 if (iYScaleError < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	563 iYScaleError = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	564 iXScaleError2 =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	565 (swp.cx -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	566 1) /
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	567 (pVideo->hidden->SrcBufferDesc.uiXResolution);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	568 iYScaleError2 =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	569 (swp.cy -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	570 1) /
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	571 (pVideo->hidden->SrcBufferDesc.uiYResolution);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	572 if (iXScaleError2 < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	573 iXScaleError2 = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	574 if (iYScaleError2 < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	575 iYScaleError2 = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	576
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	577 iTop =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	578 (swp.cy -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	579 rcl.yTop) *
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	580 pVideo->hidden->SrcBufferDesc.uiYResolution /
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	581 swp.cy - iYScaleError;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	582 iLeft =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	583 rcl.xLeft *
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	584 pVideo->hidden->SrcBufferDesc.uiXResolution /
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	585 swp.cx - iXScaleError;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	586 iWidth =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	587 ((rcl.xRight -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	588 rcl.xLeft) *
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	589 pVideo->hidden->SrcBufferDesc.uiXResolution +
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	590 swp.cx - 1) / swp.cx + 2 * iXScaleError;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	591 iHeight =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	592 ((rcl.yTop -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	593 rcl.yBottom) *
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	594 pVideo->hidden->SrcBufferDesc.uiYResolution +
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	595 swp.cy - 1) / swp.cy + 2 * iYScaleError;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	596
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	597 iWidth += iXScaleError2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	598 iHeight += iYScaleError2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	599
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	600 if (iTop < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	601 iTop = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	602 if (iLeft < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	603 iLeft = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	604 if (iTop + iHeight >
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	605 pVideo->hidden->SrcBufferDesc.uiYResolution)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	606 iHeight =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	607 pVideo->hidden->SrcBufferDesc.uiYResolution -
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	608 iTop;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	609 if (iLeft + iWidth >
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	610 pVideo->hidden->SrcBufferDesc.uiXResolution)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	611 iWidth =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	612 pVideo->hidden->SrcBufferDesc.uiXResolution -
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	613 iLeft;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	614
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	615 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	616 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	617 ("WM_PAINT : BitBlt: %d %d -> %d %d (Buf %d x %d)\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	618 iTop, iLeft, iWidth, iHeight,
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	619 pVideo->hidden->SrcBufferDesc.uiXResolution,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	620 pVideo->hidden->SrcBufferDesc.uiYResolution);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	621 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	622 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	623
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	624 FSLIB_BITBLT(hwnd,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	625 pVideo->hidden->pchSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	626 iTop, iLeft, iWidth, iHeight);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	627 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	628
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	629 DosReleaseMutexSem(pVideo->hidden->hmtxUseSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	630 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	631 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	632 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	633 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	634 else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	635 printf("WM_PAINT : No pVideo!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	636 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	637 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	638 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	639 WinEndPaint(ps);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	640 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	641 printf("WM_PAINT : Done.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	642 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	643 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	644 return 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	645
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	646 case WM_SIZE:
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	647 {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	648 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	649 printf("WM_SIZE : (%d %d)\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	650 SHORT1FROMMP(mp2), SHORT2FROMMP(mp2));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	651 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	652 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	653 iWindowSizeX = SHORT1FROMMP(mp2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	654 iWindowSizeY = SHORT2FROMMP(mp2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	655 bWindowResized = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	656
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	657 // Make sure the window will be redrawn
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	658 WinInvalidateRegion(hwnd, NULL, TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	659 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	660 break;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	661
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	662 case WM_FSLIBNOTIFICATION:
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	663 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	664 printf("WM_FSLIBNOTIFICATION\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	665 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	666 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	667 if ((int) mp1 == FSLN_TOGGLEFSMODE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	668 // FS mode changed, reblit image!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	669 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	670 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	671 if (!pVideo->hidden->pSDLSurface) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	672 // Resizable surface and in resizing!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	673 // So, don't blit now!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	674 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	675 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	676 ("WM_FSLIBNOTIFICATION : Can not blit if there is no surface, doing nothing.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	677 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	678 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	679 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	680 if (DosRequestMutexSem
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	681 (pVideo->hidden->hmtxUseSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	682 1000) == NO_ERROR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	683 if (pVideo->hidden->pSDLSurface) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	684 #ifndef RESIZE_EVEN_IF_RESIZABLE
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	685 SWP swp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	686
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	687 // But only blit if the window is not resizable, or if
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	688 // the window is resizable and the source buffer size is the
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	689 // same as the destination buffer size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	690 WinQueryWindowPos(hwnd, &swp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	691 if ((!pVideo->hidden->pSDLSurface) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	692 ((pVideo->hidden->pSDLSurface) &&
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	693 (pVideo->hidden->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	694 pSDLSurface->flags & SDL_RESIZABLE)
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	695 &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	696 ((swp.cx !=
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	697 pVideo->hidden->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	698 SrcBufferDesc.uiXResolution)
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	699 \|\| (swp.cy !=
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	700 pVideo->hidden->SrcBufferDesc.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	701 uiYResolution))
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	702 && (!FSLib_QueryFSMode(hwnd)))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	703 // Resizable surface and in resizing!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	704 // So, don't blit now!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	705 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	706 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	707 ("WM_FSLIBNOTIFICATION : Cannot blit while resizing, doing nothing.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	708 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	709 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	710 } else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	711 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	712 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	713 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	714 printf("WM_FSLIBNOTIFICATION : Blitting!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	715 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	716 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	717 FSLIB_BITBLT(hwnd,
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	718 pVideo->hidden->pchSrcBuffer, 0,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	719 0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	720 pVideo->hidden->
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	721 SrcBufferDesc.uiXResolution,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	722 pVideo->hidden->SrcBufferDesc.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	723 uiYResolution);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	724 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	725 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	726 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	727 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	728 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	729 ("WM_FSLIBNOTIFICATION : No public surface!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	730 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	731 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	732
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	733 DosReleaseMutexSem(pVideo->hidden->hmtxUseSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	734 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	735 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	736 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	737 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	738 return (MPARAM) 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	739
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	740 case WM_ACTIVATE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	741 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	742 printf("WM_ACTIVATE\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	743 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	744 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	745
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	746 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	747 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	748 pVideo->hidden->fInFocus = (int) mp1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	749 if (pVideo->hidden->fInFocus) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	750 // Went into focus
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	751 if ((pVideo->hidden->iMouseVisible)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	752 && (!bMouseCaptured))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	753 WinSetPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	754 WinQuerySysPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	755 SPTR_ARROW, FALSE));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	756 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	757 WinSetPointer(HWND_DESKTOP, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	758
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	759 if (bMouseCapturable) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	760 // Re-capture the mouse, if we captured it before!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	761 WinSetCapture(HWND_DESKTOP, hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	762 bMouseCaptured = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	763 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	764 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	765 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	766 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	767 WinQueryWindowPos(pVideo->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	768 &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	769 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	770 ptl.y = 0;
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	771 WinMapWindowPoints(pVideo->hidden->hwndClient,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	772 HWND_DESKTOP, &ptl, 1);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	773 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	774 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	775 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	776 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	777 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	778 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	779 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	780 // Went out of focus
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	781 WinSetPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	782 WinQuerySysPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	783 SPTR_ARROW, FALSE));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	784
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	785 if (bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	786 // Release the mouse
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	787 WinSetCapture(HWND_DESKTOP, hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	788 bMouseCaptured = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	789 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	790 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	791 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	792 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	793 printf("WM_ACTIVATE done\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	794 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	795 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	796
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	797 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	798
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	799 case WM_BUTTON1DOWN:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	800 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	801 printf("WM_BUTTON1DOWN\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	802 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	803 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	804
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	805 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	806 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	807 SDL_PrivateMouseButton(SDL_PRESSED, SDL_BUTTON_LEFT, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	808
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	809 if (bMouseCapturable) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	810 // We should capture the mouse!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	811 if (!bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	812 WinSetCapture(HWND_DESKTOP, hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	813 WinSetPointer(HWND_DESKTOP, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	814 bMouseCaptured = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	815 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	816 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	817 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	818 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	819 WinQueryWindowPos(pVideo->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	820 &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	821 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	822 ptl.y = 0;
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	823 WinMapWindowPoints(pVideo->hidden->hwndClient,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	824 HWND_DESKTOP, &ptl, 1);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	825 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	826 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	827 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	828 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	829 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	830 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	831 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	832 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	833 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	834 case WM_BUTTON1UP:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	835 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	836 printf("WM_BUTTON1UP\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	837 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	838 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	839 SDL_PrivateMouseButton(SDL_RELEASED, SDL_BUTTON_LEFT, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	840 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	841 case WM_BUTTON2DOWN:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	842 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	843 printf("WM_BUTTON2DOWN\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	844 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	845 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	846
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	847 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	848 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	849 SDL_PrivateMouseButton(SDL_PRESSED, SDL_BUTTON_RIGHT, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	850
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	851 if (bMouseCapturable) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	852 // We should capture the mouse!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	853 if (!bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	854 WinSetCapture(HWND_DESKTOP, hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	855 WinSetPointer(HWND_DESKTOP, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	856 bMouseCaptured = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	857 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	858 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	859 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	860 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	861 WinQueryWindowPos(pVideo->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	862 &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	863 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	864 ptl.y = 0;
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	865 WinMapWindowPoints(pVideo->hidden->hwndClient,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	866 HWND_DESKTOP, &ptl, 1);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	867 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	868 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	869 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	870 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	871 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	872 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	873 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	874
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	875 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	876 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	877 case WM_BUTTON2UP:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	878 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	879 printf("WM_BUTTON2UP\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	880 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	881 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	882 SDL_PrivateMouseButton(SDL_RELEASED, SDL_BUTTON_RIGHT, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	883 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	884 case WM_BUTTON3DOWN:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	885 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	886 printf("WM_BUTTON3DOWN\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	887 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	888 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	889
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	890 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	891 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	892 SDL_PrivateMouseButton(SDL_PRESSED, SDL_BUTTON_MIDDLE, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	893
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	894 if (bMouseCapturable) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	895 // We should capture the mouse!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	896 if (!bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	897 WinSetCapture(HWND_DESKTOP, hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	898 WinSetPointer(HWND_DESKTOP, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	899 bMouseCaptured = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	900 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	901 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	902 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	903 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	904 WinQueryWindowPos(pVideo->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	905 &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	906 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	907 ptl.y = 0;
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	908 WinMapWindowPoints(pVideo->hidden->hwndClient,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	909 HWND_DESKTOP, &ptl, 1);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	910 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	911 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	912 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	913 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	914 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	915 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	916 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	917 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	918 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	919 case WM_BUTTON3UP:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	920 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	921 printf("WM_BUTTON3UP\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	922 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	923 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	924 SDL_PrivateMouseButton(SDL_RELEASED, SDL_BUTTON_MIDDLE, 0, 0); // Don't report mouse movement!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	925 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	926 case WM_MOUSEMOVE:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	927 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	928 // printf("WM_MOUSEMOVE\n"); fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	929 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	930
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	931 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	932 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	933 if (pVideo->hidden->iSkipWMMOUSEMOVE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	934 pVideo->hidden->iSkipWMMOUSEMOVE--;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	935 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	936 POINTS ppts = (POINTS ) (&mp1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	937 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	938
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	939 if (bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	940 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	941
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	942 WinQueryWindowPos(pVideo->hidden->hwndClient, &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	943
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	944 // Send relative mouse position, and re-center the mouse
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	945 // Reposition the mouse to the center of the screen/window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	946 SDL_PrivateMouseMotion(0, // Buttons not changed
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	947 1, // Relative position
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	948 ppts->x -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	949 (swpClient.cx / 2),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	950 (swpClient.cy / 2) - ppts->y);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	951
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	952 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	953 ptl.y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	954 WinMapWindowPoints(pVideo->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	955 HWND_DESKTOP, &ptl, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	956 pVideo->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	957 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	958 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	959 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	960 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	961 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	962 CONVERTMOUSEPOSITION();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	963
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	964 // Send absolute mouse position
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	965 SDL_PrivateMouseMotion(0, // Buttons not changed
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	966 0, // Absolute position
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	967 ppts->x, ppts->y);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	968 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	969 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	970 if ((pVideo->hidden->iMouseVisible) && (!bMouseCaptured)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	971 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	972 // printf("WM_MOUSEMOVE : ptr = %p\n", hptrGlobalPointer); fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	973 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	974
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	975 if (hptrGlobalPointer)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	976 WinSetPointer(HWND_DESKTOP, hptrGlobalPointer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	977 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	978 WinSetPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	979 WinQuerySysPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	980 SPTR_ARROW, FALSE));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	981 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	982 WinSetPointer(HWND_DESKTOP, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	983 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	984 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	985 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	986 // printf("WM_MOUSEMOVE done\n"); fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	987 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	988
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	989 return (MRESULT) FALSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	990 case WM_CLOSE: // Window close
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	991 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	992 printf("WM_CLOSE\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	993 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	994 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	995
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	996 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	997 if (pVideo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	998 // Send Quit message to the SDL application!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	999 SDL_PrivateQuit();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1000 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1001 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1002 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1003
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1004 #ifdef BITBLT_IN_WINMESSAGEPROC
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1005 case WM_UPDATERECTSREQUEST:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1006 pVideo = FSLib_GetUserParm(hwnd);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1007 if ((pVideo) && (pVideo->hidden->pSDLSurface)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1008 if (DosRequestMutexSem
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1009 (pVideo->hidden->hmtxUseSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1010 SEM_INDEFINITE_WAIT) == NO_ERROR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1011 int numrects;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1012 SDL_Rect *rects;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1013 int i;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1014 SWP swp;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1015
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1016 numrects = (int) mp1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1017 rects = (SDL_Rect *) mp2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1018
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1019 WinQueryWindowPos(hwnd, &swp);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1020 #ifndef RESIZE_EVEN_IF_RESIZABLE
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1021 if ((!pVideo->hidden->pSDLSurface) \|\|
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1022 ((pVideo->hidden->pSDLSurface) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1023 (pVideo->hidden->pSDLSurface->flags & SDL_RESIZABLE)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1024 &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1025 ((swp.cx != pVideo->hidden->SrcBufferDesc.uiXResolution)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1026 \|\| (swp.cy !=
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1027 pVideo->hidden->SrcBufferDesc.uiYResolution))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1028 && (!FSLib_QueryFSMode(hwnd)))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1029 // Resizable surface and in resizing!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1030 // So, don't blit now!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1031 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1032 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1033 ("[WM_UPDATERECTSREQUEST] : Skipping blit while resizing!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1034 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1035 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1036 } else
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1037 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1038 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1039 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1040 printf("[WM_UPDATERECTSREQUEST] : Blitting!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1041 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1042 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1043
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1044 // Blit the changed areas
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1045 for (i = 0; i < numrects; i++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1046 FSLIB_BITBLT(hwnd,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1047 pVideo->hidden->pchSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1048 rects[i].y, rects[i].x,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1049 rects[i].w, rects[i].h);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1050 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1051 DosReleaseMutexSem(pVideo->hidden->hmtxUseSrcBuffer);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1052 }
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1053 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1054 return 0;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1055 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1056
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1057 default:
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1058 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1059 printf("Unhandled: %x\n", msg);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1060 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1061 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1062
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1063 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1064 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1065 // Run the default window procedure for unhandled stuffs
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1066 return WinDefWindowProc(hwnd, msg, mp1, mp2);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1067 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1068
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1069 /////////////////////////////////////////////////////////////////////
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1070 //
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1071 // FrameWndProc
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1072 //
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1073 // This is the message processing window procedure for the
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1074 // frame window of SDLWindowClass.
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1075 //
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1076 /////////////////////////////////////////////////////////////////////
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1077 static MRESULT EXPENTRY
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1078 FrameWndProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1079 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1080 PFNWP pOldFrameProc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1081 MRESULT result;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1082 PTRACKINFO ti;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1083 int cx, cy, ncx, ncy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1084 RECTL rclTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1085 PSWP pswpTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1086
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1087 SDL_VideoDevice *pVideo = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1088
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1089 pVideo = (SDL_VideoDevice *) WinQueryWindowULong(hwnd, QWL_USER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1090
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1091 pOldFrameProc = pVideo->hidden->pfnOldFrameProc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1092
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1093 if ((pVideo->hidden->bProportionalResize) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1094 (msg == WM_ADJUSTWINDOWPOS) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1095 (!FSLib_QueryFSMode(pVideo->hidden->hwndClient))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1096 pswpTemp = (PSWP) mp1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1097
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1098 /* Resizing? */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1099 if (pswpTemp->fl & SWP_SIZE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1100 /* Calculate client size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1101 rclTemp.xLeft = pswpTemp->x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1102 rclTemp.xRight = pswpTemp->x + pswpTemp->cx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1103 rclTemp.yBottom = pswpTemp->y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1104 rclTemp.yTop = pswpTemp->y + pswpTemp->cy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1105 WinCalcFrameRect(hwnd, &rclTemp, TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1106
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1107 ncx = cx = rclTemp.xRight - rclTemp.xLeft;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1108 ncy = cy = rclTemp.yTop - rclTemp.yBottom;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1109
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1110 /* Calculate new size to keep it proportional */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1111
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1112 if ((pVideo->hidden->ulResizingFlag & TF_LEFT)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1113 \|\| (pVideo->hidden->ulResizingFlag & TF_RIGHT)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1114 /* The window is resized horizontally */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1115 ncy =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1116 pVideo->hidden->SrcBufferDesc.uiYResolution * cx /
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1117 pVideo->hidden->SrcBufferDesc.uiXResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1118 } else if ((pVideo->hidden->ulResizingFlag & TF_TOP)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1119 \|\| (pVideo->hidden->ulResizingFlag & TF_BOTTOM)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1120 /* The window is resized vertically */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1121 ncx =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1122 pVideo->hidden->SrcBufferDesc.uiXResolution * cy /
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1123 pVideo->hidden->SrcBufferDesc.uiYResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1124 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1125
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1126 /* Calculate back frame coordinates */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1127 rclTemp.xLeft = pswpTemp->x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1128 rclTemp.xRight = pswpTemp->x + ncx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1129 rclTemp.yBottom = pswpTemp->y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1130 rclTemp.yTop = pswpTemp->y + ncy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1131 WinCalcFrameRect(hwnd, &rclTemp, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1132
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1133 /* Store new size/position info */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1134 pswpTemp->cx = rclTemp.xRight - rclTemp.xLeft;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1135
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1136 if (!(pVideo->hidden->ulResizingFlag & TF_TOP)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1137 pswpTemp->y =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1138 pswpTemp->y + pswpTemp->cy - (rclTemp.yTop -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1139 rclTemp.yBottom);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1140 pswpTemp->cy = rclTemp.yTop - rclTemp.yBottom;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1141 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1142 pswpTemp->cy = rclTemp.yTop - rclTemp.yBottom;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1143 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1144 }
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1145 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1146
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1147 result = (*pOldFrameProc) (hwnd, msg, mp1, mp2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1148
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1149 if ((pVideo->hidden->bProportionalResize) && (msg == WM_QUERYTRACKINFO)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1150 ti = (PTRACKINFO) mp2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1151
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1152 /* Store the direction of resizing */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1153 if ((ti->fs & TF_LEFT) \|\| (ti->fs & TF_RIGHT) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1154 (ti->fs & TF_TOP) \|\| (ti->fs & TF_BOTTOM))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1155 pVideo->hidden->ulResizingFlag = ti->fs;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1156 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1157
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1158 return result;
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1159 }
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1160
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1161 /////////////////////////////////////////////////////////////////////
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1162 //
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1163 // PMThreadFunc
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1164 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1165 // This function implements the PM-Thread, which initializes the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1166 // application window itself, the DIVE, and start message processing.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1167 //
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1168 /////////////////////////////////////////////////////////////////////
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1169 int iNumOfPMThreadInstances = 0; // Global!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1170 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1171 PMThreadFunc(void *pParm)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1172 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1173 SDL_VideoDevice *pVideo = pParm;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1174 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1175 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1176 QMSG msg;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1177 ULONG fcf;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1178
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1179 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1180 printf("[PMThreadFunc] : Starting\n");
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1181 fflush(stdout);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1182 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1183
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1184 iNumOfPMThreadInstances++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1185
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1186 // Initialize PM, create a message queue.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1187
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1188 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1189 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1190 if (hmq == 0) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1191 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1192 printf("[PMThreadFunc] : Could not create message queue!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1193 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1194 (" It might be that the application using SDL is not a PM app!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1195 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1196 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1197 pVideo->hidden->iPMThreadStatus = 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1198 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1199 int rc;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1200 RECTL rectl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1201
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1202 fcf = ulFCFToUse; // Get from global setting
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	1203
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1204 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1205 printf("[PMThreadFunc] : FSLib_CreateWindow()!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1206 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1207 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1208
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1209 rc = FSLib_CreateWindow(HWND_DESKTOP, 0, &fcf,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1210 "SDL Application",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1211 NULLHANDLE, 0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1212 &(pVideo->hidden->SrcBufferDesc),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1213 WndProc,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1214 &(pVideo->hidden->hwndClient),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1215 &(pVideo->hidden->hwndFrame));
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1216
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1217 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1218 printf("[PMThreadFunc] : FSLib_CreateWindow() rc = %d\n", rc);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1219 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1220 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1221
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1222 if (!rc) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1223 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1224 printf("[PMThreadFunc] : Could not create FSLib window!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1225 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1226 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1227 pVideo->hidden->iPMThreadStatus = 3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1228 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1229 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1230 printf("[PMThreadFunc] : FSLib_AddUserParm()!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1231 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1232 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1233
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1234 // Store pVideo pointer in window data for client window, so
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1235 // it will know the instance to which it belongs to.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1236 FSLib_AddUserParm(pVideo->hidden->hwndClient, pVideo);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1237
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1238 // Now set default image width height and fourcc!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1239 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1240 printf("[PMThreadFunc] : SetWindowPos()!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1241 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1242 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1243
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1244 // Set the position and size of the main window,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1245 // and make it visible!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1246 // Calculate frame window size from client window size
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1247 rectl.xLeft = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1248 rectl.yBottom = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1249 rectl.xRight = pVideo->hidden->SrcBufferDesc.uiXResolution; // Noninclusive
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1250 rectl.yTop = pVideo->hidden->SrcBufferDesc.uiYResolution; // Noninclusive
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1251 WinCalcFrameRect(pVideo->hidden->hwndFrame, &rectl, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1252
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1253 SetAccessableWindowPos(pVideo->hidden->hwndFrame,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1254 HWND_TOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1255 (WinQuerySysValue
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1256 (HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1257 SV_CXSCREEN) - (rectl.xRight -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1258 rectl.xLeft)) / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1259 (WinQuerySysValue
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1260 (HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1261 SV_CYSCREEN) - (rectl.yTop -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1262 rectl.yBottom)) / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1263 (rectl.xRight - rectl.xLeft),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1264 (rectl.yTop - rectl.yBottom),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1265 SWP_SIZE \| SWP_ACTIVATE \| SWP_SHOW \|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1266 SWP_MOVE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1267
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1268 // Subclass frame procedure and store old window proc address
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1269 pVideo->hidden->pfnOldFrameProc =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1270 WinSubclassWindow(pVideo->hidden->hwndFrame, FrameWndProc);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1271 WinSetWindowULong(pVideo->hidden->hwndFrame, QWL_USER,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1272 (ULONG) pVideo);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1273
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1274 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1275 printf("[PMThreadFunc] : Entering message loop\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1276 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1277 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1278 pVideo->hidden->iPMThreadStatus = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1279
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1280 while (WinGetMsg(hab, (PQMSG) & msg, 0, 0, 0))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1281 WinDispatchMsg(hab, (PQMSG) & msg);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1282
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1283 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1284 printf("[PMThreadFunc] : Leaving message loop\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1285 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1286 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1287 // We should release the captured the mouse!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1288 if (bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1289 WinSetCapture(HWND_DESKTOP, NULLHANDLE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1290 bMouseCaptured = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1291 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1292 // Destroy our window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1293 WinDestroyWindow(pVideo->hidden->hwndFrame);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1294 pVideo->hidden->hwndFrame = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1295 // Show pointer to make sure it will not be left hidden.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1296 WinSetPointer(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1297 WinQuerySysPointer(HWND_DESKTOP, SPTR_ARROW,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1298 FALSE));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1299 WinShowPointer(HWND_DESKTOP, TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1300 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1301 // Uninitialize PM
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1302 WinDestroyMsgQueue(hmq);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1303 // All done!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1304 pVideo->hidden->iPMThreadStatus = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1305 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1306 WinTerminate(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1307 /* Commented out, should not be needed anymore, because we send it
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1308 from WM_CLOSE.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1309 // Notify SDL that it should really die now...
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1310 SDL_PrivateQuit(); SDL_PrivateQuit(); SDL_PrivateQuit(); //... :))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1311 */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1312 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1313 printf("[PMThreadFunc] : End, status is %d!\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1314 pVideo->hidden->iPMThreadStatus);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1315 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1316 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1317
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1318 iNumOfPMThreadInstances--;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1319
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1320 // HACK to prevent zombie and hanging SDL applications, which does not take
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1321 // care of closing the window for some reason:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1322 // There are some apps which do not process messages, so do a lot of things
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1323 // without noticing that the application should close. To close these,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1324 // I've thought about the following:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1325 // If the window is closed (the execution came here), I wait a bit to
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1326 // give time to the app to finish its execution. If it does not, I kill it
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1327 // using DosExit(). Brute force, but should work.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1328 if (pVideo->hidden->iPMThreadStatus == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1329 DosSleep(5000); // Wait 5 secs
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1330 // If a new PM thread has been spawned (reinitializing video mode), then all right.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1331 // Otherwise, we have a problem, the app doesn't want to stop. Kill!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1332 if (iNumOfPMThreadInstances == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1333 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1334 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1335 ("[PMThreadFunc] : It seems that the application haven't terminated itself\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1336 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1337 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1338 ("[PMThreadFunc] : in the last 5 seconds, so we go berserk.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1339 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1340 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1341 ("[PMThreadFunc] : Brute force mode. :) Killing process! Dieeeee...\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1342 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1343 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1344 DosExit(EXIT_PROCESS, -1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1345 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1346 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1347 _endthread();
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1348 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1349
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1350 struct WMcursor
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1351 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1352 HBITMAP hbm;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1353 HPOINTER hptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1354 char *pchData;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1355 };
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1356
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1357 /* Free a window manager cursor */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1358 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1359 os2fslib_FreeWMCursor(_THIS, WMcursor * cursor)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1360 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1361 if (cursor) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1362 GpiDeleteBitmap(cursor->hbm);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1363 WinDestroyPointer(cursor->hptr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1364 SDL_free(cursor->pchData);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1365 SDL_free(cursor);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1366 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1367 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1368
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1369 /* Local functions to convert the SDL cursor mask into OS/2 format */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1370 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1371 memnot(Uint8 * dst, Uint8 * src, int len)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1372 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1373 while (len-- > 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1374 dst++ = ~src++;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1375 }
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	1376
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1377 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1378 memxor(Uint8 * dst, Uint8 * src1, Uint8 * src2, int len)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1379 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1380 while (len-- > 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1381 dst++ = (src1++) ^ (*src2++);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1382 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1383
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1384 /* Create a black/white window manager cursor */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1385 WMcursor *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1386 os2fslib_CreateWMCursor_Win(_THIS, Uint8 * data, Uint8 * mask,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1387 int w, int h, int hot_x, int hot_y)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1388 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1389 HPOINTER hptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1390 HBITMAP hbm;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1391 BITMAPINFOHEADER bmih;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1392 BMPINFO bmi;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1393 HPS hps;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1394 char *pchTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1395 char xptr, aptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1396 int maxx, maxy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1397 int i, run, pad;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1398 WMcursor *pResult;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1399
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1400 maxx = WinQuerySysValue(HWND_DESKTOP, SV_CXPOINTER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1401 maxy = WinQuerySysValue(HWND_DESKTOP, SV_CYPOINTER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1402
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1403 // Check for max size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1404 if ((w > maxx) \|\| (h > maxy))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1405 return (WMcursor *) NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1406
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1407 pResult = (WMcursor *) SDL_malloc(sizeof(WMcursor));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1408 if (!pResult)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1409 return (WMcursor *) NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1410
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1411 pchTemp = (char ) SDL_malloc((maxx + 7) / 8 maxy * 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1412 if (!pchTemp) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1413 SDL_free(pResult);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1414 return (WMcursor *) NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1415 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1416
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1417 SDL_memset(pchTemp, 0, (maxx + 7) / 8 * maxy * 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1418
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1419 hps = WinGetPS(_this->hidden->hwndClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1420
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1421 bmi.cbFix = sizeof(BITMAPINFOHEADER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1422 bmi.cx = maxx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1423 bmi.cy = 2 * maxy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1424 bmi.cPlanes = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1425 bmi.cBitCount = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1426 bmi.argbColor[0].bBlue = 0x00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1427 bmi.argbColor[0].bGreen = 0x00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1428 bmi.argbColor[0].bRed = 0x00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1429 bmi.argbColor[1].bBlue = 0x00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1430 bmi.argbColor[1].bGreen = 0x00;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1431 bmi.argbColor[1].bRed = 0xff;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1432
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1433 SDL_memset(&bmih, 0, sizeof(BITMAPINFOHEADER));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1434 bmih.cbFix = sizeof(BITMAPINFOHEADER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1435 bmih.cx = maxx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1436 bmih.cy = 2 * maxy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1437 bmih.cPlanes = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1438 bmih.cBitCount = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1439
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1440 run = (w + 7) / 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1441 pad = (maxx + 7) / 8 - run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1442
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1443 for (i = 0; i < h; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1444 xptr = pchTemp + (maxx + 7) / 8 * (maxy - 1 - i);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1445 aptr = pchTemp + (maxx + 7) / 8 * (maxy + maxy - 1 - i);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1446 memxor(xptr, data, mask, run);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1447 xptr += run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1448 data += run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1449 memnot(aptr, mask, run);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1450 mask += run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1451 aptr += run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1452 SDL_memset(xptr, 0, pad);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1453 xptr += pad;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1454 SDL_memset(aptr, ~0, pad);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1455 aptr += pad;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1456 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1457 pad += run;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1458 for (i = h; i < maxy; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1459 xptr = pchTemp + (maxx + 7) / 8 * (maxy - 1 - i);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1460 aptr = pchTemp + (maxx + 7) / 8 * (maxy + maxy - 1 - i);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1461
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1462 SDL_memset(xptr, 0, (maxx + 7) / 8);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1463 xptr += (maxx + 7) / 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1464 SDL_memset(aptr, ~0, (maxx + 7) / 8);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1465 aptr += (maxx + 7) / 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1466 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1467
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1468 hbm =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1469 GpiCreateBitmap(hps, (PBITMAPINFOHEADER2) & bmih, CBM_INIT,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1470 (PBYTE) pchTemp, (PBITMAPINFO2) & bmi);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1471 hptr = WinCreatePointer(HWND_DESKTOP, hbm, TRUE, hot_x, maxy - hot_y - 1);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1472
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1473 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1474 printf("HotSpot : %d ; %d\n", hot_x, hot_y);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1475 printf("HPS returned : %x\n", (ULONG) hps);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1476 printf("HBITMAP returned : %x\n", (ULONG) hbm);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1477 printf("HPOINTER returned: %x\n", (ULONG) hptr);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1478 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1479
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1480 WinReleasePS(hps);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1481
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1482 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1483 printf("[CreateWMCursor] : ptr = %p\n", hptr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1484 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1485 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1486
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1487 pResult->hptr = hptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1488 pResult->hbm = hbm;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1489 pResult->pchData = pchTemp;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1490
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1491 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1492 printf("[CreateWMCursor] : ptr = %p return.\n", hptr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1493 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1494 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1495
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1496 return (WMcursor *) pResult;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1497 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1498
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1499 WMcursor *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1500 os2fslib_CreateWMCursor_FS(_THIS, Uint8 * data, Uint8 * mask,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1501 int w, int h, int hot_x, int hot_y)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1502 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1503 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1504 printf("[CreateWMCursor_FS] : returning pointer NULL\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1505 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1506 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1507
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1508 // In FS mode we'll use software cursor
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1509 return (WMcursor *) NULL;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1510 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1511
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1512 /* Show the specified cursor, or hide if cursor is NULL */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1513 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1514 os2fslib_ShowWMCursor(_THIS, WMcursor * cursor)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1515 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1516 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1517 printf("[ShowWMCursor] : ptr = %p\n", cursor);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1518 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1519 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1520
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1521 if (cursor) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1522 WinSetPointer(HWND_DESKTOP, cursor->hptr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1523 hptrGlobalPointer = cursor->hptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1524 _this->hidden->iMouseVisible = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1525 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1526 WinSetPointer(HWND_DESKTOP, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1527 hptrGlobalPointer = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1528 _this->hidden->iMouseVisible = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1529 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1530
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1531 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1532 printf("[ShowWMCursor] : ptr = %p, DONE\n", cursor);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1533 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1534 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1535
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1536 return 1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1537 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1538
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1539 /* Warp the window manager cursor to (x,y)
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1540 If NULL, a mouse motion event is posted internally.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1541 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1542 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1543 os2fslib_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1544 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1545 LONG lx, ly;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1546 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1547 POINTL ptlPoints;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1548 WinQueryWindowPos(_this->hidden->hwndClient, &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1549 ptlPoints.x = swpClient.x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1550 ptlPoints.y = swpClient.y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1551 WinMapWindowPoints(_this->hidden->hwndFrame, HWND_DESKTOP, &ptlPoints, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1552 lx = ptlPoints.x +
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1553 (x * swpClient.cx) / _this->hidden->SrcBufferDesc.uiXResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1554 ly = ptlPoints.y + swpClient.cy -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1555 ((y * swpClient.cy) / _this->hidden->SrcBufferDesc.uiYResolution) - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1556
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1557 SDL_PrivateMouseMotion(0, // Buttons not changed
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1558 0, // Absolute position
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1559 x, y);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1560
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1561 WinSetPointerPos(HWND_DESKTOP, lx, ly);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1562
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1563 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1564
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1565 /* If not NULL, this is called when a mouse motion event occurs */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1566 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1567 os2fslib_MoveWMCursor(_THIS, int x, int y)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1568 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1569 /*
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1570 SDL_Rect rect;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1571
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1572 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1573 printf("[MoveWMCursor] : at %d ; %d\n", x, y); fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1574 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1575
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1576 rect.x = x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1577 rect.y = y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1578 rect.w = 32;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1579 rect.h = 32;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1580 os2fslib_UpdateRects(_this, 1, &rect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1581 // TODO!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1582 */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1583 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1584
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1585 /* Determine whether the mouse should be in relative mode or not.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1586 This function is called when the input grab state or cursor
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1587 visibility state changes.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1588 If the cursor is not visible, and the input is grabbed, the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1589 driver can place the mouse in relative mode, which may result
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1590 in higher accuracy sampling of the pointer motion.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1591 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1592 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1593 os2fslib_CheckMouseMode(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1594 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1595 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1596
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1597 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1598 os2fslib_PumpEvents(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1599 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1600 // Notify SDL that if window has been resized!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1601 if ((_this->hidden->pSDLSurface) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1602 (_this->hidden->pSDLSurface->flags & SDL_RESIZABLE) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1603 ((_this->hidden->SrcBufferDesc.uiXResolution != iWindowSizeX) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1604 (_this->hidden->SrcBufferDesc.uiYResolution != iWindowSizeY)) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1605 (iWindowSizeX > 0) && (iWindowSizeY > 0)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1606 static time_t prev_time;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1607 time_t curr_time;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1608
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1609 curr_time = time(NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1610 if ((difftime(curr_time, prev_time) >= 0.25) \|\| (bWindowResized)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1611 // Make sure we won't flood the event queue with resize events,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1612 // only send them at 250 msecs!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1613 // (or when the window is resized)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1614 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1615 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1616 ("[os2fslib_PumpEvents] : Calling PrivateResize (%d %d).\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1617 iWindowSizeX, iWindowSizeY);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1618 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1619 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1620 // Tell SDL the new size
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1621 SDL_PrivateResize(iWindowSizeX, iWindowSizeY);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1622 prev_time = curr_time;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1623 bWindowResized = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1624 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1625 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1626 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1627
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1628 /* We don't actually allow hardware surfaces other than the main one */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1629 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1630 os2fslib_AllocHWSurface(_THIS, SDL_Surface * surface)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1631 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1632 return (-1);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1633 }
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	1634
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1635 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1636 os2fslib_FreeHWSurface(_THIS, SDL_Surface * surface)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1637 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1638 return;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1639 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1640
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1641 /* We need to wait for vertical retrace on page flipped displays */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1642 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1643 os2fslib_LockHWSurface(_THIS, SDL_Surface * surface)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1644 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1645 return (0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1646 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1647
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1648 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1649 os2fslib_UnlockHWSurface(_THIS, SDL_Surface * surface)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1650 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1651 return;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1652 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1653
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1654 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1655 os2fslib_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color * colors)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1656 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1657 printf("[os2fslib_SetColors] : TODO!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1658 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1659 // TODO: Implement paletted modes
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1660 return (1);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1661 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1662
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1663 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1664 os2fslib_DestroyIcon(HWND hwndFrame)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1665 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1666 if (hptrCurrentIcon) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1667 WinDestroyPointer(hptrCurrentIcon);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1668 hptrCurrentIcon = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1669
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1670 WinSendMsg(hwndFrame, WM_SETICON, NULL, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1671 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1672
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1673 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1674
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1675 /* Set the window icon image */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1676 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1677 os2fslib_SetIcon(_THIS, SDL_Surface * icon, Uint8 * mask)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1678 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1679 HWND hwndFrame;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1680 SDL_Surface *icon_rgb;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1681 HPOINTER hptrIcon;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1682 HBITMAP hbm;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1683 BITMAPINFOHEADER bmih;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1684 BMPINFO bmi;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1685 HPS hps;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1686 char *pchTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1687 char pptr, mptr, dptr, dmptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1688 int maxx, maxy, w, h, x, y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1689 SDL_Rect bounds;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1690
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1691 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1692 printf("[os2fslib_SetIcon] : Creating and setting new icon\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1693 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1694 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1695
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1696 hwndFrame = WinQueryWindow(_this->hidden->hwndClient, QW_PARENT);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1697
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1698 // Make sure the old icon resource will be free'd!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1699 os2fslib_DestroyIcon(hwndFrame);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1700
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1701 if ((!icon) \|\| (!mask))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1702 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1703
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1704 w = icon->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1705 h = icon->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1706
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1707 maxx = WinQuerySysValue(HWND_DESKTOP, SV_CXICON);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1708 maxy = WinQuerySysValue(HWND_DESKTOP, SV_CYICON);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1709
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1710 // Check for max size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1711 if ((w > maxx) \|\| (h > maxy))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1712 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1713
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1714 pchTemp = (char ) SDL_malloc(w h * 2 * 4);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1715 if (!pchTemp)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1716 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1717
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1718 SDL_memset(pchTemp, 0, w * h * 2 * 4);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1719
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1720 // Convert surface to RGB, if it's not RGB yet!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1721 icon_rgb = SDL_CreateRGBSurface(SDL_SWSURFACE, icon->w, icon->h,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1722 32, 0, 0, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1723 if (icon_rgb == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1724 SDL_free(pchTemp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1725 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1726 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1727 bounds.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1728 bounds.y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1729 bounds.w = icon->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1730 bounds.h = icon->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1731 if (SDL_LowerBlit(icon, &bounds, icon_rgb, &bounds) < 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1732 SDL_FreeSurface(icon_rgb);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1733 SDL_free(pchTemp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1734 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1735 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1736
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1737 /* Copy pixels upside-down from RGB surface into BMP, masked with the icon mask */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1738
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1739 // Pixels
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1740 pptr = (char *) (icon_rgb->pixels);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1741 // Mask
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1742 mptr = mask;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1743
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1744 for (y = 0; y < h; y++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1745 unsigned char uchMaskByte;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1746
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1747 // Destination
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1748 dptr = pchTemp + w * 4 * (h - y - 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1749 // Destination mask
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1750 dmptr = pchTemp + w * h * 4 + w * 4 * (h - y - 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1751
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1752 for (x = 0; x < w; x++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1753 if (x % 8 == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1754 uchMaskByte = (unsigned char) (*mptr);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1755 mptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1756 } else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1757 uchMaskByte <<= 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1758
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1759 if (uchMaskByte & 0x80) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1760 // Copy RGB
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1761 dptr++ = pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1762 dptr++ = pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1763 dptr++ = pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1764 dptr++ = pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1765
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1766 *dmptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1767 *dmptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1768 *dmptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1769 *dmptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1770 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1771 // Set pixels to fully transparent
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1772 *dptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1773 pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1774 *dptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1775 pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1776 *dptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1777 pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1778 *dptr++ = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1779 pptr++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1780
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1781 *dmptr++ = 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1782 *dmptr++ = 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1783 *dmptr++ = 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1784 *dmptr++ = 255;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1785 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1786 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1787 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1788
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1789 // There is no more need for the RGB surface
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1790 SDL_FreeSurface(icon_rgb);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1791
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1792 hps = WinGetPS(_this->hidden->hwndClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1793
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1794 bmi.cbFix = sizeof(BITMAPINFOHEADER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1795 bmi.cx = w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1796 bmi.cy = 2 * h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1797 bmi.cPlanes = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1798 bmi.cBitCount = 32;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1799
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1800 SDL_memset(&bmih, 0, sizeof(BITMAPINFOHEADER));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1801 bmih.cbFix = sizeof(BITMAPINFOHEADER);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1802 bmih.cx = w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1803 bmih.cy = 2 * h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1804 bmih.cPlanes = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1805 bmih.cBitCount = 32;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1806
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1807 hbm =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1808 GpiCreateBitmap(hps, (PBITMAPINFOHEADER2) & bmih, CBM_INIT,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1809 (PBYTE) pchTemp, (PBITMAPINFO2) & bmi);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1810 hptrIcon = WinCreatePointer(HWND_DESKTOP, hbm, FALSE, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1811
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1812 WinReleasePS(hps);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1813
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1814 // Free pixel array
1336 3692456e7b0f Use SDL_ prefixed versions of C library functions. Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	1815 SDL_free(pchTemp);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1816
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1817 // Change icon in frame window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1818 WinSendMsg(hwndFrame, WM_SETICON, (MPARAM) hptrIcon, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1819
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1820 /*
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1821 // Change icon in switchlist
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1822 // Seems like it's not needed, the WM_SETICON already does it.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1823 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1824 PID pidFrame;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1825 HSWITCH hswitchFrame;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1826 SWCNTRL swctl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1827
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1828 WinQueryWindowProcess(hwndFrame, &pidFrame, NULL);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1829 hswitchFrame = WinQuerySwitchHandle(hwndFrame, pidFrame);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1830 WinQuerySwitchEntry(hswitchFrame, &swctl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1831
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1832 swctl.hwndIcon = hptrIcon;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1833
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1834 WinChangeSwitchEntry(hswitchFrame, &swctl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1835 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1836 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1837
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1838 // Store icon handle in global variable
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1839 hptrCurrentIcon = hptrIcon;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1840 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1841
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1842 // ------------------------ REAL FUNCTIONS -----------------
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1843
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1844
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1845 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1846 os2fslib_SetCursorManagementFunctions(_THIS, int iForWindowedMode)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1847 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1848 if (iForWindowedMode) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1849 _this->FreeWMCursor = os2fslib_FreeWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1850 _this->CreateWMCursor = os2fslib_CreateWMCursor_Win;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1851 _this->ShowWMCursor = os2fslib_ShowWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1852 _this->WarpWMCursor = os2fslib_WarpWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1853 _this->MoveWMCursor = os2fslib_MoveWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1854 _this->CheckMouseMode = NULL; //os2fslib_CheckMouseMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1855 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1856 // We'll have software mouse cursor in FS mode!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1857 _this->FreeWMCursor = os2fslib_FreeWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1858 _this->CreateWMCursor = os2fslib_CreateWMCursor_FS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1859 _this->ShowWMCursor = os2fslib_ShowWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1860 _this->WarpWMCursor = os2fslib_WarpWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1861 _this->MoveWMCursor = os2fslib_MoveWMCursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1862 _this->CheckMouseMode = NULL; //os2fslib_CheckMouseMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1863 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1864 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1865
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1866 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1867 os2fslib_InitOSKeymap(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1868 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1869 int i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1870
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1871 iShiftIsPressed = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1872
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1873 /* Map the VK and CH keysyms */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1874 for (i = 0; i <= 255; ++i)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1875 HWScanKeyMap[i] = SDLK_UNKNOWN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1876
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1877 // First line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1878 HWScanKeyMap[0x1] = SDLK_ESCAPE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1879 HWScanKeyMap[0x3b] = SDLK_F1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1880 HWScanKeyMap[0x3c] = SDLK_F2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1881 HWScanKeyMap[0x3d] = SDLK_F3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1882 HWScanKeyMap[0x3e] = SDLK_F4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1883 HWScanKeyMap[0x3f] = SDLK_F5;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1884 HWScanKeyMap[0x40] = SDLK_F6;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1885 HWScanKeyMap[0x41] = SDLK_F7;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1886 HWScanKeyMap[0x42] = SDLK_F8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1887 HWScanKeyMap[0x43] = SDLK_F9;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1888 HWScanKeyMap[0x44] = SDLK_F10;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1889 HWScanKeyMap[0x57] = SDLK_F11;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1890 HWScanKeyMap[0x58] = SDLK_F12;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1891 HWScanKeyMap[0x5d] = SDLK_PRINT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1892 HWScanKeyMap[0x46] = SDLK_SCROLLOCK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1893 HWScanKeyMap[0x5f] = SDLK_PAUSE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1894
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1895 // Second line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1896 HWScanKeyMap[0x29] = SDLK_BACKQUOTE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1897 HWScanKeyMap[0x2] = SDLK_1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1898 HWScanKeyMap[0x3] = SDLK_2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1899 HWScanKeyMap[0x4] = SDLK_3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1900 HWScanKeyMap[0x5] = SDLK_4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1901 HWScanKeyMap[0x6] = SDLK_5;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1902 HWScanKeyMap[0x7] = SDLK_6;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1903 HWScanKeyMap[0x8] = SDLK_7;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1904 HWScanKeyMap[0x9] = SDLK_8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1905 HWScanKeyMap[0xa] = SDLK_9;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1906 HWScanKeyMap[0xb] = SDLK_0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1907 HWScanKeyMap[0xc] = SDLK_MINUS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1908 HWScanKeyMap[0xd] = SDLK_EQUALS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1909 HWScanKeyMap[0xe] = SDLK_BACKSPACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1910 HWScanKeyMap[0x68] = SDLK_INSERT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1911 HWScanKeyMap[0x60] = SDLK_HOME;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1912 HWScanKeyMap[0x62] = SDLK_PAGEUP;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1913 HWScanKeyMap[0x45] = SDLK_NUMLOCK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1914 HWScanKeyMap[0x5c] = SDLK_KP_DIVIDE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1915 HWScanKeyMap[0x37] = SDLK_KP_MULTIPLY;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1916 HWScanKeyMap[0x4a] = SDLK_KP_MINUS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1917
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1918 // Third line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1919 HWScanKeyMap[0xf] = SDLK_TAB;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1920 HWScanKeyMap[0x10] = SDLK_q;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1921 HWScanKeyMap[0x11] = SDLK_w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1922 HWScanKeyMap[0x12] = SDLK_e;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1923 HWScanKeyMap[0x13] = SDLK_r;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1924 HWScanKeyMap[0x14] = SDLK_t;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1925 HWScanKeyMap[0x15] = SDLK_y;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1926 HWScanKeyMap[0x16] = SDLK_u;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1927 HWScanKeyMap[0x17] = SDLK_i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1928 HWScanKeyMap[0x18] = SDLK_o;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1929 HWScanKeyMap[0x19] = SDLK_p;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1930 HWScanKeyMap[0x1a] = SDLK_LEFTBRACKET;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1931 HWScanKeyMap[0x1b] = SDLK_RIGHTBRACKET;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1932 HWScanKeyMap[0x1c] = SDLK_RETURN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1933 HWScanKeyMap[0x69] = SDLK_DELETE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1934 HWScanKeyMap[0x65] = SDLK_END;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1935 HWScanKeyMap[0x67] = SDLK_PAGEDOWN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1936 HWScanKeyMap[0x47] = SDLK_KP7;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1937 HWScanKeyMap[0x48] = SDLK_KP8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1938 HWScanKeyMap[0x49] = SDLK_KP9;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1939 HWScanKeyMap[0x4e] = SDLK_KP_PLUS;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1940
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1941 // Fourth line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1942 HWScanKeyMap[0x3a] = SDLK_CAPSLOCK;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1943 HWScanKeyMap[0x1e] = SDLK_a;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1944 HWScanKeyMap[0x1f] = SDLK_s;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1945 HWScanKeyMap[0x20] = SDLK_d;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1946 HWScanKeyMap[0x21] = SDLK_f;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1947 HWScanKeyMap[0x22] = SDLK_g;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1948 HWScanKeyMap[0x23] = SDLK_h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1949 HWScanKeyMap[0x24] = SDLK_j;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1950 HWScanKeyMap[0x25] = SDLK_k;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1951 HWScanKeyMap[0x26] = SDLK_l;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1952 HWScanKeyMap[0x27] = SDLK_SEMICOLON;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1953 HWScanKeyMap[0x28] = SDLK_QUOTE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1954 HWScanKeyMap[0x2b] = SDLK_BACKSLASH;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1955 HWScanKeyMap[0x4b] = SDLK_KP4;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1956 HWScanKeyMap[0x4c] = SDLK_KP5;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1957 HWScanKeyMap[0x4d] = SDLK_KP6;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1958
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1959 // Fifth line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1960 HWScanKeyMap[0x2a] = SDLK_LSHIFT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1961 HWScanKeyMap[0x56] = SDLK_WORLD_1; // Code 161, letter i' on hungarian keyboard
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1962 HWScanKeyMap[0x2c] = SDLK_z;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1963 HWScanKeyMap[0x2d] = SDLK_x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1964 HWScanKeyMap[0x2e] = SDLK_c;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1965 HWScanKeyMap[0x2f] = SDLK_v;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1966 HWScanKeyMap[0x30] = SDLK_b;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1967 HWScanKeyMap[0x31] = SDLK_n;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1968 HWScanKeyMap[0x32] = SDLK_m;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1969 HWScanKeyMap[0x33] = SDLK_COMMA;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1970 HWScanKeyMap[0x34] = SDLK_PERIOD;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1971 HWScanKeyMap[0x35] = SDLK_SLASH;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1972 HWScanKeyMap[0x36] = SDLK_RSHIFT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1973 HWScanKeyMap[0x61] = SDLK_UP;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1974 HWScanKeyMap[0x4f] = SDLK_KP1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1975 HWScanKeyMap[0x50] = SDLK_KP2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1976 HWScanKeyMap[0x51] = SDLK_KP3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1977 HWScanKeyMap[0x5a] = SDLK_KP_ENTER;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1978
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1979 // Sixth line of keyboard:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1980 HWScanKeyMap[0x1d] = SDLK_LCTRL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1981 HWScanKeyMap[0x7e] = SDLK_LSUPER; // Windows key
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1982 HWScanKeyMap[0x38] = SDLK_LALT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1983 HWScanKeyMap[0x39] = SDLK_SPACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1984 HWScanKeyMap[0x5e] = SDLK_RALT; // Actually, altgr on my keyboard...
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1985 HWScanKeyMap[0x7f] = SDLK_RSUPER;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1986 HWScanKeyMap[0x7c] = SDLK_MENU;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1987 HWScanKeyMap[0x5b] = SDLK_RCTRL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1988 HWScanKeyMap[0x63] = SDLK_LEFT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1989 HWScanKeyMap[0x66] = SDLK_DOWN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1990 HWScanKeyMap[0x64] = SDLK_RIGHT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1991 HWScanKeyMap[0x52] = SDLK_KP0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	1992 HWScanKeyMap[0x53] = SDLK_KP_PERIOD;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1993 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1994
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1995
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1996 /* Iconify the window.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1997 This function returns 1 if there is a window manager and the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1998 window was actually iconified, it returns 0 otherwise.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1999 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2000 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2001 os2fslib_IconifyWindow(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2002 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2003 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2004 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2005 ERRORID hmqerror;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2006
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2007 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2008 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2009 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2010
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2011 // Cannot do anything in fullscreen mode!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2012 if (FSLib_QueryFSMode(_this->hidden->hwndClient))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2013 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2014
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2015 // Make sure this thread is prepared for using the Presentation Manager!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2016 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2017 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2018 // Remember if there was an error at WinCreateMsgQueue(), because we don't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2019 // want to destroy somebody else's queue later. :)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2020 hmqerror = WinGetLastError(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2021
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2022 WinSetWindowPos(_this->hidden->hwndFrame, HWND_TOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2023 0, 0, 0, 0, SWP_MINIMIZE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2024
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2025 // Now destroy the message queue, if we've created it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2026 if (ERRORIDERROR(hmqerror) == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2027 WinDestroyMsgQueue(hmq);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2028
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2029 return 1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2030 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2031
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2032 static SDL_GrabMode
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2033 os2fslib_GrabInput(_THIS, SDL_GrabMode mode)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2034 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2035 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2036 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2037 ERRORID hmqerror;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2038
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2039
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2040 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2041 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2042 return SDL_GRAB_OFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2043
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2044 // Make sure this thread is prepared for using the Presentation Manager!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2045 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2046 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2047 // Remember if there was an error at WinCreateMsgQueue(), because we don't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2048 // want to destroy somebody else's queue later. :)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2049 hmqerror = WinGetLastError(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2050
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2051
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2052 if (mode == SDL_GRAB_OFF) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2053 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2054 printf("[os2fslib_GrabInput] : Releasing mouse\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2055 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2056 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2057
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2058 // Release the mouse
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2059 bMouseCapturable = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2060 if (bMouseCaptured) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2061 WinSetCapture(HWND_DESKTOP, NULLHANDLE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2062 bMouseCaptured = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2063 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2064 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2065 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2066 printf("[os2fslib_GrabInput] : Capturing mouse\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2067 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2068 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2069
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2070 // Capture the mouse
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2071 bMouseCapturable = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2072 if (WinQueryFocus(HWND_DESKTOP) == _this->hidden->hwndClient) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2073 WinSetCapture(HWND_DESKTOP, _this->hidden->hwndClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2074 bMouseCaptured = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2075 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2076 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2077 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2078 // Center the mouse to the middle of the window!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2079 WinQueryWindowPos(_this->hidden->hwndClient, &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2080 ptl.x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2081 ptl.y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2082 WinMapWindowPoints(_this->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2083 HWND_DESKTOP, &ptl, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2084 _this->hidden->iSkipWMMOUSEMOVE++; /* Don't take next WM_MOUSEMOVE into account! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2085 WinSetPointerPos(HWND_DESKTOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2086 ptl.x + swpClient.cx / 2,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2087 ptl.y + swpClient.cy / 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2088 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2089 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2090 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2091
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2092 // Now destroy the message queue, if we've created it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2093 if (ERRORIDERROR(hmqerror) == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2094 WinDestroyMsgQueue(hmq);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2095
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2096 return mode;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2097 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2098
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2099 /* Set the title and icon text */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2100 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2101 os2fslib_SetCaption(_THIS, const char title, const char icon)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2102 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2103 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2104 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2105 ERRORID hmqerror;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2106
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2107 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2108 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2109 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2110
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2111 // Make sure this thread is prepared for using the Presentation Manager!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2112 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2113 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2114 // Remember if there was an error at WinCreateMsgQueue(), because we don't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2115 // want to destroy somebody else's queue later. :)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2116 hmqerror = WinGetLastError(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2117
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2118 WinSetWindowText(_this->hidden->hwndFrame, (char *) title);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2119
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2120 // Now destroy the message queue, if we've created it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2121 if (ERRORIDERROR(hmqerror) == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2122 WinDestroyMsgQueue(hmq);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2123 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2124
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2125 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2126 os2fslib_ToggleFullScreen(_THIS, int on)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2127 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2128 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2129 printf("[os2fslib_ToggleFullScreen] : %d\n", on);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2130 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2131 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2132 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2133 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2134 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2135
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2136 FSLib_ToggleFSMode(_this->hidden->hwndClient, on);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2137 /* Cursor manager functions to Windowed/FS mode */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2138 os2fslib_SetCursorManagementFunctions(_this, !on);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2139 return 1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2140 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2141
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2142 /* This is called after the video mode has been set, to get the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2143 initial mouse state. It should queue events as necessary to
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2144 properly represent the current mouse focus and position.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2145 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2146 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2147 os2fslib_UpdateMouse(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2148 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2149 POINTL ptl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2150 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2151 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2152 ERRORID hmqerror;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2153 SWP swpClient;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2154
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2155 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2156 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2157 return;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2158
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2159
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2160 // Make sure this thread is prepared for using the Presentation Manager!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2161 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2162 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2163 // Remember if there was an error at WinCreateMsgQueue(), because we don't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2164 // want to destroy somebody else's queue later. :)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2165 hmqerror = WinGetLastError(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2166
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2167
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2168
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2169 if (_this->hidden->fInFocus) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2170 // If our app is in focus
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2171 SDL_PrivateAppActive(1, SDL_APPMOUSEFOCUS);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2172 SDL_PrivateAppActive(1, SDL_APPINPUTFOCUS);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2173 SDL_PrivateAppActive(1, SDL_APPACTIVE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2174 WinQueryPointerPos(HWND_DESKTOP, &ptl);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2175 WinMapWindowPoints(HWND_DESKTOP, _this->hidden->hwndClient, &ptl, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2176 WinQueryWindowPos(_this->hidden->hwndClient, &swpClient);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2177 // Convert OS/2 mouse position to SDL position, and also scale it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2178 ptl.x =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2179 ptl.x * _this->hidden->SrcBufferDesc.uiXResolution / swpClient.cx;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2180 ptl.y =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2181 ptl.y * _this->hidden->SrcBufferDesc.uiYResolution / swpClient.cy;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2182 ptl.y = _this->hidden->SrcBufferDesc.uiYResolution - ptl.y - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2183 SDL_PrivateMouseMotion(0, 0, (Sint16) (ptl.x), (Sint16) (ptl.y));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2184 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2185 // If we're not in focus
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2186 SDL_PrivateAppActive(0, SDL_APPMOUSEFOCUS);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2187 SDL_PrivateAppActive(0, SDL_APPINPUTFOCUS);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2188 SDL_PrivateAppActive(0, SDL_APPACTIVE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2189 SDL_PrivateMouseMotion(0, 0, (Sint16) - 1, (Sint16) - 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2190 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2191
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2192 // Now destroy the message queue, if we've created it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2193 if (ERRORIDERROR(hmqerror) == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2194 WinDestroyMsgQueue(hmq);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2195
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2196 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2197
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2198 /* This pointer should exist in the native video subsystem and should
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2199 point to an appropriate update function for the current video mode
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2200 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2201 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2202 os2fslib_UpdateRects(_THIS, int numrects, SDL_Rect * rects)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2203 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2204 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2205 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2206 return;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2207
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2208 #ifdef BITBLT_IN_WINMESSAGEPROC
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2209 WinSendMsg(_this->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2210 WM_UPDATERECTSREQUEST, (MPARAM) numrects, (MPARAM) rects);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2211 #else
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2212 if (DosRequestMutexSem
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2213 (_this->hidden->hmtxUseSrcBuffer, SEM_INDEFINITE_WAIT) == NO_ERROR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2214 int i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2215
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2216 if (_this->hidden->pSDLSurface) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2217 #ifndef RESIZE_EVEN_IF_RESIZABLE
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2218 SWP swp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2219 // But only blit if the window is not resizable, or if
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2220 // the window is resizable and the source buffer size is the
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2221 // same as the destination buffer size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2222 WinQueryWindowPos(_this->hidden->hwndClient, &swp);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2223 if ((_this->hidden->pSDLSurface) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2224 (_this->hidden->pSDLSurface->flags & SDL_RESIZABLE) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2225 ((swp.cx != _this->hidden->SrcBufferDesc.uiXResolution) \|\|
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2226 (swp.cy != _this->hidden->SrcBufferDesc.uiYResolution))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2227 && (!FSLib_QueryFSMode(_this->hidden->hwndClient))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2228 // Resizable surface and in resizing!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2229 // So, don't blit now!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2230 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2231 printf("[UpdateRects] : Skipping blit while resizing!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2232 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2233 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2234 } else
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2235 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2236 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2237 /*
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2238 // Blit the whole window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2239 FSLIB_BITBLT(_this->hidden->hwndClient, _this->hidden->pchSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2240 0, 0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2241 _this->hidden->SrcBufferDesc.uiXResolution,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2242 _this->hidden->SrcBufferDesc.uiYResolution);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2243 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2244 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2245 printf("[os2fslib_UpdateRects] : Blitting!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2246 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2247 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2248
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2249 // Blit the changed areas
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2250 for (i = 0; i < numrects; i++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2251 FSLIB_BITBLT(_this->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2252 _this->hidden->pchSrcBuffer,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2253 rects[i].y, rects[i].x, rects[i].w,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2254 rects[i].h);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2255 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2256 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2257 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2258 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2259 printf("[os2fslib_UpdateRects] : No public surface!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2260 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2261 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2262 DosReleaseMutexSem(_this->hidden->hmtxUseSrcBuffer);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2263 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2264 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2265 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2266 printf("[os2fslib_UpdateRects] : Error in mutex!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2267 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2268 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2269 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2270 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2271
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2272
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2273 /* Reverse the effects VideoInit() -- called if VideoInit() fails
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2274 or if the application is shutting down the video subsystem.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2275 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2276 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2277 os2fslib_VideoQuit(_THIS)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2278 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2279 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2280 printf("[os2fslib_VideoQuit]\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2281 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2282 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2283 // Close PM stuff if running!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2284 if (_this->hidden->iPMThreadStatus == 1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2285 int iTimeout;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2286 WinPostMsg(_this->hidden->hwndFrame, WM_QUIT, (MPARAM) 0, (MPARAM) 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2287 // HACK: We had this line before:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2288 //DosWaitThread((TID *) &(_this->hidden->tidPMThread), DCWW_WAIT);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2289 // We don't use it, because the PMThread will never stop, or if it stops,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2290 // it will kill the whole process as a emergency fallback.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2291 // So, we only check for the iPMThreadStatus stuff!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2292 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2293 printf("[os2fslib_VideoQuit] : Waiting for PM thread to die\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2294 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2295 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2296
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2297 iTimeout = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2298 while ((_this->hidden->iPMThreadStatus == 1) && (iTimeout < 100)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2299 iTimeout++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2300 DosSleep(64);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2301 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2302
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2303 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2304 printf("[os2fslib_VideoQuit] : End of wait.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2305 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2306 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2307
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2308 if (_this->hidden->iPMThreadStatus == 1) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2309 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2310 printf("[os2fslib_VideoQuit] : Killing PM thread!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2311 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2312 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2313
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2314 _this->hidden->iPMThreadStatus = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2315 DosKillThread(_this->hidden->tidPMThread);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2316
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2317 if (_this->hidden->hwndFrame) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2318 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2319 printf("[os2fslib_VideoQuit] : Destroying PM window!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2320 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2321 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2322
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2323 WinDestroyWindow(_this->hidden->hwndFrame);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2324 _this->hidden->hwndFrame = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2325 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2326 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2327
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2328 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2329 // Free result of an old ListModes() call, because there is
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2330 // no FreeListModes() call in SDL!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2331 if (_this->hidden->pListModesResult) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2332 SDL_free(_this->hidden->pListModesResult);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2333 _this->hidden->pListModesResult = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2334 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2335 // Free list of available fullscreen modes
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2336 if (_this->hidden->pAvailableFSLibVideoModes) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2337 FSLib_FreeVideoModeList(_this->hidden->pAvailableFSLibVideoModes);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2338 _this->hidden->pAvailableFSLibVideoModes = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2339 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2340 // Free application icon if we had one
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2341 if (hptrCurrentIcon) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2342 WinDestroyPointer(hptrCurrentIcon);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2343 hptrCurrentIcon = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2344 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2345 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2346
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2347 /* Set the requested video mode, returning a surface which will be
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2348 set to the SDL_VideoSurface. The width and height will already
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2349 be verified by ListModes(), and the video subsystem is free to
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2350 set the mode to a supported bit depth different from the one
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2351 specified -- the desired bpp will be emulated with a shadow
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2352 surface if necessary. If a new mode is returned, this function
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2353 should take care of cleaning up the current mode.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2354 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2355 static SDL_Surface *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2356 os2fslib_SetVideoMode(_THIS, SDL_Surface * current,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2357 int width, int height, int bpp, Uint32 flags)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2358 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2359 static int bFirstCall = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2360 FSLib_VideoMode_p pModeInfo, pModeInfoFound;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2361 FSLib_VideoMode TempModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2362 HAB hab;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2363 HMQ hmq;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2364 ERRORID hmqerror;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2365 RECTL rectl;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2366 SDL_Surface *pResult;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2367
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2368 // If there is no more window, nothing we can do!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2369 if (_this->hidden->iPMThreadStatus != 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2370 return NULL;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2371
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2372 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2373 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2374 ("[os2fslib_SetVideoMode] : Request for %dx%d @ %dBPP, flags=0x%x\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2375 width, height, bpp, flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2376 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2377 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2378
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2379 // We don't support palette modes!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2380 if (bpp == 8)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2381 bpp = 32;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2382
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2383 // Also, we don't support resizable modes in fullscreen mode.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2384 if (flags & SDL_RESIZABLE)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2385 flags &= ~SDL_FULLSCREEN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2386
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2387 // No double buffered mode
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2388 if (flags & SDL_DOUBLEBUF)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2389 flags &= ~SDL_DOUBLEBUF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2390
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2391 // And, we don't support HWSURFACE yet.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2392 if (flags & SDL_HWSURFACE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2393 flags &= ~SDL_HWSURFACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2394 flags \|= SDL_SWSURFACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2395 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2396 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2397 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2398 ("[os2fslib_SetVideoMode] : Changed request to %dx%d @ %dBPP, flags=0x%x\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2399 width, height, bpp, flags);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2400 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2401 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2402
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2403 // First check if there is such a video mode they want!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2404 pModeInfoFound = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2405
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2406 // For fullscreen mode we don't support every resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2407 // So, go through the video modes, and check for such a resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2408 pModeInfoFound = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2409 pModeInfo = _this->hidden->pAvailableFSLibVideoModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2410
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2411 while (pModeInfo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2412 // Check all available fullscreen modes for this resolution
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2413 if ((pModeInfo->uiXResolution == width) && (pModeInfo->uiYResolution == height) && (pModeInfo->uiBPP != 8)) // palettized modes not yet supported
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2414 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2415 // If good resolution, try to find the exact BPP, or at least
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2416 // something similar...
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2417 if (!pModeInfoFound)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2418 pModeInfoFound = pModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2419 else if ((pModeInfoFound->uiBPP != bpp) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2420 (pModeInfoFound->uiBPP < pModeInfo->uiBPP))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2421 pModeInfoFound = pModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2422 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2423 pModeInfo = pModeInfo->pNext;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2424 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2425
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2426 // If we did not find a good fullscreen mode, then try a similar
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2427 if (!pModeInfoFound) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2428 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2429 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2430 ("[os2fslib_SetVideoMode] : Requested video mode not found, looking for a similar one!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2431 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2432 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2433 // Go through the video modes again, and find a similar resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2434 pModeInfo = _this->hidden->pAvailableFSLibVideoModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2435 while (pModeInfo) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2436 // Check all available fullscreen modes for this resolution
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2437 if ((pModeInfo->uiXResolution >= width) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2438 (pModeInfo->uiYResolution >= height) &&
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2439 (pModeInfo->uiBPP == bpp)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2440 if (!pModeInfoFound)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2441 pModeInfoFound = pModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2442 else if (((pModeInfoFound->uiXResolution -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2443 width) * (pModeInfoFound->uiYResolution -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2444 height)) >
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2445 ((pModeInfo->uiXResolution -
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2446 width) * (pModeInfo->uiYResolution - height))) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2447 // Found a mode which is closer than the current one
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2448 pModeInfoFound = pModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2449 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2450 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2451 pModeInfo = pModeInfo->pNext;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2452 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2453 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2454 // If we did not find a good fullscreen mode, then return NULL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2455 if (!pModeInfoFound) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2456 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2457 printf("[os2fslib_SetVideoMode] : Requested video mode not found!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2458 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2459 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2460 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2461 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2462 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2463 printf("[os2fslib_SetVideoMode] : Found mode!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2464 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2465 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2466
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2467 // We'll possibly adjust the structure, so copy out the values
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2468 // into TempModeInfo!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2469 SDL_memcpy(&TempModeInfo, pModeInfoFound, sizeof(TempModeInfo));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2470 pModeInfoFound = &TempModeInfo;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2471
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2472 if (flags & SDL_RESIZABLE) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2473 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2474 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2475 ("[os2fslib_SetVideoMode] : Requested mode is resizable, changing width/height\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2476 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2477 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2478 // Change width and height to requested one!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2479 TempModeInfo.uiXResolution = width;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2480 TempModeInfo.uiYResolution = height;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2481 TempModeInfo.uiScanLineSize = width * ((TempModeInfo.uiBPP + 7) / 8);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2482 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2483 // We can try create new surface!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2484
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2485 // Make sure this thread is prepared for using the Presentation Manager!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2486 hab = WinInitialize(0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2487 hmq = WinCreateMsgQueue(hab, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2488 // Remember if there was an error at WinCreateMsgQueue(), because we don't
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2489 // want to destroy somebody else's queue later. :)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2490 hmqerror = WinGetLastError(hab);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2491
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2492
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2493
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2494 if (DosRequestMutexSem
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2495 (_this->hidden->hmtxUseSrcBuffer, SEM_INDEFINITE_WAIT) == NO_ERROR) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2496 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2497 printf("[os2fslib_SetVideoMode] : Creating new SW surface\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2498 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2499 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2500
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2501 // Create new software surface!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2502 pResult = SDL_CreateRGBSurface(SDL_SWSURFACE,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2503 pModeInfoFound->uiXResolution,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2504 pModeInfoFound->uiYResolution,
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2505 pModeInfoFound->uiBPP, ((unsigned int)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2506 pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2507 PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2508 ucRedMask)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2509 << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2510 ucRedPosition, ((unsigned int)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2511 pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2512 PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2513 ucGreenMask)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2514 << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2515 ucGreenPosition, ((unsigned int)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2516 pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2517 PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2518 ucBlueMask)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2519 << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2520 ucBluePosition, ((unsigned int)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2521 pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2522 PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2523 ucAlphaMask)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2524 << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2525 ucAlphaPosition);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2526
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2527 if (pResult == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2528 DosReleaseMutexSem(_this->hidden->hmtxUseSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2529 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2530 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2531 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2532 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2533 printf("[os2fslib_SetVideoMode] : Adjusting pixel format\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2534 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2535 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2536
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2537 // Adjust pixel format mask!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2538 pResult->format->Rmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2539 ((unsigned int) pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2540 PixelFormat.ucRedMask) << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2541 ucRedPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2542 pResult->format->Rshift = pModeInfoFound->PixelFormat.ucRedPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2543 pResult->format->Rloss = pModeInfoFound->PixelFormat.ucRedAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2544 pResult->format->Gmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2545 ((unsigned int) pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2546 PixelFormat.ucGreenMask) << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2547 ucGreenPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2548 pResult->format->Gshift = pModeInfoFound->PixelFormat.ucGreenPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2549 pResult->format->Gloss = pModeInfoFound->PixelFormat.ucGreenAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2550 pResult->format->Bmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2551 ((unsigned int) pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2552 PixelFormat.ucBlueMask) << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2553 ucBluePosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2554 pResult->format->Bshift = pModeInfoFound->PixelFormat.ucBluePosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2555 pResult->format->Bloss = pModeInfoFound->PixelFormat.ucBlueAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2556 pResult->format->Amask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2557 ((unsigned int) pModeInfoFound->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2558 PixelFormat.ucAlphaMask) << pModeInfoFound->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2559 ucAlphaPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2560 pResult->format->Ashift = pModeInfoFound->PixelFormat.ucAlphaPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2561 pResult->format->Aloss = pModeInfoFound->PixelFormat.ucAlphaAdjust;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2562
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2563 #ifdef REPORT_EMPTY_ALPHA_MASK
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2564 pResult->format->Amask =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2565 pResult->format->Ashift = pResult->format->Aloss = 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2566 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2567
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2568 // Adjust surface flags
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2569 pResult->flags \|= (flags & SDL_FULLSCREEN);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2570 pResult->flags \|= (flags & SDL_RESIZABLE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2571
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2572 // It might be that the software surface pitch is not the same as
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2573 // the pitch we have, so adjust that!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2574 pModeInfoFound->uiScanLineSize = pResult->pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2575
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2576 // Store new source buffer parameters!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2577 SDL_memcpy(&(_this->hidden->SrcBufferDesc), pModeInfoFound,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2578 sizeof(*pModeInfoFound));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2579 _this->hidden->pchSrcBuffer = pResult->pixels;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2580
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2581 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2582 printf("[os2fslib_SetVideoMode] : Telling FSLib the stuffs\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2583 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2584 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2585
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2586 // Tell the FSLib window the new source image format
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2587 FSLib_SetSrcBufferDesc(_this->hidden->hwndClient,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2588 &(_this->hidden->SrcBufferDesc));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2589
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2590 if (((flags & SDL_RESIZABLE) == 0) \|\| (bFirstCall)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2591 bFirstCall = 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2592 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2593 printf("[os2fslib_SetVideoMode] : Modifying window size\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2594 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2595 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2596
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2597 // Calculate frame window size from client window size
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2598 rectl.xLeft = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2599 rectl.yBottom = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2600 rectl.xRight = pModeInfoFound->uiXResolution; // Noninclusive
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2601 rectl.yTop = pModeInfoFound->uiYResolution; // Noninclusive
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2602 WinCalcFrameRect(_this->hidden->hwndFrame, &rectl, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2603
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2604 // Set the new size of the main window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2605 SetAccessableWindowPos(_this->hidden->hwndFrame,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2606 HWND_TOP,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2607 0, 0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2608 (rectl.xRight - rectl.xLeft),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2609 (rectl.yTop - rectl.yBottom),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2610 SWP_SIZE \| SWP_ACTIVATE \| SWP_SHOW);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2611 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2612 // Set fullscreen mode flag, and switch to fullscreen if needed!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2613 if (flags & SDL_FULLSCREEN) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2614 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2615 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2616 ("[os2fslib_SetVideoMode] : Also trying to switch to fullscreen\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2617 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2618 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2619 FSLib_ToggleFSMode(_this->hidden->hwndClient, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2620 /* Cursor manager functions to FS mode */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2621 os2fslib_SetCursorManagementFunctions(_this, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2622 } else {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2623 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2624 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2625 ("[os2fslib_SetVideoMode] : Also trying to switch to desktop mode\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2626 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2627 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2628 FSLib_ToggleFSMode(_this->hidden->hwndClient, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2629 /* Cursor manager functions to Windowed mode */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2630 os2fslib_SetCursorManagementFunctions(_this, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2631 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2632
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2633 _this->hidden->pSDLSurface = pResult;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2634
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2635 DosReleaseMutexSem(_this->hidden->hmtxUseSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2636 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2637 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2638 printf("[os2fslib_SetVideoMode] : Could not get hmtxUseSrcBuffer!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2639 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2640 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2641
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2642 pResult = NULL;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2643 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2644
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2645 // As we have the new surface, we don't need the current one anymore!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2646 if ((pResult) && (current)) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2647 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2648 printf("[os2fslib_SetVideoMode] : Freeing old surface\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2649 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2650 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2651 SDL_FreeSurface(current);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2652 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2653 // Redraw window
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2654 WinInvalidateRegion(_this->hidden->hwndClient, NULL, TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2655
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2656 // Now destroy the message queue, if we've created it!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2657 if (ERRORIDERROR(hmqerror) == 0) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2658 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2659 printf("[os2fslib_SetVideoMode] : Destroying message queue\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2660 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2661 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2662 WinDestroyMsgQueue(hmq);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2663 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2664 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2665 printf("[os2fslib_SetVideoMode] : Done\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2666 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2667 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2668
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2669 /* We're done */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2670
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2671 // Return with the new surface!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2672 return pResult;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2673 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2674
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2675 /* List the available video modes for the given pixel format, sorted
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2676 from largest to smallest.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2677 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2678 static SDL_Rect **
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2679 os2fslib_ListModes(_THIS, SDL_PixelFormat * format, Uint32 flags)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2680 {
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2681 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2682 printf("[os2fslib_ListModes] : ListModes of %d Bpp\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2683 format->BitsPerPixel);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2684 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2685 // Destroy result of previous call, if there is any
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2686 if (_this->hidden->pListModesResult) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2687 SDL_free(_this->hidden->pListModesResult);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2688 _this->hidden->pListModesResult = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2689 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2690 // For resizable and windowed mode we support every resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2691 if ((flags & SDL_RESIZABLE) && ((flags & SDL_FULLSCREEN) == 0))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2692 return (SDL_Rect **) - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2693
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2694 // Check if they need fullscreen or non-fullscreen video modes!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2695 if ((flags & SDL_FULLSCREEN) == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2696 // For windowed mode we support every resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2697 return (SDL_Rect **) - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2698 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2699 FSLib_VideoMode_p pFSMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2700 // For fullscreen mode we don't support every resolution!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2701 // Now create a new list
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2702 pFSMode = _this->hidden->pAvailableFSLibVideoModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2703 while (pFSMode) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2704 if (pFSMode->uiBPP == format->BitsPerPixel) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2705 SDL_Rect pRect = (SDL_Rect ) SDL_malloc(sizeof(SDL_Rect));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2706 if (pRect) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2707 // Fill description
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2708 pRect->x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2709 pRect->y = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2710 pRect->w = pFSMode->uiXResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2711 pRect->h = pFSMode->uiYResolution;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2712 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2713 // printf("!!! Seems to be good!\n");
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	2714 // printf("F: %dx%d\n", pRect->w, pRect->h);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2715 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2716 // And insert into list of pRects
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2717 if (!(_this->hidden->pListModesResult)) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2718 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2719 // printf("!!! Inserting to beginning\n");
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2720 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2721
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2722 // We're the first one to be inserted!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2723 _this->hidden->pListModesResult =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2724 (SDL_Rect *) SDL_malloc(2 sizeof(SDL_Rect *));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2725 if (_this->hidden->pListModesResult) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2726 _this->hidden->pListModesResult[0] = pRect;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2727 _this->hidden->pListModesResult[1] = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2728 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2729 SDL_free(pRect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2730 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2731 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2732 // We're not the first ones, so find the place where we
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2733 // have to insert ourselves
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2734 SDL_Rect **pNewList;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2735 int iPlace, iNumOfSlots, i;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2736
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2737 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2738 // printf("!!! Searching where to insert\n");
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2739 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2740
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2741 iPlace = -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2742 iNumOfSlots = 1; // Count the last NULL too!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2743 for (i = 0; _this->hidden->pListModesResult[i]; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2744 iNumOfSlots++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2745 if (iPlace == -1) {
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2746 if ((_this->hidden->pListModesResult[i]->w *
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2747 _this->hidden->pListModesResult[i]->h) <
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2748 (pRect->w * pRect->h)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2749 iPlace = i;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2750 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2751 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2752 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2753 if (iPlace == -1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2754 iPlace = iNumOfSlots - 1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2755
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2756 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2757 // printf("!!! From %d slots, it will be at %d\n", iNumOfSlots, iPlace);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2758 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2759
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2760 pNewList = (SDL_Rect **)
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2761 SDL_realloc(_this->hidden->pListModesResult,
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2762 (iNumOfSlots +
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2763 1) * sizeof(SDL_Rect *));
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2764 if (pNewList) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2765 for (i = iNumOfSlots; i > iPlace; i--)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2766 pNewList[i] = pNewList[i - 1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2767 pNewList[iPlace] = pRect;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2768 _this->hidden->pListModesResult = pNewList;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2769 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2770 SDL_free(pRect);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2771 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2772 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2773 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2774 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2775 pFSMode = pFSMode->pNext;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2776 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2777 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2778 #ifdef DEBUG_BUILD
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2779 // printf("Returning list\n");
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2780 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2781 return _this->hidden->pListModesResult;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2782 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2783
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2784 /* Initialize the native video subsystem, filling 'vformat' with the
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2785 "best" display pixel format, returning 0 or -1 if there's an error.
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2786 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2787 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2788 os2fslib_VideoInit(_THIS, SDL_PixelFormat * vformat)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2789 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2790 FSLib_VideoMode_p pDesktopMode;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2791
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2792 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2793 printf("[os2fslib_VideoInit] : Enter\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2794 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2795 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2796
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2797 // Report the best pixel format. For this,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2798 // we'll use the current desktop format.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2799 pDesktopMode = FSLib_GetDesktopVideoMode();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2800 if (!pDesktopMode) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2801 SDL_SetError("Could not query desktop video mode!");
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2802 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2803 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2804 ("[os2fslib_VideoInit] : Could not query desktop video mode!\n");
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2805 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2806 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2807 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2808
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2809 /* Determine the current screen size */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2810 _this->info.current_w = pDesktopMode->uiXResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2811 _this->info.current_h = pDesktopMode->uiYResolution;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2812
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2813 /* Determine the screen depth */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2814 vformat->BitsPerPixel = pDesktopMode->uiBPP;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2815 vformat->BytesPerPixel = (vformat->BitsPerPixel + 7) / 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2816
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2817 vformat->Rmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2818 ((unsigned int) pDesktopMode->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2819 ucRedMask) << pDesktopMode->PixelFormat.ucRedPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2820 vformat->Rshift = pDesktopMode->PixelFormat.ucRedPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2821 vformat->Rloss = pDesktopMode->PixelFormat.ucRedAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2822 vformat->Gmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2823 ((unsigned int) pDesktopMode->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2824 PixelFormat.ucGreenMask) << pDesktopMode->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2825 ucGreenPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2826 vformat->Gshift = pDesktopMode->PixelFormat.ucGreenPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2827 vformat->Gloss = pDesktopMode->PixelFormat.ucGreenAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2828 vformat->Bmask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2829 ((unsigned int) pDesktopMode->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2830 PixelFormat.ucBlueMask) << pDesktopMode->PixelFormat.ucBluePosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2831 vformat->Bshift = pDesktopMode->PixelFormat.ucBluePosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2832 vformat->Bloss = pDesktopMode->PixelFormat.ucBlueAdjust;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2833 vformat->Amask =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2834 ((unsigned int) pDesktopMode->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2835 PixelFormat.ucAlphaMask) << pDesktopMode->PixelFormat.
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2836 ucAlphaPosition;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2837 vformat->Ashift = pDesktopMode->PixelFormat.ucAlphaPosition;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2838 vformat->Aloss = pDesktopMode->PixelFormat.ucAlphaAdjust;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2839
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2840 #ifdef REPORT_EMPTY_ALPHA_MASK
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2841 vformat->Amask = vformat->Ashift = vformat->Aloss = 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2842 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2843
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2844 // Fill in some window manager capabilities
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2845 _this->info.wm_available = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2846
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2847 // Initialize some internal variables
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2848 _this->hidden->pListModesResult = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2849 _this->hidden->fInFocus = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2850 _this->hidden->iSkipWMMOUSEMOVE = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2851 _this->hidden->iMouseVisible = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2852
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2853 if (getenv("SDL_USE_PROPORTIONAL_WINDOW"))
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2854 _this->hidden->bProportionalResize = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2855 else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2856 PPIB pib;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2857 PTIB tib;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2858 char pchFileName, pchTemp;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2859 char achConfigFile[CCHMAXPATH];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2860 FILE *hFile;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2861
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2862 /* No environment variable to have proportional window.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2863 * Ok, let's check if this executable is in config file!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2864 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2865 _this->hidden->bProportionalResize = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2866
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2867 DosGetInfoBlocks(&tib, &pib);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2868 pchTemp = pchFileName = pib->pib_pchcmd;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2869 while (*pchTemp) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2870 if (*pchTemp == '\\')
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2871 pchFileName = pchTemp + 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2872 pchTemp++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2873 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2874 if (getenv("HOME")) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2875 sprintf(achConfigFile, "%s\\.sdl.proportionals", getenv("HOME"));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2876 hFile = fopen(achConfigFile, "rt");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2877 if (!hFile) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2878 /* Seems like the file cannot be opened or does not exist.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2879 * Let's try to create it with defaults!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2880 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2881 hFile = fopen(achConfigFile, "wt");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2882 if (hFile) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2883 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2884 "; This file is a config file of SDL/2, containing\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2885 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2886 "; the list of executables that must have proportional\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2887 fprintf(hFile, "; windows.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2888 fprintf(hFile, ";\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2889 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2890 "; You can add executable filenames into this file,\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2891 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2892 "; one under the other. If SDL finds that a given\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2893 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2894 "; program is in this list, then that application\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2895 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2896 "; will have proportional windows, just like if\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2897 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2898 "; the SET SDL_USE_PROPORTIONAL_WINDOW env. variable\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2899 fprintf(hFile,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2900 "; would have been set for that process.\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2901 fprintf(hFile, ";\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2902 fprintf(hFile, "\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2903 fprintf(hFile, "dosbox.exe\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2904 fclose(hFile);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2905 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2906
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2907 hFile = fopen(achConfigFile, "rt");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2908 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2909
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2910 if (hFile) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2911 while (fgets(achConfigFile, sizeof(achConfigFile), hFile)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2912 /* Cut \n from end of string */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2913
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2914 while (achConfigFile[strlen(achConfigFile) - 1]
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2915 == '\n')
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2916 achConfigFile[strlen(achConfigFile) - 1] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2917
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2918 /* Compare... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2919 if (stricmp(achConfigFile, pchFileName) == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2920 /* Found it in config file! */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2921 _this->hidden->bProportionalResize = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2922 break;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2923 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2924 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2925 fclose(hFile);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2926 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2927 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2928 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2929
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2930 DosCreateMutexSem(NULL, &(_this->hidden->hmtxUseSrcBuffer), 0, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2931
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2932 // Now create our window with a default size
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2933
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2934 // For this, we select the first available fullscreen mode as
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2935 // current window size!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2936 SDL_memcpy(&(_this->hidden->SrcBufferDesc),
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2937 _this->hidden->pAvailableFSLibVideoModes,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2938 sizeof(_this->hidden->SrcBufferDesc));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2939 // Allocate new video buffer!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2940 _this->hidden->pchSrcBuffer =
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2941 (char *) SDL_malloc(_this->hidden->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2942 pAvailableFSLibVideoModes->uiScanLineSize *
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2943 _this->hidden->
204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	2944 pAvailableFSLibVideoModes->uiYResolution);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2945 if (!_this->hidden->pchSrcBuffer) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2946 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2947 printf
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2948 ("[os2fslib_VideoInit] : Yikes, not enough memory for new video buffer!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2949 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2950 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2951 SDL_SetError("Not enough memory for new video buffer!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2952 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2953 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2954 // For this, we need a message processing thread.
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2955 // We'll create a new thread for this, which will do everything
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2956 // what is related to PM
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2957 _this->hidden->iPMThreadStatus = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2958 _this->hidden->tidPMThread =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2959 _beginthread(PMThreadFunc, NULL, 65536, (void *) _this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2960 if (_this->hidden->tidPMThread <= 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2961 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2962 printf("[os2fslib_VideoInit] : Could not create PM thread!\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2963 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2964 SDL_SetError("Could not create PM thread");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2965 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2966 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2967 #ifdef USE_DOSSETPRIORITY
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2968 // Burst the priority of PM Thread!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2969 DosSetPriority(PRTYS_THREAD, PRTYC_TIMECRITICAL, 0,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2970 _this->hidden->tidPMThread);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2971 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2972 // Wait for the PM thread to initialize!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2973 while (_this->hidden->iPMThreadStatus == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2974 DosSleep(32);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2975 // If the PM thread could not set up everything, then
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2976 // report an error!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2977 if (_this->hidden->iPMThreadStatus != 1) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2978 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2979 printf("[os2fslib_VideoInit] : PMThread reported an error : %d\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2980 _this->hidden->iPMThreadStatus);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2981 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2982 SDL_SetError("Error initializing PM thread");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2983 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2984 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2985
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2986 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2987 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2988
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2989
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2990 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2991 os2fslib_DeleteDevice(_THIS)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2992 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2993 #ifdef DEBUG_BUILD
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2994 printf("[os2fslib_DeleteDevice]\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2995 fflush(stdout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2996 #endif
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2997 // Free used memory
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2998 FSLib_FreeVideoModeList(_this->hidden->pAvailableFSLibVideoModes);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	2999 if (_this->hidden->pListModesResult)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3000 SDL_free(_this->hidden->pListModesResult);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3001 if (_this->hidden->pchSrcBuffer)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3002 SDL_free(_this->hidden->pchSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3003 DosCloseMutexSem(_this->hidden->hmtxUseSrcBuffer);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3004 SDL_free(_this->hidden);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3005 SDL_free(_this);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3006 FSLib_Uninitialize();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3007 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3008
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3009 static int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3010 os2fslib_Available(void)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3011 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3012
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3013 // If we can run, it means that we could load FSLib,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3014 // so we assume that it's available then!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3015 return 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3016 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3017
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3018 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3019 os2fslib_MorphToPM()
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3020 {
1442 e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	3021 PPIB pib;
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	3022 PTIB tib;
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	3023
e3242177fe4a Updated OS/2 build, yay! Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	3024 DosGetInfoBlocks(&tib, &pib);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3025
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3026 // Change flag from VIO to PM:
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3027 if (pib->pib_ultype == 2)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3028 pib->pib_ultype = 3;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3029 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3030
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3031 static SDL_VideoDevice *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3032 os2fslib_CreateDevice(int devindex)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3033 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3034 SDL_VideoDevice *device;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3035
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3036 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3037 printf("[os2fslib_CreateDevice] : Enter\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3038 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3039 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3040
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3041 /* Initialize all variables that we clean on shutdown */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3042 device = (SDL_VideoDevice *) SDL_malloc(sizeof(SDL_VideoDevice));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3043 if (device) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3044 SDL_memset(device, 0, (sizeof *device));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3045 // Also allocate memory for private data
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3046 device->hidden = (struct SDL_PrivateVideoData *)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3047 SDL_malloc((sizeof(struct SDL_PrivateVideoData)));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3048 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3049 if ((device == NULL) \|\| (device->hidden == NULL)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3050 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3051 if (device)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3052 SDL_free(device);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3053 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3054 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3055 SDL_memset(device->hidden, 0, (sizeof *device->hidden));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3056
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3057 /* Set the function pointers */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3058 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3059 printf("[os2fslib_CreateDevice] : VideoInit is %p\n", os2fslib_VideoInit);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3060 fflush(stdout);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3061 #endif
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3062
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3063 /* Initialization/Query functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3064 device->VideoInit = os2fslib_VideoInit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3065 device->ListModes = os2fslib_ListModes;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3066 device->SetVideoMode = os2fslib_SetVideoMode;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3067 device->ToggleFullScreen = os2fslib_ToggleFullScreen;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3068 device->UpdateMouse = os2fslib_UpdateMouse;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3069 device->CreateYUVOverlay = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3070 device->SetColors = os2fslib_SetColors;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3071 device->UpdateRects = os2fslib_UpdateRects;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3072 device->VideoQuit = os2fslib_VideoQuit;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3073 /* Hardware acceleration functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3074 device->AllocHWSurface = os2fslib_AllocHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3075 device->CheckHWBlit = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3076 device->FillHWRect = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3077 device->SetHWColorKey = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3078 device->SetHWAlpha = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3079 device->LockHWSurface = os2fslib_LockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3080 device->UnlockHWSurface = os2fslib_UnlockHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3081 device->FlipHWSurface = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3082 device->FreeHWSurface = os2fslib_FreeHWSurface;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3083 /* Window manager functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3084 device->SetCaption = os2fslib_SetCaption;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3085 device->SetIcon = os2fslib_SetIcon;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3086 device->IconifyWindow = os2fslib_IconifyWindow;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3087 device->GrabInput = os2fslib_GrabInput;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3088 device->GetWMInfo = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3089 /* Cursor manager functions to Windowed mode */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3090 os2fslib_SetCursorManagementFunctions(device, 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3091 /* Event manager functions */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3092 device->InitOSKeymap = os2fslib_InitOSKeymap;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3093 device->PumpEvents = os2fslib_PumpEvents;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3094 /* The function used to dispose of this structure */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3095 device->free = os2fslib_DeleteDevice;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3096
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3097 // Make sure we'll be able to use Win* API even if the application
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3098 // was linked to be a VIO application!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3099 os2fslib_MorphToPM();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3100
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3101 // Now initialize FSLib, and query available video modes!
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3102 if (!FSLib_Initialize()) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3103 // Could not initialize FSLib!
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3104 #ifdef DEBUG_BUILD
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3105 printf("[os2fslib_CreateDevice] : Could not initialize FSLib!\n");
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3106 #endif
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3107 SDL_SetError("Could not initialize FSLib!");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3108 SDL_free(device->hidden);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3109 SDL_free(device);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3110 return NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3111 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3112 device->hidden->pAvailableFSLibVideoModes = FSLib_GetVideoModeList();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3113
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3114 return device;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3115 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3116
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3117 VideoBootStrap OS2FSLib_bootstrap = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3118 "os2fslib", "OS/2 Video Output using FSLib",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3119 os2fslib_Available, os2fslib_CreateDevice
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3120 };
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3121
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1549 diff changeset	3122 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/video/os2fslib/SDL_os2fslib.c @ 2825:620a91b6d263