2015-08-02 12:12:44 +00:00
|
|
|
#ifndef FREEGLUT_STATIC
|
|
|
|
#define FREEGLUT_STATIC
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* freeglut_main.c
|
|
|
|
*
|
|
|
|
* The windows message processing methods.
|
|
|
|
*
|
|
|
|
* Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.
|
|
|
|
* Written by Pawel W. Olszta, <olszta@sourceforge.net>
|
|
|
|
* Creation date: Fri Dec 3 1999
|
|
|
|
*
|
|
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
|
|
* copy of this software and associated documentation files (the "Software"),
|
|
|
|
* to deal in the Software without restriction, including without limitation
|
|
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
|
|
|
* Software is furnished to do so, subject to the following conditions:
|
|
|
|
*
|
|
|
|
* The above copyright notice and this permission notice shall be included
|
|
|
|
* in all copies or substantial portions of the Software.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
|
|
* PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
|
|
|
* IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
|
|
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "freeglut.h"
|
|
|
|
#include "freeglut_internal.h"
|
|
|
|
#ifdef HAVE_ERRNO_H
|
|
|
|
# include <errno.h>
|
|
|
|
#endif
|
|
|
|
#include <stdarg.h>
|
|
|
|
#ifdef HAVE_VFPRINTF
|
|
|
|
# define VFPRINTF(s,f,a) vfprintf((s),(f),(a))
|
|
|
|
#elif defined(HAVE__DOPRNT)
|
|
|
|
# define VFPRINTF(s,f,a) _doprnt((f),(a),(s))
|
|
|
|
#else
|
|
|
|
# define VFPRINTF(s,f,a)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int qb64_custom_event(int event,int v1,int v2,int v3,int v4,int v5,int v6,int v7,int v8,void *p1,void *p2);
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
void qb64_os_event_linux(XEvent *event, Display *display, int *qb64_os_event_info);
|
|
|
|
#else
|
|
|
|
LRESULT qb64_os_event_windows(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, int *qb64_os_event_info);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define QB64_EVENT_CLOSE 1
|
|
|
|
#define QB64_EVENT_KEY 2
|
|
|
|
#define QB64_EVENT_RELATIVE_MOUSE_MOVEMENT 3
|
|
|
|
|
|
|
|
#define QBK 200000
|
|
|
|
#define VK 100000
|
|
|
|
#define UC 1073741824
|
|
|
|
/* QBK codes:
|
|
|
|
200000-200010: Numpad keys with Num-Lock off
|
|
|
|
NO_NUMLOCK_KP0=INSERT
|
|
|
|
NO_NUMLOCK_KP1=END
|
|
|
|
NO_NUMLOCK_KP2=DOWN
|
|
|
|
NO_NUMLOCK_KP3=PGDOWN
|
|
|
|
NO_NUMLOCK_KP4...
|
|
|
|
NO_NUMLOCK_KP5
|
|
|
|
NO_NUMLOCK_KP6
|
|
|
|
NO_NUMLOCK_KP7
|
|
|
|
NO_NUMLOCK_KP8
|
|
|
|
NO_NUMLOCK_KP9
|
|
|
|
NO_NUMLOCK_KP_PERIOD=DEL
|
|
|
|
200011: SCROLL_LOCK_ON
|
|
|
|
200012: INSERT_MODE_ON
|
|
|
|
*/
|
|
|
|
#define QBK_SCROLL_LOCK_MODE 11
|
|
|
|
#define QBK_INSERT_MODE 12
|
|
|
|
#define QBK_CHR0 13
|
|
|
|
typedef enum {
|
|
|
|
QBVK_UNKNOWN = 0,
|
|
|
|
QBVK_FIRST = 0,
|
|
|
|
QBVK_BACKSPACE = 8,
|
|
|
|
QBVK_TAB = 9,
|
|
|
|
QBVK_CLEAR = 12,
|
|
|
|
QBVK_RETURN = 13,
|
|
|
|
QBVK_PAUSE = 19,
|
|
|
|
QBVK_ESCAPE = 27,
|
|
|
|
QBVK_SPACE = 32,
|
|
|
|
QBVK_EXCLAIM = 33,
|
|
|
|
QBVK_QUOTEDBL = 34,
|
|
|
|
QBVK_HASH = 35,
|
|
|
|
QBVK_DOLLAR = 36,
|
|
|
|
QBVK_AMPERSAND = 38,
|
|
|
|
QBVK_QUOTE = 39,
|
|
|
|
QBVK_LEFTPAREN = 40,
|
|
|
|
QBVK_RIGHTPAREN = 41,
|
|
|
|
QBVK_ASTERISK = 42,
|
|
|
|
QBVK_PLUS = 43,
|
|
|
|
QBVK_COMMA = 44,
|
|
|
|
QBVK_MINUS = 45,
|
|
|
|
QBVK_PERIOD = 46,
|
|
|
|
QBVK_SLASH = 47,
|
|
|
|
QBVK_0 = 48,
|
|
|
|
QBVK_1 = 49,
|
|
|
|
QBVK_2 = 50,
|
|
|
|
QBVK_3 = 51,
|
|
|
|
QBVK_4 = 52,
|
|
|
|
QBVK_5 = 53,
|
|
|
|
QBVK_6 = 54,
|
|
|
|
QBVK_7 = 55,
|
|
|
|
QBVK_8 = 56,
|
|
|
|
QBVK_9 = 57,
|
|
|
|
QBVK_COLON = 58,
|
|
|
|
QBVK_SEMICOLON = 59,
|
|
|
|
QBVK_LESS = 60,
|
|
|
|
QBVK_EQUALS = 61,
|
|
|
|
QBVK_GREATER = 62,
|
|
|
|
QBVK_QUESTION = 63,
|
|
|
|
QBVK_AT = 64,
|
|
|
|
//Skip uppercase letters
|
|
|
|
QBVK_LEFTBRACKET= 91,
|
|
|
|
QBVK_BACKSLASH = 92,
|
|
|
|
QBVK_RIGHTBRACKET = 93,
|
|
|
|
QBVK_CARET = 94,
|
|
|
|
QBVK_UNDERSCORE = 95,
|
|
|
|
QBVK_BACKQUOTE = 96,
|
|
|
|
QBVK_a = 97,
|
|
|
|
QBVK_b = 98,
|
|
|
|
QBVK_c = 99,
|
|
|
|
QBVK_d = 100,
|
|
|
|
QBVK_e = 101,
|
|
|
|
QBVK_f = 102,
|
|
|
|
QBVK_g = 103,
|
|
|
|
QBVK_h = 104,
|
|
|
|
QBVK_i = 105,
|
|
|
|
QBVK_j = 106,
|
|
|
|
QBVK_k = 107,
|
|
|
|
QBVK_l = 108,
|
|
|
|
QBVK_m = 109,
|
|
|
|
QBVK_n = 110,
|
|
|
|
QBVK_o = 111,
|
|
|
|
QBVK_p = 112,
|
|
|
|
QBVK_q = 113,
|
|
|
|
QBVK_r = 114,
|
|
|
|
QBVK_s = 115,
|
|
|
|
QBVK_t = 116,
|
|
|
|
QBVK_u = 117,
|
|
|
|
QBVK_v = 118,
|
|
|
|
QBVK_w = 119,
|
|
|
|
QBVK_x = 120,
|
|
|
|
QBVK_y = 121,
|
|
|
|
QBVK_z = 122,
|
|
|
|
QBVK_DELETE = 127,
|
|
|
|
//End of ASCII mapped QBVKs
|
|
|
|
//International QBVKs
|
|
|
|
QBVK_WORLD_0 = 160, /* 0xA0 */
|
|
|
|
QBVK_WORLD_1 = 161,
|
|
|
|
QBVK_WORLD_2 = 162,
|
|
|
|
QBVK_WORLD_3 = 163,
|
|
|
|
QBVK_WORLD_4 = 164,
|
|
|
|
QBVK_WORLD_5 = 165,
|
|
|
|
QBVK_WORLD_6 = 166,
|
|
|
|
QBVK_WORLD_7 = 167,
|
|
|
|
QBVK_WORLD_8 = 168,
|
|
|
|
QBVK_WORLD_9 = 169,
|
|
|
|
QBVK_WORLD_10 = 170,
|
|
|
|
QBVK_WORLD_11 = 171,
|
|
|
|
QBVK_WORLD_12 = 172,
|
|
|
|
QBVK_WORLD_13 = 173,
|
|
|
|
QBVK_WORLD_14 = 174,
|
|
|
|
QBVK_WORLD_15 = 175,
|
|
|
|
QBVK_WORLD_16 = 176,
|
|
|
|
QBVK_WORLD_17 = 177,
|
|
|
|
QBVK_WORLD_18 = 178,
|
|
|
|
QBVK_WORLD_19 = 179,
|
|
|
|
QBVK_WORLD_20 = 180,
|
|
|
|
QBVK_WORLD_21 = 181,
|
|
|
|
QBVK_WORLD_22 = 182,
|
|
|
|
QBVK_WORLD_23 = 183,
|
|
|
|
QBVK_WORLD_24 = 184,
|
|
|
|
QBVK_WORLD_25 = 185,
|
|
|
|
QBVK_WORLD_26 = 186,
|
|
|
|
QBVK_WORLD_27 = 187,
|
|
|
|
QBVK_WORLD_28 = 188,
|
|
|
|
QBVK_WORLD_29 = 189,
|
|
|
|
QBVK_WORLD_30 = 190,
|
|
|
|
QBVK_WORLD_31 = 191,
|
|
|
|
QBVK_WORLD_32 = 192,
|
|
|
|
QBVK_WORLD_33 = 193,
|
|
|
|
QBVK_WORLD_34 = 194,
|
|
|
|
QBVK_WORLD_35 = 195,
|
|
|
|
QBVK_WORLD_36 = 196,
|
|
|
|
QBVK_WORLD_37 = 197,
|
|
|
|
QBVK_WORLD_38 = 198,
|
|
|
|
QBVK_WORLD_39 = 199,
|
|
|
|
QBVK_WORLD_40 = 200,
|
|
|
|
QBVK_WORLD_41 = 201,
|
|
|
|
QBVK_WORLD_42 = 202,
|
|
|
|
QBVK_WORLD_43 = 203,
|
|
|
|
QBVK_WORLD_44 = 204,
|
|
|
|
QBVK_WORLD_45 = 205,
|
|
|
|
QBVK_WORLD_46 = 206,
|
|
|
|
QBVK_WORLD_47 = 207,
|
|
|
|
QBVK_WORLD_48 = 208,
|
|
|
|
QBVK_WORLD_49 = 209,
|
|
|
|
QBVK_WORLD_50 = 210,
|
|
|
|
QBVK_WORLD_51 = 211,
|
|
|
|
QBVK_WORLD_52 = 212,
|
|
|
|
QBVK_WORLD_53 = 213,
|
|
|
|
QBVK_WORLD_54 = 214,
|
|
|
|
QBVK_WORLD_55 = 215,
|
|
|
|
QBVK_WORLD_56 = 216,
|
|
|
|
QBVK_WORLD_57 = 217,
|
|
|
|
QBVK_WORLD_58 = 218,
|
|
|
|
QBVK_WORLD_59 = 219,
|
|
|
|
QBVK_WORLD_60 = 220,
|
|
|
|
QBVK_WORLD_61 = 221,
|
|
|
|
QBVK_WORLD_62 = 222,
|
|
|
|
QBVK_WORLD_63 = 223,
|
|
|
|
QBVK_WORLD_64 = 224,
|
|
|
|
QBVK_WORLD_65 = 225,
|
|
|
|
QBVK_WORLD_66 = 226,
|
|
|
|
QBVK_WORLD_67 = 227,
|
|
|
|
QBVK_WORLD_68 = 228,
|
|
|
|
QBVK_WORLD_69 = 229,
|
|
|
|
QBVK_WORLD_70 = 230,
|
|
|
|
QBVK_WORLD_71 = 231,
|
|
|
|
QBVK_WORLD_72 = 232,
|
|
|
|
QBVK_WORLD_73 = 233,
|
|
|
|
QBVK_WORLD_74 = 234,
|
|
|
|
QBVK_WORLD_75 = 235,
|
|
|
|
QBVK_WORLD_76 = 236,
|
|
|
|
QBVK_WORLD_77 = 237,
|
|
|
|
QBVK_WORLD_78 = 238,
|
|
|
|
QBVK_WORLD_79 = 239,
|
|
|
|
QBVK_WORLD_80 = 240,
|
|
|
|
QBVK_WORLD_81 = 241,
|
|
|
|
QBVK_WORLD_82 = 242,
|
|
|
|
QBVK_WORLD_83 = 243,
|
|
|
|
QBVK_WORLD_84 = 244,
|
|
|
|
QBVK_WORLD_85 = 245,
|
|
|
|
QBVK_WORLD_86 = 246,
|
|
|
|
QBVK_WORLD_87 = 247,
|
|
|
|
QBVK_WORLD_88 = 248,
|
|
|
|
QBVK_WORLD_89 = 249,
|
|
|
|
QBVK_WORLD_90 = 250,
|
|
|
|
QBVK_WORLD_91 = 251,
|
|
|
|
QBVK_WORLD_92 = 252,
|
|
|
|
QBVK_WORLD_93 = 253,
|
|
|
|
QBVK_WORLD_94 = 254,
|
|
|
|
QBVK_WORLD_95 = 255, /* 0xFF */
|
|
|
|
//Numeric keypad
|
|
|
|
QBVK_KP0 = 256,
|
|
|
|
QBVK_KP1 = 257,
|
|
|
|
QBVK_KP2 = 258,
|
|
|
|
QBVK_KP3 = 259,
|
|
|
|
QBVK_KP4 = 260,
|
|
|
|
QBVK_KP5 = 261,
|
|
|
|
QBVK_KP6 = 262,
|
|
|
|
QBVK_KP7 = 263,
|
|
|
|
QBVK_KP8 = 264,
|
|
|
|
QBVK_KP9 = 265,
|
|
|
|
QBVK_KP_PERIOD = 266,
|
|
|
|
QBVK_KP_DIVIDE = 267,
|
|
|
|
QBVK_KP_MULTIPLY = 268,
|
|
|
|
QBVK_KP_MINUS = 269,
|
|
|
|
QBVK_KP_PLUS = 270,
|
|
|
|
QBVK_KP_ENTER = 271,
|
|
|
|
QBVK_KP_EQUALS = 272,
|
|
|
|
//Arrows + Home/End pad
|
|
|
|
QBVK_UP = 273,
|
|
|
|
QBVK_DOWN = 274,
|
|
|
|
QBVK_RIGHT = 275,
|
|
|
|
QBVK_LEFT = 276,
|
|
|
|
QBVK_INSERT = 277,
|
|
|
|
QBVK_HOME = 278,
|
|
|
|
QBVK_END = 279,
|
|
|
|
QBVK_PAGEUP = 280,
|
|
|
|
QBVK_PAGEDOWN = 281,
|
|
|
|
//Function keys
|
|
|
|
QBVK_F1 = 282,
|
|
|
|
QBVK_F2 = 283,
|
|
|
|
QBVK_F3 = 284,
|
|
|
|
QBVK_F4 = 285,
|
|
|
|
QBVK_F5 = 286,
|
|
|
|
QBVK_F6 = 287,
|
|
|
|
QBVK_F7 = 288,
|
|
|
|
QBVK_F8 = 289,
|
|
|
|
QBVK_F9 = 290,
|
|
|
|
QBVK_F10 = 291,
|
|
|
|
QBVK_F11 = 292,
|
|
|
|
QBVK_F12 = 293,
|
|
|
|
QBVK_F13 = 294,
|
|
|
|
QBVK_F14 = 295,
|
|
|
|
QBVK_F15 = 296,
|
|
|
|
//Key state modifier keys
|
|
|
|
QBVK_NUMLOCK = 300,
|
|
|
|
QBVK_CAPSLOCK = 301,
|
|
|
|
QBVK_SCROLLOCK = 302,
|
|
|
|
QBVK_RSHIFT = 303,
|
|
|
|
QBVK_LSHIFT = 304,
|
|
|
|
QBVK_RCTRL = 305,
|
|
|
|
QBVK_LCTRL = 306,
|
|
|
|
QBVK_RALT = 307,
|
|
|
|
QBVK_LALT = 308,
|
|
|
|
QBVK_RMETA = 309,
|
|
|
|
QBVK_LMETA = 310,
|
|
|
|
QBVK_LSUPER = 311, /* Left "Windows" key */
|
|
|
|
QBVK_RSUPER = 312, /* Right "Windows" key */
|
|
|
|
QBVK_MODE = 313, /* "Alt Gr" key */
|
|
|
|
QBVK_COMPOSE = 314, /* Multi-key compose key */
|
|
|
|
//Miscellaneous function keys
|
|
|
|
QBVK_HELP = 315,
|
|
|
|
QBVK_PRINT = 316,
|
|
|
|
QBVK_SYSREQ = 317,
|
|
|
|
QBVK_BREAK = 318,
|
|
|
|
QBVK_MENU = 319,
|
|
|
|
QBVK_POWER = 320, /* Power Macintosh power key */
|
|
|
|
QBVK_EURO = 321, /* Some european keyboards */
|
|
|
|
QBVK_UNDO = 322, /* Atari keyboard has Undo */
|
|
|
|
QBVK_LAST
|
|
|
|
}QBVKs;
|
|
|
|
//Enumeration of valid key mods (possibly OR'd together)
|
|
|
|
typedef enum {
|
|
|
|
KMOD_NONE = 0x0000,
|
|
|
|
KMOD_LSHIFT= 0x0001,
|
|
|
|
KMOD_RSHIFT= 0x0002,
|
|
|
|
KMOD_LCTRL = 0x0040,
|
|
|
|
KMOD_RCTRL = 0x0080,
|
|
|
|
KMOD_LALT = 0x0100,
|
|
|
|
KMOD_RALT = 0x0200,
|
|
|
|
KMOD_LMETA = 0x0400,
|
|
|
|
KMOD_RMETA = 0x0800,
|
|
|
|
KMOD_NUM = 0x1000,
|
|
|
|
KMOD_CAPS = 0x2000,
|
|
|
|
KMOD_MODE = 0x4000,
|
|
|
|
KMOD_RESERVED = 0x8000
|
|
|
|
}KMODs;
|
|
|
|
#define KMOD_CTRL (KMOD_LCTRL|KMOD_RCTRL)
|
|
|
|
#define KMOD_SHIFT (KMOD_LSHIFT|KMOD_RSHIFT)
|
|
|
|
#define KMOD_ALT (KMOD_LALT|KMOD_RALT)
|
|
|
|
#define KMOD_META (KMOD_LMETA|KMOD_RMETA)
|
|
|
|
|
|
|
|
|
|
|
|
#ifdef _WIN32_WCE
|
|
|
|
|
|
|
|
typedef struct GXDisplayProperties GXDisplayProperties;
|
|
|
|
typedef struct GXKeyList GXKeyList;
|
|
|
|
#include <gx.h>
|
|
|
|
|
|
|
|
typedef struct GXKeyList (*GXGETDEFAULTKEYS)(int);
|
|
|
|
typedef int (*GXOPENINPUT)();
|
|
|
|
|
|
|
|
GXGETDEFAULTKEYS GXGetDefaultKeys_ = NULL;
|
|
|
|
GXOPENINPUT GXOpenInput_ = NULL;
|
|
|
|
|
|
|
|
struct GXKeyList gxKeyList;
|
|
|
|
|
|
|
|
#endif /* _WIN32_WCE */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Try to get the maximum value allowed for ints, falling back to the minimum
|
|
|
|
* guaranteed by ISO C99 if there is no suitable header.
|
|
|
|
*/
|
|
|
|
#ifdef HAVE_LIMITS_H
|
|
|
|
# include <limits.h>
|
|
|
|
#endif
|
|
|
|
#ifndef INT_MAX
|
|
|
|
# define INT_MAX 32767
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef MIN
|
|
|
|
# define MIN(a,b) (((a)<(b)) ? (a) : (b))
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef WM_TOUCH
|
|
|
|
typedef BOOL (WINAPI *pGetTouchInputInfo)(HTOUCHINPUT,UINT,PTOUCHINPUT,int);
|
|
|
|
typedef BOOL (WINAPI *pCloseTouchInputHandle)(HTOUCHINPUT);
|
|
|
|
static pGetTouchInputInfo fghGetTouchInputInfo = (pGetTouchInputInfo)0xDEADBEEF;
|
|
|
|
static pCloseTouchInputHandle fghCloseTouchInputHandle = (pCloseTouchInputHandle)0xDEADBEEF;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* TODO BEFORE THE STABLE RELEASE:
|
|
|
|
*
|
|
|
|
* There are some issues concerning window redrawing under X11, and maybe
|
|
|
|
* some events are not handled. The Win32 version lacks some more features,
|
|
|
|
* but seems acceptable for not demanding purposes.
|
|
|
|
*
|
|
|
|
* Need to investigate why the X11 version breaks out with an error when
|
|
|
|
* closing a window (using the window manager, not glutDestroyWindow)...
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Handle a window configuration change. When no reshape
|
|
|
|
* callback is hooked, the viewport size is updated to
|
|
|
|
* match the new window size.
|
|
|
|
*/
|
|
|
|
static void fghReshapeWindow ( SFG_Window *window, int width, int height )
|
|
|
|
{
|
|
|
|
SFG_Window *current_window = fgStructure.CurrentWindow;
|
|
|
|
|
|
|
|
freeglut_return_if_fail( window != NULL );
|
|
|
|
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
|
|
|
|
XResizeWindow( fgDisplay.Display, window->Window.Handle,
|
|
|
|
width, height );
|
|
|
|
XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
|
|
|
|
|
|
|
|
#elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE)
|
|
|
|
{
|
|
|
|
RECT windowRect;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* For windowed mode, get the current position of the
|
|
|
|
* window and resize taking the size of the frame
|
|
|
|
* decorations into account.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* "GetWindowRect" returns the pixel coordinates of the outside of the window */
|
|
|
|
GetWindowRect( window->Window.Handle, &windowRect );
|
|
|
|
|
|
|
|
/* Create rect in FreeGLUT format, (X,Y) topleft outside window, WxH of client area */
|
|
|
|
windowRect.right = windowRect.left+width;
|
|
|
|
windowRect.bottom = windowRect.top+height;
|
|
|
|
|
|
|
|
if (window->Parent == NULL)
|
|
|
|
/* get the window rect from this to feed to SetWindowPos, correct for window decorations */
|
|
|
|
fghComputeWindowRectFromClientArea_QueryWindow(window,&windowRect,TRUE);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* correct rect for position client area of parent window
|
|
|
|
* (SetWindowPos input for child windows is in coordinates
|
|
|
|
* relative to the parent's client area).
|
|
|
|
* Child windows don't have decoration, so no need to correct
|
|
|
|
* for them.
|
|
|
|
*/
|
|
|
|
RECT parentRect;
|
|
|
|
parentRect = fghGetClientArea( window->Parent, FALSE );
|
|
|
|
windowRect.left -= parentRect.left;
|
|
|
|
windowRect.right -= parentRect.left;
|
|
|
|
windowRect.top -= parentRect.top;
|
|
|
|
windowRect.bottom -= parentRect.top;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Do the actual resizing */
|
|
|
|
SetWindowPos( window->Window.Handle,
|
|
|
|
HWND_TOP,
|
|
|
|
windowRect.left, windowRect.top,
|
|
|
|
windowRect.right - windowRect.left,
|
|
|
|
windowRect.bottom- windowRect.top,
|
|
|
|
SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
|
|
|
|
SWP_NOZORDER
|
|
|
|
);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if( FETCH_WCB( *window, Reshape ) )
|
|
|
|
INVOKE_WCB( *window, Reshape, ( width, height ) );
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fgSetWindow( window );
|
|
|
|
glViewport( 0, 0, width, height );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Force a window redraw. In Windows at least this is only a partial
|
|
|
|
* solution: if the window is increasing in size in either dimension,
|
|
|
|
* the already-drawn part does not get drawn again and things look funny.
|
|
|
|
* But without this we get this bad behaviour whenever we resize the
|
|
|
|
* window.
|
|
|
|
*/
|
|
|
|
window->State.Redisplay = GL_TRUE;
|
|
|
|
|
|
|
|
if( window->IsMenu )
|
|
|
|
fgSetWindow( current_window );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Calls a window's redraw method. This is used when
|
|
|
|
* a redraw is forced by the incoming window messages.
|
|
|
|
*/
|
|
|
|
static void fghRedrawWindow ( SFG_Window *window )
|
|
|
|
{
|
|
|
|
SFG_Window *current_window = fgStructure.CurrentWindow;
|
|
|
|
|
|
|
|
freeglut_return_if_fail( window );
|
|
|
|
freeglut_return_if_fail( FETCH_WCB ( *window, Display ) );
|
|
|
|
|
|
|
|
window->State.Redisplay = GL_FALSE;
|
|
|
|
|
|
|
|
freeglut_return_if_fail( window->State.Visible );
|
|
|
|
|
|
|
|
fgSetWindow( window );
|
|
|
|
|
|
|
|
if( window->State.NeedToResize )
|
|
|
|
{
|
|
|
|
fghReshapeWindow(
|
|
|
|
window,
|
|
|
|
window->State.Width,
|
|
|
|
window->State.Height
|
|
|
|
);
|
|
|
|
|
|
|
|
window->State.NeedToResize = GL_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
INVOKE_WCB( *window, Display, ( ) );
|
|
|
|
|
|
|
|
fgSetWindow( current_window );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* A static helper function to execute display callback for a window
|
|
|
|
*/
|
|
|
|
static void fghcbDisplayWindow( SFG_Window *window,
|
|
|
|
SFG_Enumerator *enumerator )
|
|
|
|
{
|
|
|
|
if( window->State.Redisplay &&
|
|
|
|
window->State.Visible )
|
|
|
|
{
|
|
|
|
window->State.Redisplay = GL_FALSE;
|
|
|
|
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
fghRedrawWindow ( window ) ;
|
|
|
|
#elif TARGET_HOST_MS_WINDOWS
|
|
|
|
|
|
|
|
RedrawWindow(
|
|
|
|
window->Window.Handle, NULL, NULL,
|
|
|
|
RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW
|
|
|
|
);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Make all windows perform a display call
|
|
|
|
*/
|
|
|
|
static void fghDisplayAll( void )
|
|
|
|
{
|
|
|
|
SFG_Enumerator enumerator;
|
|
|
|
|
|
|
|
enumerator.found = GL_FALSE;
|
|
|
|
enumerator.data = NULL;
|
|
|
|
|
|
|
|
fgEnumWindows( fghcbDisplayWindow, &enumerator );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Window enumerator callback to check for the joystick polling code
|
|
|
|
*/
|
|
|
|
static void fghcbCheckJoystickPolls( SFG_Window *window,
|
|
|
|
SFG_Enumerator *enumerator )
|
|
|
|
{
|
|
|
|
long int checkTime = fgElapsedTime( );
|
|
|
|
|
|
|
|
if( window->State.JoystickLastPoll + window->State.JoystickPollRate <=
|
|
|
|
checkTime )
|
|
|
|
{
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
fgJoystickPollWindow( window );
|
|
|
|
#endif /* !defined(_WIN32_WCE) */
|
|
|
|
window->State.JoystickLastPoll = checkTime;
|
|
|
|
}
|
|
|
|
|
|
|
|
fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Check all windows for joystick polling
|
|
|
|
*/
|
|
|
|
static void fghCheckJoystickPolls( void )
|
|
|
|
{
|
|
|
|
SFG_Enumerator enumerator;
|
|
|
|
|
|
|
|
enumerator.found = GL_FALSE;
|
|
|
|
enumerator.data = NULL;
|
|
|
|
|
|
|
|
fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Check the global timers
|
|
|
|
*/
|
|
|
|
static void fghCheckTimers( void )
|
|
|
|
{
|
|
|
|
long checkTime = fgElapsedTime( );
|
|
|
|
|
|
|
|
while( fgState.Timers.First )
|
|
|
|
{
|
|
|
|
SFG_Timer *timer = fgState.Timers.First;
|
|
|
|
|
|
|
|
if( timer->TriggerTime > checkTime )
|
|
|
|
break;
|
|
|
|
|
|
|
|
fgListRemove( &fgState.Timers, &timer->Node );
|
|
|
|
fgListAppend( &fgState.FreeTimers, &timer->Node );
|
|
|
|
|
|
|
|
timer->Callback( timer->ID );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Platform-dependent time in milliseconds, as an unsigned 32-bit integer.
|
|
|
|
* This value wraps every 49.7 days, but integer overflows cancel
|
|
|
|
* when subtracting an initial start time, unless the total time exceeds
|
|
|
|
* 32-bit, where the GLUT API return value is also overflowed.
|
|
|
|
*/
|
|
|
|
unsigned long fgSystemTime(void) {
|
|
|
|
#if TARGET_HOST_SOLARIS || HAVE_GETTIMEOFDAY
|
|
|
|
struct timeval now;
|
|
|
|
gettimeofday( &now, NULL );
|
|
|
|
return now.tv_usec/1000 + now.tv_sec*1000;
|
|
|
|
#elif TARGET_HOST_MS_WINDOWS
|
|
|
|
# if defined(_WIN32_WCE)
|
|
|
|
return GetTickCount();
|
|
|
|
# else
|
|
|
|
return timeGetTime();
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Elapsed Time
|
|
|
|
*/
|
|
|
|
long fgElapsedTime( void )
|
|
|
|
{
|
|
|
|
return (long) (fgSystemTime() - fgState.Time);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Error Messages.
|
|
|
|
*/
|
|
|
|
void fgError( const char *fmt, ... )
|
|
|
|
{
|
|
|
|
va_list ap;
|
|
|
|
|
|
|
|
if (fgState.ErrorFunc) {
|
|
|
|
|
|
|
|
va_start( ap, fmt );
|
|
|
|
|
|
|
|
/* call user set error handler here */
|
|
|
|
fgState.ErrorFunc(fmt, ap);
|
|
|
|
|
|
|
|
va_end( ap );
|
|
|
|
|
|
|
|
} else {
|
|
|
|
|
|
|
|
va_start( ap, fmt );
|
|
|
|
|
|
|
|
fprintf( stderr, "freeglut ");
|
|
|
|
if( fgState.ProgramName )
|
|
|
|
fprintf( stderr, "(%s): ", fgState.ProgramName );
|
|
|
|
VFPRINTF( stderr, fmt, ap );
|
|
|
|
fprintf( stderr, "\n" );
|
|
|
|
|
|
|
|
va_end( ap );
|
|
|
|
|
|
|
|
if ( fgState.Initialised )
|
|
|
|
fgDeinitialize ();
|
|
|
|
|
|
|
|
exit( 1 );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void fgWarning( const char *fmt, ... )
|
|
|
|
{
|
|
|
|
va_list ap;
|
|
|
|
|
|
|
|
if (fgState.WarningFunc) {
|
|
|
|
|
|
|
|
va_start( ap, fmt );
|
|
|
|
|
|
|
|
/* call user set warning handler here */
|
|
|
|
fgState.WarningFunc(fmt, ap);
|
|
|
|
|
|
|
|
va_end( ap );
|
|
|
|
|
|
|
|
} else {
|
|
|
|
|
|
|
|
va_start( ap, fmt );
|
|
|
|
|
|
|
|
fprintf( stderr, "freeglut ");
|
|
|
|
if( fgState.ProgramName )
|
|
|
|
fprintf( stderr, "(%s): ", fgState.ProgramName );
|
|
|
|
VFPRINTF( stderr, fmt, ap );
|
|
|
|
fprintf( stderr, "\n" );
|
|
|
|
|
|
|
|
va_end( ap );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Indicates whether Joystick events are being used by ANY window.
|
|
|
|
*
|
|
|
|
* The current mechanism is to walk all of the windows and ask if
|
|
|
|
* there is a joystick callback. We have a short-circuit early
|
|
|
|
* return if we find any joystick handler registered.
|
|
|
|
*
|
|
|
|
* The real way to do this is to make use of the glutTimer() API
|
|
|
|
* to more cleanly re-implement the joystick API. Then, this code
|
|
|
|
* and all other "joystick timer" code can be yanked.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
static void fghCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e)
|
|
|
|
{
|
|
|
|
if( FETCH_WCB( *w, Joystick ) )
|
|
|
|
{
|
|
|
|
e->found = GL_TRUE;
|
|
|
|
e->data = w;
|
|
|
|
}
|
|
|
|
fgEnumSubWindows( w, fghCheckJoystickCallback, e );
|
|
|
|
}
|
|
|
|
static int fghHaveJoystick( void )
|
|
|
|
{
|
|
|
|
SFG_Enumerator enumerator;
|
|
|
|
|
|
|
|
enumerator.found = GL_FALSE;
|
|
|
|
enumerator.data = NULL;
|
|
|
|
fgEnumWindows( fghCheckJoystickCallback, &enumerator );
|
|
|
|
return !!enumerator.data;
|
|
|
|
}
|
|
|
|
static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
|
|
|
|
{
|
|
|
|
if( w->State.Redisplay && w->State.Visible )
|
|
|
|
{
|
|
|
|
e->found = GL_TRUE;
|
|
|
|
e->data = w;
|
|
|
|
}
|
|
|
|
fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e );
|
|
|
|
}
|
|
|
|
static int fghHavePendingRedisplays (void)
|
|
|
|
{
|
|
|
|
SFG_Enumerator enumerator;
|
|
|
|
|
|
|
|
enumerator.found = GL_FALSE;
|
|
|
|
enumerator.data = NULL;
|
|
|
|
fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator );
|
|
|
|
return !!enumerator.data;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* Returns the number of GLUT ticks (milliseconds) till the next timer event.
|
|
|
|
*/
|
|
|
|
static long fghNextTimer( void )
|
|
|
|
{
|
|
|
|
long ret = INT_MAX;
|
|
|
|
SFG_Timer *timer = fgState.Timers.First;
|
|
|
|
|
|
|
|
if( timer )
|
|
|
|
ret = timer->TriggerTime - fgElapsedTime();
|
|
|
|
if( ret < 0 )
|
|
|
|
ret = 0;
|
|
|
|
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* Does the magic required to relinquish the CPU until something interesting
|
|
|
|
* happens.
|
|
|
|
*/
|
|
|
|
static void fghSleepForEvents( void )
|
|
|
|
{
|
|
|
|
long msec;
|
|
|
|
|
|
|
|
if( fgState.IdleCallback || fghHavePendingRedisplays( ) )
|
|
|
|
return;
|
|
|
|
|
|
|
|
msec = fghNextTimer( );
|
|
|
|
/* XXX Use GLUT timers for joysticks... */
|
|
|
|
/* XXX Dumb; forces granularity to .01sec */
|
|
|
|
if( fghHaveJoystick( ) && ( msec > 10 ) )
|
|
|
|
msec = 10;
|
|
|
|
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
/*
|
|
|
|
* Possibly due to aggressive use of XFlush() and friends,
|
|
|
|
* it is possible to have our socket drained but still have
|
|
|
|
* unprocessed events. (Or, this may just be normal with
|
|
|
|
* X, anyway?) We do non-trivial processing of X events
|
|
|
|
* after the event-reading loop, in any case, so we
|
|
|
|
* need to allow that we may have an empty socket but non-
|
|
|
|
* empty event queue.
|
|
|
|
*/
|
|
|
|
if( ! XPending( fgDisplay.Display ) )
|
|
|
|
{
|
|
|
|
fd_set fdset;
|
|
|
|
int err;
|
|
|
|
int socket;
|
|
|
|
struct timeval wait;
|
|
|
|
|
|
|
|
socket = ConnectionNumber( fgDisplay.Display );
|
|
|
|
FD_ZERO( &fdset );
|
|
|
|
FD_SET( socket, &fdset );
|
|
|
|
wait.tv_sec = msec / 1000;
|
|
|
|
wait.tv_usec = (msec % 1000) * 1000;
|
|
|
|
err = select( socket+1, &fdset, NULL, NULL, &wait );
|
|
|
|
|
|
|
|
#ifdef HAVE_ERRNO_H
|
|
|
|
if( ( -1 == err ) && ( errno != EINTR ) )
|
|
|
|
fgWarning ( "freeglut select() error: %d", errno );
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
#elif TARGET_HOST_MS_WINDOWS
|
|
|
|
MsgWaitForMultipleObjects( 0, NULL, FALSE, msec, QS_ALLINPUT );
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
/*
|
|
|
|
* Returns GLUT modifier mask for the state field of an X11 event.
|
|
|
|
*/
|
|
|
|
int fghGetXModifiers( int state )
|
|
|
|
{
|
|
|
|
int ret = 0;
|
|
|
|
|
|
|
|
if( state & ( ShiftMask | LockMask ) )
|
|
|
|
ret |= GLUT_ACTIVE_SHIFT;
|
|
|
|
if( state & ControlMask )
|
|
|
|
ret |= GLUT_ACTIVE_CTRL;
|
|
|
|
if( state & Mod1Mask )
|
|
|
|
ret |= GLUT_ACTIVE_ALT;
|
|
|
|
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
#if TARGET_HOST_POSIX_X11 && _DEBUG
|
|
|
|
|
|
|
|
static const char* fghTypeToString( int type )
|
|
|
|
{
|
|
|
|
switch( type ) {
|
|
|
|
case KeyPress: return "KeyPress";
|
|
|
|
case KeyRelease: return "KeyRelease";
|
|
|
|
case ButtonPress: return "ButtonPress";
|
|
|
|
case ButtonRelease: return "ButtonRelease";
|
|
|
|
case MotionNotify: return "MotionNotify";
|
|
|
|
case EnterNotify: return "EnterNotify";
|
|
|
|
case LeaveNotify: return "LeaveNotify";
|
|
|
|
case FocusIn: return "FocusIn";
|
|
|
|
case FocusOut: return "FocusOut";
|
|
|
|
case KeymapNotify: return "KeymapNotify";
|
|
|
|
case Expose: return "Expose";
|
|
|
|
case GraphicsExpose: return "GraphicsExpose";
|
|
|
|
case NoExpose: return "NoExpose";
|
|
|
|
case VisibilityNotify: return "VisibilityNotify";
|
|
|
|
case CreateNotify: return "CreateNotify";
|
|
|
|
case DestroyNotify: return "DestroyNotify";
|
|
|
|
case UnmapNotify: return "UnmapNotify";
|
|
|
|
case MapNotify: return "MapNotify";
|
|
|
|
case MapRequest: return "MapRequest";
|
|
|
|
case ReparentNotify: return "ReparentNotify";
|
|
|
|
case ConfigureNotify: return "ConfigureNotify";
|
|
|
|
case ConfigureRequest: return "ConfigureRequest";
|
|
|
|
case GravityNotify: return "GravityNotify";
|
|
|
|
case ResizeRequest: return "ResizeRequest";
|
|
|
|
case CirculateNotify: return "CirculateNotify";
|
|
|
|
case CirculateRequest: return "CirculateRequest";
|
|
|
|
case PropertyNotify: return "PropertyNotify";
|
|
|
|
case SelectionClear: return "SelectionClear";
|
|
|
|
case SelectionRequest: return "SelectionRequest";
|
|
|
|
case SelectionNotify: return "SelectionNotify";
|
|
|
|
case ColormapNotify: return "ColormapNotify";
|
|
|
|
case ClientMessage: return "ClientMessage";
|
|
|
|
case MappingNotify: return "MappingNotify";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghBoolToString( Bool b )
|
|
|
|
{
|
|
|
|
return b == False ? "False" : "True";
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghNotifyHintToString( char is_hint )
|
|
|
|
{
|
|
|
|
switch( is_hint ) {
|
|
|
|
case NotifyNormal: return "NotifyNormal";
|
|
|
|
case NotifyHint: return "NotifyHint";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghNotifyModeToString( int mode )
|
|
|
|
{
|
|
|
|
switch( mode ) {
|
|
|
|
case NotifyNormal: return "NotifyNormal";
|
|
|
|
case NotifyGrab: return "NotifyGrab";
|
|
|
|
case NotifyUngrab: return "NotifyUngrab";
|
|
|
|
case NotifyWhileGrabbed: return "NotifyWhileGrabbed";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghNotifyDetailToString( int detail )
|
|
|
|
{
|
|
|
|
switch( detail ) {
|
|
|
|
case NotifyAncestor: return "NotifyAncestor";
|
|
|
|
case NotifyVirtual: return "NotifyVirtual";
|
|
|
|
case NotifyInferior: return "NotifyInferior";
|
|
|
|
case NotifyNonlinear: return "NotifyNonlinear";
|
|
|
|
case NotifyNonlinearVirtual: return "NotifyNonlinearVirtual";
|
|
|
|
case NotifyPointer: return "NotifyPointer";
|
|
|
|
case NotifyPointerRoot: return "NotifyPointerRoot";
|
|
|
|
case NotifyDetailNone: return "NotifyDetailNone";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghVisibilityToString( int state ) {
|
|
|
|
switch( state ) {
|
|
|
|
case VisibilityUnobscured: return "VisibilityUnobscured";
|
|
|
|
case VisibilityPartiallyObscured: return "VisibilityPartiallyObscured";
|
|
|
|
case VisibilityFullyObscured: return "VisibilityFullyObscured";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghConfigureDetailToString( int detail )
|
|
|
|
{
|
|
|
|
switch( detail ) {
|
|
|
|
case Above: return "Above";
|
|
|
|
case Below: return "Below";
|
|
|
|
case TopIf: return "TopIf";
|
|
|
|
case BottomIf: return "BottomIf";
|
|
|
|
case Opposite: return "Opposite";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghPlaceToString( int place )
|
|
|
|
{
|
|
|
|
switch( place ) {
|
|
|
|
case PlaceOnTop: return "PlaceOnTop";
|
|
|
|
case PlaceOnBottom: return "PlaceOnBottom";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghMappingRequestToString( int request )
|
|
|
|
{
|
|
|
|
switch( request ) {
|
|
|
|
case MappingModifier: return "MappingModifier";
|
|
|
|
case MappingKeyboard: return "MappingKeyboard";
|
|
|
|
case MappingPointer: return "MappingPointer";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghPropertyStateToString( int state )
|
|
|
|
{
|
|
|
|
switch( state ) {
|
|
|
|
case PropertyNewValue: return "PropertyNewValue";
|
|
|
|
case PropertyDelete: return "PropertyDelete";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static const char* fghColormapStateToString( int state )
|
|
|
|
{
|
|
|
|
switch( state ) {
|
|
|
|
case ColormapUninstalled: return "ColormapUninstalled";
|
|
|
|
case ColormapInstalled: return "ColormapInstalled";
|
|
|
|
default: return "UNKNOWN";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void fghPrintEvent( XEvent *event )
|
|
|
|
{
|
|
|
|
switch( event->type ) {
|
|
|
|
|
|
|
|
case KeyPress:
|
|
|
|
case KeyRelease: {
|
|
|
|
XKeyEvent *e = &event->xkey;
|
|
|
|
fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
|
|
|
|
"(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
|
|
|
|
"keycode=%u, same_screen=%s", fghTypeToString( e->type ),
|
|
|
|
e->window, e->root, e->subwindow, (unsigned long)e->time,
|
|
|
|
e->x, e->y, e->x_root, e->y_root, e->state, e->keycode,
|
|
|
|
fghBoolToString( e->same_screen ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ButtonPress:
|
|
|
|
case ButtonRelease: {
|
|
|
|
XButtonEvent *e = &event->xbutton;
|
|
|
|
fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
|
|
|
|
"(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
|
|
|
|
"button=%u, same_screen=%d", fghTypeToString( e->type ),
|
|
|
|
e->window, e->root, e->subwindow, (unsigned long)e->time,
|
|
|
|
e->x, e->y, e->x_root, e->y_root, e->state, e->button,
|
|
|
|
fghBoolToString( e->same_screen ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case MotionNotify: {
|
|
|
|
XMotionEvent *e = &event->xmotion;
|
|
|
|
fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
|
|
|
|
"(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, "
|
|
|
|
"is_hint=%s, same_screen=%d", fghTypeToString( e->type ),
|
|
|
|
e->window, e->root, e->subwindow, (unsigned long)e->time,
|
|
|
|
e->x, e->y, e->x_root, e->y_root, e->state,
|
|
|
|
fghNotifyHintToString( e->is_hint ),
|
|
|
|
fghBoolToString( e->same_screen ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case EnterNotify:
|
|
|
|
case LeaveNotify: {
|
|
|
|
XCrossingEvent *e = &event->xcrossing;
|
|
|
|
fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, "
|
|
|
|
"(x,y)=(%d,%d), mode=%s, detail=%s, same_screen=%d, "
|
|
|
|
"focus=%d, state=0x%x", fghTypeToString( e->type ),
|
|
|
|
e->window, e->root, e->subwindow, (unsigned long)e->time,
|
|
|
|
e->x, e->y, fghNotifyModeToString( e->mode ),
|
|
|
|
fghNotifyDetailToString( e->detail ), (int)e->same_screen,
|
|
|
|
(int)e->focus, e->state );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case FocusIn:
|
|
|
|
case FocusOut: {
|
|
|
|
XFocusChangeEvent *e = &event->xfocus;
|
|
|
|
fgWarning( "%s: window=0x%x, mode=%s, detail=%s",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
fghNotifyModeToString( e->mode ),
|
|
|
|
fghNotifyDetailToString( e->detail ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case KeymapNotify: {
|
|
|
|
XKeymapEvent *e = &event->xkeymap;
|
|
|
|
char buf[32 * 2 + 1];
|
|
|
|
int i;
|
|
|
|
for ( i = 0; i < 32; i++ ) {
|
|
|
|
snprintf( &buf[ i * 2 ], sizeof( buf ) - i * 2,
|
|
|
|
"%02x", e->key_vector[ i ] );
|
|
|
|
}
|
|
|
|
buf[ i ] = '\0';
|
|
|
|
fgWarning( "%s: window=0x%x, %s", fghTypeToString( e->type ), e->window,
|
|
|
|
buf );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case Expose: {
|
|
|
|
XExposeEvent *e = &event->xexpose;
|
|
|
|
fgWarning( "%s: window=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
|
|
|
|
"count=%d", fghTypeToString( e->type ), e->window, e->x,
|
|
|
|
e->y, e->width, e->height, e->count );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case GraphicsExpose: {
|
|
|
|
XGraphicsExposeEvent *e = &event->xgraphicsexpose;
|
|
|
|
fgWarning( "%s: drawable=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), "
|
|
|
|
"count=%d, (major_code,minor_code)=(%d,%d)",
|
|
|
|
fghTypeToString( e->type ), e->drawable, e->x, e->y,
|
|
|
|
e->width, e->height, e->count, e->major_code,
|
|
|
|
e->minor_code );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case NoExpose: {
|
|
|
|
XNoExposeEvent *e = &event->xnoexpose;
|
|
|
|
fgWarning( "%s: drawable=0x%x, (major_code,minor_code)=(%d,%d)",
|
|
|
|
fghTypeToString( e->type ), e->drawable, e->major_code,
|
|
|
|
e->minor_code );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case VisibilityNotify: {
|
|
|
|
XVisibilityEvent *e = &event->xvisibility;
|
|
|
|
fgWarning( "%s: window=0x%x, state=%s", fghTypeToString( e->type ),
|
|
|
|
e->window, fghVisibilityToString( e->state) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case CreateNotify: {
|
|
|
|
XCreateWindowEvent *e = &event->xcreatewindow;
|
|
|
|
fgWarning( "%s: (x,y)=(%d,%d), (width,height)=(%d,%d), border_width=%d, "
|
|
|
|
"window=0x%x, override_redirect=%s",
|
|
|
|
fghTypeToString( e->type ), e->x, e->y, e->width, e->height,
|
|
|
|
e->border_width, e->window,
|
|
|
|
fghBoolToString( e->override_redirect ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case DestroyNotify: {
|
|
|
|
XDestroyWindowEvent *e = &event->xdestroywindow;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x",
|
|
|
|
fghTypeToString( e->type ), e->event, e->window );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case UnmapNotify: {
|
|
|
|
XUnmapEvent *e = &event->xunmap;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, from_configure=%s",
|
|
|
|
fghTypeToString( e->type ), e->event, e->window,
|
|
|
|
fghBoolToString( e->from_configure ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case MapNotify: {
|
|
|
|
XMapEvent *e = &event->xmap;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, override_redirect=%s",
|
|
|
|
fghTypeToString( e->type ), e->event, e->window,
|
|
|
|
fghBoolToString( e->override_redirect ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case MapRequest: {
|
|
|
|
XMapRequestEvent *e = &event->xmaprequest;
|
|
|
|
fgWarning( "%s: parent=0x%x, window=0x%x",
|
|
|
|
fghTypeToString( event->type ), e->parent, e->window );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ReparentNotify: {
|
|
|
|
XReparentEvent *e = &event->xreparent;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, parent=0x%x, (x,y)=(%d,%d), "
|
|
|
|
"override_redirect=%s", fghTypeToString( e->type ),
|
|
|
|
e->event, e->window, e->parent, e->x, e->y,
|
|
|
|
fghBoolToString( e->override_redirect ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ConfigureNotify: {
|
|
|
|
XConfigureEvent *e = &event->xconfigure;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d), "
|
|
|
|
"(width,height)=(%d,%d), border_width=%d, above=0x%x, "
|
|
|
|
"override_redirect=%s", fghTypeToString( e->type ), e->event,
|
|
|
|
e->window, e->x, e->y, e->width, e->height, e->border_width,
|
|
|
|
e->above, fghBoolToString( e->override_redirect ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ConfigureRequest: {
|
|
|
|
XConfigureRequestEvent *e = &event->xconfigurerequest;
|
|
|
|
fgWarning( "%s: parent=0x%x, window=0x%x, (x,y)=(%d,%d), "
|
|
|
|
"(width,height)=(%d,%d), border_width=%d, above=0x%x, "
|
|
|
|
"detail=%s, value_mask=%lx", fghTypeToString( e->type ),
|
|
|
|
e->parent, e->window, e->x, e->y, e->width, e->height,
|
|
|
|
e->border_width, e->above,
|
|
|
|
fghConfigureDetailToString( e->detail ), e->value_mask );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case GravityNotify: {
|
|
|
|
XGravityEvent *e = &event->xgravity;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d)",
|
|
|
|
fghTypeToString( e->type ), e->event, e->window, e->x, e->y );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ResizeRequest: {
|
|
|
|
XResizeRequestEvent *e = &event->xresizerequest;
|
|
|
|
fgWarning( "%s: window=0x%x, (width,height)=(%d,%d)",
|
|
|
|
fghTypeToString( e->type ), e->window, e->width, e->height );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case CirculateNotify: {
|
|
|
|
XCirculateEvent *e = &event->xcirculate;
|
|
|
|
fgWarning( "%s: event=0x%x, window=0x%x, place=%s",
|
|
|
|
fghTypeToString( e->type ), e->event, e->window,
|
|
|
|
fghPlaceToString( e->place ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case CirculateRequest: {
|
|
|
|
XCirculateRequestEvent *e = &event->xcirculaterequest;
|
|
|
|
fgWarning( "%s: parent=0x%x, window=0x%x, place=%s",
|
|
|
|
fghTypeToString( e->type ), e->parent, e->window,
|
|
|
|
fghPlaceToString( e->place ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case PropertyNotify: {
|
|
|
|
XPropertyEvent *e = &event->xproperty;
|
|
|
|
fgWarning( "%s: window=0x%x, atom=%lu, time=%lu, state=%s",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
(unsigned long)e->atom, (unsigned long)e->time,
|
|
|
|
fghPropertyStateToString( e->state ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case SelectionClear: {
|
|
|
|
XSelectionClearEvent *e = &event->xselectionclear;
|
|
|
|
fgWarning( "%s: window=0x%x, selection=%lu, time=%lu",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
(unsigned long)e->selection, (unsigned long)e->time );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case SelectionRequest: {
|
|
|
|
XSelectionRequestEvent *e = &event->xselectionrequest;
|
|
|
|
fgWarning( "%s: owner=0x%x, requestor=0x%x, selection=0x%x, "
|
|
|
|
"target=0x%x, property=%lu, time=%lu",
|
|
|
|
fghTypeToString( e->type ), e->owner, e->requestor,
|
|
|
|
(unsigned long)e->selection, (unsigned long)e->target,
|
|
|
|
(unsigned long)e->property, (unsigned long)e->time );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case SelectionNotify: {
|
|
|
|
XSelectionEvent *e = &event->xselection;
|
|
|
|
fgWarning( "%s: requestor=0x%x, selection=0x%x, target=0x%x, "
|
|
|
|
"property=%lu, time=%lu", fghTypeToString( e->type ),
|
|
|
|
e->requestor, (unsigned long)e->selection,
|
|
|
|
(unsigned long)e->target, (unsigned long)e->property,
|
|
|
|
(unsigned long)e->time );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ColormapNotify: {
|
|
|
|
XColormapEvent *e = &event->xcolormap;
|
|
|
|
fgWarning( "%s: window=0x%x, colormap=%lu, new=%s, state=%s",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
(unsigned long)e->colormap, fghBoolToString( e->new ),
|
|
|
|
fghColormapStateToString( e->state ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case ClientMessage: {
|
|
|
|
XClientMessageEvent *e = &event->xclient;
|
|
|
|
char buf[ 61 ];
|
|
|
|
char* p = buf;
|
|
|
|
char* end = buf + sizeof( buf );
|
|
|
|
int i;
|
|
|
|
switch( e->format ) {
|
|
|
|
case 8:
|
|
|
|
for ( i = 0; i < 20; i++, p += 3 ) {
|
|
|
|
snprintf( p, end - p, " %02x", e->data.b[ i ] );
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 16:
|
|
|
|
for ( i = 0; i < 10; i++, p += 5 ) {
|
|
|
|
snprintf( p, end - p, " %04x", e->data.s[ i ] );
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 32:
|
|
|
|
for ( i = 0; i < 5; i++, p += 9 ) {
|
|
|
|
snprintf( p, end - p, " %08lx", e->data.l[ i ] );
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
*p = '\0';
|
|
|
|
fgWarning( "%s: window=0x%x, message_type=%lu, format=%d, data=(%s )",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
(unsigned long)e->message_type, e->format, buf );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case MappingNotify: {
|
|
|
|
XMappingEvent *e = &event->xmapping;
|
|
|
|
fgWarning( "%s: window=0x%x, request=%s, first_keycode=%d, count=%d",
|
|
|
|
fghTypeToString( e->type ), e->window,
|
|
|
|
fghMappingRequestToString( e->request ), e->first_keycode,
|
|
|
|
e->count );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
default: {
|
|
|
|
fgWarning( "%s", fghTypeToString( event->type ) );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* -- INTERFACE FUNCTIONS -------------------------------------------------- */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Executes a single iteration in the freeglut processing loop.
|
|
|
|
*/
|
|
|
|
void FGAPIENTRY glutMainLoopEvent( void )
|
|
|
|
{
|
|
|
|
#if TARGET_HOST_POSIX_X11
|
|
|
|
SFG_Window* window;
|
|
|
|
XEvent event;
|
|
|
|
|
|
|
|
/* This code was repeated constantly, so here it goes into a definition: */
|
|
|
|
#define GETWINDOW(a) \
|
|
|
|
window = fgWindowByHandle( event.a.window ); \
|
|
|
|
if( window == NULL ) \
|
|
|
|
break;
|
|
|
|
|
|
|
|
#define GETMOUSE(a) \
|
|
|
|
window->State.MouseX = event.a.x; \
|
|
|
|
window->State.MouseY = event.a.y;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
|
|
|
|
|
|
|
|
while( XPending( fgDisplay.Display ) )
|
|
|
|
{
|
|
|
|
XNextEvent( fgDisplay.Display, &event );
|
|
|
|
#if _DEBUG
|
|
|
|
fghPrintEvent( &event );
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int qb64_os_event_info=0;
|
|
|
|
|
|
|
|
qb64_os_event_info=1;
|
|
|
|
qb64_os_event_linux(&event, fgDisplay.Display, &qb64_os_event_info);
|
|
|
|
if (qb64_os_event_info==3) return;
|
|
|
|
|
|
|
|
switch( event.type )
|
|
|
|
{
|
|
|
|
case ClientMessage:
|
|
|
|
if(fgIsSpaceballXEvent(&event)) {
|
|
|
|
fgSpaceballHandleXEvent(&event);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
/* Destroy the window when the WM_DELETE_WINDOW message arrives */
|
|
|
|
if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.DeleteWindow )
|
|
|
|
{
|
|
|
|
GETWINDOW( xclient );
|
2016-01-20 13:37:27 +00:00
|
|
|
qb64_custom_event(QB64_EVENT_CLOSE,0,0,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
/* fgDestroyWindow ( window );
|
2015-08-02 12:12:44 +00:00
|
|
|
|
|
|
|
if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
|
|
|
|
{
|
|
|
|
fgDeinitialize( );
|
|
|
|
exit( 0 );
|
|
|
|
}
|
|
|
|
else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
|
|
|
|
fgState.ExecState = GLUT_EXEC_STATE_STOP;
|
|
|
|
return;
|
2016-01-20 13:37:27 +00:00
|
|
|
*/
|
2015-08-02 12:12:44 +00:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* CreateNotify causes a configure-event so that sub-windows are
|
|
|
|
* handled compatibly with GLUT. Otherwise, your sub-windows
|
|
|
|
* (in freeglut only) will not get an initial reshape event,
|
|
|
|
* which can break things.
|
|
|
|
*
|
|
|
|
* GLUT presumably does this because it generally tries to treat
|
|
|
|
* sub-windows the same as windows.
|
|
|
|
*/
|
|
|
|
case CreateNotify:
|
|
|
|
case ConfigureNotify:
|
|
|
|
{
|
|
|
|
int width, height;
|
|
|
|
if( event.type == CreateNotify ) {
|
|
|
|
GETWINDOW( xcreatewindow );
|
|
|
|
width = event.xcreatewindow.width;
|
|
|
|
height = event.xcreatewindow.height;
|
|
|
|
} else {
|
|
|
|
GETWINDOW( xconfigure );
|
|
|
|
width = event.xconfigure.width;
|
|
|
|
height = event.xconfigure.height;
|
|
|
|
}
|
|
|
|
|
|
|
|
if( ( width != window->State.OldWidth ) ||
|
|
|
|
( height != window->State.OldHeight ) )
|
|
|
|
{
|
|
|
|
SFG_Window *current_window = fgStructure.CurrentWindow;
|
|
|
|
|
|
|
|
window->State.OldWidth = width;
|
|
|
|
window->State.OldHeight = height;
|
|
|
|
if( FETCH_WCB( *window, Reshape ) )
|
|
|
|
INVOKE_WCB( *window, Reshape, ( width, height ) );
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fgSetWindow( window );
|
|
|
|
glViewport( 0, 0, width, height );
|
|
|
|
}
|
|
|
|
glutPostRedisplay( );
|
|
|
|
if( window->IsMenu )
|
|
|
|
fgSetWindow( current_window );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case DestroyNotify:
|
|
|
|
/*
|
|
|
|
* This is sent to confirm the XDestroyWindow call.
|
|
|
|
*
|
|
|
|
* XXX WHY is this commented out? Should we re-enable it?
|
|
|
|
*/
|
|
|
|
/* fgAddToWindowDestroyList ( window ); */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case Expose:
|
|
|
|
/*
|
|
|
|
* We are too dumb to process partial exposes...
|
|
|
|
*
|
|
|
|
* XXX Well, we could do it. However, it seems to only
|
|
|
|
* XXX be potentially useful for single-buffered (since
|
|
|
|
* XXX double-buffered does not respect viewport when we
|
|
|
|
* XXX do a buffer-swap).
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
if( event.xexpose.count == 0 )
|
|
|
|
{
|
|
|
|
GETWINDOW( xexpose );
|
|
|
|
window->State.Redisplay = GL_TRUE;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MapNotify:
|
|
|
|
break;
|
|
|
|
|
|
|
|
case UnmapNotify:
|
|
|
|
/* We get this when iconifying a window. */
|
|
|
|
GETWINDOW( xunmap );
|
|
|
|
INVOKE_WCB( *window, WindowStatus, ( GLUT_HIDDEN ) );
|
|
|
|
window->State.Visible = GL_FALSE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MappingNotify:
|
|
|
|
/*
|
|
|
|
* Have the client's keyboard knowledge updated (xlib.ps,
|
|
|
|
* page 206, says that's a good thing to do)
|
|
|
|
*/
|
|
|
|
XRefreshKeyboardMapping( (XMappingEvent *) &event );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VisibilityNotify:
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* Sending this event, the X server can notify us that the window
|
|
|
|
* has just acquired one of the three possible visibility states:
|
|
|
|
* VisibilityUnobscured, VisibilityPartiallyObscured or
|
|
|
|
* VisibilityFullyObscured. Note that we DO NOT receive a
|
|
|
|
* VisibilityNotify event when iconifying a window, we only get an
|
|
|
|
* UnmapNotify then.
|
|
|
|
*/
|
|
|
|
GETWINDOW( xvisibility );
|
|
|
|
switch( event.xvisibility.state )
|
|
|
|
{
|
|
|
|
case VisibilityUnobscured:
|
|
|
|
INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_RETAINED ) );
|
|
|
|
window->State.Visible = GL_TRUE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VisibilityPartiallyObscured:
|
|
|
|
INVOKE_WCB( *window, WindowStatus,
|
|
|
|
( GLUT_PARTIALLY_RETAINED ) );
|
|
|
|
window->State.Visible = GL_TRUE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VisibilityFullyObscured:
|
|
|
|
INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_COVERED ) );
|
|
|
|
window->State.Visible = GL_FALSE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
fgWarning( "Unknown X visibility state: %d",
|
|
|
|
event.xvisibility.state );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case EnterNotify:
|
|
|
|
case LeaveNotify:
|
|
|
|
GETWINDOW( xcrossing );
|
|
|
|
GETMOUSE( xcrossing );
|
|
|
|
if( ( event.type == LeaveNotify ) && window->IsMenu &&
|
|
|
|
window->ActiveMenu && window->ActiveMenu->IsActive )
|
|
|
|
fgUpdateMenuHighlight( window->ActiveMenu );
|
|
|
|
|
|
|
|
INVOKE_WCB( *window, Entry, ( ( EnterNotify == event.type ) ?
|
|
|
|
GLUT_ENTERED :
|
|
|
|
GLUT_LEFT ) );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MotionNotify:
|
|
|
|
{
|
|
|
|
GETWINDOW( xmotion );
|
|
|
|
GETMOUSE( xmotion );
|
|
|
|
|
|
|
|
if( window->ActiveMenu )
|
|
|
|
{
|
|
|
|
if( window == window->ActiveMenu->ParentWindow )
|
|
|
|
{
|
|
|
|
window->ActiveMenu->Window->State.MouseX =
|
|
|
|
event.xmotion.x_root - window->ActiveMenu->X;
|
|
|
|
window->ActiveMenu->Window->State.MouseY =
|
|
|
|
event.xmotion.y_root - window->ActiveMenu->Y;
|
|
|
|
}
|
|
|
|
|
|
|
|
fgUpdateMenuHighlight( window->ActiveMenu );
|
|
|
|
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* XXX For more than 5 buttons, just check {event.xmotion.state},
|
|
|
|
* XXX rather than a host of bit-masks? Or maybe we need to
|
|
|
|
* XXX track ButtonPress/ButtonRelease events in our own
|
|
|
|
* XXX bit-mask?
|
|
|
|
*/
|
|
|
|
fgState.Modifiers = fghGetXModifiers( event.xmotion.state );
|
|
|
|
if ( event.xmotion.state & ( Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask ) ) {
|
|
|
|
INVOKE_WCB( *window, Motion, ( event.xmotion.x,
|
|
|
|
event.xmotion.y ) );
|
|
|
|
} else {
|
|
|
|
INVOKE_WCB( *window, Passive, ( event.xmotion.x,
|
|
|
|
event.xmotion.y ) );
|
|
|
|
}
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case ButtonRelease:
|
|
|
|
case ButtonPress:
|
|
|
|
{
|
|
|
|
GLboolean pressed = GL_TRUE;
|
|
|
|
int button;
|
|
|
|
|
|
|
|
if( event.type == ButtonRelease )
|
|
|
|
pressed = GL_FALSE ;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* A mouse button has been pressed or released. Traditionally,
|
|
|
|
* break if the window was found within the freeglut structures.
|
|
|
|
*/
|
|
|
|
GETWINDOW( xbutton );
|
|
|
|
GETMOUSE( xbutton );
|
|
|
|
|
|
|
|
/*
|
|
|
|
* An X button (at least in XFree86) is numbered from 1.
|
|
|
|
* A GLUT button is numbered from 0.
|
|
|
|
* Old GLUT passed through buttons other than just the first
|
|
|
|
* three, though it only gave symbolic names and official
|
|
|
|
* support to the first three.
|
|
|
|
*/
|
|
|
|
button = event.xbutton.button - 1;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Do not execute the application's mouse callback if a menu
|
|
|
|
* is hooked to this button. In that case an appropriate
|
|
|
|
* private call should be generated.
|
|
|
|
*/
|
|
|
|
if( fgCheckActiveMenu( window, button, pressed,
|
|
|
|
event.xbutton.x_root, event.xbutton.y_root ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Check if there is a mouse or mouse wheel callback hooked to the
|
|
|
|
* window
|
|
|
|
*/
|
|
|
|
if( ! FETCH_WCB( *window, Mouse ) &&
|
|
|
|
! FETCH_WCB( *window, MouseWheel ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
fgState.Modifiers = fghGetXModifiers( event.xbutton.state );
|
|
|
|
|
|
|
|
/* Finally execute the mouse or mouse wheel callback */
|
|
|
|
if( ( button < glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS ) ) || ( ! FETCH_WCB( *window, MouseWheel ) ) )
|
|
|
|
INVOKE_WCB( *window, Mouse, ( button,
|
|
|
|
pressed ? GLUT_DOWN : GLUT_UP,
|
|
|
|
event.xbutton.x,
|
|
|
|
event.xbutton.y )
|
|
|
|
);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* Map 4 and 5 to wheel zero; EVEN to +1, ODD to -1
|
|
|
|
* " 6 and 7 " " one; ...
|
|
|
|
*
|
|
|
|
* XXX This *should* be behind some variables/macros,
|
|
|
|
* XXX since the order and numbering isn't certain
|
|
|
|
* XXX See XFree86 configuration docs (even back in the
|
|
|
|
* XXX 3.x days, and especially with 4.x).
|
|
|
|
*
|
|
|
|
* XXX Note that {button} has already been decremented
|
|
|
|
* XXX in mapping from X button numbering to GLUT.
|
|
|
|
*
|
|
|
|
* XXX Should add support for partial wheel turns as Windows does -- 5/27/11
|
|
|
|
*/
|
|
|
|
int wheel_number = (button - glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS )) / 2;
|
|
|
|
int direction = -1;
|
|
|
|
if( button % 2 )
|
|
|
|
direction = 1;
|
|
|
|
|
|
|
|
if( pressed )
|
|
|
|
INVOKE_WCB( *window, MouseWheel, ( wheel_number,
|
|
|
|
direction,
|
|
|
|
event.xbutton.x,
|
|
|
|
event.xbutton.y )
|
|
|
|
);
|
|
|
|
}
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case KeyRelease:
|
|
|
|
case KeyPress:
|
|
|
|
{
|
|
|
|
FGCBKeyboard keyboard_cb;
|
|
|
|
FGCBSpecial special_cb;
|
|
|
|
|
|
|
|
GETWINDOW( xkey );
|
|
|
|
GETMOUSE( xkey );
|
|
|
|
|
|
|
|
/* Detect auto repeated keys, if configured globally or per-window */
|
|
|
|
|
|
|
|
if ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE )
|
|
|
|
{
|
|
|
|
if (event.type==KeyRelease)
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* Look at X11 keystate to detect repeat mode.
|
|
|
|
* While X11 says the key is actually held down, we'll ignore KeyRelease/KeyPress pairs.
|
|
|
|
*/
|
|
|
|
|
|
|
|
char keys[32];
|
|
|
|
XQueryKeymap( fgDisplay.Display, keys ); /* Look at X11 keystate to detect repeat mode */
|
|
|
|
|
|
|
|
if ( event.xkey.keycode<256 ) /* XQueryKeymap is limited to 256 keycodes */
|
|
|
|
{
|
|
|
|
if ( keys[event.xkey.keycode>>3] & (1<<(event.xkey.keycode%8)) )
|
|
|
|
window->State.KeyRepeating = GL_TRUE;
|
|
|
|
else
|
|
|
|
window->State.KeyRepeating = GL_FALSE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
window->State.KeyRepeating = GL_FALSE;
|
|
|
|
|
|
|
|
/* Cease processing this event if it is auto repeated */
|
|
|
|
|
|
|
|
if (window->State.KeyRepeating)
|
|
|
|
{
|
|
|
|
if (event.type == KeyPress) window->State.KeyRepeating = GL_FALSE;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
if( event.type == KeyPress )
|
|
|
|
{
|
|
|
|
keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, Keyboard ));
|
|
|
|
special_cb = (FGCBSpecial) ( FETCH_WCB( *window, Special ));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, KeyboardUp ));
|
|
|
|
special_cb = (FGCBSpecial) ( FETCH_WCB( *window, SpecialUp ));
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Is there a keyboard/special callback hooked for this window? */
|
|
|
|
if( keyboard_cb || special_cb )
|
|
|
|
{
|
|
|
|
XComposeStatus composeStatus;
|
|
|
|
char asciiCode[ 32 ];
|
|
|
|
KeySym keySym;
|
|
|
|
int len;
|
|
|
|
|
|
|
|
/* Check for the ASCII/KeySym codes associated with the event: */
|
|
|
|
len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode),
|
|
|
|
&keySym, &composeStatus
|
|
|
|
);
|
|
|
|
|
|
|
|
/* GLUT API tells us to have two separate callbacks... */
|
|
|
|
if( len > 0 )
|
|
|
|
{
|
|
|
|
/* ...one for the ASCII translateable keypresses... */
|
|
|
|
if( keyboard_cb )
|
|
|
|
{
|
|
|
|
fgSetWindow( window );
|
|
|
|
fgState.Modifiers = fghGetXModifiers( event.xkey.state );
|
|
|
|
keyboard_cb( asciiCode[ 0 ],
|
|
|
|
event.xkey.x, event.xkey.y
|
|
|
|
);
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
int special = -1;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ...and one for all the others, which need to be
|
|
|
|
* translated to GLUT_KEY_Xs...
|
|
|
|
*/
|
|
|
|
switch( keySym )
|
|
|
|
{
|
|
|
|
case XK_F1: special = GLUT_KEY_F1; break;
|
|
|
|
case XK_F2: special = GLUT_KEY_F2; break;
|
|
|
|
case XK_F3: special = GLUT_KEY_F3; break;
|
|
|
|
case XK_F4: special = GLUT_KEY_F4; break;
|
|
|
|
case XK_F5: special = GLUT_KEY_F5; break;
|
|
|
|
case XK_F6: special = GLUT_KEY_F6; break;
|
|
|
|
case XK_F7: special = GLUT_KEY_F7; break;
|
|
|
|
case XK_F8: special = GLUT_KEY_F8; break;
|
|
|
|
case XK_F9: special = GLUT_KEY_F9; break;
|
|
|
|
case XK_F10: special = GLUT_KEY_F10; break;
|
|
|
|
case XK_F11: special = GLUT_KEY_F11; break;
|
|
|
|
case XK_F12: special = GLUT_KEY_F12; break;
|
|
|
|
|
|
|
|
case XK_KP_Left:
|
|
|
|
case XK_Left: special = GLUT_KEY_LEFT; break;
|
|
|
|
case XK_KP_Right:
|
|
|
|
case XK_Right: special = GLUT_KEY_RIGHT; break;
|
|
|
|
case XK_KP_Up:
|
|
|
|
case XK_Up: special = GLUT_KEY_UP; break;
|
|
|
|
case XK_KP_Down:
|
|
|
|
case XK_Down: special = GLUT_KEY_DOWN; break;
|
|
|
|
|
|
|
|
case XK_KP_Prior:
|
|
|
|
case XK_Prior: special = GLUT_KEY_PAGE_UP; break;
|
|
|
|
case XK_KP_Next:
|
|
|
|
case XK_Next: special = GLUT_KEY_PAGE_DOWN; break;
|
|
|
|
case XK_KP_Home:
|
|
|
|
case XK_Home: special = GLUT_KEY_HOME; break;
|
|
|
|
case XK_KP_End:
|
|
|
|
case XK_End: special = GLUT_KEY_END; break;
|
|
|
|
case XK_KP_Insert:
|
|
|
|
case XK_Insert: special = GLUT_KEY_INSERT; break;
|
|
|
|
|
|
|
|
case XK_Num_Lock : special = GLUT_KEY_NUM_LOCK; break;
|
|
|
|
case XK_KP_Begin : special = GLUT_KEY_BEGIN; break;
|
|
|
|
case XK_KP_Delete: special = GLUT_KEY_DELETE; break;
|
|
|
|
|
|
|
|
case XK_Shift_L: special = GLUT_KEY_SHIFT_L; break;
|
|
|
|
case XK_Shift_R: special = GLUT_KEY_SHIFT_R; break;
|
|
|
|
case XK_Control_L: special = GLUT_KEY_CTRL_L; break;
|
|
|
|
case XK_Control_R: special = GLUT_KEY_CTRL_R; break;
|
|
|
|
case XK_Alt_L: special = GLUT_KEY_ALT_L; break;
|
|
|
|
case XK_Alt_R: special = GLUT_KEY_ALT_R; break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Execute the callback (if one has been specified),
|
|
|
|
* given that the special code seems to be valid...
|
|
|
|
*/
|
|
|
|
if( special_cb && (special != -1) )
|
|
|
|
{
|
|
|
|
fgSetWindow( window );
|
|
|
|
fgState.Modifiers = fghGetXModifiers( event.xkey.state );
|
|
|
|
special_cb( special, event.xkey.x, event.xkey.y );
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case ReparentNotify:
|
|
|
|
break; /* XXX Should disable this event */
|
|
|
|
|
|
|
|
/* Not handled */
|
|
|
|
case GravityNotify:
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
/* enter handling of Extension Events here */
|
|
|
|
#ifdef HAVE_X11_EXTENSIONS_XINPUT2_H
|
|
|
|
fgHandleExtensionEvents( &event );
|
|
|
|
#endif
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
qb64_os_event_info=2;
|
|
|
|
qb64_os_event_linux(&event, fgDisplay.Display, &qb64_os_event_info);
|
|
|
|
if (qb64_os_event_info==3) return;//(although we would return anyway)
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
#elif TARGET_HOST_MS_WINDOWS
|
|
|
|
|
|
|
|
MSG stMsg;
|
|
|
|
|
|
|
|
FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" );
|
|
|
|
|
|
|
|
while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) )
|
|
|
|
{
|
|
|
|
if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 )
|
|
|
|
{
|
|
|
|
if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
|
|
|
|
{
|
|
|
|
fgDeinitialize( );
|
|
|
|
exit( 0 );
|
|
|
|
}
|
|
|
|
else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
|
|
|
|
fgState.ExecState = GLUT_EXEC_STATE_STOP;
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
TranslateMessage( &stMsg );
|
|
|
|
DispatchMessage( &stMsg );
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if( fgState.Timers.First )
|
|
|
|
fghCheckTimers( );
|
|
|
|
fghCheckJoystickPolls( );
|
|
|
|
fghDisplayAll( );
|
|
|
|
|
|
|
|
fgCloseWindows( );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Enters the freeglut processing loop.
|
|
|
|
* Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
|
|
|
|
*/
|
|
|
|
void FGAPIENTRY glutMainLoop( void )
|
|
|
|
{
|
|
|
|
int action;
|
|
|
|
|
|
|
|
#if TARGET_HOST_MS_WINDOWS
|
|
|
|
SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" );
|
|
|
|
|
|
|
|
#if TARGET_HOST_MS_WINDOWS
|
|
|
|
/*
|
|
|
|
* Processing before the main loop: If there is a window which is open and
|
|
|
|
* which has a visibility callback, call it. I know this is an ugly hack,
|
|
|
|
* but I'm not sure what else to do about it. Ideally we should leave
|
|
|
|
* something uninitialized in the create window code and initialize it in
|
|
|
|
* the main loop, and have that initialization create a "WM_ACTIVATE"
|
|
|
|
* message. Then we would put the visibility callback code in the
|
|
|
|
* "case WM_ACTIVATE" block below. - John Fay -- 10/24/02
|
|
|
|
*/
|
|
|
|
while( window )
|
|
|
|
{
|
|
|
|
if ( FETCH_WCB( *window, Visibility ) )
|
|
|
|
{
|
|
|
|
SFG_Window *current_window = fgStructure.CurrentWindow ;
|
|
|
|
|
|
|
|
INVOKE_WCB( *window, Visibility, ( window->State.Visible ) );
|
|
|
|
fgSetWindow( current_window );
|
|
|
|
}
|
|
|
|
|
|
|
|
window = (SFG_Window *)window->Node.Next ;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
|
|
|
|
while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
|
|
|
|
{
|
|
|
|
SFG_Window *window;
|
|
|
|
|
|
|
|
glutMainLoopEvent( );
|
|
|
|
/*
|
|
|
|
* Step through the list of windows, seeing if there are any
|
|
|
|
* that are not menus
|
|
|
|
*/
|
|
|
|
for( window = ( SFG_Window * )fgStructure.Windows.First;
|
|
|
|
window;
|
|
|
|
window = ( SFG_Window * )window->Node.Next )
|
|
|
|
if ( ! ( window->IsMenu ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
if( ! window )
|
|
|
|
fgState.ExecState = GLUT_EXEC_STATE_STOP;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if( fgState.IdleCallback )
|
|
|
|
{
|
|
|
|
if( fgStructure.CurrentWindow &&
|
|
|
|
fgStructure.CurrentWindow->IsMenu )
|
|
|
|
/* fail safe */
|
|
|
|
fgSetWindow( window );
|
|
|
|
fgState.IdleCallback( );
|
|
|
|
}
|
|
|
|
|
|
|
|
fghSleepForEvents( );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* When this loop terminates, destroy the display, state and structure
|
|
|
|
* of a freeglut session, so that another glutInit() call can happen
|
|
|
|
*
|
|
|
|
* Save the "ActionOnWindowClose" because "fgDeinitialize" resets it.
|
|
|
|
*/
|
|
|
|
action = fgState.ActionOnWindowClose;
|
|
|
|
fgDeinitialize( );
|
|
|
|
if( action == GLUT_ACTION_EXIT )
|
|
|
|
exit( 0 );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Leaves the freeglut processing loop.
|
|
|
|
*/
|
|
|
|
void FGAPIENTRY glutLeaveMainLoop( void )
|
|
|
|
{
|
|
|
|
FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" );
|
|
|
|
fgState.ExecState = GLUT_EXEC_STATE_STOP ;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#if TARGET_HOST_MS_WINDOWS
|
|
|
|
/*
|
|
|
|
* Determine a GLUT modifer mask based on MS-WINDOWS system info.
|
|
|
|
*/
|
|
|
|
static int fghGetWin32Modifiers (void)
|
|
|
|
{
|
|
|
|
return
|
|
|
|
( ( ( GetKeyState( VK_LSHIFT ) < 0 ) ||
|
|
|
|
( GetKeyState( VK_RSHIFT ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) |
|
|
|
|
( ( ( GetKeyState( VK_LCONTROL ) < 0 ) ||
|
|
|
|
( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL : 0 ) |
|
|
|
|
( ( ( GetKeyState( VK_LMENU ) < 0 ) ||
|
|
|
|
( GetKeyState( VK_RMENU ) < 0 )) ? GLUT_ACTIVE_ALT : 0 );
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* The window procedure for handling Win32 events
|
|
|
|
*/
|
|
|
|
LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam,
|
|
|
|
LPARAM lParam )
|
|
|
|
{
|
|
|
|
|
|
|
|
int qb64_os_event_info=0;
|
|
|
|
LRESULT qb64_os_event_return=1;
|
|
|
|
|
|
|
|
qb64_os_event_info=1;
|
|
|
|
qb64_os_event_return=qb64_os_event_windows(
|
|
|
|
hWnd, uMsg, wParam,lParam, &qb64_os_event_info
|
|
|
|
);
|
|
|
|
if (qb64_os_event_info==3) return qb64_os_event_return;
|
|
|
|
|
|
|
|
static unsigned char lControl = 0, rControl = 0, lShift = 0,
|
|
|
|
rShift = 0, lAlt = 0, rAlt = 0;
|
|
|
|
|
|
|
|
SFG_Window* window;
|
|
|
|
PAINTSTRUCT ps;
|
|
|
|
LRESULT lRet = 1;
|
|
|
|
|
|
|
|
FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ;
|
|
|
|
|
|
|
|
window = fgWindowByHandle( hWnd );
|
|
|
|
|
|
|
|
if ( ( window == NULL ) && ( uMsg != WM_CREATE ) )
|
|
|
|
return DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
|
|
|
|
/* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0,
|
|
|
|
uMsg, wParam, lParam ); */
|
|
|
|
|
|
|
|
if ( window )
|
|
|
|
{
|
|
|
|
/* Checking for CTRL, ALT, and SHIFT key positions: Key Down! */
|
2017-10-10 02:47:10 +00:00
|
|
|
if (hWnd == GetForegroundWindow()) {
|
|
|
|
if ( !lControl && GetAsyncKeyState ( VK_LCONTROL ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lControl = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( !rControl && GetAsyncKeyState ( VK_RCONTROL ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rControl = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( !lShift && GetAsyncKeyState ( VK_LSHIFT ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lShift = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( !rShift && GetAsyncKeyState ( VK_RSHIFT ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rShift = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( !lAlt && GetAsyncKeyState ( VK_LMENU ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lAlt = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( !rAlt && GetAsyncKeyState ( VK_RMENU ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, Special,
|
|
|
|
( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rAlt = 1;
|
|
|
|
}
|
|
|
|
}
|
2015-08-02 12:12:44 +00:00
|
|
|
|
|
|
|
/* Checking for CTRL, ALT, and SHIFT key positions: Key Up! */
|
|
|
|
if ( lControl && !GetAsyncKeyState ( VK_LCONTROL ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lControl = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( rControl && !GetAsyncKeyState ( VK_RCONTROL ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rControl = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( lShift && !GetAsyncKeyState ( VK_LSHIFT ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lShift = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( rShift && !GetAsyncKeyState ( VK_RSHIFT ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rShift = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( lAlt && !GetAsyncKeyState ( VK_LMENU ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
lAlt = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ( rAlt && !GetAsyncKeyState ( VK_RMENU ) )
|
|
|
|
{
|
|
|
|
INVOKE_WCB ( *window, SpecialUp,
|
|
|
|
( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
rAlt = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
switch( uMsg )
|
|
|
|
{
|
|
|
|
case WM_CREATE:
|
|
|
|
/* The window structure is passed as the creation structure parameter... */
|
|
|
|
window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams);
|
|
|
|
FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window",
|
|
|
|
"fgWindowProc" );
|
|
|
|
|
|
|
|
window->Window.Handle = hWnd;
|
|
|
|
window->Window.Device = GetDC( hWnd );
|
|
|
|
if( window->IsMenu )
|
|
|
|
{
|
|
|
|
unsigned int current_DisplayMode = fgState.DisplayMode;
|
|
|
|
fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH;
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
|
|
|
|
#endif
|
|
|
|
fgState.DisplayMode = current_DisplayMode;
|
|
|
|
|
|
|
|
if( fgStructure.MenuContext )
|
|
|
|
wglMakeCurrent( window->Window.Device,
|
|
|
|
fgStructure.MenuContext->MContext
|
|
|
|
);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fgStructure.MenuContext =
|
|
|
|
(SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
|
|
|
|
fgStructure.MenuContext->MContext =
|
|
|
|
wglCreateContext( window->Window.Device );
|
|
|
|
}
|
|
|
|
|
|
|
|
/* window->Window.Context = wglGetCurrentContext (); */
|
|
|
|
window->Window.Context = wglCreateContext( window->Window.Device );
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE );
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if( ! fgState.UseCurrentContext )
|
|
|
|
window->Window.Context =
|
|
|
|
wglCreateContext( window->Window.Device );
|
|
|
|
else
|
|
|
|
{
|
|
|
|
window->Window.Context = wglGetCurrentContext( );
|
|
|
|
if( ! window->Window.Context )
|
|
|
|
window->Window.Context =
|
|
|
|
wglCreateContext( window->Window.Device );
|
|
|
|
}
|
|
|
|
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
fgNewWGLCreateContext( window );
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
window->State.NeedToResize = GL_TRUE;
|
|
|
|
/* if we used CW_USEDEFAULT (thats a negative value) for the size
|
|
|
|
* of the window, query the window now for the size at which it
|
|
|
|
* was created.
|
|
|
|
*/
|
|
|
|
if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) )
|
|
|
|
{
|
|
|
|
SFG_Window *current_window = fgStructure.CurrentWindow;
|
|
|
|
|
|
|
|
fgSetWindow( window );
|
|
|
|
window->State.Width = glutGet( GLUT_WINDOW_WIDTH );
|
|
|
|
window->State.Height = glutGet( GLUT_WINDOW_HEIGHT );
|
|
|
|
fgSetWindow( current_window );
|
|
|
|
}
|
|
|
|
|
|
|
|
ReleaseDC( window->Window.Handle, window->Window.Device );
|
|
|
|
|
|
|
|
#if defined(_WIN32_WCE)
|
|
|
|
/* Take over button handling */
|
|
|
|
{
|
|
|
|
HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll"));
|
|
|
|
if (dxDllLib)
|
|
|
|
{
|
|
|
|
GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z"));
|
|
|
|
GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ"));
|
|
|
|
}
|
|
|
|
|
|
|
|
if(GXOpenInput_)
|
|
|
|
(*GXOpenInput_)();
|
|
|
|
if(GXGetDefaultKeys_)
|
|
|
|
gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* defined(_WIN32_WCE) */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SIZE:
|
|
|
|
/*
|
|
|
|
* If the window is visible, then it is the user manually resizing it.
|
|
|
|
* If it is not, then it is the system sending us a dummy resize with
|
|
|
|
* zero dimensions on a "glutIconifyWindow" call.
|
|
|
|
*/
|
|
|
|
if( window->State.Visible )
|
|
|
|
{
|
|
|
|
window->State.NeedToResize = GL_TRUE;
|
|
|
|
#if defined(_WIN32_WCE)
|
|
|
|
window->State.Width = HIWORD(lParam);
|
|
|
|
window->State.Height = LOWORD(lParam);
|
|
|
|
#else
|
|
|
|
window->State.Width = LOWORD(lParam);
|
|
|
|
window->State.Height = HIWORD(lParam);
|
|
|
|
#endif /* defined(_WIN32_WCE) */
|
|
|
|
}
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SETFOCUS:
|
|
|
|
/* printf("WM_SETFOCUS: %p\n", window ); */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_KILLFOCUS:
|
|
|
|
/* printf("WM_KILLFOCUS: %p\n", window ); */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );
|
|
|
|
|
|
|
|
if( window->IsMenu &&
|
|
|
|
window->ActiveMenu && window->ActiveMenu->IsActive )
|
|
|
|
fgUpdateMenuHighlight( window->ActiveMenu );
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
case WM_ACTIVATE:
|
|
|
|
if (LOWORD(wParam) != WA_INACTIVE)
|
|
|
|
{
|
|
|
|
/* printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window,
|
|
|
|
window->State.Cursor ); */
|
|
|
|
fgSetCursor( window, window->State.Cursor );
|
|
|
|
}
|
|
|
|
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
case WM_SETCURSOR:
|
|
|
|
/* printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */
|
|
|
|
if( LOWORD( lParam ) == HTCLIENT )
|
|
|
|
fgSetCursor ( window, window->State.Cursor ) ;
|
|
|
|
else
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SHOWWINDOW:
|
|
|
|
window->State.Visible = GL_TRUE;
|
|
|
|
window->State.Redisplay = GL_TRUE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_PAINT:
|
|
|
|
/* Turn on the visibility in case it was turned off somehow */
|
|
|
|
window->State.Visible = GL_TRUE;
|
|
|
|
BeginPaint( hWnd, &ps );
|
|
|
|
fghRedrawWindow( window );
|
|
|
|
EndPaint( hWnd, &ps );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_CLOSE:
|
|
|
|
|
|
|
|
//QB64
|
|
|
|
/*
|
|
|
|
fgDestroyWindow ( window );
|
|
|
|
if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )
|
|
|
|
PostQuitMessage(0);
|
|
|
|
*/
|
|
|
|
qb64_custom_event(QB64_EVENT_CLOSE,0,0,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_DESTROY:
|
|
|
|
/*
|
|
|
|
* The window already got destroyed, so don't bother with it.
|
|
|
|
*/
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
|
|
static int raw_setup=0;
|
|
|
|
static RAWINPUTDEVICE Rid[1];
|
|
|
|
case WM_INPUT:
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
|
|
if (raw_setup){
|
|
|
|
//QB64
|
|
|
|
//adapted from http://msdn.microsoft.com/en-us/library/windows/desktop/ee418864%28v=vs.85%29.aspx#WM_INPUT
|
|
|
|
UINT dwSize = 40;
|
|
|
|
static BYTE lpb[40];
|
|
|
|
GetRawInputData((HRAWINPUT)lParam, RID_INPUT,
|
|
|
|
lpb, &dwSize, sizeof(RAWINPUTHEADER));
|
|
|
|
RAWINPUT* raw = (RAWINPUT*)lpb;
|
|
|
|
if (raw->header.dwType == RIM_TYPEMOUSE)
|
|
|
|
{
|
|
|
|
int xPosRelative = raw->data.mouse.lLastX;
|
|
|
|
int yPosRelative = raw->data.mouse.lLastY;
|
|
|
|
if (xPosRelative||yPosRelative) qb64_custom_event(QB64_EVENT_RELATIVE_MOUSE_MOVEMENT,xPosRelative,yPosRelative,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
case WM_MOUSEMOVE:
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (!raw_setup){
|
|
|
|
raw_setup=1;
|
|
|
|
#ifndef HID_USAGE_PAGE_GENERIC
|
|
|
|
#define HID_USAGE_PAGE_GENERIC ((USHORT) 0x01)
|
|
|
|
#endif
|
|
|
|
#ifndef HID_USAGE_GENERIC_MOUSE
|
|
|
|
#define HID_USAGE_GENERIC_MOUSE ((USHORT) 0x02)
|
|
|
|
#endif
|
|
|
|
Rid[0].usUsagePage = HID_USAGE_PAGE_GENERIC;
|
|
|
|
Rid[0].usUsage = HID_USAGE_GENERIC_MOUSE;
|
|
|
|
Rid[0].dwFlags = RIDEV_INPUTSINK;
|
|
|
|
Rid[0].hwndTarget = window->Window.Handle;
|
|
|
|
RegisterRawInputDevices(Rid, 1, sizeof(Rid[0]));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if defined(_WIN32_WCE)
|
|
|
|
window->State.MouseX = 320-HIWORD( lParam );
|
|
|
|
window->State.MouseY = LOWORD( lParam );
|
|
|
|
#else
|
|
|
|
window->State.MouseX = LOWORD( lParam );
|
|
|
|
window->State.MouseY = HIWORD( lParam );
|
|
|
|
#endif /* defined(_WIN32_WCE) */
|
|
|
|
/* Restrict to [-32768, 32767] to match X11 behaviour */
|
|
|
|
/* See comment in "freeglut_developer" mailing list 10/4/04 */
|
|
|
|
if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
|
|
|
|
if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
|
|
|
|
|
|
|
|
if ( window->ActiveMenu )
|
|
|
|
{
|
|
|
|
fgUpdateMenuHighlight( window->ActiveMenu );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
SetFocus(window->Window.Handle);
|
|
|
|
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
|
|
|
|
if( ( wParam & MK_LBUTTON ) ||
|
|
|
|
( wParam & MK_MBUTTON ) ||
|
|
|
|
( wParam & MK_RBUTTON ) )
|
|
|
|
INVOKE_WCB( *window, Motion, ( window->State.MouseX,
|
|
|
|
window->State.MouseY ) );
|
|
|
|
else
|
|
|
|
INVOKE_WCB( *window, Passive, ( window->State.MouseX,
|
|
|
|
window->State.MouseY ) );
|
|
|
|
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_LBUTTONDOWN:
|
|
|
|
case WM_MBUTTONDOWN:
|
|
|
|
case WM_RBUTTONDOWN:
|
|
|
|
case WM_LBUTTONUP:
|
|
|
|
case WM_MBUTTONUP:
|
|
|
|
case WM_RBUTTONUP:
|
|
|
|
{
|
|
|
|
GLboolean pressed = GL_TRUE;
|
|
|
|
int button;
|
|
|
|
|
|
|
|
#if defined(_WIN32_WCE)
|
|
|
|
window->State.MouseX = 320-HIWORD( lParam );
|
|
|
|
window->State.MouseY = LOWORD( lParam );
|
|
|
|
#else
|
|
|
|
window->State.MouseX = LOWORD( lParam );
|
|
|
|
window->State.MouseY = HIWORD( lParam );
|
|
|
|
#endif /* defined(_WIN32_WCE) */
|
|
|
|
|
|
|
|
/* Restrict to [-32768, 32767] to match X11 behaviour */
|
|
|
|
/* See comment in "freeglut_developer" mailing list 10/4/04 */
|
|
|
|
if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536;
|
|
|
|
if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536;
|
|
|
|
|
|
|
|
switch( uMsg )
|
|
|
|
{
|
|
|
|
case WM_LBUTTONDOWN:
|
|
|
|
pressed = GL_TRUE;
|
|
|
|
button = GLUT_LEFT_BUTTON;
|
|
|
|
break;
|
|
|
|
case WM_MBUTTONDOWN:
|
|
|
|
pressed = GL_TRUE;
|
|
|
|
button = GLUT_MIDDLE_BUTTON;
|
|
|
|
break;
|
|
|
|
case WM_RBUTTONDOWN:
|
|
|
|
pressed = GL_TRUE;
|
|
|
|
button = GLUT_RIGHT_BUTTON;
|
|
|
|
break;
|
|
|
|
case WM_LBUTTONUP:
|
|
|
|
pressed = GL_FALSE;
|
|
|
|
button = GLUT_LEFT_BUTTON;
|
|
|
|
break;
|
|
|
|
case WM_MBUTTONUP:
|
|
|
|
pressed = GL_FALSE;
|
|
|
|
button = GLUT_MIDDLE_BUTTON;
|
|
|
|
break;
|
|
|
|
case WM_RBUTTONUP:
|
|
|
|
pressed = GL_FALSE;
|
|
|
|
button = GLUT_RIGHT_BUTTON;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
pressed = GL_FALSE;
|
|
|
|
button = -1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
if( GetSystemMetrics( SM_SWAPBUTTON ) )
|
|
|
|
{
|
|
|
|
if( button == GLUT_LEFT_BUTTON )
|
|
|
|
button = GLUT_RIGHT_BUTTON;
|
|
|
|
else
|
|
|
|
if( button == GLUT_RIGHT_BUTTON )
|
|
|
|
button = GLUT_LEFT_BUTTON;
|
|
|
|
}
|
|
|
|
#endif /* !defined(_WIN32_WCE) */
|
|
|
|
|
|
|
|
if( button == -1 )
|
|
|
|
return DefWindowProc( hWnd, uMsg, lParam, wParam );
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Do not execute the application's mouse callback if a menu
|
|
|
|
* is hooked to this button. In that case an appropriate
|
|
|
|
* private call should be generated.
|
|
|
|
*/
|
|
|
|
if( fgCheckActiveMenu( window, button, pressed,
|
|
|
|
window->State.MouseX, window->State.MouseY ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
/* Set capture so that the window captures all the mouse messages */
|
|
|
|
/*
|
|
|
|
* XXX - Multiple button support: Under X11, the mouse is not released
|
|
|
|
* XXX - from the window until all buttons have been released, even if the
|
|
|
|
* XXX - user presses a button in another window. This will take more
|
|
|
|
* XXX - code changes than I am up to at the moment (10/5/04). The present
|
|
|
|
* XXX - is a 90 percent solution.
|
|
|
|
*/
|
|
|
|
if ( pressed == GL_TRUE )
|
|
|
|
SetCapture ( window->Window.Handle ) ;
|
|
|
|
else
|
|
|
|
ReleaseCapture () ;
|
|
|
|
|
|
|
|
if( ! FETCH_WCB( *window, Mouse ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
fgSetWindow( window );
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
|
|
|
|
INVOKE_WCB(
|
|
|
|
*window, Mouse,
|
|
|
|
( button,
|
|
|
|
pressed ? GLUT_DOWN : GLUT_UP,
|
|
|
|
window->State.MouseX,
|
|
|
|
window->State.MouseY
|
|
|
|
)
|
|
|
|
);
|
|
|
|
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 0x020a:
|
|
|
|
/* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */
|
|
|
|
{
|
|
|
|
int wheel_number = LOWORD( wParam );
|
|
|
|
short ticks = ( short )HIWORD( wParam );
|
|
|
|
fgState.MouseWheelTicks += ticks;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* XXX Should use WHEEL_DELTA instead of 120
|
|
|
|
*/
|
|
|
|
if ( abs ( fgState.MouseWheelTicks ) > 120 )
|
|
|
|
{
|
|
|
|
int direction = ( fgState.MouseWheelTicks > 0 ) ? 1 : -1;
|
|
|
|
|
|
|
|
if( ! FETCH_WCB( *window, MouseWheel ) &&
|
|
|
|
! FETCH_WCB( *window, Mouse ) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
fgSetWindow( window );
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
|
|
|
|
/*
|
|
|
|
* XXX Should use WHEEL_DELTA instead of 120
|
|
|
|
*/
|
|
|
|
while( abs ( fgState.MouseWheelTicks ) > 120 )
|
|
|
|
{
|
|
|
|
if( FETCH_WCB( *window, MouseWheel ) )
|
|
|
|
INVOKE_WCB( *window, MouseWheel,
|
|
|
|
( wheel_number,
|
|
|
|
direction,
|
|
|
|
window->State.MouseX,
|
|
|
|
window->State.MouseY
|
|
|
|
)
|
|
|
|
);
|
|
|
|
else /* No mouse wheel, call the mouse button callback twice */
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* Map wheel zero to button 3 and 4; +1 to 3, -1 to 4
|
|
|
|
* " " one +1 to 5, -1 to 6, ...
|
|
|
|
*
|
|
|
|
* XXX The below assumes that you have no more than 3 mouse
|
|
|
|
* XXX buttons. Sorry.
|
|
|
|
*/
|
|
|
|
int button = wheel_number * 2 + 3;
|
|
|
|
if( direction < 0 )
|
|
|
|
++button;
|
|
|
|
INVOKE_WCB( *window, Mouse,
|
|
|
|
( button, GLUT_DOWN,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
INVOKE_WCB( *window, Mouse,
|
|
|
|
( button, GLUT_UP,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* XXX Should use WHEEL_DELTA instead of 120
|
|
|
|
*/
|
|
|
|
fgState.MouseWheelTicks -= 120 * direction;
|
|
|
|
}
|
|
|
|
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case WM_SYSKEYDOWN:
|
|
|
|
case WM_KEYDOWN:
|
|
|
|
{
|
|
|
|
|
|
|
|
//QB64
|
|
|
|
if (wParam==VK_PAUSE){
|
|
|
|
qb64_custom_event(QB64_EVENT_KEY,VK+QBVK_PAUSE,1,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (wParam==VK_CANCEL){
|
|
|
|
qb64_custom_event(QB64_EVENT_KEY,VK+QBVK_BREAK,1,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
int keypress = -1;
|
|
|
|
POINT mouse_pos ;
|
|
|
|
|
|
|
|
if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Remember the current modifiers state. This is done here in order
|
|
|
|
* to make sure the VK_DELETE keyboard callback is executed properly.
|
|
|
|
*/
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
|
|
|
|
GetCursorPos( &mouse_pos );
|
|
|
|
ScreenToClient( window->Window.Handle, &mouse_pos );
|
|
|
|
|
|
|
|
window->State.MouseX = mouse_pos.x;
|
|
|
|
window->State.MouseY = mouse_pos.y;
|
|
|
|
|
|
|
|
/* Convert the Win32 keystroke codes to GLUTtish way */
|
|
|
|
# define KEY(a,b) case a: keypress = b; break;
|
|
|
|
|
|
|
|
switch( wParam )
|
|
|
|
{
|
|
|
|
KEY( VK_F1, GLUT_KEY_F1 );
|
|
|
|
KEY( VK_F2, GLUT_KEY_F2 );
|
|
|
|
KEY( VK_F3, GLUT_KEY_F3 );
|
|
|
|
KEY( VK_F4, GLUT_KEY_F4 );
|
|
|
|
KEY( VK_F5, GLUT_KEY_F5 );
|
|
|
|
KEY( VK_F6, GLUT_KEY_F6 );
|
|
|
|
KEY( VK_F7, GLUT_KEY_F7 );
|
|
|
|
KEY( VK_F8, GLUT_KEY_F8 );
|
|
|
|
KEY( VK_F9, GLUT_KEY_F9 );
|
|
|
|
KEY( VK_F10, GLUT_KEY_F10 );
|
|
|
|
KEY( VK_F11, GLUT_KEY_F11 );
|
|
|
|
KEY( VK_F12, GLUT_KEY_F12 );
|
|
|
|
KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
|
|
|
|
KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
|
|
|
|
KEY( VK_HOME, GLUT_KEY_HOME );
|
|
|
|
KEY( VK_END, GLUT_KEY_END );
|
|
|
|
KEY( VK_LEFT, GLUT_KEY_LEFT );
|
|
|
|
KEY( VK_UP, GLUT_KEY_UP );
|
|
|
|
KEY( VK_RIGHT, GLUT_KEY_RIGHT );
|
|
|
|
KEY( VK_DOWN, GLUT_KEY_DOWN );
|
|
|
|
KEY( VK_INSERT, GLUT_KEY_INSERT );
|
|
|
|
KEY( VK_LCONTROL, GLUT_KEY_CTRL_L );
|
|
|
|
KEY( VK_RCONTROL, GLUT_KEY_CTRL_R );
|
|
|
|
KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L );
|
|
|
|
KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R );
|
|
|
|
KEY( VK_LMENU, GLUT_KEY_ALT_L );
|
|
|
|
KEY( VK_RMENU, GLUT_KEY_ALT_R );
|
|
|
|
|
|
|
|
case VK_DELETE:
|
|
|
|
/* The delete key should be treated as an ASCII keypress: */
|
|
|
|
INVOKE_WCB( *window, Keyboard,
|
|
|
|
( 127, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
#if defined(_WIN32_WCE)
|
|
|
|
if(!(lParam & 0x40000000)) /* Prevent auto-repeat */
|
|
|
|
{
|
|
|
|
if(wParam==(unsigned)gxKeyList.vkRight)
|
|
|
|
keypress = GLUT_KEY_RIGHT;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkLeft)
|
|
|
|
keypress = GLUT_KEY_LEFT;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkUp)
|
|
|
|
keypress = GLUT_KEY_UP;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkDown)
|
|
|
|
keypress = GLUT_KEY_DOWN;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkA)
|
|
|
|
keypress = GLUT_KEY_F1;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkB)
|
|
|
|
keypress = GLUT_KEY_F2;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkC)
|
|
|
|
keypress = GLUT_KEY_F3;
|
|
|
|
else if(wParam==(unsigned)gxKeyList.vkStart)
|
|
|
|
keypress = GLUT_KEY_F4;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if( keypress != -1 )
|
|
|
|
INVOKE_WCB( *window, Special,
|
|
|
|
( keypress,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SYSKEYUP:
|
|
|
|
case WM_KEYUP:
|
|
|
|
{
|
|
|
|
|
|
|
|
//QB64
|
|
|
|
if (wParam==VK_PAUSE){
|
|
|
|
qb64_custom_event(QB64_EVENT_KEY,VK+QBVK_PAUSE,-1,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (wParam==VK_CANCEL){
|
|
|
|
qb64_custom_event(QB64_EVENT_KEY,VK+QBVK_BREAK,-1,0,0,0,0,0,0,NULL,NULL);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
int keypress = -1;
|
|
|
|
POINT mouse_pos;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Remember the current modifiers state. This is done here in order
|
|
|
|
* to make sure the VK_DELETE keyboard callback is executed properly.
|
|
|
|
*/
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
|
|
|
|
GetCursorPos( &mouse_pos );
|
|
|
|
ScreenToClient( window->Window.Handle, &mouse_pos );
|
|
|
|
|
|
|
|
window->State.MouseX = mouse_pos.x;
|
|
|
|
window->State.MouseY = mouse_pos.y;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Convert the Win32 keystroke codes to GLUTtish way.
|
|
|
|
* "KEY(a,b)" was defined under "WM_KEYDOWN"
|
|
|
|
*/
|
|
|
|
|
|
|
|
switch( wParam )
|
|
|
|
{
|
|
|
|
KEY( VK_F1, GLUT_KEY_F1 );
|
|
|
|
KEY( VK_F2, GLUT_KEY_F2 );
|
|
|
|
KEY( VK_F3, GLUT_KEY_F3 );
|
|
|
|
KEY( VK_F4, GLUT_KEY_F4 );
|
|
|
|
KEY( VK_F5, GLUT_KEY_F5 );
|
|
|
|
KEY( VK_F6, GLUT_KEY_F6 );
|
|
|
|
KEY( VK_F7, GLUT_KEY_F7 );
|
|
|
|
KEY( VK_F8, GLUT_KEY_F8 );
|
|
|
|
KEY( VK_F9, GLUT_KEY_F9 );
|
|
|
|
KEY( VK_F10, GLUT_KEY_F10 );
|
|
|
|
KEY( VK_F11, GLUT_KEY_F11 );
|
|
|
|
KEY( VK_F12, GLUT_KEY_F12 );
|
|
|
|
KEY( VK_PRIOR, GLUT_KEY_PAGE_UP );
|
|
|
|
KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN );
|
|
|
|
KEY( VK_HOME, GLUT_KEY_HOME );
|
|
|
|
KEY( VK_END, GLUT_KEY_END );
|
|
|
|
KEY( VK_LEFT, GLUT_KEY_LEFT );
|
|
|
|
KEY( VK_UP, GLUT_KEY_UP );
|
|
|
|
KEY( VK_RIGHT, GLUT_KEY_RIGHT );
|
|
|
|
KEY( VK_DOWN, GLUT_KEY_DOWN );
|
|
|
|
KEY( VK_INSERT, GLUT_KEY_INSERT );
|
|
|
|
KEY( VK_LCONTROL, GLUT_KEY_CTRL_L );
|
|
|
|
KEY( VK_RCONTROL, GLUT_KEY_CTRL_R );
|
|
|
|
KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L );
|
|
|
|
KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R );
|
|
|
|
KEY( VK_LMENU, GLUT_KEY_ALT_L );
|
|
|
|
KEY( VK_RMENU, GLUT_KEY_ALT_R );
|
|
|
|
|
|
|
|
case VK_DELETE:
|
|
|
|
/* The delete key should be treated as an ASCII keypress: */
|
|
|
|
INVOKE_WCB( *window, KeyboardUp,
|
|
|
|
( 127, window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
{
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
BYTE state[ 256 ];
|
|
|
|
WORD code[ 2 ];
|
|
|
|
|
|
|
|
GetKeyboardState( state );
|
|
|
|
|
|
|
|
if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 )
|
|
|
|
wParam=code[ 0 ];
|
|
|
|
|
|
|
|
INVOKE_WCB( *window, KeyboardUp,
|
|
|
|
( (char)wParam,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
#endif /* !defined(_WIN32_WCE) */
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if( keypress != -1 )
|
|
|
|
INVOKE_WCB( *window, SpecialUp,
|
|
|
|
( keypress,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SYSCHAR:
|
|
|
|
case WM_CHAR:
|
|
|
|
{
|
|
|
|
if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) )
|
|
|
|
break;
|
|
|
|
|
|
|
|
fgState.Modifiers = fghGetWin32Modifiers( );
|
|
|
|
INVOKE_WCB( *window, Keyboard,
|
|
|
|
( (char)wParam,
|
|
|
|
window->State.MouseX, window->State.MouseY )
|
|
|
|
);
|
|
|
|
fgState.Modifiers = INVALID_MODIFIERS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_CAPTURECHANGED:
|
|
|
|
/* User has finished resizing the window, force a redraw */
|
|
|
|
INVOKE_WCB( *window, Display, ( ) );
|
|
|
|
|
|
|
|
/*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */
|
|
|
|
break;
|
|
|
|
|
|
|
|
/* Other messages that I have seen and which are not handled already */
|
|
|
|
case WM_SETTEXT: /* 0x000c */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
/* Pass it on to "DefWindowProc" to set the window text */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_GETTEXT: /* 0x000d */
|
|
|
|
/* Ideally we would copy the title of the window into "lParam" */
|
|
|
|
/* strncpy ( (char *)lParam, "Window Title", wParam );
|
|
|
|
lRet = ( wParam > 12 ) ? 12 : wParam; */
|
|
|
|
/* the number of characters copied */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_GETTEXTLENGTH: /* 0x000e */
|
|
|
|
/* Ideally we would get the length of the title of the window */
|
|
|
|
lRet = 12;
|
|
|
|
/* the number of characters in "Window Title\0" (see above) */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_ERASEBKGND: /* 0x0014 */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
|
|
|
|
#if !defined(_WIN32_WCE)
|
|
|
|
case WM_SYNCPAINT: /* 0x0088 */
|
|
|
|
/* Another window has moved, need to update this one */
|
|
|
|
window->State.Redisplay = GL_TRUE;
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
/* Help screen says this message must be passed to "DefWindowProc" */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_NCPAINT: /* 0x0085 */
|
|
|
|
/* Need to update the border of this window */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
/* Pass it on to "DefWindowProc" to repaint a standard border */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case WM_SYSCOMMAND : /* 0x0112 */
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* We have received a system command message. Try to act on it.
|
|
|
|
* The commands are passed in through the "wParam" parameter:
|
|
|
|
* The least significant digit seems to be which edge of the window
|
|
|
|
* is being used for a resize event:
|
|
|
|
* 4 3 5
|
|
|
|
* 1 2
|
|
|
|
* 7 6 8
|
|
|
|
* Congratulations and thanks to Richard Rauch for figuring this out..
|
|
|
|
*/
|
|
|
|
switch ( wParam & 0xfff0 )
|
|
|
|
{
|
|
|
|
case SC_SIZE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_MOVE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_MINIMIZE :
|
|
|
|
/* User has clicked on the "-" to minimize the window */
|
|
|
|
/* Turn off the visibility */
|
|
|
|
window->State.Visible = GL_FALSE ;
|
|
|
|
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_MAXIMIZE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_NEXTWINDOW :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_PREVWINDOW :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_CLOSE :
|
|
|
|
/* Followed very closely by a WM_CLOSE message */
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_VSCROLL :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_HSCROLL :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_MOUSEMENU :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_KEYMENU :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_ARRANGE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_RESTORE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_TASKLIST :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_SCREENSAVE :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_HOTKEY :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
#if(WINVER >= 0x0400)
|
|
|
|
case SC_DEFAULT :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_MONITORPOWER :
|
|
|
|
break ;
|
|
|
|
|
|
|
|
case SC_CONTEXTHELP :
|
|
|
|
break ;
|
|
|
|
#endif /* WINVER >= 0x0400 */
|
|
|
|
|
|
|
|
default:
|
|
|
|
#if _DEBUG
|
|
|
|
fgWarning( "Unknown wParam type 0x%x", wParam );
|
|
|
|
#endif
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif /* !defined(_WIN32_WCE) */
|
|
|
|
|
|
|
|
/* We need to pass the message on to the operating system as well */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
|
|
|
|
#ifdef WM_TOUCH
|
|
|
|
/* handle multi-touch messages */
|
|
|
|
case WM_TOUCH:
|
|
|
|
{
|
|
|
|
unsigned int numInputs = (unsigned int)wParam;
|
|
|
|
unsigned int i = 0;
|
|
|
|
TOUCHINPUT* ti = (TOUCHINPUT*)malloc( sizeof(TOUCHINPUT)*numInputs);
|
|
|
|
|
|
|
|
if (fghGetTouchInputInfo == (pGetTouchInputInfo)0xDEADBEEF) {
|
|
|
|
fghGetTouchInputInfo = (pGetTouchInputInfo)GetProcAddress(GetModuleHandle("user32"),"GetTouchInputInfo");
|
|
|
|
fghCloseTouchInputHandle = (pCloseTouchInputHandle)GetProcAddress(GetModuleHandle("user32"),"CloseTouchInputHandle");
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!fghGetTouchInputInfo) {
|
|
|
|
free( (void*)ti );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (fghGetTouchInputInfo( (HTOUCHINPUT)lParam, numInputs, ti, sizeof(TOUCHINPUT) )) {
|
|
|
|
/* Handle each contact point */
|
|
|
|
for (i = 0; i < numInputs; ++i ) {
|
|
|
|
|
|
|
|
POINT tp;
|
|
|
|
tp.x = TOUCH_COORD_TO_PIXEL(ti[i].x);
|
|
|
|
tp.y = TOUCH_COORD_TO_PIXEL(ti[i].y);
|
|
|
|
ScreenToClient( hWnd, &tp );
|
|
|
|
|
|
|
|
ti[i].dwID = ti[i].dwID * 2;
|
|
|
|
|
|
|
|
if (ti[i].dwFlags & TOUCHEVENTF_DOWN) {
|
|
|
|
INVOKE_WCB( *window, MultiEntry, ( ti[i].dwID, GLUT_ENTERED ) );
|
|
|
|
INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_DOWN ) );
|
|
|
|
} else if (ti[i].dwFlags & TOUCHEVENTF_MOVE) {
|
|
|
|
INVOKE_WCB( *window, MultiMotion, ( ti[i].dwID, tp.x, tp.y ) );
|
|
|
|
} else if (ti[i].dwFlags & TOUCHEVENTF_UP) {
|
|
|
|
INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_UP ) );
|
|
|
|
INVOKE_WCB( *window, MultiEntry, ( ti[i].dwID, GLUT_LEFT ) );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fghCloseTouchInputHandle((HTOUCHINPUT)lParam);
|
|
|
|
free( (void*)ti );
|
|
|
|
lRet = 0; /*DefWindowProc( hWnd, uMsg, wParam, lParam );*/
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
default:
|
|
|
|
/* Handle unhandled messages */
|
|
|
|
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
qb64_os_event_info=2;
|
|
|
|
qb64_os_event_return=qb64_os_event_windows(
|
|
|
|
hWnd, uMsg, wParam,lParam, &qb64_os_event_info
|
|
|
|
);
|
|
|
|
if (qb64_os_event_info==3) return qb64_os_event_return;
|
|
|
|
|
|
|
|
return lRet;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*** END OF FILE ***/
|