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