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

annotate src/video/os2fslib/SDL_os2fslib.c @ 2932:676754cc1acb

Implemented Direct3D line and point drawing

author	Sam Lantinga <slouken@libsdl.org>
date	Wed, 31 Dec 2008 06:17:24 +0000
parents	99210400e8b9
children	8f4ed5ec2b06

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
2859 99210400e8b9 Updated copyright date Sam Lantinga <slouken@libsdl.org> parents: 2735 diff changeset	3 Copyright (C) 1997-2009 Sam Lantinga
1190 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 @ 2932:676754cc1acb