git.mutantstargoat.com Git - freeglut/blob - src/freeglut_window.c

   1 /*
   2  * freeglut_window.c
   3  *
   4  * Window management methods.
   5  *
   6  * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.
   7  * Written by Pawel W. Olszta, <olszta@sourceforge.net>
   8  * Creation date: Fri Dec 3 1999
   9  *
  10  * Permission is hereby granted, free of charge, to any person obtaining a
  11  * copy of this software and associated documentation files (the "Software"),
  12  * to deal in the Software without restriction, including without limitation
  13  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
  14  * and/or sell copies of the Software, and to permit persons to whom the
  15  * Software is furnished to do so, subject to the following conditions:
  16  *
  17  * The above copyright notice and this permission notice shall be included
  18  * in all copies or substantial portions of the Software.
  19  *
  20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  21  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  22  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  23  * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
  24  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  25  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  26  */
  27
  28 #define FREEGLUT_BUILDING_LIB
  29 #include <GL/freeglut.h>
  30 #include "freeglut_internal.h"
  31
  32 #if TARGET_HOST_POSIX_X11
  33 #include <limits.h>  /* LONG_MAX */
  34 #endif
  35
  36 #if defined(_WIN32_WCE)
  37 #   include <Aygshell.h>
  38 #   ifdef FREEGLUT_LIB_PRAGMAS
  39 #       pragma comment( lib, "Aygshell.lib" )
  40 #   endif
  41 #endif /* defined(_WIN32_WCE) */
  42
  43
  44 #if TARGET_HOST_POSIX_X11
  45 #ifndef GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB
  46 #define GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB 0x20B2
  47 #endif
  48
  49 #ifndef GLX_CONTEXT_MAJOR_VERSION_ARB
  50 #define GLX_CONTEXT_MAJOR_VERSION_ARB 0x2091
  51 #endif
  52
  53 #ifndef GLX_CONTEXT_MINOR_VERSION_ARB
  54 #define GLX_CONTEXT_MINOR_VERSION_ARB 0x2092
  55 #endif
  56
  57 #ifndef GLX_CONTEXT_FLAGS_ARB
  58 #define GLX_CONTEXT_FLAGS_ARB 0x2094
  59 #endif
  60
  61 #ifndef GLX_CONTEXT_PROFILE_MASK_ARB
  62 #define GLX_CONTEXT_PROFILE_MASK_ARB 0x9126
  63 #endif
  64
  65 #ifndef GLX_CONTEXT_DEBUG_BIT_ARB
  66 #define GLX_CONTEXT_DEBUG_BIT_ARB 0x0001
  67 #endif
  68
  69 #ifndef GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB
  70 #define GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x0002
  71 #endif
  72
  73 #ifndef GLX_CONTEXT_CORE_PROFILE_BIT_ARB
  74 #define GLX_CONTEXT_CORE_PROFILE_BIT_ARB 0x00000001
  75 #endif
  76
  77 #ifndef GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB
  78 #define GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x00000002
  79 #endif
  80
  81 #ifndef GLX_RGBA_FLOAT_TYPE
  82 #define GLX_RGBA_FLOAT_TYPE 0x20B9
  83 #endif
  84
  85 #ifndef GLX_RGBA_FLOAT_BIT
  86 #define GLX_RGBA_FLOAT_BIT 0x00000004
  87 #endif
  88 #endif  /* TARGET_HOST_POSIX_X11 */
  89
  90
  91 #if TARGET_HOST_MS_WINDOWS
  92 /* The following include file is available from SGI but is not standard:
  93  *   #include <GL/wglext.h>
  94  * So we copy the necessary parts out of it.
  95  * XXX: should local definitions for extensions be put in a separate include file?
  96  */
  97 typedef const char * (WINAPI * PFNWGLGETEXTENSIONSSTRINGARBPROC) (HDC hdc);
  98
  99 typedef BOOL (WINAPI * PFNWGLCHOOSEPIXELFORMATARBPROC) (HDC hdc, const int *piAttribIList, const FLOAT *pfAttribFList, UINT nMaxFormats, int *piFormats, UINT *nNumFormats);
 100
 101 #define WGL_DRAW_TO_WINDOW_ARB         0x2001
 102 #define WGL_ACCELERATION_ARB           0x2003
 103 #define WGL_SUPPORT_OPENGL_ARB         0x2010
 104 #define WGL_DOUBLE_BUFFER_ARB          0x2011
 105 #define WGL_COLOR_BITS_ARB             0x2014
 106 #define WGL_ALPHA_BITS_ARB             0x201B
 107 #define WGL_DEPTH_BITS_ARB             0x2022
 108 #define WGL_STENCIL_BITS_ARB           0x2023
 109 #define WGL_FULL_ACCELERATION_ARB      0x2027
 110
 111 #define WGL_SAMPLE_BUFFERS_ARB         0x2041
 112 #define WGL_SAMPLES_ARB                0x2042
 113
 114 #define WGL_TYPE_RGBA_FLOAT_ARB        0x21A0
 115
 116 #define WGL_FRAMEBUFFER_SRGB_CAPABLE_ARB 0x20A9
 117
 118 #ifndef WGL_ARB_create_context
 119 #define WGL_ARB_create_context 1
 120 #ifdef WGL_WGLEXT_PROTOTYPES
 121 extern HGLRC WINAPI wglCreateContextAttribsARB (HDC, HGLRC, const int *);
 122 #endif /* WGL_WGLEXT_PROTOTYPES */
 123 typedef HGLRC (WINAPI * PFNWGLCREATECONTEXTATTRIBSARBPROC) (HDC hDC, HGLRC hShareContext, const int *attribList);
 124
 125 #define WGL_CONTEXT_MAJOR_VERSION_ARB  0x2091
 126 #define WGL_CONTEXT_MINOR_VERSION_ARB  0x2092
 127 #define WGL_CONTEXT_LAYER_PLANE_ARB    0x2093
 128 #define WGL_CONTEXT_FLAGS_ARB          0x2094
 129 #define WGL_CONTEXT_PROFILE_MASK_ARB   0x9126
 130
 131 #define WGL_CONTEXT_DEBUG_BIT_ARB      0x0001
 132 #define WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x0002
 133
 134 #define WGL_CONTEXT_CORE_PROFILE_BIT_ARB 0x00000001
 135 #define WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x00000002
 136
 137 #define ERROR_INVALID_VERSION_ARB      0x2095
 138 #define ERROR_INVALID_PROFILE_ARB      0x2096
 139 #endif
 140
 141 #endif  /* TARGET_HOST_MS_WINDOWS */
 142
 143
 144 /* pushing attribute/value pairs into an array */
 145 #define ATTRIB(a) attributes[where++]=(a)
 146 #define ATTRIB_VAL(a,v) {ATTRIB(a); ATTRIB(v);}
 147
 148 /*
 149  * TODO BEFORE THE STABLE RELEASE:
 150  *
 151  *  fgChooseFBConfig()      -- OK, but what about glutInitDisplayString()?
 152  *  fgSetupPixelFormat      -- ignores the display mode settings
 153  *  fgOpenWindow()          -- check the Win32 version, -iconic handling!
 154  *  fgCloseWindow()         -- check the Win32 version
 155  *  glutCreateWindow()      -- Check when default position and size is {-1,-1}
 156  *  glutCreateSubWindow()   -- Check when default position and size is {-1,-1}
 157  *  glutDestroyWindow()     -- check the Win32 version
 158  *  glutSetWindow()         -- check the Win32 version
 159  *  glutGetWindow()         -- OK
 160  *  glutSetWindowTitle()    -- check the Win32 version
 161  *  glutSetIconTitle()      -- check the Win32 version
 162  *  glutShowWindow()        -- check the Win32 version
 163  *  glutHideWindow()        -- check the Win32 version
 164  *  glutIconifyWindow()     -- check the Win32 version
 165  *  glutReshapeWindow()     -- check the Win32 version
 166  *  glutPositionWindow()    -- check the Win32 version
 167  *  glutPushWindow()        -- check the Win32 version
 168  *  glutPopWindow()         -- check the Win32 version
 169  */
 170
 171 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
 172
 173 static int fghIsLegacyContextVersionRequested( void )
 174 {
 175   return fgState.MajorVersion == 1 && fgState.MinorVersion == 0;
 176 }
 177
 178 static int fghIsLegacyContextRequested( void )
 179 {
 180   return fghIsLegacyContextVersionRequested() &&
 181          fgState.ContextFlags == 0 &&
 182          fgState.ContextProfile == 0;
 183 }
 184
 185 static int fghNumberOfAuxBuffersRequested( void )
 186 {
 187   if ( fgState.DisplayMode & GLUT_AUX4 ) {
 188     return 4;
 189   }
 190   if ( fgState.DisplayMode & GLUT_AUX3 ) {
 191     return 3;
 192   }
 193   if ( fgState.DisplayMode & GLUT_AUX2 ) {
 194     return 2;
 195   }
 196   if ( fgState.DisplayMode & GLUT_AUX1 ) { /* NOTE: Same as GLUT_AUX! */
 197     return fgState.AuxiliaryBufferNumber;
 198   }
 199   return 0;
 200 }
 201
 202 static int fghMapBit( int mask, int from, int to )
 203 {
 204   return ( mask & from ) ? to : 0;
 205
 206 }
 207
 208 static void fghContextCreationError( void )
 209 {
 210     fgError( "Unable to create OpenGL %d.%d context (flags %x, profile %x)",
 211              fgState.MajorVersion, fgState.MinorVersion, fgState.ContextFlags,
 212              fgState.ContextProfile );
 213 }
 214
 215
 216 /* -- SYSTEM-DEPENDENT PRIVATE FUNCTIONS ------------------------------------ */
 217
 218 #if TARGET_HOST_POSIX_X11
 219 /*
 220  * Chooses a visual basing on the current display mode settings
 221  */
 222
 223 GLXFBConfig* fgChooseFBConfig( void )
 224 {
 225   GLboolean wantIndexedMode = GL_FALSE;
 226   int attributes[ 100 ];
 227   int where = 0, numAuxBuffers;
 228
 229   /* First we have to process the display mode settings... */
 230   if( fgState.DisplayMode & GLUT_INDEX ) {
 231     ATTRIB_VAL( GLX_BUFFER_SIZE, 8 );
 232     /*  Buffer size is selected later.  */
 233
 234     ATTRIB_VAL( GLX_RENDER_TYPE, GLX_COLOR_INDEX_BIT );
 235     wantIndexedMode = GL_TRUE;
 236   } else {
 237     ATTRIB_VAL( GLX_RED_SIZE,   1 );
 238     ATTRIB_VAL( GLX_GREEN_SIZE, 1 );
 239     ATTRIB_VAL( GLX_BLUE_SIZE,  1 );
 240     if( fgState.DisplayMode & GLUT_ALPHA ) {
 241       ATTRIB_VAL( GLX_ALPHA_SIZE, 1 );
 242     }
 243   }
 244
 245   if( fgState.DisplayMode & GLUT_DOUBLE ) {
 246     ATTRIB_VAL( GLX_DOUBLEBUFFER, True );
 247   }
 248
 249   if( fgState.DisplayMode & GLUT_STEREO ) {
 250     ATTRIB_VAL( GLX_STEREO, True );
 251   }
 252
 253   if( fgState.DisplayMode & GLUT_DEPTH ) {
 254     ATTRIB_VAL( GLX_DEPTH_SIZE, 1 );
 255   }
 256
 257   if( fgState.DisplayMode & GLUT_STENCIL ) {
 258     ATTRIB_VAL( GLX_STENCIL_SIZE, 1 );
 259   }
 260
 261   if( fgState.DisplayMode & GLUT_ACCUM ) {
 262     ATTRIB_VAL( GLX_ACCUM_RED_SIZE, 1 );
 263     ATTRIB_VAL( GLX_ACCUM_GREEN_SIZE, 1 );
 264     ATTRIB_VAL( GLX_ACCUM_BLUE_SIZE, 1 );
 265     if( fgState.DisplayMode & GLUT_ALPHA ) {
 266       ATTRIB_VAL( GLX_ACCUM_ALPHA_SIZE, 1 );
 267     }
 268   }
 269
 270   numAuxBuffers = fghNumberOfAuxBuffersRequested();
 271   if ( numAuxBuffers > 0 ) {
 272     ATTRIB_VAL( GLX_AUX_BUFFERS, numAuxBuffers );
 273   }
 274
 275   if( fgState.DisplayMode & GLUT_SRGB ) {
 276     ATTRIB_VAL( GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB, True );
 277   }
 278
 279   if (fgState.DisplayMode & GLUT_MULTISAMPLE) {
 280     ATTRIB_VAL(GLX_SAMPLE_BUFFERS, 1);
 281     ATTRIB_VAL(GLX_SAMPLES, fgState.SampleNumber);
 282   }
 283
 284   /* Push a terminator at the end of the list */
 285   ATTRIB( None );
 286
 287     {
 288         GLXFBConfig * fbconfigArray;  /*  Array of FBConfigs  */
 289         GLXFBConfig * fbconfig;       /*  The FBConfig we want  */
 290         int fbconfigArraySize;        /*  Number of FBConfigs in the array  */
 291
 292
 293         /*  Get all FBConfigs that match "attributes".  */
 294         fbconfigArray = glXChooseFBConfig( fgDisplay.Display,
 295                                            fgDisplay.Screen,
 296                                            attributes,
 297                                            &fbconfigArraySize );
 298
 299         if (fbconfigArray != NULL)
 300         {
 301             int result;  /* Returned by glXGetFBConfigAttrib, not checked. */
 302
 303
 304             if( wantIndexedMode )
 305             {
 306                 /*
 307                  * In index mode, we want the largest buffer size, i.e. visual
 308                  * depth.  Here, FBConfigs are sorted by increasing buffer size
 309                  * first, so FBConfigs with the largest size come last.
 310                  */
 311
 312                 int bufferSizeMin, bufferSizeMax;
 313
 314                 /*  Get bufferSizeMin.  */
 315                 result =
 316                   glXGetFBConfigAttrib( fgDisplay.Display,
 317                                         fbconfigArray[0],
 318                                         GLX_BUFFER_SIZE,
 319                                         &bufferSizeMin );
 320                 /*  Get bufferSizeMax.  */
 321                 result =
 322                   glXGetFBConfigAttrib( fgDisplay.Display,
 323                                         fbconfigArray[fbconfigArraySize - 1],
 324                                         GLX_BUFFER_SIZE,
 325                                         &bufferSizeMax );
 326
 327                 if (bufferSizeMax > bufferSizeMin)
 328                 {
 329                     /*
 330                      * Free and reallocate fbconfigArray, keeping only FBConfigs
 331                      * with the largest buffer size.
 332                      */
 333                     XFree(fbconfigArray);
 334
 335                     /*  Add buffer size token at the end of the list.  */
 336                     where--;
 337                     ATTRIB_VAL( GLX_BUFFER_SIZE, bufferSizeMax );
 338                     ATTRIB( None );
 339
 340                     fbconfigArray = glXChooseFBConfig( fgDisplay.Display,
 341                                                        fgDisplay.Screen,
 342                                                        attributes,
 343                                                        &fbconfigArraySize );
 344                 }
 345             }
 346
 347             /*
 348              * We now have an array of FBConfigs, the first one being the "best"
 349              * one.  So we should return only this FBConfig:
 350              *
 351              * int fbconfigXID;
 352              *
 353              *  - pick the XID of the FBConfig we want
 354              * result = glXGetFBConfigAttrib( fgDisplay.Display,
 355              *                                fbconfigArray[0],
 356              *                                GLX_FBCONFIG_ID,
 357              *                                &fbconfigXID );
 358              *
 359              * - free the array
 360              * XFree(fbconfigArray);
 361              *
 362              * - reset "attributes" with the XID
 363              * where = 0;
 364              * ATTRIB_VAL( GLX_FBCONFIG_ID, fbconfigXID );
 365              * ATTRIB( None );
 366              *
 367              * - get our FBConfig only
 368              * fbconfig = glXChooseFBConfig( fgDisplay.Display,
 369              *                               fgDisplay.Screen,
 370              *                               attributes,
 371              *                               &fbconfigArraySize );
 372              *
 373              * However, for some configurations (for instance multisampling with
 374              * Mesa 6.5.2 and ATI drivers), this does not work:
 375              * glXChooseFBConfig returns NULL, whereas fbconfigXID is a valid
 376              * XID.  Further investigation is needed.
 377              *
 378              * So, for now, we return the whole array of FBConfigs.  This should
 379              * not produce any side effects elsewhere.
 380              */
 381             fbconfig = fbconfigArray;
 382         }
 383         else
 384         {
 385            fbconfig = NULL;
 386         }
 387
 388         return fbconfig;
 389     }
 390 }
 391
 392
 393 static void fghFillContextAttributes( int *attributes ) {
 394   int where = 0, contextFlags, contextProfile;
 395
 396   if ( !fghIsLegacyContextVersionRequested() ) {
 397     ATTRIB_VAL( GLX_CONTEXT_MAJOR_VERSION_ARB, fgState.MajorVersion );
 398     ATTRIB_VAL( GLX_CONTEXT_MINOR_VERSION_ARB, fgState.MinorVersion );
 399   }
 400
 401   contextFlags =
 402     fghMapBit( fgState.ContextFlags, GLUT_DEBUG, GLX_CONTEXT_DEBUG_BIT_ARB ) |
 403     fghMapBit( fgState.ContextFlags, GLUT_FORWARD_COMPATIBLE, GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB );
 404   if ( contextFlags != 0 ) {
 405     ATTRIB_VAL( GLX_CONTEXT_FLAGS_ARB, contextFlags );
 406   }
 407
 408   contextProfile =
 409     fghMapBit( fgState.ContextProfile, GLUT_CORE_PROFILE, GLX_CONTEXT_CORE_PROFILE_BIT_ARB ) |
 410     fghMapBit( fgState.ContextProfile, GLUT_COMPATIBILITY_PROFILE, GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB );
 411   if ( contextProfile != 0 ) {
 412     ATTRIB_VAL( GLX_CONTEXT_PROFILE_MASK_ARB, contextProfile );
 413   }
 414
 415   ATTRIB( 0 );
 416 }
 417
 418 typedef GLXContext (*CreateContextAttribsProc)(Display *dpy, GLXFBConfig config,
 419                                                GLXContext share_list, Bool direct,
 420                                                const int *attrib_list);
 421
 422 static GLXContext fghCreateNewContext( SFG_Window* window )
 423 {
 424   /* for color model calculation */
 425   int menu = ( window->IsMenu && !fgStructure.MenuContext );
 426   int index_mode = ( fgState.DisplayMode & GLUT_INDEX );
 427
 428   /* "classic" context creation */
 429   Display *dpy = fgDisplay.Display;
 430   GLXFBConfig config = *(window->Window.FBConfig);
 431   int render_type = ( !menu && index_mode ) ? GLX_COLOR_INDEX_TYPE : GLX_RGBA_TYPE;
 432   GLXContext share_list = NULL;
 433   Bool direct = ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT );
 434   GLXContext context;
 435
 436   /* new context creation */
 437   int attributes[9];
 438   CreateContextAttribsProc createContextAttribs;
 439
 440   /* If nothing fancy has been required, simply use the old context creation GLX API entry */
 441   if ( fghIsLegacyContextRequested() )
 442   {
 443     context = glXCreateNewContext( dpy, config, render_type, share_list, direct );
 444     if ( context == NULL ) {
 445       fghContextCreationError();
 446     }
 447     return context;
 448   }
 449
 450   /* color index mode is not available anymore with OpenGL 3.0 */
 451   if ( render_type == GLX_COLOR_INDEX_TYPE ) {
 452     fgWarning( "color index mode is deprecated, using RGBA mode" );
 453   }
 454
 455   fghFillContextAttributes( attributes );
 456
 457   createContextAttribs = (CreateContextAttribsProc) fghGetProcAddress( "glXCreateContextAttribsARB" );
 458   if ( createContextAttribs == NULL ) {
 459     fgError( "glXCreateContextAttribsARB not found" );
 460   }
 461
 462   context = createContextAttribs( dpy, config, share_list, direct, attributes );
 463   if ( context == NULL ) {
 464     fghContextCreationError();
 465   }
 466   return context;
 467 }
 468
 469
 470 #define _NET_WM_STATE_TOGGLE    2
 471 static int fghResizeFullscrToggle(void)
 472 {
 473     XWindowAttributes attributes;
 474
 475     if(glutGet(GLUT_FULL_SCREEN)) {
 476         /* restore original window size */
 477         SFG_Window *win = fgStructure.CurrentWindow;
 478         fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
 479         fgStructure.CurrentWindow->State.Width  = win->State.OldWidth;
 480         fgStructure.CurrentWindow->State.Height = win->State.OldHeight;
 481
 482     } else {
 483         /* resize the window to cover the entire screen */
 484         XGetWindowAttributes(fgDisplay.Display,
 485                 fgStructure.CurrentWindow->Window.Handle,
 486                 &attributes);
 487
 488         /*
 489          * The "x" and "y" members of "attributes" are the window's coordinates
 490          * relative to its parent, i.e. to the decoration window.
 491          */
 492         XMoveResizeWindow(fgDisplay.Display,
 493                 fgStructure.CurrentWindow->Window.Handle,
 494                 -attributes.x,
 495                 -attributes.y,
 496                 fgDisplay.ScreenWidth,
 497                 fgDisplay.ScreenHeight);
 498     }
 499     return 0;
 500 }
 501
 502 static int fghEwmhFullscrToggle(void)
 503 {
 504     XEvent xev;
 505     long evmask = SubstructureRedirectMask | SubstructureNotifyMask;
 506
 507     if(!fgDisplay.State || !fgDisplay.StateFullScreen) {
 508         return -1;
 509     }
 510
 511     xev.type = ClientMessage;
 512     xev.xclient.window = fgStructure.CurrentWindow->Window.Handle;
 513     xev.xclient.message_type = fgDisplay.State;
 514     xev.xclient.format = 32;
 515     xev.xclient.data.l[0] = _NET_WM_STATE_TOGGLE;
 516     xev.xclient.data.l[1] = fgDisplay.StateFullScreen;
 517     xev.xclient.data.l[2] = 0;  /* no second property to toggle */
 518     xev.xclient.data.l[3] = 1;  /* source indication: application */
 519     xev.xclient.data.l[4] = 0;  /* unused */
 520
 521     if(!XSendEvent(fgDisplay.Display, fgDisplay.RootWindow, 0, evmask, &xev)) {
 522         return -1;
 523     }
 524     return 0;
 525 }
 526
 527 static int fghToggleFullscreen(void)
 528 {
 529     /* first try the EWMH (_NET_WM_STATE) method ... */
 530     if(fghEwmhFullscrToggle() != -1) {
 531         return 0;
 532     }
 533
 534     /* fall back to resizing the window */
 535     if(fghResizeFullscrToggle() != -1) {
 536         return 0;
 537     }
 538     return -1;
 539 }
 540
 541
 542 #endif  /* TARGET_HOST_POSIX_X11 */
 543
 544
 545 #if TARGET_HOST_MS_WINDOWS
 546 /*
 547  * Setup the pixel format for a Win32 window
 548  */
 549
 550 #if defined(_WIN32_WCE)
 551 static wchar_t* fghWstrFromStr(const char* str)
 552 {
 553     int i,len=strlen(str);
 554     wchar_t* wstr = (wchar_t*)malloc(2*len+2);
 555     for(i=0; i<len; i++)
 556         wstr[i] = str[i];
 557     wstr[len] = 0;
 558     return wstr;
 559 }
 560 #endif /* defined(_WIN32_WCE) */
 561
 562
 563 static void fghFillContextAttributes( int *attributes ) {
 564   int where = 0, contextFlags, contextProfile;
 565
 566   if ( !fghIsLegacyContextVersionRequested() ) {
 567     ATTRIB_VAL( WGL_CONTEXT_MAJOR_VERSION_ARB, fgState.MajorVersion );
 568     ATTRIB_VAL( WGL_CONTEXT_MINOR_VERSION_ARB, fgState.MinorVersion );
 569   }
 570
 571   contextFlags =
 572     fghMapBit( fgState.ContextFlags, GLUT_DEBUG, WGL_CONTEXT_DEBUG_BIT_ARB ) |
 573     fghMapBit( fgState.ContextFlags, GLUT_FORWARD_COMPATIBLE, WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB );
 574   if ( contextFlags != 0 ) {
 575     ATTRIB_VAL( WGL_CONTEXT_FLAGS_ARB, contextFlags );
 576   }
 577
 578   contextProfile =
 579     fghMapBit( fgState.ContextProfile, GLUT_CORE_PROFILE, WGL_CONTEXT_CORE_PROFILE_BIT_ARB ) |
 580     fghMapBit( fgState.ContextProfile, GLUT_COMPATIBILITY_PROFILE, WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB );
 581   if ( contextProfile != 0 ) {
 582     ATTRIB_VAL( WGL_CONTEXT_PROFILE_MASK_ARB, contextProfile );
 583   }
 584
 585   ATTRIB( 0 );
 586 }
 587
 588 static int fghIsExtensionSupported( HDC hdc, const char *extension ) {
 589     const char *pWglExtString;
 590     PFNWGLGETEXTENSIONSSTRINGARBPROC wglGetEntensionsStringARB =
 591       (PFNWGLGETEXTENSIONSSTRINGARBPROC) wglGetProcAddress("wglGetExtensionsStringARB");
 592     if ( wglGetEntensionsStringARB == NULL )
 593     {
 594       return FALSE;
 595     }
 596     pWglExtString = wglGetEntensionsStringARB( hdc );
 597     return ( pWglExtString != NULL ) && ( strstr(pWglExtString, extension) != NULL );
 598 }
 599
 600 void fgNewWGLCreateContext( SFG_Window* window )
 601 {
 602     HGLRC context;
 603     int attributes[9];
 604     PFNWGLCREATECONTEXTATTRIBSARBPROC wglCreateContextAttribsARB;
 605
 606     /* If nothing fancy has been required, leave the context as it is */
 607     if ( fghIsLegacyContextRequested() )
 608     {
 609         return;
 610     }
 611
 612     wglMakeCurrent( window->Window.Device, window->Window.Context );
 613
 614     if ( !fghIsExtensionSupported( window->Window.Device, "WGL_ARB_create_context" ) )
 615     {
 616         return;
 617     }
 618
 619     /* new context creation */
 620     fghFillContextAttributes( attributes );
 621
 622     wglCreateContextAttribsARB = (PFNWGLCREATECONTEXTATTRIBSARBPROC) wglGetProcAddress( "wglCreateContextAttribsARB" );
 623     if ( wglCreateContextAttribsARB == NULL )
 624     {
 625         fgError( "wglCreateContextAttribsARB not found" );
 626     }
 627
 628     context = wglCreateContextAttribsARB( window->Window.Device, 0, attributes );
 629     if ( context == NULL )
 630     {
 631         fghContextCreationError();
 632     }
 633
 634     wglMakeCurrent( NULL, NULL );
 635     wglDeleteContext( window->Window.Context );
 636     window->Window.Context = context;
 637 }
 638
 639 #if !defined(_WIN32_WCE)
 640
 641 static void fghFillPFD( PIXELFORMATDESCRIPTOR *ppfd, HDC hdc, unsigned char layer_type )
 642 {
 643   int flags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL;
 644   if ( fgState.DisplayMode & GLUT_DOUBLE ) {
 645         flags |= PFD_DOUBLEBUFFER;
 646   }
 647   if ( fgState.DisplayMode & GLUT_STEREO ) {
 648     flags |= PFD_STEREO;
 649   }
 650
 651 #if defined(_MSC_VER)
 652 #pragma message( "fgSetupPixelFormat(): there is still some work to do here!" )
 653 #endif
 654
 655   /* Specify which pixel format do we opt for... */
 656   ppfd->nSize = sizeof(PIXELFORMATDESCRIPTOR);
 657   ppfd->nVersion = 1;
 658   ppfd->dwFlags = flags;
 659
 660   if( fgState.DisplayMode & GLUT_INDEX ) {
 661     ppfd->iPixelType = PFD_TYPE_COLORINDEX;
 662     ppfd->cRedBits = 0;
 663     ppfd->cGreenBits = 0;
 664     ppfd->cBlueBits = 0;
 665     ppfd->cAlphaBits = 0;
 666   } else {
 667     ppfd->iPixelType = PFD_TYPE_RGBA;
 668     ppfd->cRedBits = 8;
 669     ppfd->cGreenBits = 8;
 670     ppfd->cBlueBits = 8;
 671     ppfd->cAlphaBits = ( fgState.DisplayMode & GLUT_ALPHA ) ? 8 : 0;
 672   }
 673
 674   ppfd->cColorBits = 24;
 675   ppfd->cRedShift = 0;
 676   ppfd->cGreenShift = 0;
 677   ppfd->cBlueShift = 0;
 678   ppfd->cAlphaShift = 0;
 679   ppfd->cAccumBits = 0;
 680   ppfd->cAccumRedBits = 0;
 681   ppfd->cAccumGreenBits = 0;
 682   ppfd->cAccumBlueBits = 0;
 683   ppfd->cAccumAlphaBits = 0;
 684
 685   /* Hmmm, or 32/0 instead of 24/8? */
 686   ppfd->cDepthBits = 24;
 687   ppfd->cStencilBits = 8;
 688
 689   ppfd->cAuxBuffers = fghNumberOfAuxBuffersRequested();
 690   ppfd->iLayerType = layer_type;
 691   ppfd->bReserved = 0;
 692   ppfd->dwLayerMask = 0;
 693   ppfd->dwVisibleMask = 0;
 694   ppfd->dwDamageMask = 0;
 695
 696   ppfd->cColorBits = (BYTE) GetDeviceCaps( hdc, BITSPIXEL );
 697 }
 698
 699 static void fghFillPixelFormatAttributes( int *attributes, const PIXELFORMATDESCRIPTOR *ppfd )
 700 {
 701   int where = 0;
 702
 703   ATTRIB_VAL( WGL_DRAW_TO_WINDOW_ARB, GL_TRUE );
 704   ATTRIB_VAL( WGL_SUPPORT_OPENGL_ARB, GL_TRUE );
 705   ATTRIB_VAL( WGL_ACCELERATION_ARB, WGL_FULL_ACCELERATION_ARB );
 706
 707   ATTRIB_VAL( WGL_COLOR_BITS_ARB, ppfd->cColorBits );
 708   ATTRIB_VAL( WGL_ALPHA_BITS_ARB, ppfd->cAlphaBits );
 709   ATTRIB_VAL( WGL_DEPTH_BITS_ARB, ppfd->cDepthBits );
 710   ATTRIB_VAL( WGL_STENCIL_BITS_ARB, ppfd->cStencilBits );
 711
 712   ATTRIB_VAL( WGL_DOUBLE_BUFFER_ARB, ( fgState.DisplayMode & GLUT_DOUBLE ) != 0 );
 713
 714   if ( fgState.DisplayMode & GLUT_SRGB ) {
 715     ATTRIB_VAL( WGL_FRAMEBUFFER_SRGB_CAPABLE_ARB, TRUE );
 716   }
 717
 718   ATTRIB_VAL( WGL_SAMPLE_BUFFERS_ARB, GL_TRUE );
 719   ATTRIB_VAL( WGL_SAMPLES_ARB, fgState.SampleNumber );
 720   ATTRIB( 0 );
 721 }
 722 #endif
 723
 724 GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly,
 725                               unsigned char layer_type )
 726 {
 727 #if defined(_WIN32_WCE)
 728     return GL_TRUE;
 729 #else
 730     PIXELFORMATDESCRIPTOR pfd;
 731     PIXELFORMATDESCRIPTOR* ppfd = &pfd;
 732     int pixelformat;
 733
 734     fghFillPFD( ppfd, window->Window.Device, layer_type );
 735     pixelformat = ChoosePixelFormat( window->Window.Device, ppfd );
 736
 737     /* windows hack for multismapling/sRGB */
 738     if ( ( fgState.DisplayMode & GLUT_MULTISAMPLE ) ||
 739          ( fgState.DisplayMode & GLUT_SRGB ) )
 740     {
 741         HGLRC rc, rc_before=wglGetCurrentContext();
 742         HWND hWnd;
 743         HDC hDC, hDC_before=wglGetCurrentDC();
 744         WNDCLASS wndCls;
 745
 746         /* create a dummy window */
 747         ZeroMemory(&wndCls, sizeof(wndCls));
 748         wndCls.lpfnWndProc = DefWindowProc;
 749         wndCls.hInstance = fgDisplay.Instance;
 750         wndCls.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
 751         wndCls.lpszClassName = _T("FREEGLUT_dummy");
 752         RegisterClass( &wndCls );
 753
 754         hWnd=CreateWindow(_T("FREEGLUT_dummy"), _T(""), WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_OVERLAPPEDWINDOW , 0,0,0,0, 0, 0, fgDisplay.Instance, 0 );
 755         hDC=GetDC(hWnd);
 756         SetPixelFormat( hDC, pixelformat, ppfd );
 757
 758         rc = wglCreateContext( hDC );
 759         wglMakeCurrent(hDC, rc);
 760
 761         if ( fghIsExtensionSupported( hDC, "WGL_ARB_multisample" ) )
 762         {
 763             PFNWGLCHOOSEPIXELFORMATARBPROC wglChoosePixelFormatARBProc =
 764               (PFNWGLCHOOSEPIXELFORMATARBPROC) wglGetProcAddress("wglChoosePixelFormatARB");
 765             if ( wglChoosePixelFormatARBProc )
 766             {
 767                 int attributes[100];
 768                 int iPixelFormat;
 769                 BOOL bValid;
 770                 float fAttributes[] = { 0, 0 };
 771                 UINT numFormats;
 772                 fghFillPixelFormatAttributes( attributes, ppfd );
 773                 bValid = wglChoosePixelFormatARBProc(window->Window.Device, attributes, fAttributes, 1, &iPixelFormat, &numFormats);
 774
 775                 if ( bValid && numFormats > 0 )
 776                 {
 777                     pixelformat = iPixelFormat;
 778                 }
 779             }
 780         }
 781
 782         wglMakeCurrent( hDC_before, rc_before);
 783         wglDeleteContext(rc);
 784         ReleaseDC(hWnd, hDC);
 785         DestroyWindow(hWnd);
 786         UnregisterClass(_T("FREEGLUT_dummy"), fgDisplay.Instance);
 787     }
 788
 789     return ( pixelformat != 0 ) && ( checkOnly || SetPixelFormat( window->Window.Device, pixelformat, ppfd ) );
 790 #endif /* defined(_WIN32_WCE) */
 791 }
 792
 793 #endif  /* TARGET_HOST_MS_WINDOWS */
 794
 795 /*
 796  * Sets the OpenGL context and the fgStructure "Current Window" pointer to
 797  * the window structure passed in.
 798  */
 799 void fgSetWindow ( SFG_Window *window )
 800 {
 801 #if TARGET_HOST_POSIX_X11
 802     if ( window )
 803     {
 804         glXMakeContextCurrent(
 805             fgDisplay.Display,
 806             window->Window.Handle,
 807             window->Window.Handle,
 808             window->Window.Context
 809         );
 810     }
 811 #elif TARGET_HOST_MS_WINDOWS
 812     if( fgStructure.CurrentWindow )
 813         ReleaseDC( fgStructure.CurrentWindow->Window.Handle,
 814                    fgStructure.CurrentWindow->Window.Device );
 815
 816     if ( window )
 817     {
 818         window->Window.Device = GetDC( window->Window.Handle );
 819         wglMakeCurrent(
 820             window->Window.Device,
 821             window->Window.Context
 822         );
 823     }
 824 #endif
 825     fgStructure.CurrentWindow = window;
 826 }
 827
 828 #if TARGET_HOST_MS_WINDOWS
 829
 830 typedef struct {
 831       int *x;
 832       int *y;
 833       const char *name;
 834 }m_proc_t ;
 835
 836 static BOOL CALLBACK m_proc(HMONITOR mon,
 837                             HDC hdc,
 838                             LPRECT rect,
 839                             LPARAM data)
 840 {
 841       m_proc_t *dp=(m_proc_t *)data;
 842       MONITORINFOEX info;
 843       BOOL res;
 844       info.cbSize=sizeof(info);
 845       res=GetMonitorInfo(mon,(LPMONITORINFO)&info);
 846       if( res )
 847       {
 848           if( !strcmp(dp->name,info.szDevice) )
 849           {
 850               *(dp->x)=info.rcMonitor.left;
 851               *(dp->y)=info.rcMonitor.top;
 852               return FALSE;
 853           }
 854       }
 855       return TRUE;
 856 }
 857
 858 /*
 859  * this function is only used in fgOpenWindow. Currently it only sets
 860  * its output parameters, if the DisplayName is set in fgDisplay
 861  * (and if it is able to recognize the display)
 862 */
 863
 864 static void get_display_origin(int *xp,int *yp)
 865 {
 866     if( fgDisplay.DisplayName )
 867     {
 868         m_proc_t st;
 869         st.x=xp;
 870         st.y=yp;
 871         st.name=fgDisplay.DisplayName;
 872         EnumDisplayMonitors(0,0,m_proc,(LPARAM)&st);
 873      }
 874 }
 875 #endif
 876
 877
 878
 879 /*
 880  * Opens a window. Requires a SFG_Window object created and attached
 881  * to the freeglut structure. OpenGL context is created here.
 882  */
 883 void fgOpenWindow( SFG_Window* window, const char* title,
 884                    GLboolean positionUse, int x, int y,
 885                    GLboolean sizeUse, int w, int h,
 886                    GLboolean gameMode, GLboolean isSubWindow )
 887 {
 888 #if TARGET_HOST_POSIX_X11
 889     XVisualInfo * visualInfo;
 890     XSetWindowAttributes winAttr;
 891     XTextProperty textProperty;
 892     XSizeHints sizeHints;
 893     XWMHints wmHints;
 894     unsigned long mask;
 895     unsigned int current_DisplayMode = fgState.DisplayMode ;
 896
 897     /* Save the display mode if we are creating a menu window */
 898     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
 899         fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB ;
 900
 901     window->Window.FBConfig = fgChooseFBConfig( );
 902
 903     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
 904         fgState.DisplayMode = current_DisplayMode ;
 905
 906     if( ! window->Window.FBConfig )
 907     {
 908         /*
 909          * The "fgChooseFBConfig" returned a null meaning that the visual
 910          * context is not available.
 911          * Try a couple of variations to see if they will work.
 912          */
 913         if( !( fgState.DisplayMode & GLUT_DOUBLE ) )
 914         {
 915             fgState.DisplayMode |= GLUT_DOUBLE ;
 916             window->Window.FBConfig = fgChooseFBConfig( );
 917             fgState.DisplayMode &= ~GLUT_DOUBLE;
 918         }
 919
 920         if( fgState.DisplayMode & GLUT_MULTISAMPLE )
 921         {
 922             fgState.DisplayMode &= ~GLUT_MULTISAMPLE ;
 923             window->Window.FBConfig = fgChooseFBConfig( );
 924             fgState.DisplayMode |= GLUT_MULTISAMPLE;
 925         }
 926     }
 927
 928     FREEGLUT_INTERNAL_ERROR_EXIT( window->Window.FBConfig != NULL,
 929                                   "FBConfig with necessary capabilities not found", "fgOpenWindow" );
 930
 931     /*  Get the X visual.  */
 932     visualInfo = glXGetVisualFromFBConfig( fgDisplay.Display,
 933                                            *(window->Window.FBConfig) );
 934
 935     /*
 936      * XXX HINT: the masks should be updated when adding/removing callbacks.
 937      * XXX       This might speed up message processing. Is that true?
 938      * XXX
 939      * XXX A: Not appreciably, but it WILL make it easier to debug.
 940      * XXX    Try tracing old GLUT and try tracing freeglut.  Old GLUT
 941      * XXX    turns off events that it doesn't need and is a whole lot
 942      * XXX    more pleasant to trace.  (Think mouse-motion!  Tons of
 943      * XXX    ``bonus'' GUI events stream in.)
 944      */
 945     winAttr.event_mask        =
 946         StructureNotifyMask | SubstructureNotifyMask | ExposureMask |
 947         ButtonPressMask | ButtonReleaseMask | KeyPressMask | KeyReleaseMask |
 948         VisibilityChangeMask | EnterWindowMask | LeaveWindowMask |
 949         PointerMotionMask | ButtonMotionMask;
 950     winAttr.background_pixmap = None;
 951     winAttr.background_pixel  = 0;
 952     winAttr.border_pixel      = 0;
 953
 954     winAttr.colormap = XCreateColormap(
 955         fgDisplay.Display, fgDisplay.RootWindow,
 956         visualInfo->visual, AllocNone
 957     );
 958
 959     mask = CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask;
 960
 961     if( window->IsMenu || ( gameMode == GL_TRUE ) )
 962     {
 963         winAttr.override_redirect = True;
 964         mask |= CWOverrideRedirect;
 965     }
 966
 967     if( ! positionUse )
 968         x = y = -1; /* default window position */
 969     if( ! sizeUse )
 970         w = h = 300; /* default window size */
 971
 972     window->Window.Handle = XCreateWindow(
 973         fgDisplay.Display,
 974         window->Parent == NULL ? fgDisplay.RootWindow :
 975         window->Parent->Window.Handle,
 976         x, y, w, h, 0,
 977         visualInfo->depth, InputOutput,
 978         visualInfo->visual, mask,
 979         &winAttr
 980     );
 981
 982     /*
 983      * The GLX context creation, possibly trying the direct context rendering
 984      *  or else use the current context if the user has so specified
 985      */
 986
 987     if( window->IsMenu )
 988     {
 989         /*
 990          * If there isn't already an OpenGL rendering context for menu
 991          * windows, make one
 992          */
 993         if( !fgStructure.MenuContext )
 994         {
 995             fgStructure.MenuContext =
 996                 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
 997             fgStructure.MenuContext->MContext = fghCreateNewContext( window );
 998         }
 999
1000         /* window->Window.Context = fgStructure.MenuContext->MContext; */
1001         window->Window.Context = fghCreateNewContext( window );
1002     }
1003     else if( fgState.UseCurrentContext )
1004     {
1005         window->Window.Context = glXGetCurrentContext( );
1006
1007         if( ! window->Window.Context )
1008             window->Window.Context = fghCreateNewContext( window );
1009     }
1010     else
1011         window->Window.Context = fghCreateNewContext( window );
1012
1013 #if !defined( __FreeBSD__ ) && !defined( __NetBSD__ )
1014     if(  !glXIsDirect( fgDisplay.Display, window->Window.Context ) )
1015     {
1016       if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT )
1017         fgError( "Unable to force direct context rendering for window '%s'",
1018                  title );
1019     }
1020 #endif
1021
1022     /*
1023      * XXX Assume the new window is visible by default
1024      * XXX Is this a  safe assumption?
1025      */
1026     window->State.Visible = GL_TRUE;
1027
1028     sizeHints.flags = 0;
1029     if ( positionUse )
1030         sizeHints.flags |= USPosition;
1031     if ( sizeUse )
1032         sizeHints.flags |= USSize;
1033
1034     /*
1035      * Fill in the size hints values now (the x, y, width and height
1036      * settings are obsolete, are there any more WMs that support them?)
1037      * Unless the X servers actually stop supporting these, we should
1038      * continue to fill them in.  It is *not* our place to tell the user
1039      * that they should replace a window manager that they like, and which
1040      * works, just because *we* think that it's not "modern" enough.
1041      */
1042     sizeHints.x      = x;
1043     sizeHints.y      = y;
1044     sizeHints.width  = w;
1045     sizeHints.height = h;
1046
1047     wmHints.flags = StateHint;
1048     wmHints.initial_state = fgState.ForceIconic ? IconicState : NormalState;
1049     /* Prepare the window and iconified window names... */
1050     XStringListToTextProperty( (char **) &title, 1, &textProperty );
1051
1052     XSetWMProperties(
1053         fgDisplay.Display,
1054         window->Window.Handle,
1055         &textProperty,
1056         &textProperty,
1057         0,
1058         0,
1059         &sizeHints,
1060         &wmHints,
1061         NULL
1062     );
1063     XFree( textProperty.value );
1064
1065     XSetWMProtocols( fgDisplay.Display, window->Window.Handle,
1066                      &fgDisplay.DeleteWindow, 1 );
1067
1068     glXMakeContextCurrent(
1069         fgDisplay.Display,
1070         window->Window.Handle,
1071         window->Window.Handle,
1072         window->Window.Context
1073     );
1074
1075     XMapWindow( fgDisplay.Display, window->Window.Handle );
1076
1077     XFree(visualInfo);
1078
1079 #elif TARGET_HOST_MS_WINDOWS
1080
1081     WNDCLASS wc;
1082     DWORD flags;
1083     DWORD exFlags = 0;
1084     ATOM atom;
1085     int WindowStyle = 0;
1086
1087     /* Grab the window class we have registered on glutInit(): */
1088     atom = GetClassInfo( fgDisplay.Instance, _T("FREEGLUT"), &wc );
1089     FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Info Not Found",
1090                                    "fgOpenWindow" );
1091
1092     if( gameMode )
1093     {
1094         FREEGLUT_INTERNAL_ERROR_EXIT ( window->Parent == NULL,
1095                                        "Game mode being invoked on a subwindow",
1096                                        "fgOpenWindow" );
1097
1098         /*
1099          * Set the window creation flags appropriately to make the window
1100          * entirely visible:
1101          */
1102         flags = WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1103     }
1104     else
1105     {
1106         int worig = w, horig = h;
1107
1108 #if !defined(_WIN32_WCE)
1109         if ( ( ! isSubWindow ) && ( ! window->IsMenu ) )
1110         {
1111             /*
1112              * Update the window dimensions, taking account of window
1113              * decorations.  "freeglut" is to create the window with the
1114              * outside of its border at (x,y) and with dimensions (w,h).
1115              */
1116             w += (GetSystemMetrics( SM_CXSIZEFRAME ) )*2;
1117             h += (GetSystemMetrics( SM_CYSIZEFRAME ) )*2 +
1118                 GetSystemMetrics( SM_CYCAPTION );
1119         }
1120 #endif /* defined(_WIN32_WCE) */
1121
1122         if( ! positionUse )
1123         {
1124             x = CW_USEDEFAULT;
1125             y = CW_USEDEFAULT;
1126         }
1127         /* setting State.Width/Height to call resize callback later */
1128         if( ! sizeUse )
1129         {
1130             if( ! window->IsMenu )
1131             {
1132                 w = CW_USEDEFAULT;
1133                 h = CW_USEDEFAULT;
1134             }
1135             else /* fail safe - Windows can make a window of size (0, 0) */
1136                 w = h = 300; /* default window size */
1137             window->State.Width = window->State.Height = -1;
1138         }
1139         else
1140         {
1141             window->State.Width = worig;
1142             window->State.Height = horig;
1143         }
1144
1145         /*
1146          * There's a small difference between creating the top, child and
1147          * game mode windows
1148          */
1149         flags = WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1150
1151         if ( window->IsMenu )
1152         {
1153             flags |= WS_POPUP;
1154             exFlags |= WS_EX_TOOLWINDOW;
1155         }
1156 #if !defined(_WIN32_WCE)
1157         else if( window->Parent == NULL )
1158             flags |= WS_OVERLAPPEDWINDOW;
1159 #endif
1160         else
1161             flags |= WS_CHILD;
1162     }
1163
1164 #if defined(_WIN32_WCE)
1165     {
1166         wchar_t* wstr = fghWstrFromStr(title);
1167
1168         window->Window.Handle = CreateWindow(
1169             _T("FREEGLUT"),
1170             wstr,
1171             WS_VISIBLE | WS_POPUP,
1172             0,0, 240,320,
1173             NULL,
1174             NULL,
1175             fgDisplay.Instance,
1176             (LPVOID) window
1177         );
1178
1179         free(wstr);
1180
1181         SHFullScreen(window->Window.Handle, SHFS_HIDESTARTICON);
1182         SHFullScreen(window->Window.Handle, SHFS_HIDESIPBUTTON);
1183         SHFullScreen(window->Window.Handle, SHFS_HIDETASKBAR);
1184         MoveWindow(window->Window.Handle, 0, 0, 240, 320, TRUE);
1185         ShowWindow(window->Window.Handle, SW_SHOW);
1186         UpdateWindow(window->Window.Handle);
1187     }
1188 #else
1189     {
1190       /* xoff and yoff are used to place window relative to current display */
1191       /* The operation of gamemode also depends on this */
1192         int xoff=0,yoff=0;
1193         get_display_origin(&xoff,&yoff);
1194
1195         window->Window.Handle = CreateWindowEx(
1196             exFlags,
1197             _T("FREEGLUT"),
1198             title,
1199             flags,
1200             x+xoff, y+yoff, w, h,
1201             (HWND) window->Parent == NULL ? NULL : window->Parent->Window.Handle,
1202             (HMENU) NULL,
1203             fgDisplay.Instance,
1204             (LPVOID) window
1205         );
1206     }
1207 #endif /* defined(_WIN32_WCE) */
1208
1209     if( !( window->Window.Handle ) )
1210         fgError( "Failed to create a window (%s)!", title );
1211
1212     /* Make a menu window always on top - fix Feature Request 947118 */
1213     if( window->IsMenu || gameMode )
1214         SetWindowPos(
1215                         window->Window.Handle,
1216                         HWND_TOPMOST,
1217                         0, 0, 0, 0,
1218                         SWP_NOMOVE | SWP_NOSIZE
1219                     );
1220
1221     /* Hack to remove the caption (title bar) and/or border
1222      * and all the system menu controls.
1223      */
1224     WindowStyle = GetWindowLong(window->Window.Handle, GWL_STYLE);
1225     if ( fgState.DisplayMode & GLUT_CAPTIONLESS )
1226     {
1227         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1228                         WindowStyle & ~(WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1229     }
1230     else if ( fgState.DisplayMode & GLUT_BORDERLESS )
1231     {
1232         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1233                         WindowStyle & ~(WS_BORDER | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1234     }
1235 /*  SetWindowPos(window->Window.Handle, NULL, 0, 0, 0, 0,
1236      SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); */
1237
1238
1239 #if defined(_WIN32_WCE)
1240     ShowWindow( window->Window.Handle, SW_SHOW );
1241 #else
1242     ShowWindow( window->Window.Handle,
1243                 fgState.ForceIconic ? SW_SHOWMINIMIZED : SW_SHOW );
1244 #endif /* defined(_WIN32_WCE) */
1245
1246     UpdateWindow( window->Window.Handle );
1247     ShowCursor( TRUE );  /* XXX Old comments say "hide cursor"! */
1248
1249 #endif
1250
1251     fgSetWindow( window );
1252
1253     window->Window.DoubleBuffered =
1254         ( fgState.DisplayMode & GLUT_DOUBLE ) ? 1 : 0;
1255
1256     if ( ! window->Window.DoubleBuffered )
1257     {
1258         glDrawBuffer ( GL_FRONT );
1259         glReadBuffer ( GL_FRONT );
1260     }
1261 }
1262
1263 /*
1264  * Closes a window, destroying the frame and OpenGL context
1265  */
1266 void fgCloseWindow( SFG_Window* window )
1267 {
1268 #if TARGET_HOST_POSIX_X11
1269
1270     if( window->Window.Context )
1271         glXDestroyContext( fgDisplay.Display, window->Window.Context );
1272     XFree( window->Window.FBConfig );
1273     XDestroyWindow( fgDisplay.Display, window->Window.Handle );
1274     /* XFlush( fgDisplay.Display ); */ /* XXX Shouldn't need this */
1275
1276 #elif TARGET_HOST_MS_WINDOWS
1277
1278     /* Make sure we don't close a window with current context active */
1279     if( fgStructure.CurrentWindow == window )
1280         wglMakeCurrent( NULL, NULL );
1281
1282     /*
1283      * Step through the list of windows.  If the rendering context
1284      * is not being used by another window, then we delete it.
1285      */
1286     {
1287         int used = FALSE ;
1288         SFG_Window *iter ;
1289
1290         for( iter = (SFG_Window *)fgStructure.Windows.First;
1291              iter;
1292              iter = (SFG_Window *)iter->Node.Next )
1293         {
1294             if( ( iter->Window.Context == window->Window.Context ) &&
1295                 ( iter != window ) )
1296                 used = TRUE;
1297         }
1298
1299         if( ! used )
1300             wglDeleteContext( window->Window.Context );
1301     }
1302
1303     DestroyWindow( window->Window.Handle );
1304 #endif
1305 }
1306
1307
1308 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
1309
1310 /*
1311  * Creates a new top-level freeglut window
1312  */
1313 int FGAPIENTRY glutCreateWindow( const char* title )
1314 {
1315     /* XXX GLUT does not exit; it simply calls "glutInit" quietly if the
1316      * XXX application has not already done so.  The "freeglut" community
1317      * XXX decided not to go this route (freeglut-developer e-mail from
1318      * XXX Steve Baker, 12/16/04, 4:22 PM CST, "Re: [Freeglut-developer]
1319      * XXX Desired 'freeglut' behaviour when there is no current window"
1320      */
1321     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateWindow" );
1322
1323     return fgCreateWindow( NULL, title, fgState.Position.Use,
1324                            fgState.Position.X, fgState.Position.Y,
1325                            fgState.Size.Use, fgState.Size.X, fgState.Size.Y,
1326                            GL_FALSE, GL_FALSE )->ID;
1327 }
1328
1329 #if TARGET_HOST_MS_WINDOWS
1330 int FGAPIENTRY __glutCreateWindowWithExit( const char *title, void (__cdecl *exit_function)(int) )
1331 {
1332   __glutExitFunc = exit_function;
1333   return glutCreateWindow( title );
1334 }
1335 #endif
1336
1337 /*
1338  * This function creates a sub window.
1339  */
1340 int FGAPIENTRY glutCreateSubWindow( int parentID, int x, int y, int w, int h )
1341 {
1342     int ret = 0;
1343     SFG_Window* window = NULL;
1344     SFG_Window* parent = NULL;
1345
1346     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateSubWindow" );
1347     parent = fgWindowByID( parentID );
1348     freeglut_return_val_if_fail( parent != NULL, 0 );
1349     if ( x < 0 )
1350     {
1351         x = parent->State.Width + x ;
1352         if ( w >= 0 ) x -= w ;
1353     }
1354
1355     if ( w < 0 ) w = parent->State.Width - x + w ;
1356     if ( w < 0 )
1357     {
1358         x += w ;
1359         w = -w ;
1360     }
1361
1362     if ( y < 0 )
1363     {
1364         y = parent->State.Height + y ;
1365         if ( h >= 0 ) y -= h ;
1366     }
1367
1368     if ( h < 0 ) h = parent->State.Height - y + h ;
1369     if ( h < 0 )
1370     {
1371         y += h ;
1372         h = -h ;
1373     }
1374
1375     window = fgCreateWindow( parent, "", GL_TRUE, x, y, GL_TRUE, w, h, GL_FALSE, GL_FALSE );
1376     ret = window->ID;
1377
1378     return ret;
1379 }
1380
1381 /*
1382  * Destroys a window and all of its subwindows
1383  */
1384 void FGAPIENTRY glutDestroyWindow( int windowID )
1385 {
1386     SFG_Window* window;
1387     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyWindow" );
1388     window = fgWindowByID( windowID );
1389     freeglut_return_if_fail( window != NULL );
1390     {
1391         fgExecutionState ExecState = fgState.ExecState;
1392         fgAddToWindowDestroyList( window );
1393         fgState.ExecState = ExecState;
1394     }
1395 }
1396
1397 /*
1398  * This function selects the current window
1399  */
1400 void FGAPIENTRY glutSetWindow( int ID )
1401 {
1402     SFG_Window* window = NULL;
1403
1404     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindow" );
1405     if( fgStructure.CurrentWindow != NULL )
1406         if( fgStructure.CurrentWindow->ID == ID )
1407             return;
1408
1409     window = fgWindowByID( ID );
1410     if( window == NULL )
1411     {
1412         fgWarning( "glutSetWindow(): window ID %d not found!", ID );
1413         return;
1414     }
1415
1416     fgSetWindow( window );
1417 }
1418
1419 /*
1420  * This function returns the ID number of the current window, 0 if none exists
1421  */
1422 int FGAPIENTRY glutGetWindow( void )
1423 {
1424     SFG_Window *win = fgStructure.CurrentWindow;
1425     /*
1426      * Since GLUT did not throw an error if this function was called without a prior call to
1427      * "glutInit", this function shouldn't do so here.  Instead let us return a zero.
1428      * See Feature Request "[ 1307049 ] glutInit check".
1429      */
1430     if ( ! fgState.Initialised )
1431         return 0;
1432
1433     while ( win && win->IsMenu )
1434         win = win->Parent;
1435     return win ? win->ID : 0;
1436 }
1437
1438 /*
1439  * This function makes the current window visible
1440  */
1441 void FGAPIENTRY glutShowWindow( void )
1442 {
1443     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutShowWindow" );
1444     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutShowWindow" );
1445
1446 #if TARGET_HOST_POSIX_X11
1447
1448     XMapWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1449     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1450
1451 #elif TARGET_HOST_MS_WINDOWS
1452
1453     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_SHOW );
1454
1455 #endif
1456
1457     fgStructure.CurrentWindow->State.Redisplay = GL_TRUE;
1458 }
1459
1460 /*
1461  * This function hides the current window
1462  */
1463 void FGAPIENTRY glutHideWindow( void )
1464 {
1465     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutHideWindow" );
1466     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutHideWindow" );
1467
1468 #if TARGET_HOST_POSIX_X11
1469
1470     if( fgStructure.CurrentWindow->Parent == NULL )
1471         XWithdrawWindow( fgDisplay.Display,
1472                          fgStructure.CurrentWindow->Window.Handle,
1473                          fgDisplay.Screen );
1474     else
1475         XUnmapWindow( fgDisplay.Display,
1476                       fgStructure.CurrentWindow->Window.Handle );
1477     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1478
1479 #elif TARGET_HOST_MS_WINDOWS
1480
1481     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_HIDE );
1482
1483 #endif
1484
1485     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1486 }
1487
1488 /*
1489  * Iconify the current window (top-level windows only)
1490  */
1491 void FGAPIENTRY glutIconifyWindow( void )
1492 {
1493     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIconifyWindow" );
1494     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIconifyWindow" );
1495
1496     fgStructure.CurrentWindow->State.Visible   = GL_FALSE;
1497 #if TARGET_HOST_POSIX_X11
1498
1499     XIconifyWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1500                     fgDisplay.Screen );
1501     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1502
1503 #elif TARGET_HOST_MS_WINDOWS
1504
1505     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_MINIMIZE );
1506
1507 #endif
1508
1509     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1510 }
1511
1512 /*
1513  * Set the current window's title
1514  */
1515 void FGAPIENTRY glutSetWindowTitle( const char* title )
1516 {
1517     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowTitle" );
1518     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowTitle" );
1519     if( ! fgStructure.CurrentWindow->Parent )
1520     {
1521 #if TARGET_HOST_POSIX_X11
1522
1523         XTextProperty text;
1524
1525         text.value = (unsigned char *) title;
1526         text.encoding = XA_STRING;
1527         text.format = 8;
1528         text.nitems = strlen( title );
1529
1530         XSetWMName(
1531             fgDisplay.Display,
1532             fgStructure.CurrentWindow->Window.Handle,
1533             &text
1534         );
1535
1536         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1537
1538 #elif TARGET_HOST_MS_WINDOWS
1539 #    ifdef _WIN32_WCE
1540         {
1541             wchar_t* wstr = fghWstrFromStr(title);
1542             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1543             free(wstr);
1544         }
1545 #    else
1546         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1547 #    endif
1548
1549 #endif
1550     }
1551 }
1552
1553 /*
1554  * Set the current window's iconified title
1555  */
1556 void FGAPIENTRY glutSetIconTitle( const char* title )
1557 {
1558     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetIconTitle" );
1559     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetIconTitle" );
1560
1561     if( ! fgStructure.CurrentWindow->Parent )
1562     {
1563 #if TARGET_HOST_POSIX_X11
1564
1565         XTextProperty text;
1566
1567         text.value = (unsigned char *) title;
1568         text.encoding = XA_STRING;
1569         text.format = 8;
1570         text.nitems = strlen( title );
1571
1572         XSetWMIconName(
1573             fgDisplay.Display,
1574             fgStructure.CurrentWindow->Window.Handle,
1575             &text
1576         );
1577
1578         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1579
1580 #elif TARGET_HOST_MS_WINDOWS
1581 #    ifdef _WIN32_WCE
1582         {
1583             wchar_t* wstr = fghWstrFromStr(title);
1584             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1585             free(wstr);
1586         }
1587 #    else
1588         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1589 #    endif
1590
1591 #endif
1592     }
1593 }
1594
1595 /*
1596  * Change the current window's size
1597  */
1598 void FGAPIENTRY glutReshapeWindow( int width, int height )
1599 {
1600     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeWindow" );
1601     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutReshapeWindow" );
1602
1603     if (glutGet(GLUT_FULL_SCREEN))
1604     {
1605       /*  Leave full screen state before resizing. */
1606       glutFullScreenToggle();
1607     }
1608
1609     fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
1610     fgStructure.CurrentWindow->State.Width  = width ;
1611     fgStructure.CurrentWindow->State.Height = height;
1612 }
1613
1614 /*
1615  * Change the current window's position
1616  */
1617 void FGAPIENTRY glutPositionWindow( int x, int y )
1618 {
1619     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPositionWindow" );
1620     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPositionWindow" );
1621
1622     if (glutGet(GLUT_FULL_SCREEN))
1623     {
1624       /*  Leave full screen state before moving. */
1625       glutFullScreenToggle();
1626     }
1627
1628 #if TARGET_HOST_POSIX_X11
1629
1630     XMoveWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1631                  x, y );
1632     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1633
1634 #elif TARGET_HOST_MS_WINDOWS
1635
1636     {
1637         RECT winRect;
1638
1639         /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
1640         GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect );
1641         MoveWindow(
1642             fgStructure.CurrentWindow->Window.Handle,
1643             x,
1644             y,
1645             winRect.right - winRect.left,
1646             winRect.bottom - winRect.top,
1647             TRUE
1648         );
1649     }
1650
1651 #endif
1652 }
1653
1654 /*
1655  * Lowers the current window (by Z order change)
1656  */
1657 void FGAPIENTRY glutPushWindow( void )
1658 {
1659     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPushWindow" );
1660     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPushWindow" );
1661
1662 #if TARGET_HOST_POSIX_X11
1663
1664     XLowerWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1665
1666 #elif TARGET_HOST_MS_WINDOWS
1667
1668     SetWindowPos(
1669         fgStructure.CurrentWindow->Window.Handle,
1670         HWND_BOTTOM,
1671         0, 0, 0, 0,
1672         SWP_NOSIZE | SWP_NOMOVE
1673     );
1674
1675 #endif
1676 }
1677
1678 /*
1679  * Raises the current window (by Z order change)
1680  */
1681 void FGAPIENTRY glutPopWindow( void )
1682 {
1683     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPopWindow" );
1684     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPopWindow" );
1685
1686 #if TARGET_HOST_POSIX_X11
1687
1688     XRaiseWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1689
1690 #elif TARGET_HOST_MS_WINDOWS
1691
1692     SetWindowPos(
1693         fgStructure.CurrentWindow->Window.Handle,
1694         HWND_TOP,
1695         0, 0, 0, 0,
1696         SWP_NOSIZE | SWP_NOMOVE
1697     );
1698
1699 #endif
1700 }
1701
1702 /*
1703  * Resize the current window so that it fits the whole screen
1704  */
1705 void FGAPIENTRY glutFullScreen( void )
1706 {
1707     SFG_Window *win;
1708
1709     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" );
1710     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" );
1711
1712     win = fgStructure.CurrentWindow;
1713
1714 #if TARGET_HOST_POSIX_X11
1715     if(!glutGet(GLUT_FULL_SCREEN)) {
1716         if(fghToggleFullscreen() != -1) {
1717             win->State.IsFullscreen = GL_TRUE;
1718         }
1719     }
1720
1721 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE) /* FIXME: what about WinCE */
1722
1723     if (glutGet(GLUT_FULL_SCREEN))
1724     {
1725         /*  Leave full screen state before resizing. */
1726         glutFullScreenToggle();
1727     }
1728
1729     {
1730         RECT rect;
1731
1732         /* For fullscreen mode, force the top-left corner to 0,0
1733          * and adjust the window rectangle so that the client area
1734          * covers the whole screen.
1735          */
1736
1737         rect.left   = 0;
1738         rect.top    = 0;
1739         get_display_origin(&rect.left,&rect.top);
1740         rect.right  = fgDisplay.ScreenWidth+rect.left;
1741         rect.bottom = fgDisplay.ScreenHeight+rect.top;
1742
1743         AdjustWindowRect ( &rect, WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS |
1744                                   WS_CLIPCHILDREN, FALSE );
1745
1746         /*
1747          * SWP_NOACTIVATE     Do not activate the window
1748          * SWP_NOOWNERZORDER  Do not change position in z-order
1749          * SWP_NOSENDCHANGING Supress WM_WINDOWPOSCHANGING message
1750          * SWP_NOZORDER       Retains the current Z order (ignore 2nd param)
1751          */
1752
1753         SetWindowPos( fgStructure.CurrentWindow->Window.Handle,
1754                       HWND_TOP,
1755                       rect.left,
1756                       rect.top,
1757                       rect.right  - rect.left,
1758                       rect.bottom - rect.top,
1759                       SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
1760                       SWP_NOZORDER
1761                     );
1762
1763         win->State.IsFullscreen = GL_TRUE;
1764     }
1765 #endif
1766 }
1767
1768 /*
1769  * Toggle the window's full screen state.
1770  */
1771 void FGAPIENTRY glutFullScreenToggle( void )
1772 {
1773     SFG_Window *win;
1774
1775     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreenToggle" );
1776     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreenToggle" );
1777
1778     win = fgStructure.CurrentWindow;
1779
1780 #if TARGET_HOST_POSIX_X11
1781     if(fghToggleFullscreen() != -1) {
1782         win->State.IsFullscreen = !win->State.IsFullscreen;
1783     }
1784 #elif TARGET_HOST_MS_WINDOWS
1785     glutFullScreen();
1786     win->State.IsFullscreen = !win->State.IsFullscreen;
1787 #endif
1788 }
1789
1790 /*
1791  * A.Donev: Set and retrieve the window's user data
1792  */
1793 void* FGAPIENTRY glutGetWindowData( void )
1794 {
1795     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindowData" );
1796     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutGetWindowData" );
1797     return fgStructure.CurrentWindow->UserData;
1798 }
1799
1800 void FGAPIENTRY glutSetWindowData(void* data)
1801 {
1802     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowData" );
1803     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowData" );
1804     fgStructure.CurrentWindow->UserData = data;
1805 }
1806
1807 /*** END OF FILE ***/