QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-05-12 12:00:13 +00:00
Code Issues Releases Wiki Activity
QB64-PE/internal/c/parts/core/freeglut/freeglut_main.c
Samuel Gomes 47e3ec40f7 Add cross-platform clipboard support
2024-03-26 23:34:54 +05:30

2728 lines
89 KiB
C
Raw Blame History

/*
* 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 <GL/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
// QB64-PE: custom code begin
#include "../../../libqb/include/keyhandler.h"
#define QB64_EVENT_CLOSE 1
#define QB64_EVENT_KEY 2
#define QB64_EVENT_RELATIVE_MOUSE_MOVEMENT 3
#define QB64_EVENT_FILE_DROP 4
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
// QB64-PE: custom code end
#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
#if TARGET_HOST_POSIX_X11
/* used in the event handling code to match and discard stale mouse motion events */
static Bool match_motion(Display *dpy, XEvent *xev, XPointer arg)
{
return xev->type == MotionNotify;
}
#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
#if TARGET_HOST_MS_WINDOWS
extern void fgPlatformCheckMenuDeactivate();
#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.
*
* Note on maximizing behavior of Windows: the resize borders are off
* the screen such that the client area extends all the way from the
* leftmost corner to the rightmost corner to maximize screen real
* estate. A caption is still shown however to allow interaction with
* the window controls. This is default behavior of Windows that
* FreeGLUT sticks with. To alter, one would have to check if
* WS_MAXIMIZE style is set when a resize event is triggered, and
* then manually correct the windowRect to put the borders back on
* screen.
*/
/* "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(&windowRect,window,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;
fghGetClientArea( &parentRect, window->Parent, FALSE );
OffsetRect(&windowRect,-parentRect.left,-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.
* DN: Hmm.. the above sounds like a concern only in single buffered mode...
*/
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 )
{
/* Set need to resize to false before calling fghReshapeWindow, otherwise
in the case the user's reshape callback calls glutReshapeWindow,
his request would get canceled after fghReshapeWindow gets called.
*/
window->State.NeedToResize = GL_FALSE;
fghReshapeWindow(
window,
window->State.Width,
window->State.Height
);
}
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_MS_WINDOWS
# if defined(_WIN32_WCE)
return GetTickCount();
# else
return timeGetTime();
# endif
#else
# ifdef CLOCK_MONOTONIC
struct timespec now;
clock_gettime(CLOCK_MONOTONIC, &now);
return now.tv_nsec/1000000 + now.tv_sec*1000;
# elif HAVE_GETTIMEOFDAY
struct timeval now;
gettimeofday( &now, NULL );
return now.tv_usec/1000 + now.tv_sec*1000;
# 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
// QB64-PE: custom code begin
int qb64_os_event_info = 1;
qb64_os_event_linux(&event, fgDisplay.Display, &qb64_os_event_info);
if (qb64_os_event_info == 3)
return;
// QB64-PE: custom code end
switch( event.type )
{
case ClientMessage:
if (fgStructure.CurrentWindow)
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 );
// QB64-PE: custom code begin
qb64_custom_event(QB64_EVENT_CLOSE, 0, 0, 0, 0, 0, 0, 0, 0, NULL, NULL);
/*
fgDestroyWindow ( window );
if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT )
{
fgDeinitialize( );
exit( 0 );
}
else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS )
fgState.ExecState = GLUT_EXEC_STATE_STOP;
return;
*/
// QB64-PE: custom code end
}
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:
{
/* if GLUT_SKIP_STALE_MOTION_EVENTS is true, then discard all but
* the last motion event from the queue
*/
if(fgState.SkipStaleMotion) {
while(XCheckIfEvent(fgDisplay.Display, &event, match_motion, 0));
}
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-PE: custom code begin
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)
// QB64-PE: custom code end
}
#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 )
{
// QB64-PE: custom code begin
static int raw_setup = 0;
static RAWINPUTDEVICE Rid[1];
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;
// QB64-PE: custom code end
static unsigned char lControl = 0, rControl = 0, lShift = 0,
rShift = 0, lAlt = 0, rAlt = 0;
SFG_Window* window, *child_window = NULL;
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 ); */
/* Some events only sent to main window. Check if the current window that
* the mouse is over is a child window. Below when handling some messages,
* we make sure that we process callbacks on the child window instead.
* This mirrors how GLUT does things.
*/
if (window && window->Children.First)
{
POINT mouse_pos;
SFG_WindowHandleType hwnd;
SFG_Window* temp_window;
GetCursorPos( &mouse_pos );
ScreenToClient( window->Window.Handle, &mouse_pos );
hwnd = ChildWindowFromPoint(window->Window.Handle, mouse_pos);
if (hwnd) /* can be NULL if mouse outside parent by the time we get here */
{
temp_window = fgWindowByHandle(hwnd);
if (temp_window && temp_window->Parent) /* Verify we got a child window */
child_window = temp_window;
}
}
if ( window )
{
SFG_Window* temp_window = child_window?child_window:window;
fgState.Modifiers = fghGetWin32Modifiers( );
/* Checking for CTRL, ALT, and SHIFT key positions: Key Down! */
if ( !lControl && GetAsyncKeyState ( VK_LCONTROL ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_CTRL_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lControl = 1;
}
if ( !rControl && GetAsyncKeyState ( VK_RCONTROL ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_CTRL_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rControl = 1;
}
if ( !lShift && GetAsyncKeyState ( VK_LSHIFT ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_SHIFT_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lShift = 1;
}
if ( !rShift && GetAsyncKeyState ( VK_RSHIFT ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_SHIFT_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rShift = 1;
}
if ( !lAlt && GetAsyncKeyState ( VK_LMENU ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_ALT_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lAlt = 1;
}
if ( !rAlt && GetAsyncKeyState ( VK_RMENU ) )
{
INVOKE_WCB ( *temp_window, Special,
( GLUT_KEY_ALT_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rAlt = 1;
}
/* Checking for CTRL, ALT, and SHIFT key positions: Key Up! */
if ( lControl && !GetAsyncKeyState ( VK_LCONTROL ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_CTRL_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lControl = 0;
}
if ( rControl && !GetAsyncKeyState ( VK_RCONTROL ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_CTRL_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rControl = 0;
}
if ( lShift && !GetAsyncKeyState ( VK_LSHIFT ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_SHIFT_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lShift = 0;
}
if ( rShift && !GetAsyncKeyState ( VK_RSHIFT ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_SHIFT_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rShift = 0;
}
if ( lAlt && !GetAsyncKeyState ( VK_LMENU ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_ALT_L, temp_window->State.MouseX, temp_window->State.MouseY )
);
lAlt = 0;
}
if ( rAlt && !GetAsyncKeyState ( VK_RMENU ) )
{
INVOKE_WCB ( *temp_window, SpecialUp,
( GLUT_KEY_ALT_R, temp_window->State.MouseX, temp_window->State.MouseY )
);
rAlt = 0;
}
fgState.Modifiers = INVALID_MODIFIERS;
}
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 );
if (child_window)
{
/* If child should have focus instead, set it here. */
SetFocus(child_window->Window.Handle);
SetActiveWindow( child_window->Window.Handle );
INVOKE_WCB( *child_window, Entry, ( GLUT_ENTERED ) );
UpdateWindow ( child_window->Window.Handle );
}
else
{
SetActiveWindow( window->Window.Handle );
INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) );
}
/* Always request update on main window to be safe */
UpdateWindow ( hWnd );
break;
case WM_KILLFOCUS:
{
SFG_Window* saved_window = fgStructure.CurrentWindow;
/* printf("WM_KILLFOCUS: %p\n", window ); */
lRet = DefWindowProc( hWnd, uMsg, wParam, lParam );
INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) );
fgSetWindow(saved_window);
/* Check if there are any open menus that need to be closed */
fgPlatformCheckMenuDeactivate();
}
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;
InvalidateRect( hWnd, NULL, GL_FALSE ); /* Make sure whole window is repainted. Bit of a hack, but a safe one from what google turns up... */
BeginPaint( hWnd, &ps );
fghRedrawWindow( window );
EndPaint( hWnd, &ps );
break;
case WM_CLOSE:
// QB64-PE: custom code begin
qb64_custom_event(QB64_EVENT_CLOSE, 0, 0, 0, 0, 0, 0, 0, 0, NULL, NULL);
/*
fgDestroyWindow ( window );
if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION )
PostQuitMessage(0);
*/
// QB64-PE: custom code end
break;
// QB64-PE: custom code begin
case WM_DROPFILES:
qb64_custom_event(QB64_EVENT_FILE_DROP, 0, 0, 0, 0, 0, 0, 0, 0, (void *)wParam, NULL);
break;
// QB64-PE: custom code end
case WM_DESTROY:
/*
* The window already got destroyed, so don't bother with it.
*/
return 0;
// QB64-PE: custom code begin
case WM_INPUT: {
if (raw_setup) {
// Adapted from http://msdn.microsoft.com/en-us/library/windows/desktop/ee418864%28v=vs.85%29.aspx#WM_INPUT
UINT dwSize = sizeof(RAWINPUT);
static BYTE lpb[sizeof(RAWINPUT)];
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;
}
// QB64-PE: custom code end
case WM_MOUSEMOVE:
{
// QB64-PE: custom code begin
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]));
}
// QB64-PE: custom code end
#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;
}
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 WM_MOUSEWHEEL:
{
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-PE: custom code begin
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;
}
// QB64-PE: custom code end
int keypress = -1;
POINT mouse_pos ;
if (child_window)
window = child_window;
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 );
case VK_LCONTROL: case VK_RCONTROL: case VK_CONTROL:
case VK_LSHIFT: case VK_RSHIFT: case VK_SHIFT:
case VK_LMENU: case VK_RMENU: case VK_MENU:
/* These keypresses and releases are handled earlier in the function */
break;
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-PE: custom code begin
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;
}
// QB64-PE: custom code end
int keypress = -1;
POINT mouse_pos;
if (child_window)
window = child_window;
/*
* 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 );
case VK_LCONTROL: case VK_RCONTROL: case VK_CONTROL:
case VK_LSHIFT: case VK_RSHIFT: case VK_SHIFT:
case VK_LMENU: case VK_RMENU: case VK_MENU:
/* These keypresses and releases are handled earlier in the function */
break;
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 (child_window)
window = child_window;
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-PE: custom code begin
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;
// QB64-PE: custom code end
return lRet;
}
#endif
/*** END OF FILE ***/
View git blame Copy permalink