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

annotate src/video/riscos/SDL_riscosmouse.c @ 4532:dc4a3de60d3a

Logitech G15 on Ubuntu 10.04: code = 1, sym = 0xFF1B (Escape) scancode = 41 (Escape) code = 2, sym = 0x31 (1) scancode = 30 (1) code = 3, sym = 0x32 (2) scancode = 31 (2) code = 4, sym = 0x33 (3) scancode = 32 (3) code = 5, sym = 0x34 (4) scancode = 33 (4) code = 6, sym = 0x35 (5) scancode = 34 (5) code = 7, sym = 0x36 (6) scancode = 35 (6) code = 8, sym = 0x37 (7) scancode = 36 (7) code = 9, sym = 0x38 (8) scancode = 37 (8) code = 10, sym = 0x39 (9) scancode = 38 (9) code = 11, sym = 0x30 (0) scancode = 39 (0) code = 12, sym = 0x2D (minus) scancode = 45 (-) code = 13, sym = 0x3D (equal) scancode = 46 (=) code = 14, sym = 0xFF08 (BackSpace) scancode = 42 (Backspace) code = 15, sym = 0xFF09 (Tab) scancode = 43 (Tab) code = 16, sym = 0x71 (q) scancode = 20 (Q) code = 17, sym = 0x77 (w) scancode = 26 (W) code = 18, sym = 0x65 (e) scancode = 8 (E) code = 19, sym = 0x72 (r) scancode = 21 (R) code = 20, sym = 0x74 (t) scancode = 23 (T) code = 21, sym = 0x79 (y) scancode = 28 (Y) code = 22, sym = 0x75 (u) scancode = 24 (U) code = 23, sym = 0x69 (i) scancode = 12 (I) code = 24, sym = 0x6F (o) scancode = 18 (O) code = 25, sym = 0x70 (p) scancode = 19 (P) code = 26, sym = 0x5B (bracketleft) scancode = 47 ([) code = 27, sym = 0x5D (bracketright) scancode = 48 (]) code = 28, sym = 0xFF0D (Return) scancode = 40 (Return) code = 29, sym = 0xFFE3 (Control_L) scancode = 224 (Left Ctrl) code = 30, sym = 0x61 (a) scancode = 4 (A) code = 31, sym = 0x73 (s) scancode = 22 (S) code = 32, sym = 0x64 (d) scancode = 7 (D) code = 33, sym = 0x66 (f) scancode = 9 (F) code = 34, sym = 0x67 (g) scancode = 10 (G) code = 35, sym = 0x68 (h) scancode = 11 (H) code = 36, sym = 0x6A (j) scancode = 13 (J) code = 37, sym = 0x6B (k) scancode = 14 (K) code = 38, sym = 0x6C (l) scancode = 15 (L) code = 39, sym = 0x3B (semicolon) scancode = 51 (;) code = 40, sym = 0x27 (apostrophe) scancode = 52 (') code = 41, sym = 0x60 (grave) scancode = 53 (`) code = 42, sym = 0xFFE1 (Shift_L) scancode = 225 (Left Shift) code = 43, sym = 0x5C (backslash) scancode = 49 (\) code = 44, sym = 0x7A (z) scancode = 29 (Z) code = 45, sym = 0x78 (x) scancode = 27 (X) code = 46, sym = 0x63 (c) scancode = 6 (C) code = 47, sym = 0x76 (v) scancode = 25 (V) code = 48, sym = 0x62 (b) scancode = 5 (B) code = 49, sym = 0x6E (n) scancode = 17 (N) code = 50, sym = 0x6D (m) scancode = 16 (M) code = 51, sym = 0x2C (comma) scancode = 54 (,) code = 52, sym = 0x2E (period) scancode = 55 (.) code = 53, sym = 0x2F (slash) scancode = 56 (/) code = 54, sym = 0xFFE2 (Shift_R) scancode = 229 (Right Shift) code = 55, sym = 0xFFAA (KP_Multiply) scancode = 85 (Keypad *) code = 56, sym = 0xFFE9 (Alt_L) scancode = 226 (Left Alt) code = 57, sym = 0x20 (space) scancode = 44 (Space) code = 58, sym = 0xFFE5 (Caps_Lock) scancode = 57 (CapsLock) code = 59, sym = 0xFFBE (F1) scancode = 58 (F1) code = 60, sym = 0xFFBF (F2) scancode = 59 (F2) code = 61, sym = 0xFFC0 (F3) scancode = 60 (F3) code = 62, sym = 0xFFC1 (F4) scancode = 61 (F4) code = 63, sym = 0xFFC2 (F5) scancode = 62 (F5) code = 64, sym = 0xFFC3 (F6) scancode = 63 (F6) code = 65, sym = 0xFFC4 (F7) scancode = 64 (F7) code = 66, sym = 0xFFC5 (F8) scancode = 65 (F8) code = 67, sym = 0xFFC6 (F9) scancode = 66 (F9) code = 68, sym = 0xFFC7 (F10) scancode = 67 (F10) code = 69, sym = 0xFF7F (Num_Lock) scancode = 83 (Numlock) code = 70, sym = 0xFF14 (Scroll_Lock) scancode = 71 (ScrollLock) code = 71, sym = 0xFF95 (KP_Home) scancode = 95 (Keypad 7) code = 72, sym = 0xFF97 (KP_Up) scancode = 96 (Keypad 8) code = 73, sym = 0xFF9A (KP_Prior) scancode = 97 (Keypad 9) code = 74, sym = 0xFFAD (KP_Subtract) scancode = 86 (Keypad -) code = 75, sym = 0xFF96 (KP_Left) scancode = 92 (Keypad 4) code = 76, sym = 0xFF9D (KP_Begin) scancode = 93 (Keypad 5) code = 77, sym = 0xFF98 (KP_Right) scancode = 94 (Keypad 6) code = 78, sym = 0xFFAB (KP_Add) scancode = 87 (Keypad +) code = 79, sym = 0xFF9C (KP_End) scancode = 89 (Keypad 1) code = 80, sym = 0xFF99 (KP_Down) scancode = 90 (Keypad 2) code = 81, sym = 0xFF9B (KP_Next) scancode = 91 (Keypad 3) code = 82, sym = 0xFF9E (KP_Insert) scancode = 98 (Keypad 0) code = 83, sym = 0xFF9F (KP_Delete) scancode = 99 (Keypad .) code = 84, sym = 0xFE03 (ISO_Level3_Shift) scancode = 0 () code = 86, sym = 0x3C (less) scancode not found code = 87, sym = 0xFFC8 (F11) scancode = 68 (F11) code = 88, sym = 0xFFC9 (F12) scancode = 69 (F12) code = 90, sym = 0xFF26 (Katakana) scancode = 0 () code = 91, sym = 0xFF25 (Hiragana) scancode = 0 () code = 92, sym = 0xFF23 (Henkan_Mode) scancode = 0 () code = 93, sym = 0xFF27 (Hiragana_Katakana) scancode = 0 () code = 94, sym = 0xFF22 (Muhenkan) scancode = 0 () code = 96, sym = 0xFF8D (KP_Enter) scancode = 88 (Keypad Enter) code = 97, sym = 0xFFE4 (Control_R) scancode = 228 (Right Ctrl) code = 98, sym = 0xFFAF (KP_Divide) scancode = 84 (Keypad /) code = 99, sym = 0xFF61 (Print) scancode = 70 (PrintScreen) code = 100, sym = 0xFFEA (Alt_R) scancode = 230 (Right Alt) code = 101, sym = 0xFF0A (Linefeed) scancode = 0 () code = 102, sym = 0xFF50 (Home) scancode = 74 (Home) code = 103, sym = 0xFF52 (Up) scancode = 82 (Up) code = 104, sym = 0xFF55 (Prior) scancode = 75 (PageUp) code = 105, sym = 0xFF51 (Left) scancode = 80 (Left) code = 106, sym = 0xFF53 (Right) scancode = 79 (Right) code = 107, sym = 0xFF57 (End) scancode = 77 (End) code = 108, sym = 0xFF54 (Down) scancode = 81 (Down) code = 109, sym = 0xFF56 (Next) scancode = 78 (PageDown) code = 110, sym = 0xFF63 (Insert) scancode = 73 (Insert) code = 111, sym = 0xFFFF (Delete) scancode = 76 (Delete) code = 113, sym = 0x1008FF12 (XF86AudioMute) scancode = 0 () code = 114, sym = 0x1008FF11 (XF86AudioLowerVolume) scancode = 0 () code = 115, sym = 0x1008FF13 (XF86AudioRaiseVolume) scancode = 0 () code = 116, sym = 0x1008FF2A (XF86PowerOff) scancode = 0 () code = 117, sym = 0xFFBD (KP_Equal) scancode = 103 (Keypad =) code = 118, sym = 0xB1 (plusminus) scancode not found code = 119, sym = 0xFF13 (Pause) scancode = 72 (Pause) code = 120, sym = 0x1008FF4A (XF86LaunchA) scancode = 0 () code = 121, sym = 0xFFAE (KP_Decimal) scancode = 99 (Keypad .) code = 122, sym = 0xFF31 (Hangul) scancode = 0 () code = 123, sym = 0xFF34 (Hangul_Hanja) scancode = 0 () code = 125, sym = 0xFFEB (Super_L) scancode = 227 (Left GUI) code = 126, sym = 0xFFEC (Super_R) scancode = 231 (Right GUI) code = 127, sym = 0xFF67 (Menu) scancode = 118 (Menu) code = 128, sym = 0xFF69 (Cancel) scancode = 120 (Stop) code = 129, sym = 0xFF66 (Redo) scancode = 121 (Again) code = 130, sym = 0x1005FF70 (SunProps) scancode = 0 () code = 131, sym = 0xFF65 (Undo) scancode = 122 (Undo) code = 132, sym = 0x1005FF71 (SunFront) scancode = 0 () code = 133, sym = 0x1008FF57 (XF86Copy) scancode = 0 () code = 134, sym = 0x1005FF73 (SunOpen) scancode = 0 () code = 135, sym = 0x1008FF6D (XF86Paste) scancode = 0 () code = 136, sym = 0xFF68 (Find) scancode = 126 (Find) code = 137, sym = 0x1008FF58 (XF86Cut) scancode = 0 () code = 138, sym = 0xFF6A (Help) scancode = 117 (Help) code = 139, sym = 0x1008FF65 (XF86MenuKB) scancode = 0 () code = 140, sym = 0x1008FF1D (XF86Calculator) scancode = 0 () code = 142, sym = 0x1008FF2F (XF86Sleep) scancode = 0 () code = 143, sym = 0x1008FF2B (XF86WakeUp) scancode = 0 () code = 144, sym = 0x1008FF5D (XF86Explorer) scancode = 0 () code = 145, sym = 0x1008FF7B (XF86Send) scancode = 0 () code = 147, sym = 0x1008FF8A (XF86Xfer) scancode = 0 () code = 148, sym = 0x1008FF41 (XF86Launch1) scancode = 0 () code = 149, sym = 0x1008FF42 (XF86Launch2) scancode = 0 () code = 150, sym = 0x1008FF2E (XF86WWW) scancode = 0 () code = 151, sym = 0x1008FF5A (XF86DOS) scancode = 0 () code = 152, sym = 0x1008FF2D (XF86ScreenSaver) scancode = 0 () code = 154, sym = 0x1008FF74 (XF86RotateWindows) scancode = 0 () code = 155, sym = 0x1008FF19 (XF86Mail) scancode = 0 () code = 156, sym = 0x1008FF30 (XF86Favorites) scancode = 0 () code = 157, sym = 0x1008FF33 (XF86MyComputer) scancode = 0 () code = 158, sym = 0x1008FF26 (XF86Back) scancode = 0 () code = 159, sym = 0x1008FF27 (XF86Forward) scancode = 0 () code = 161, sym = 0x1008FF2C (XF86Eject) scancode = 0 () code = 162, sym = 0x1008FF2C (XF86Eject) scancode = 0 () code = 163, sym = 0x1008FF17 (XF86AudioNext) scancode = 0 () code = 164, sym = 0x1008FF14 (XF86AudioPlay) scancode = 0 () code = 165, sym = 0x1008FF16 (XF86AudioPrev) scancode = 0 () code = 166, sym = 0x1008FF15 (XF86AudioStop) scancode = 0 () code = 167, sym = 0x1008FF1C (XF86AudioRecord) scancode = 0 () code = 168, sym = 0x1008FF3E (XF86AudioRewind) scancode = 0 () code = 169, sym = 0x1008FF6E (XF86Phone) scancode = 0 () code = 171, sym = 0x1008FF81 (XF86Tools) scancode = 0 () code = 172, sym = 0x1008FF18 (XF86HomePage) scancode = 0 () code = 173, sym = 0x1008FF73 (XF86Reload) scancode = 0 () code = 174, sym = 0x1008FF56 (XF86Close) scancode = 0 () code = 177, sym = 0x1008FF78 (XF86ScrollUp) scancode = 0 () code = 178, sym = 0x1008FF79 (XF86ScrollDown) scancode = 0 () code = 179, sym = 0x28 (parenleft) scancode not found code = 180, sym = 0x29 (parenright) scancode not found code = 181, sym = 0x1008FF68 (XF86New) scancode = 0 () code = 182, sym = 0xFF66 (Redo) scancode = 121 (Again) code = 183, sym = 0x1008FF81 (XF86Tools) scancode = 0 () code = 184, sym = 0x1008FF45 (XF86Launch5) scancode = 0 () code = 185, sym = 0x1008FF65 (XF86MenuKB) scancode = 0 () code = 192, sym = 0x1008FFA9 (XF86TouchpadToggle) scancode = 0 () code = 195, sym = 0xFF7E (Mode_switch) scancode = 257 (ModeSwitch) code = 200, sym = 0x1008FF14 (XF86AudioPlay) scancode = 0 () code = 201, sym = 0x1008FF31 (XF86AudioPause) scancode = 0 () code = 202, sym = 0x1008FF43 (XF86Launch3) scancode = 0 () code = 203, sym = 0x1008FF44 (XF86Launch4) scancode = 0 () code = 204, sym = 0x1008FF4B (XF86LaunchB) scancode = 0 () code = 205, sym = 0x1008FFA7 (XF86Suspend) scancode = 0 () code = 206, sym = 0x1008FF56 (XF86Close) scancode = 0 () code = 207, sym = 0x1008FF14 (XF86AudioPlay) scancode = 0 () code = 208, sym = 0x1008FF97 (XF86AudioForward) scancode = 0 () code = 210, sym = 0xFF61 (Print) scancode = 70 (PrintScreen) code = 212, sym = 0x1008FF8F (XF86WebCam) scancode = 0 () code = 215, sym = 0x1008FF19 (XF86Mail) scancode = 0 () code = 217, sym = 0x1008FF1B (XF86Search) scancode = 0 () code = 219, sym = 0x1008FF3C (XF86Finance) scancode = 0 () code = 221, sym = 0x1008FF36 (XF86Shop) scancode = 0 () code = 223, sym = 0xFF69 (Cancel) scancode = 120 (Stop) code = 224, sym = 0x1008FF03 (XF86MonBrightnessDown) scancode = 0 () code = 225, sym = 0x1008FF02 (XF86MonBrightnessUp) scancode = 0 () code = 226, sym = 0x1008FF32 (XF86AudioMedia) scancode = 0 () code = 227, sym = 0x1008FF59 (XF86Display) scancode = 0 () code = 228, sym = 0x1008FF04 (XF86KbdLightOnOff) scancode = 0 () code = 229, sym = 0x1008FF06 (XF86KbdBrightnessDown) scancode = 0 () code = 230, sym = 0x1008FF05 (XF86KbdBrightnessUp) scancode = 0 () code = 231, sym = 0x1008FF7B (XF86Send) scancode = 0 () code = 232, sym = 0x1008FF72 (XF86Reply) scancode = 0 () code = 233, sym = 0x1008FF90 (XF86MailForward) scancode = 0 () code = 234, sym = 0x1008FF77 (XF86Save) scancode = 0 () code = 235, sym = 0x1008FF5B (XF86Documents) scancode = 0 () code = 236, sym = 0x1008FF93 (XF86Battery) scancode = 0 () code = 237, sym = 0x1008FF94 (XF86Bluetooth) scancode = 0 () code = 238, sym = 0x1008FF95 (XF86WLAN) scancode = 0 ()

author	Sam Lantinga <slouken@libsdl.org>
date	Sun, 18 Jul 2010 00:40:17 -0700
parents	f7b03b6838cb
children

rev	line source
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	1 /*
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
3697 f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	3 Copyright (C) 1997-2010 Sam Lantinga
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	4
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
3697 f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	6 modify it under the terms of the GNU Lesser General Public
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
3697 f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	9
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3697 f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	13 Lesser General Public License for more details.
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	14
3697 f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	15 You should have received a copy of the GNU Lesser General Public
f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	16 License along with this library; if not, write to the Free Software
f7b03b6838cb Fixed bug #926 Sam Lantinga <slouken@libsdl.org> parents: 2859 diff changeset	17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	18
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	19 Sam Lantinga
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1208 diff changeset	20 slouken@libsdl.org
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.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"
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	23
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	24 /*
1035 974ba6ae0fa3 Date: Wed, 26 Jan 2005 13:37:09 GMT Sam Lantinga <slouken@libsdl.org> parents: 769 diff changeset	25 File added by Alan Buckley (alan_baa@hotmail.com) for RISC OS compatability
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	26 27 March 2003
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	27
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	28 Implements mouse cursor shape definitions and positioning
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	29 */
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	30
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	31 #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	32 #include "../../events/SDL_events_c.h"
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	33
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	34 #include "SDL_riscosmouse_c.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	35
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	36 #include "kernel.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	37 #include "swis.h"
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	38
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	39 static WMcursor *current_cursor = NULL;
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	40 static WMcursor *defined_cursor = NULL;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	41
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	42 extern int mouseInWindow;
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	43
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	44 /* Area to save cursor palette colours changed by SDL.
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	45 Actual values will be read before we change to the SDL cursor */
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	46 static Uint8 wimp_cursor_palette[2][5] = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	47 {1, 25, 255, 255, 255},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	48 {3, 25, 255, 255, 255}
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	49 };
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	50
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	51 static int cursor_palette_saved = 0;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	52
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	53 void WIMP_SaveCursorPalette();
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	54 void WIMP_RestoreWimpCursor();
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	55 void WIMP_SetSDLCursorPalette();
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	56
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	57
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	58 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	59 RISCOS_FreeWMCursor(_THIS, WMcursor * cursor)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	60 {
1336 3692456e7b0f Use SDL_ prefixed versions of C library functions. Sam Lantinga <slouken@libsdl.org> parents: 1312 diff changeset	61 SDL_free(cursor->data);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	62 SDL_free(cursor);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	63 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	64
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	65 WMcursor *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	66 RISCOS_CreateWMCursor(_THIS,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	67 Uint8 * data, Uint8 * mask, int w, int h, int hot_x,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	68 int hot_y)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	69 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	70 WMcursor *cursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	71 Uint8 *cursor_data;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	72 Uint8 *ptr;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	73 int i, j, k;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	74 int data_byte, mask_byte;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	75
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	76 /* Check to make sure the cursor size is okay */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	77 if ((w > 32) \|\| (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: 1402 diff changeset	78 SDL_SetError("Only with width and height <= 32 pixels are allowed");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	79 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: 1402 diff changeset	80 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	81
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	82 /* Allocate the cursor */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	83 cursor = (WMcursor ) SDL_malloc(sizeof(cursor));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	84 if (cursor == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	85 SDL_SetError("Out of memory");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	86 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: 1402 diff changeset	87 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	88
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	89 /* Note: SDL says width must be a multiple of 8 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	90 cursor_data = SDL_malloc(w / 4 * h);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	91 if (cursor_data == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	92 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: 1402 diff changeset	93 SDL_SetError("Out of memory");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	94 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: 1402 diff changeset	95 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	96
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	97 cursor->w = w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	98 cursor->h = h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	99 cursor->hot_x = hot_x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	100 cursor->hot_y = 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: 1402 diff changeset	101 cursor->data = cursor_data;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	102
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	103
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	104 /* Data / Mask Resulting pixel on screen
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	105 0 / 1 White
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	106 1 / 1 Black
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	107 0 / 0 Transparent
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	108 1 / 0 Inverted color if possible, black if not.
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	109 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	110 ptr = cursor_data;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	111
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	112 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: 1402 diff changeset	113 for (j = 0; j < w / 8; ++j) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	114 data_byte = *data;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	115 mask_byte = *mask;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	116 ptr++ = 0; / Sets whole byte transparent */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	117 *ptr = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	118 for (k = 0; k < 8; k++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	119 (*ptr) <<= 2;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	120 if (data_byte & 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	121 ptr \|= 3; / Black or inverted */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	122 else if (mask_byte & 1)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	123 ptr \|= 1; / White */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	124 if ((k & 3) == 3)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	125 ptr--;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	126 data_byte >>= 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	127 mask_byte >>= 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	128 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	129
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	130 ptr += 3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	131 data++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	132 mask++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	133 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	134 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	135
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	136 return (cursor);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	137 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	138
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	139 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	140 RISCOS_ShowWMCursor(_THIS, WMcursor * cursor)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	141 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	142 current_cursor = cursor;
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	143
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	144 if (cursor == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	145 _kernel_osbyte(106, 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: 1402 diff changeset	146 defined_cursor = NULL;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	147 } else {
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	148 WMcursor *old_cursor = defined_cursor;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	149
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	150 if (cursor != defined_cursor) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	151 Uint8 cursor_def[10];
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	152
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	153 cursor_def[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: 1402 diff changeset	154 cursor_def[1] = 2; /* Use shape number 2 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	155 cursor_def[2] = cursor->w / 4; /* Width in bytes */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	156 cursor_def[3] = cursor->h; /* Height (h) in pixels */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	157 cursor_def[4] = cursor->hot_x; /* ActiveX in pixels from left */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	158 cursor_def[5] = cursor->hot_y; /* ActiveY in pixels from top */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	159 cursor_def[6] = ((int) (cursor->data) & 0xFF); /* Least significant byte of pointer to data */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	160 cursor_def[7] = ((int) (cursor->data) >> 8) & 0xFF; /* ... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	161 cursor_def[8] = ((int) (cursor->data) >> 16) & 0xFF; /* ... */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	162 cursor_def[9] = ((int) (cursor->data) >> 24) & 0xFF; /* Most significant byte of pointer to data */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	163
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	164 if (_kernel_osword(21, (int *) cursor_def) != 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	165 SDL_SetError("RISCOS couldn't create the cursor to show");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	166 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: 1402 diff changeset	167 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	168 defined_cursor = cursor;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	169 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.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: 1402 diff changeset	171 if (old_cursor == NULL) {
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	172 /* First time or reshow in window, so save/setup palette */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	173 if (!cursor_palette_saved) {
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	174 WIMP_SaveCursorPalette();
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	175 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	176 WIMP_SetSDLCursorPalette();
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	177 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	178
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	179 _kernel_osbyte(106, 2, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	180 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	181
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	182 return (1);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	183 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	184
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	185 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	186 FULLSCREEN_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	187 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	188 Uint8 move_block[5];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	189 int eig_block[3];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	190 _kernel_swi_regs regs;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	191 int os_x, os_y;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	192
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	193 eig_block[0] = 4; /* X eig factor */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	194 eig_block[1] = 5; /* Y eig factor */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	195 eig_block[2] = -1; /* End of list of variables to request */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	196
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	197 regs.r[0] = (int) eig_block;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	198 regs.r[1] = (int) eig_block;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	199 _kernel_swi(OS_ReadVduVariables, &regs, &regs);
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	200
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	201 os_x = x << eig_block[0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	202 os_y = y << eig_block[1];
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	203
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	204 move_block[0] = 3; /* Move cursor */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	205 move_block[1] = os_x & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	206 move_block[2] = (os_x >> 8) & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	207 move_block[3] = os_y & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	208 move_block[4] = (os_y >> 8) & 0xFF;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	209
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	210 _kernel_osword(21, (int *) move_block);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	211 SDL_PrivateMouseMotion(0, 0, x, y);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	212 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	213
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	214
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	215 /* Reshow cursor when mouse re-enters the window */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	216 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	217 WIMP_ReshowCursor(_THIS)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	218 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	219 defined_cursor = NULL;
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	220 cursor_palette_saved = 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: 1402 diff changeset	221 RISCOS_ShowWMCursor(this, current_cursor);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	222 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	223
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	224 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	225 WIMP_WarpWMCursor(_THIS, Uint16 x, Uint16 y)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	226 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	227 _kernel_swi_regs regs;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	228 int window_state[9];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	229 char block[5];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	230 int osX, osY;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	231
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	232 window_state[0] = this->hidden->window_handle;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	233 regs.r[1] = (unsigned int) window_state;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	234 _kernel_swi(Wimp_GetWindowState, &regs, &regs);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	235
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	236 osX = (x << this->hidden->xeig) + window_state[1];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	237 osY = window_state[4] - (y << this->hidden->yeig);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	238
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	239 block[0] = 3;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	240 block[1] = osX & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	241 block[2] = (osX >> 8) & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	242 block[3] = osY & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	243 block[4] = (osY >> 8) & 0xFF;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	244
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	245 regs.r[0] = 21;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	246 regs.r[1] = (int) block;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	247 _kernel_swi(OS_Word, &regs, &regs);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	248 SDL_PrivateMouseMotion(0, 0, x, y);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	249 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	250
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	251 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	252 WIMP_ShowWMCursor(_THIS, WMcursor * cursor)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	253 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	254 if (mouseInWindow)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	255 return RISCOS_ShowWMCursor(this, cursor);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	256 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	257 current_cursor = cursor;
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	258
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	259 return 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	260 }
550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	261
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	262 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: 1402 diff changeset	263 RISCOS_GrabInput(_THIS, SDL_GrabMode mode)
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	264 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	265 /* In fullscreen mode we don't need to do anything */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	266 if (mode < SDL_GRAB_FULLSCREEN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	267 _kernel_swi_regs regs;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	268 unsigned char block[9];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	269 block[0] = 1; /* Define mouse cursor bounding block */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	270
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	271 if (mode == 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: 1402 diff changeset	272 /* Clip to whole screen */
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	273
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	274 int r = (this->hidden->screen_width << this->hidden->xeig) - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	275 int t = (this->hidden->screen_height << this->hidden->yeig) - 1;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	276
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	277 block[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: 1402 diff changeset	278 block[2] = 0; /* Left */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	279 block[3] = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	280 block[4] = 0; /* Bottom */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	281 block[5] = r & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	282 block[6] = (r >> 8) & 0xFF; /* Right */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	283 block[7] = t & 0xFF;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	284 block[8] = (t >> 8) & 0xFF; /* Top */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	285 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	286 /* Clip to window */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	287 unsigned char window_state[36];
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	288
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	289 ((int ) window_state) = this->hidden->window_handle;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	290 regs.r[1] = (unsigned int) window_state;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	291 _kernel_swi(Wimp_GetWindowState, &regs, &regs);
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	292
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	293 block[1] = window_state[4];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	294 block[2] = window_state[5];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	295 block[3] = window_state[8];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	296 block[4] = window_state[9];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	297 block[5] = window_state[12];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	298 block[6] = window_state[13];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	299 block[7] = window_state[16];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	300 block[8] = window_state[17];
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	301
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	302 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	303
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	304 regs.r[0] = 21; /* OS word code */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	305 regs.r[1] = (int) block;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	306 _kernel_swi(OS_Word, &regs, &regs);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	307 }
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	308
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	309 return mode;
630 550bccdf04bd Added initial support for RISC OS (thanks Peter Naulls!) Sam Lantinga <slouken@libsdl.org> parents: diff changeset	310 }
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	311
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	312 /* Save mouse cursor palette to be restore when we are no longer
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	313 defining a cursor */
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	314
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	315 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	316 WIMP_SaveCursorPalette()
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	317 {
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	318 _kernel_swi_regs regs;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	319 int colour;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	320
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	321 for (colour = 0; colour < 2; colour++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	322 regs.r[0] = (int) wimp_cursor_palette[colour][0];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	323 regs.r[1] = 25;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	324 /* Read settings with OS_ReadPalette */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	325 if (_kernel_swi(0x2f, &regs, &regs) == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	326 wimp_cursor_palette[colour][2] =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	327 (unsigned char) ((regs.r[2] >> 8) & 0xFF);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	328 wimp_cursor_palette[colour][3] =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	329 (unsigned char) ((regs.r[2] >> 16) & 0xFF);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	330 wimp_cursor_palette[colour][4] =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	331 (unsigned char) ((regs.r[2] >> 24) & 0xFF);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	332 }
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	333 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	334
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	335 cursor_palette_saved = 1;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	336 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	337
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	338 /* Restore the WIMP's cursor when we leave the SDL window */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	339 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	340 WIMP_RestoreWimpCursor()
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	341 {
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	342 int colour;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	343
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	344 /* Reset to pointer shape 1 */
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	345 _kernel_osbyte(106, 1, 0);
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	346
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	347 /* Reset pointer colours */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	348 if (cursor_palette_saved) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	349 for (colour = 0; colour < 2; colour++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	350 _kernel_osword(12, (int *) wimp_cursor_palette[colour]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	351 }
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	352 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	353 cursor_palette_saved = 0;
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	354 }
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	355
d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	356 /* Set palette used for SDL mouse cursors */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	357 void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	358 WIMP_SetSDLCursorPalette()
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	359 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	360 /* First time set up the mouse colours */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	361 Uint8 block[5];
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	362
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	363 /* Set up colour 1 as white */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	364 block[0] = 1; /* Colour to change 1 - 3 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	365 block[1] = 25; /* Set pointer colour */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	366 block[2] = 255; /* red component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	367 block[3] = 255; /* green component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	368 block[4] = 255; /* blue component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	369 _kernel_osword(12, (int *) block);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	370
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	371 /* Set colour 3 to back */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	372 block[0] = 3; /* Colour to change 1 - 3 */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	373 block[1] = 25; /* Set pointer colour */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	374 block[2] = 0; /* red component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	375 block[3] = 0; /* green component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	376 block[4] = 0; /* blue component */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	377 _kernel_osword(12, (int *) block);
1208 d90b362628ea From: "alan buckley" <alan_baa@hotmail.com> Sam Lantinga <slouken@libsdl.org> parents: 1035 diff changeset	378 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	379
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	380 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/video/riscos/SDL_riscosmouse.c @ 4532:dc4a3de60d3a