e9da324a83f461c3871032b1a3baf4f51bc9f0cc
[freeglut] / 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( int *numcfgs )
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         if (numcfgs)
389                 *numcfgs = fbconfigArraySize;
390
391         return fbconfig;
392     }
393 }
394
395
396 static void fghFillContextAttributes( int *attributes ) {
397   int where = 0, contextFlags, contextProfile;
398
399   if ( !fghIsLegacyContextVersionRequested() ) {
400     ATTRIB_VAL( GLX_CONTEXT_MAJOR_VERSION_ARB, fgState.MajorVersion );
401     ATTRIB_VAL( GLX_CONTEXT_MINOR_VERSION_ARB, fgState.MinorVersion );
402   }
403
404   contextFlags =
405     fghMapBit( fgState.ContextFlags, GLUT_DEBUG, GLX_CONTEXT_DEBUG_BIT_ARB ) |
406     fghMapBit( fgState.ContextFlags, GLUT_FORWARD_COMPATIBLE, GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB );
407   if ( contextFlags != 0 ) {
408     ATTRIB_VAL( GLX_CONTEXT_FLAGS_ARB, contextFlags );
409   }
410
411   contextProfile =
412     fghMapBit( fgState.ContextProfile, GLUT_CORE_PROFILE, GLX_CONTEXT_CORE_PROFILE_BIT_ARB ) |
413     fghMapBit( fgState.ContextProfile, GLUT_COMPATIBILITY_PROFILE, GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB );
414   if ( contextProfile != 0 ) {
415     ATTRIB_VAL( GLX_CONTEXT_PROFILE_MASK_ARB, contextProfile );
416   }
417
418   ATTRIB( 0 );
419 }
420
421 typedef GLXContext (*CreateContextAttribsProc)(Display *dpy, GLXFBConfig config,
422                                                GLXContext share_list, Bool direct,
423                                                const int *attrib_list);
424
425 static GLXContext fghCreateNewContext( SFG_Window* window )
426 {
427   /* for color model calculation */
428   int menu = ( window->IsMenu && !fgStructure.MenuContext );
429   int index_mode = ( fgState.DisplayMode & GLUT_INDEX );
430
431   /* "classic" context creation */
432   Display *dpy = fgDisplay.Display;
433   GLXFBConfig config = *(window->Window.FBConfig);
434   int render_type = ( !menu && index_mode ) ? GLX_COLOR_INDEX_TYPE : GLX_RGBA_TYPE;
435   GLXContext share_list = NULL;
436   Bool direct = ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT );
437   GLXContext context;
438
439   /* new context creation */
440   int attributes[9];
441   CreateContextAttribsProc createContextAttribs;
442
443   /* If nothing fancy has been required, simply use the old context creation GLX API entry */
444   if ( fghIsLegacyContextRequested() )
445   {
446     context = glXCreateNewContext( dpy, config, render_type, share_list, direct );
447     if ( context == NULL ) {
448       fghContextCreationError();
449     }
450     return context;
451   }
452
453   /* color index mode is not available anymore with OpenGL 3.0 */
454   if ( render_type == GLX_COLOR_INDEX_TYPE ) {
455     fgWarning( "color index mode is deprecated, using RGBA mode" );
456   }
457
458   fghFillContextAttributes( attributes );
459
460   createContextAttribs = (CreateContextAttribsProc) fghGetProcAddress( "glXCreateContextAttribsARB" );
461   if ( createContextAttribs == NULL ) {
462     fgError( "glXCreateContextAttribsARB not found" );
463   }
464
465   context = createContextAttribs( dpy, config, share_list, direct, attributes );
466   if ( context == NULL ) {
467     fghContextCreationError();
468   }
469   return context;
470 }
471
472
473 #define _NET_WM_STATE_TOGGLE    2
474 static int fghResizeFullscrToggle(void)
475 {
476     XWindowAttributes attributes;
477
478     if(glutGet(GLUT_FULL_SCREEN)) {
479         /* restore original window size */
480         SFG_Window *win = fgStructure.CurrentWindow;
481         fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
482         fgStructure.CurrentWindow->State.Width  = win->State.OldWidth;
483         fgStructure.CurrentWindow->State.Height = win->State.OldHeight;
484
485     } else {
486         /* resize the window to cover the entire screen */
487         XGetWindowAttributes(fgDisplay.Display,
488                 fgStructure.CurrentWindow->Window.Handle,
489                 &attributes);
490         
491         /*
492          * The "x" and "y" members of "attributes" are the window's coordinates
493          * relative to its parent, i.e. to the decoration window.
494          */
495         XMoveResizeWindow(fgDisplay.Display,
496                 fgStructure.CurrentWindow->Window.Handle,
497                 -attributes.x,
498                 -attributes.y,
499                 fgDisplay.ScreenWidth,
500                 fgDisplay.ScreenHeight);
501     }
502     return 0;
503 }
504
505 static int fghEwmhFullscrToggle(void)
506 {
507     XEvent xev;
508     long evmask = SubstructureRedirectMask | SubstructureNotifyMask;
509
510     if(!fgDisplay.State || !fgDisplay.StateFullScreen) {
511         return -1;
512     }
513
514     xev.type = ClientMessage;
515     xev.xclient.window = fgStructure.CurrentWindow->Window.Handle;
516     xev.xclient.message_type = fgDisplay.State;
517     xev.xclient.format = 32;
518     xev.xclient.data.l[0] = _NET_WM_STATE_TOGGLE;
519     xev.xclient.data.l[1] = fgDisplay.StateFullScreen;
520     xev.xclient.data.l[2] = 0;  /* no second property to toggle */
521     xev.xclient.data.l[3] = 1;  /* source indication: application */
522     xev.xclient.data.l[4] = 0;  /* unused */
523
524     if(!XSendEvent(fgDisplay.Display, fgDisplay.RootWindow, 0, evmask, &xev)) {
525         return -1;
526     }
527     return 0;
528 }
529
530 static int fghToggleFullscreen(void)
531 {
532     /* first try the EWMH (_NET_WM_STATE) method ... */
533     if(fghEwmhFullscrToggle() != -1) {
534         return 0;
535     }
536
537     /* fall back to resizing the window */
538     if(fghResizeFullscrToggle() != -1) {
539         return 0;
540     }
541     return -1;
542 }
543
544
545 #endif  /* TARGET_HOST_POSIX_X11 */
546
547
548 #if TARGET_HOST_MS_WINDOWS
549 /*
550  * Setup the pixel format for a Win32 window
551  */
552
553 #if defined(_WIN32_WCE)
554 static wchar_t* fghWstrFromStr(const char* str)
555 {
556     int i,len=strlen(str);
557     wchar_t* wstr = (wchar_t*)malloc(2*len+2);
558     for(i=0; i<len; i++)
559         wstr[i] = str[i];
560     wstr[len] = 0;
561     return wstr;
562 }
563 #endif /* defined(_WIN32_WCE) */
564
565
566 static void fghFillContextAttributes( int *attributes ) {
567   int where = 0, contextFlags, contextProfile;
568
569   if ( !fghIsLegacyContextVersionRequested() ) {
570     ATTRIB_VAL( WGL_CONTEXT_MAJOR_VERSION_ARB, fgState.MajorVersion );
571     ATTRIB_VAL( WGL_CONTEXT_MINOR_VERSION_ARB, fgState.MinorVersion );
572   }
573
574   contextFlags =
575     fghMapBit( fgState.ContextFlags, GLUT_DEBUG, WGL_CONTEXT_DEBUG_BIT_ARB ) |
576     fghMapBit( fgState.ContextFlags, GLUT_FORWARD_COMPATIBLE, WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB );
577   if ( contextFlags != 0 ) {
578     ATTRIB_VAL( WGL_CONTEXT_FLAGS_ARB, contextFlags );
579   }
580
581   contextProfile =
582     fghMapBit( fgState.ContextProfile, GLUT_CORE_PROFILE, WGL_CONTEXT_CORE_PROFILE_BIT_ARB ) |
583     fghMapBit( fgState.ContextProfile, GLUT_COMPATIBILITY_PROFILE, WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB );
584   if ( contextProfile != 0 ) {
585     ATTRIB_VAL( WGL_CONTEXT_PROFILE_MASK_ARB, contextProfile );
586   }
587
588   ATTRIB( 0 );
589 }
590
591 static int fghIsExtensionSupported( HDC hdc, const char *extension ) {
592     const char *pWglExtString;
593     PFNWGLGETEXTENSIONSSTRINGARBPROC wglGetEntensionsStringARB =
594       (PFNWGLGETEXTENSIONSSTRINGARBPROC) wglGetProcAddress("wglGetExtensionsStringARB");
595     if ( wglGetEntensionsStringARB == NULL )
596     {
597       return FALSE;
598     }
599     pWglExtString = wglGetEntensionsStringARB( hdc );
600     return ( pWglExtString != NULL ) && ( strstr(pWglExtString, extension) != NULL );
601 }
602
603 void fgNewWGLCreateContext( SFG_Window* window )
604 {
605     HGLRC context;
606     int attributes[9];
607     PFNWGLCREATECONTEXTATTRIBSARBPROC wglCreateContextAttribsARB;
608
609     /* If nothing fancy has been required, leave the context as it is */
610     if ( fghIsLegacyContextRequested() )
611     {
612         return;
613     }
614
615     wglMakeCurrent( window->Window.Device, window->Window.Context );
616
617     if ( !fghIsExtensionSupported( window->Window.Device, "WGL_ARB_create_context" ) )
618     {
619         return;
620     }
621
622     /* new context creation */
623     fghFillContextAttributes( attributes );
624
625     wglCreateContextAttribsARB = (PFNWGLCREATECONTEXTATTRIBSARBPROC) wglGetProcAddress( "wglCreateContextAttribsARB" );
626     if ( wglCreateContextAttribsARB == NULL )
627     {
628         fgError( "wglCreateContextAttribsARB not found" );
629     }
630
631     context = wglCreateContextAttribsARB( window->Window.Device, 0, attributes );
632     if ( context == NULL )
633     {
634         fghContextCreationError();
635     }
636
637     wglMakeCurrent( NULL, NULL );
638     wglDeleteContext( window->Window.Context );
639     window->Window.Context = context;
640 }
641
642 #if !defined(_WIN32_WCE)
643
644 static void fghFillPFD( PIXELFORMATDESCRIPTOR *ppfd, HDC hdc, unsigned char layer_type )
645 {
646   int flags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL;
647   if ( fgState.DisplayMode & GLUT_DOUBLE ) {
648         flags |= PFD_DOUBLEBUFFER;
649   }
650   if ( fgState.DisplayMode & GLUT_STEREO ) {
651     flags |= PFD_STEREO;
652   }
653
654 #if defined(_MSC_VER)
655 #pragma message( "fgSetupPixelFormat(): there is still some work to do here!" )
656 #endif
657
658   /* Specify which pixel format do we opt for... */
659   ppfd->nSize = sizeof(PIXELFORMATDESCRIPTOR);
660   ppfd->nVersion = 1;
661   ppfd->dwFlags = flags;
662
663   if( fgState.DisplayMode & GLUT_INDEX ) {
664     ppfd->iPixelType = PFD_TYPE_COLORINDEX;
665     ppfd->cRedBits = 0;
666     ppfd->cGreenBits = 0;
667     ppfd->cBlueBits = 0;
668     ppfd->cAlphaBits = 0;
669   } else {
670     ppfd->iPixelType = PFD_TYPE_RGBA;
671     ppfd->cRedBits = 8;
672     ppfd->cGreenBits = 8;
673     ppfd->cBlueBits = 8;
674     ppfd->cAlphaBits = ( fgState.DisplayMode & GLUT_ALPHA ) ? 8 : 0;
675   }
676
677   ppfd->cColorBits = 24;
678   ppfd->cRedShift = 0;
679   ppfd->cGreenShift = 0;
680   ppfd->cBlueShift = 0;
681   ppfd->cAlphaShift = 0;
682   ppfd->cAccumBits = 0;
683   ppfd->cAccumRedBits = 0;
684   ppfd->cAccumGreenBits = 0;
685   ppfd->cAccumBlueBits = 0;
686   ppfd->cAccumAlphaBits = 0;
687
688   /* Hmmm, or 32/0 instead of 24/8? */
689   ppfd->cDepthBits = 24;
690   ppfd->cStencilBits = 8;
691
692   ppfd->cAuxBuffers = fghNumberOfAuxBuffersRequested();
693   ppfd->iLayerType = layer_type;
694   ppfd->bReserved = 0;
695   ppfd->dwLayerMask = 0;
696   ppfd->dwVisibleMask = 0;
697   ppfd->dwDamageMask = 0;
698   
699   ppfd->cColorBits = (BYTE) GetDeviceCaps( hdc, BITSPIXEL );
700 }
701
702 static void fghFillPixelFormatAttributes( int *attributes, const PIXELFORMATDESCRIPTOR *ppfd )
703 {
704   int where = 0;
705
706   ATTRIB_VAL( WGL_DRAW_TO_WINDOW_ARB, GL_TRUE );
707   ATTRIB_VAL( WGL_SUPPORT_OPENGL_ARB, GL_TRUE );
708   ATTRIB_VAL( WGL_ACCELERATION_ARB, WGL_FULL_ACCELERATION_ARB );
709
710   ATTRIB_VAL( WGL_COLOR_BITS_ARB, ppfd->cColorBits );
711   ATTRIB_VAL( WGL_ALPHA_BITS_ARB, ppfd->cAlphaBits );
712   ATTRIB_VAL( WGL_DEPTH_BITS_ARB, ppfd->cDepthBits );
713   ATTRIB_VAL( WGL_STENCIL_BITS_ARB, ppfd->cStencilBits );
714
715   ATTRIB_VAL( WGL_DOUBLE_BUFFER_ARB, ( fgState.DisplayMode & GLUT_DOUBLE ) != 0 );
716
717   if ( fgState.DisplayMode & GLUT_SRGB ) {
718     ATTRIB_VAL( WGL_FRAMEBUFFER_SRGB_CAPABLE_ARB, TRUE );
719   }
720
721   ATTRIB_VAL( WGL_SAMPLE_BUFFERS_ARB, GL_TRUE );
722   ATTRIB_VAL( WGL_SAMPLES_ARB, fgState.SampleNumber );
723   ATTRIB( 0 );
724 }
725 #endif
726
727 GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly,
728                               unsigned char layer_type )
729 {
730 #if defined(_WIN32_WCE)
731     return GL_TRUE;
732 #else
733     PIXELFORMATDESCRIPTOR pfd;
734     PIXELFORMATDESCRIPTOR* ppfd = &pfd;
735     int pixelformat;
736
737     fghFillPFD( ppfd, window->Window.Device, layer_type );
738     pixelformat = ChoosePixelFormat( window->Window.Device, ppfd );
739
740     /* windows hack for multismapling/sRGB */
741     if ( ( fgState.DisplayMode & GLUT_MULTISAMPLE ) ||
742          ( fgState.DisplayMode & GLUT_SRGB ) )
743     {        
744         HGLRC rc, rc_before=wglGetCurrentContext();
745         HWND hWnd;
746         HDC hDC, hDC_before=wglGetCurrentDC();
747         WNDCLASS wndCls;
748
749         /* create a dummy window */
750         ZeroMemory(&wndCls, sizeof(wndCls));
751         wndCls.lpfnWndProc = DefWindowProc;
752         wndCls.hInstance = fgDisplay.Instance;
753         wndCls.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
754         wndCls.lpszClassName = _T("FREEGLUT_dummy");
755         RegisterClass( &wndCls );
756
757         hWnd=CreateWindow(_T("FREEGLUT_dummy"), _T(""), WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_OVERLAPPEDWINDOW , 0,0,0,0, 0, 0, fgDisplay.Instance, 0 );
758         hDC=GetDC(hWnd);
759         SetPixelFormat( hDC, pixelformat, ppfd );
760         
761         rc = wglCreateContext( hDC );
762         wglMakeCurrent(hDC, rc);
763         
764         if ( fghIsExtensionSupported( hDC, "WGL_ARB_multisample" ) )
765         {
766             PFNWGLCHOOSEPIXELFORMATARBPROC wglChoosePixelFormatARBProc =
767               (PFNWGLCHOOSEPIXELFORMATARBPROC) wglGetProcAddress("wglChoosePixelFormatARB");
768             if ( wglChoosePixelFormatARBProc )
769             {
770                 int attributes[100];
771                 int iPixelFormat;
772                 BOOL bValid;
773                 float fAttributes[] = { 0, 0 };
774                 UINT numFormats;
775                 fghFillPixelFormatAttributes( attributes, ppfd );
776                 bValid = wglChoosePixelFormatARBProc(window->Window.Device, attributes, fAttributes, 1, &iPixelFormat, &numFormats);
777
778                 if ( bValid && numFormats > 0 )
779                 {
780                     pixelformat = iPixelFormat;
781                 }
782             }
783         }
784
785         wglMakeCurrent( hDC_before, rc_before);
786         wglDeleteContext(rc);
787         ReleaseDC(hWnd, hDC);
788         DestroyWindow(hWnd);
789         UnregisterClass(_T("FREEGLUT_dummy"), fgDisplay.Instance);
790     }
791
792     return ( pixelformat != 0 ) && ( checkOnly || SetPixelFormat( window->Window.Device, pixelformat, ppfd ) );
793 #endif /* defined(_WIN32_WCE) */
794 }
795
796 #endif  /* TARGET_HOST_MS_WINDOWS */
797
798 /*
799  * Sets the OpenGL context and the fgStructure "Current Window" pointer to
800  * the window structure passed in.
801  */
802 void fgSetWindow ( SFG_Window *window )
803 {
804 #if TARGET_HOST_POSIX_X11
805     if ( window )
806     {
807         glXMakeContextCurrent(
808             fgDisplay.Display,
809             window->Window.Handle,
810             window->Window.Handle,
811             window->Window.Context
812         );
813     }
814 #elif TARGET_HOST_MS_WINDOWS
815     if( fgStructure.CurrentWindow )
816         ReleaseDC( fgStructure.CurrentWindow->Window.Handle,
817                    fgStructure.CurrentWindow->Window.Device );
818
819     if ( window )
820     {
821         window->Window.Device = GetDC( window->Window.Handle );
822         wglMakeCurrent(
823             window->Window.Device,
824             window->Window.Context
825         );
826     }
827 #endif
828     fgStructure.CurrentWindow = window;
829 }
830
831 #if TARGET_HOST_MS_WINDOWS
832
833 #if(WINVER >= 0x500)
834 typedef struct {
835       int *x;
836       int *y;
837       const char *name;
838 }m_proc_t ;
839
840 static BOOL CALLBACK m_proc(HMONITOR mon,
841                             HDC hdc,
842                             LPRECT rect,
843                             LPARAM data)
844 {
845       m_proc_t *dp=(m_proc_t *)data;
846       MONITORINFOEX info;
847       BOOL res;
848       info.cbSize=sizeof(info);
849       res=GetMonitorInfo(mon,(LPMONITORINFO)&info);
850       if( res )
851       {
852           if( !strcmp(dp->name,info.szDevice) )
853           {
854               *(dp->x)=info.rcMonitor.left;
855               *(dp->y)=info.rcMonitor.top;
856               return FALSE;
857           }
858       }
859       return TRUE;
860 }
861
862 /* 
863  * this function is only used in fgOpenWindow. Currently it only sets 
864  * its output parameters, if the DisplayName is set in fgDisplay 
865  * (and if it is able to recognize the display)
866  */
867
868 static void get_display_origin(int *xp,int *yp)
869 {
870     if( fgDisplay.DisplayName )
871     {
872         m_proc_t st;
873         st.x=xp;
874         st.y=yp;
875         st.name=fgDisplay.DisplayName;
876         EnumDisplayMonitors(0,0,m_proc,(LPARAM)&st);
877      }
878 }
879 #else
880 #pragma message( "-display parameter only works if compiled with WINVER >= 0x0500")
881
882 static void get_display_origin(int *xp,int *yp)
883 {
884     if( fgDisplay.DisplayName )
885     {
886         fgWarning( "for working -display support FreeGLUT must be compiled with WINVER >= 0x0500");
887     }
888 }
889 #endif
890 #endif
891
892
893
894 /*
895  * Opens a window. Requires a SFG_Window object created and attached
896  * to the freeglut structure. OpenGL context is created here.
897  */
898 void fgOpenWindow( SFG_Window* window, const char* title,
899                    GLboolean positionUse, int x, int y,
900                    GLboolean sizeUse, int w, int h,
901                    GLboolean gameMode, GLboolean isSubWindow )
902 {
903 #if TARGET_HOST_POSIX_X11
904     XVisualInfo * visualInfo;
905     XSetWindowAttributes winAttr;
906     XTextProperty textProperty;
907     XSizeHints sizeHints;
908     XWMHints wmHints;
909     unsigned long mask;
910     int num_FBConfigs, i;
911     unsigned int current_DisplayMode = fgState.DisplayMode ;
912
913     /* Save the display mode if we are creating a menu window */
914     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
915         fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB ;
916
917     window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
918
919     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
920         fgState.DisplayMode = current_DisplayMode ;
921
922     if( ! window->Window.FBConfig )
923     {
924         /*
925          * The "fgChooseFBConfig" returned a null meaning that the visual
926          * context is not available.
927          * Try a couple of variations to see if they will work.
928          */
929         if( !( fgState.DisplayMode & GLUT_DOUBLE ) )
930         {
931             fgState.DisplayMode |= GLUT_DOUBLE ;
932             window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
933             fgState.DisplayMode &= ~GLUT_DOUBLE;
934         }
935
936         if( fgState.DisplayMode & GLUT_MULTISAMPLE )
937         {
938             fgState.DisplayMode &= ~GLUT_MULTISAMPLE ;
939             window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
940             fgState.DisplayMode |= GLUT_MULTISAMPLE;
941         }
942     }
943
944     FREEGLUT_INTERNAL_ERROR_EXIT( window->Window.FBConfig != NULL,
945                                   "FBConfig with necessary capabilities not found", "fgOpenWindow" );
946
947     /*  Get the X visual.  */
948     for (i = 0; i < num_FBConfigs; i++) {
949             visualInfo = glXGetVisualFromFBConfig( fgDisplay.Display,
950                                                    window->Window.FBConfig[i] );
951             if (visualInfo)
952                 break;
953     }
954
955     FREEGLUT_INTERNAL_ERROR_EXIT( visualInfo != NULL,
956                                   "visualInfo could not be retrieved from FBConfig", "fgOpenWindow" );
957
958     /*
959      * XXX HINT: the masks should be updated when adding/removing callbacks.
960      * XXX       This might speed up message processing. Is that true?
961      * XXX
962      * XXX A: Not appreciably, but it WILL make it easier to debug.
963      * XXX    Try tracing old GLUT and try tracing freeglut.  Old GLUT
964      * XXX    turns off events that it doesn't need and is a whole lot
965      * XXX    more pleasant to trace.  (Think mouse-motion!  Tons of
966      * XXX    ``bonus'' GUI events stream in.)
967      */
968     winAttr.event_mask        =
969         StructureNotifyMask | SubstructureNotifyMask | ExposureMask |
970         ButtonPressMask | ButtonReleaseMask | KeyPressMask | KeyReleaseMask |
971         VisibilityChangeMask | EnterWindowMask | LeaveWindowMask |
972         PointerMotionMask | ButtonMotionMask;
973     winAttr.background_pixmap = None;
974     winAttr.background_pixel  = 0;
975     winAttr.border_pixel      = 0;
976
977     winAttr.colormap = XCreateColormap(
978         fgDisplay.Display, fgDisplay.RootWindow,
979         visualInfo->visual, AllocNone
980     );
981
982     mask = CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask;
983
984     if( window->IsMenu || ( gameMode == GL_TRUE ) )
985     {
986         winAttr.override_redirect = True;
987         mask |= CWOverrideRedirect;
988     }
989
990     if( ! positionUse )
991         x = y = -1; /* default window position */
992     if( ! sizeUse )
993         w = h = 300; /* default window size */
994
995     window->Window.Handle = XCreateWindow(
996         fgDisplay.Display,
997         window->Parent == NULL ? fgDisplay.RootWindow :
998         window->Parent->Window.Handle,
999         x, y, w, h, 0,
1000         visualInfo->depth, InputOutput,
1001         visualInfo->visual, mask,
1002         &winAttr
1003     );
1004
1005     /*
1006      * The GLX context creation, possibly trying the direct context rendering
1007      *  or else use the current context if the user has so specified
1008      */
1009
1010     if( window->IsMenu )
1011     {
1012         /*
1013          * If there isn't already an OpenGL rendering context for menu
1014          * windows, make one
1015          */
1016         if( !fgStructure.MenuContext )
1017         {
1018             fgStructure.MenuContext =
1019                 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
1020             fgStructure.MenuContext->MContext = fghCreateNewContext( window );
1021         }
1022
1023         /* window->Window.Context = fgStructure.MenuContext->MContext; */
1024         window->Window.Context = fghCreateNewContext( window );
1025     }
1026     else if( fgState.UseCurrentContext )
1027     {
1028         window->Window.Context = glXGetCurrentContext( );
1029
1030         if( ! window->Window.Context )
1031             window->Window.Context = fghCreateNewContext( window );
1032     }
1033     else
1034         window->Window.Context = fghCreateNewContext( window );
1035
1036 #if !defined( __FreeBSD__ ) && !defined( __NetBSD__ )
1037     if(  !glXIsDirect( fgDisplay.Display, window->Window.Context ) )
1038     {
1039       if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT )
1040         fgError( "Unable to force direct context rendering for window '%s'",
1041                  title );
1042     }
1043 #endif
1044
1045     /*
1046      * XXX Assume the new window is visible by default
1047      * XXX Is this a  safe assumption?
1048      */
1049     window->State.Visible = GL_TRUE;
1050
1051     sizeHints.flags = 0;
1052     if ( positionUse )
1053         sizeHints.flags |= USPosition;
1054     if ( sizeUse )
1055         sizeHints.flags |= USSize;
1056
1057     /*
1058      * Fill in the size hints values now (the x, y, width and height
1059      * settings are obsolete, are there any more WMs that support them?)
1060      * Unless the X servers actually stop supporting these, we should
1061      * continue to fill them in.  It is *not* our place to tell the user
1062      * that they should replace a window manager that they like, and which
1063      * works, just because *we* think that it's not "modern" enough.
1064      */
1065     sizeHints.x      = x;
1066     sizeHints.y      = y;
1067     sizeHints.width  = w;
1068     sizeHints.height = h;
1069
1070     wmHints.flags = StateHint;
1071     wmHints.initial_state = fgState.ForceIconic ? IconicState : NormalState;
1072     /* Prepare the window and iconified window names... */
1073     XStringListToTextProperty( (char **) &title, 1, &textProperty );
1074
1075     XSetWMProperties(
1076         fgDisplay.Display,
1077         window->Window.Handle,
1078         &textProperty,
1079         &textProperty,
1080         0,
1081         0,
1082         &sizeHints,
1083         &wmHints,
1084         NULL
1085     );
1086     XFree( textProperty.value );
1087
1088     XSetWMProtocols( fgDisplay.Display, window->Window.Handle,
1089                      &fgDisplay.DeleteWindow, 1 );
1090
1091     glXMakeContextCurrent(
1092         fgDisplay.Display,
1093         window->Window.Handle,
1094         window->Window.Handle,
1095         window->Window.Context
1096     );
1097
1098     XMapWindow( fgDisplay.Display, window->Window.Handle );
1099
1100     XFree(visualInfo);
1101
1102 #elif TARGET_HOST_MS_WINDOWS
1103
1104     WNDCLASS wc;
1105     DWORD flags;
1106     DWORD exFlags = 0;
1107     ATOM atom;
1108     int WindowStyle = 0;
1109
1110     /* Grab the window class we have registered on glutInit(): */
1111     atom = GetClassInfo( fgDisplay.Instance, _T("FREEGLUT"), &wc );
1112     FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Info Not Found",
1113                                    "fgOpenWindow" );
1114
1115     if( gameMode )
1116     {
1117         FREEGLUT_INTERNAL_ERROR_EXIT ( window->Parent == NULL,
1118                                        "Game mode being invoked on a subwindow",
1119                                        "fgOpenWindow" );
1120
1121         /*
1122          * Set the window creation flags appropriately to make the window
1123          * entirely visible:
1124          */
1125         flags = WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1126     }
1127     else
1128     {
1129         int worig = w, horig = h;
1130
1131 #if !defined(_WIN32_WCE)
1132         if ( ( ! isSubWindow ) && ( ! window->IsMenu ) )
1133         {
1134             /*
1135              * Update the window dimensions, taking account of window
1136              * decorations.  "freeglut" is to create the window with the
1137              * outside of its border at (x,y) and with dimensions (w,h).
1138              */
1139             w += (GetSystemMetrics( SM_CXSIZEFRAME ) )*2;
1140             h += (GetSystemMetrics( SM_CYSIZEFRAME ) )*2 +
1141                 GetSystemMetrics( SM_CYCAPTION );
1142         }
1143 #endif /* defined(_WIN32_WCE) */
1144
1145         if( ! positionUse )
1146         {
1147             x = CW_USEDEFAULT;
1148             y = CW_USEDEFAULT;
1149         }
1150         /* setting State.Width/Height to call resize callback later */
1151         if( ! sizeUse )
1152         {
1153             if( ! window->IsMenu )
1154             {
1155                 w = CW_USEDEFAULT;
1156                 h = CW_USEDEFAULT;
1157             }
1158             else /* fail safe - Windows can make a window of size (0, 0) */
1159                 w = h = 300; /* default window size */
1160             window->State.Width = window->State.Height = -1;
1161         }
1162         else
1163         {
1164             window->State.Width = worig;
1165             window->State.Height = horig;
1166         }
1167
1168         /*
1169          * There's a small difference between creating the top, child and
1170          * game mode windows
1171          */
1172         flags = WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1173
1174         if ( window->IsMenu )
1175         {
1176             flags |= WS_POPUP;
1177             exFlags |= WS_EX_TOOLWINDOW;
1178         }
1179 #if !defined(_WIN32_WCE)
1180         else if( window->Parent == NULL )
1181             flags |= WS_OVERLAPPEDWINDOW;
1182 #endif
1183         else
1184             flags |= WS_CHILD;
1185     }
1186
1187 #if defined(_WIN32_WCE)
1188     {
1189         wchar_t* wstr = fghWstrFromStr(title);
1190
1191         window->Window.Handle = CreateWindow(
1192             _T("FREEGLUT"),
1193             wstr,
1194             WS_VISIBLE | WS_POPUP,
1195             0,0, 240,320,
1196             NULL,
1197             NULL,
1198             fgDisplay.Instance,
1199             (LPVOID) window
1200         );
1201
1202         free(wstr);
1203
1204         SHFullScreen(window->Window.Handle, SHFS_HIDESTARTICON);
1205         SHFullScreen(window->Window.Handle, SHFS_HIDESIPBUTTON);
1206         SHFullScreen(window->Window.Handle, SHFS_HIDETASKBAR);
1207         MoveWindow(window->Window.Handle, 0, 0, 240, 320, TRUE);
1208         ShowWindow(window->Window.Handle, SW_SHOW);
1209         UpdateWindow(window->Window.Handle);
1210     }
1211 #else
1212     {
1213       /* xoff and yoff are used to place window relative to current display */
1214       /* The operation of gamemode also depends on this */
1215         int xoff=0,yoff=0;
1216         get_display_origin(&xoff,&yoff);
1217
1218         window->Window.Handle = CreateWindowEx(
1219             exFlags,
1220             _T("FREEGLUT"),
1221             title,
1222             flags,
1223             x+xoff, y+yoff, w, h,
1224             (HWND) window->Parent == NULL ? NULL : window->Parent->Window.Handle,
1225             (HMENU) NULL,
1226             fgDisplay.Instance,
1227             (LPVOID) window
1228         );
1229     }
1230 #endif /* defined(_WIN32_WCE) */
1231
1232     if( !( window->Window.Handle ) )
1233         fgError( "Failed to create a window (%s)!", title );
1234
1235     /* Make a menu window always on top - fix Feature Request 947118 */
1236     if( window->IsMenu || gameMode )
1237         SetWindowPos(
1238                         window->Window.Handle,
1239                         HWND_TOPMOST,
1240                         0, 0, 0, 0,
1241                         SWP_NOMOVE | SWP_NOSIZE
1242                     );
1243
1244     /* Hack to remove the caption (title bar) and/or border
1245      * and all the system menu controls.
1246      */
1247     WindowStyle = GetWindowLong(window->Window.Handle, GWL_STYLE);
1248     if ( fgState.DisplayMode & GLUT_CAPTIONLESS )
1249     {
1250         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1251                         WindowStyle & ~(WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1252     }
1253     else if ( fgState.DisplayMode & GLUT_BORDERLESS )
1254     {
1255         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1256                         WindowStyle & ~(WS_BORDER | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1257     }
1258 /*  SetWindowPos(window->Window.Handle, NULL, 0, 0, 0, 0,
1259      SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); */
1260
1261
1262 #if defined(_WIN32_WCE)
1263     ShowWindow( window->Window.Handle, SW_SHOW );
1264 #else
1265     ShowWindow( window->Window.Handle,
1266                 fgState.ForceIconic ? SW_SHOWMINIMIZED : SW_SHOW );
1267 #endif /* defined(_WIN32_WCE) */
1268
1269     UpdateWindow( window->Window.Handle );
1270     ShowCursor( TRUE );  /* XXX Old comments say "hide cursor"! */
1271
1272 #endif
1273
1274     fgSetWindow( window );
1275
1276     window->Window.DoubleBuffered =
1277         ( fgState.DisplayMode & GLUT_DOUBLE ) ? 1 : 0;
1278
1279     if ( ! window->Window.DoubleBuffered )
1280     {
1281         glDrawBuffer ( GL_FRONT );
1282         glReadBuffer ( GL_FRONT );
1283     }
1284 }
1285
1286 /*
1287  * Closes a window, destroying the frame and OpenGL context
1288  */
1289 void fgCloseWindow( SFG_Window* window )
1290 {
1291 #if TARGET_HOST_POSIX_X11
1292
1293     if( window->Window.Context )
1294         glXDestroyContext( fgDisplay.Display, window->Window.Context );
1295     XFree( window->Window.FBConfig );
1296
1297     if( window->Window.Handle ) {
1298         XDestroyWindow( fgDisplay.Display, window->Window.Handle );
1299     }
1300     /* XFlush( fgDisplay.Display ); */ /* XXX Shouldn't need this */
1301
1302 #elif TARGET_HOST_MS_WINDOWS
1303
1304     /* Make sure we don't close a window with current context active */
1305     if( fgStructure.CurrentWindow == window )
1306         wglMakeCurrent( NULL, NULL );
1307
1308     /*
1309      * Step through the list of windows.  If the rendering context
1310      * is not being used by another window, then we delete it.
1311      */
1312     {
1313         int used = FALSE ;
1314         SFG_Window *iter ;
1315
1316         for( iter = (SFG_Window *)fgStructure.Windows.First;
1317              iter;
1318              iter = (SFG_Window *)iter->Node.Next )
1319         {
1320             if( ( iter->Window.Context == window->Window.Context ) &&
1321                 ( iter != window ) )
1322                 used = TRUE;
1323         }
1324
1325         if( ! used )
1326             wglDeleteContext( window->Window.Context );
1327     }
1328
1329     DestroyWindow( window->Window.Handle );
1330 #endif
1331 }
1332
1333
1334 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
1335
1336 /*
1337  * Creates a new top-level freeglut window
1338  */
1339 int FGAPIENTRY glutCreateWindow( const char* title )
1340 {
1341     /* XXX GLUT does not exit; it simply calls "glutInit" quietly if the
1342      * XXX application has not already done so.  The "freeglut" community
1343      * XXX decided not to go this route (freeglut-developer e-mail from
1344      * XXX Steve Baker, 12/16/04, 4:22 PM CST, "Re: [Freeglut-developer]
1345      * XXX Desired 'freeglut' behaviour when there is no current window"
1346      */
1347     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateWindow" );
1348
1349     return fgCreateWindow( NULL, title, fgState.Position.Use,
1350                            fgState.Position.X, fgState.Position.Y,
1351                            fgState.Size.Use, fgState.Size.X, fgState.Size.Y,
1352                            GL_FALSE, GL_FALSE )->ID;
1353 }
1354
1355 #if TARGET_HOST_MS_WINDOWS
1356 int FGAPIENTRY __glutCreateWindowWithExit( const char *title, void (__cdecl *exit_function)(int) )
1357 {
1358   __glutExitFunc = exit_function;
1359   return glutCreateWindow( title );
1360 }
1361 #endif
1362
1363 /*
1364  * This function creates a sub window.
1365  */
1366 int FGAPIENTRY glutCreateSubWindow( int parentID, int x, int y, int w, int h )
1367 {
1368     int ret = 0;
1369     SFG_Window* window = NULL;
1370     SFG_Window* parent = NULL;
1371
1372     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateSubWindow" );
1373     parent = fgWindowByID( parentID );
1374     freeglut_return_val_if_fail( parent != NULL, 0 );
1375     if ( x < 0 )
1376     {
1377         x = parent->State.Width + x ;
1378         if ( w >= 0 ) x -= w ;
1379     }
1380
1381     if ( w < 0 ) w = parent->State.Width - x + w ;
1382     if ( w < 0 )
1383     {
1384         x += w ;
1385         w = -w ;
1386     }
1387
1388     if ( y < 0 )
1389     {
1390         y = parent->State.Height + y ;
1391         if ( h >= 0 ) y -= h ;
1392     }
1393
1394     if ( h < 0 ) h = parent->State.Height - y + h ;
1395     if ( h < 0 )
1396     {
1397         y += h ;
1398         h = -h ;
1399     }
1400
1401     window = fgCreateWindow( parent, "", GL_TRUE, x, y, GL_TRUE, w, h, GL_FALSE, GL_FALSE );
1402     ret = window->ID;
1403
1404     return ret;
1405 }
1406
1407 /*
1408  * Destroys a window and all of its subwindows
1409  */
1410 void FGAPIENTRY glutDestroyWindow( int windowID )
1411 {
1412     SFG_Window* window;
1413     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyWindow" );
1414     window = fgWindowByID( windowID );
1415     freeglut_return_if_fail( window != NULL );
1416     {
1417         fgExecutionState ExecState = fgState.ExecState;
1418         fgAddToWindowDestroyList( window );
1419         fgState.ExecState = ExecState;
1420     }
1421 }
1422
1423 /*
1424  * This function selects the current window
1425  */
1426 void FGAPIENTRY glutSetWindow( int ID )
1427 {
1428     SFG_Window* window = NULL;
1429
1430     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindow" );
1431     if( fgStructure.CurrentWindow != NULL )
1432         if( fgStructure.CurrentWindow->ID == ID )
1433             return;
1434
1435     window = fgWindowByID( ID );
1436     if( window == NULL )
1437     {
1438         fgWarning( "glutSetWindow(): window ID %d not found!", ID );
1439         return;
1440     }
1441
1442     fgSetWindow( window );
1443 }
1444
1445 /*
1446  * This function returns the ID number of the current window, 0 if none exists
1447  */
1448 int FGAPIENTRY glutGetWindow( void )
1449 {
1450     SFG_Window *win = fgStructure.CurrentWindow;
1451     /*
1452      * Since GLUT did not throw an error if this function was called without a prior call to
1453      * "glutInit", this function shouldn't do so here.  Instead let us return a zero.
1454      * See Feature Request "[ 1307049 ] glutInit check".
1455      */
1456     if ( ! fgState.Initialised )
1457         return 0;
1458
1459     while ( win && win->IsMenu )
1460         win = win->Parent;
1461     return win ? win->ID : 0;
1462 }
1463
1464 /*
1465  * This function makes the current window visible
1466  */
1467 void FGAPIENTRY glutShowWindow( void )
1468 {
1469     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutShowWindow" );
1470     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutShowWindow" );
1471
1472 #if TARGET_HOST_POSIX_X11
1473
1474     XMapWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1475     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1476
1477 #elif TARGET_HOST_MS_WINDOWS
1478
1479     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_SHOW );
1480
1481 #endif
1482
1483     fgStructure.CurrentWindow->State.Redisplay = GL_TRUE;
1484 }
1485
1486 /*
1487  * This function hides the current window
1488  */
1489 void FGAPIENTRY glutHideWindow( void )
1490 {
1491     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutHideWindow" );
1492     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutHideWindow" );
1493
1494 #if TARGET_HOST_POSIX_X11
1495
1496     if( fgStructure.CurrentWindow->Parent == NULL )
1497         XWithdrawWindow( fgDisplay.Display,
1498                          fgStructure.CurrentWindow->Window.Handle,
1499                          fgDisplay.Screen );
1500     else
1501         XUnmapWindow( fgDisplay.Display,
1502                       fgStructure.CurrentWindow->Window.Handle );
1503     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1504
1505 #elif TARGET_HOST_MS_WINDOWS
1506
1507     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_HIDE );
1508
1509 #endif
1510
1511     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1512 }
1513
1514 /*
1515  * Iconify the current window (top-level windows only)
1516  */
1517 void FGAPIENTRY glutIconifyWindow( void )
1518 {
1519     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIconifyWindow" );
1520     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIconifyWindow" );
1521
1522     fgStructure.CurrentWindow->State.Visible   = GL_FALSE;
1523 #if TARGET_HOST_POSIX_X11
1524
1525     XIconifyWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1526                     fgDisplay.Screen );
1527     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1528
1529 #elif TARGET_HOST_MS_WINDOWS
1530
1531     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_MINIMIZE );
1532
1533 #endif
1534
1535     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1536 }
1537
1538 /*
1539  * Set the current window's title
1540  */
1541 void FGAPIENTRY glutSetWindowTitle( const char* title )
1542 {
1543     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowTitle" );
1544     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowTitle" );
1545     if( ! fgStructure.CurrentWindow->Parent )
1546     {
1547 #if TARGET_HOST_POSIX_X11
1548
1549         XTextProperty text;
1550
1551         text.value = (unsigned char *) title;
1552         text.encoding = XA_STRING;
1553         text.format = 8;
1554         text.nitems = strlen( title );
1555
1556         XSetWMName(
1557             fgDisplay.Display,
1558             fgStructure.CurrentWindow->Window.Handle,
1559             &text
1560         );
1561
1562         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1563
1564 #elif TARGET_HOST_MS_WINDOWS
1565 #    ifdef _WIN32_WCE
1566         {
1567             wchar_t* wstr = fghWstrFromStr(title);
1568             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1569             free(wstr);
1570         }
1571 #    else
1572         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1573 #    endif
1574
1575 #endif
1576     }
1577 }
1578
1579 /*
1580  * Set the current window's iconified title
1581  */
1582 void FGAPIENTRY glutSetIconTitle( const char* title )
1583 {
1584     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetIconTitle" );
1585     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetIconTitle" );
1586
1587     if( ! fgStructure.CurrentWindow->Parent )
1588     {
1589 #if TARGET_HOST_POSIX_X11
1590
1591         XTextProperty text;
1592
1593         text.value = (unsigned char *) title;
1594         text.encoding = XA_STRING;
1595         text.format = 8;
1596         text.nitems = strlen( title );
1597
1598         XSetWMIconName(
1599             fgDisplay.Display,
1600             fgStructure.CurrentWindow->Window.Handle,
1601             &text
1602         );
1603
1604         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1605
1606 #elif TARGET_HOST_MS_WINDOWS
1607 #    ifdef _WIN32_WCE
1608         {
1609             wchar_t* wstr = fghWstrFromStr(title);
1610             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1611             free(wstr);
1612         }
1613 #    else
1614         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1615 #    endif
1616
1617 #endif
1618     }
1619 }
1620
1621 /*
1622  * Change the current window's size
1623  */
1624 void FGAPIENTRY glutReshapeWindow( int width, int height )
1625 {
1626     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeWindow" );
1627     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutReshapeWindow" );
1628
1629     if (glutGet(GLUT_FULL_SCREEN))
1630     {
1631       /*  Leave full screen state before resizing. */
1632       glutFullScreenToggle();
1633     }
1634
1635     fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
1636     fgStructure.CurrentWindow->State.Width  = width ;
1637     fgStructure.CurrentWindow->State.Height = height;
1638 }
1639
1640 /*
1641  * Change the current window's position
1642  */
1643 void FGAPIENTRY glutPositionWindow( int x, int y )
1644 {
1645     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPositionWindow" );
1646     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPositionWindow" );
1647
1648     if (glutGet(GLUT_FULL_SCREEN))
1649     {
1650       /*  Leave full screen state before moving. */
1651       glutFullScreenToggle();
1652     }
1653
1654 #if TARGET_HOST_POSIX_X11
1655
1656     XMoveWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1657                  x, y );
1658     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1659
1660 #elif TARGET_HOST_MS_WINDOWS
1661
1662     {
1663         RECT winRect;
1664
1665         /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
1666         GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect );
1667         MoveWindow(
1668             fgStructure.CurrentWindow->Window.Handle,
1669             x,
1670             y,
1671             winRect.right - winRect.left,
1672             winRect.bottom - winRect.top,
1673             TRUE
1674         );
1675     }
1676
1677 #endif
1678 }
1679
1680 /*
1681  * Lowers the current window (by Z order change)
1682  */
1683 void FGAPIENTRY glutPushWindow( void )
1684 {
1685     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPushWindow" );
1686     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPushWindow" );
1687
1688 #if TARGET_HOST_POSIX_X11
1689
1690     XLowerWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1691
1692 #elif TARGET_HOST_MS_WINDOWS
1693
1694     SetWindowPos(
1695         fgStructure.CurrentWindow->Window.Handle,
1696         HWND_BOTTOM,
1697         0, 0, 0, 0,
1698         SWP_NOSIZE | SWP_NOMOVE
1699     );
1700
1701 #endif
1702 }
1703
1704 /*
1705  * Raises the current window (by Z order change)
1706  */
1707 void FGAPIENTRY glutPopWindow( void )
1708 {
1709     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPopWindow" );
1710     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPopWindow" );
1711
1712 #if TARGET_HOST_POSIX_X11
1713
1714     XRaiseWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1715
1716 #elif TARGET_HOST_MS_WINDOWS
1717
1718     SetWindowPos(
1719         fgStructure.CurrentWindow->Window.Handle,
1720         HWND_TOP,
1721         0, 0, 0, 0,
1722         SWP_NOSIZE | SWP_NOMOVE
1723     );
1724
1725 #endif
1726 }
1727
1728 /*
1729  * Resize the current window so that it fits the whole screen
1730  */
1731 void FGAPIENTRY glutFullScreen( void )
1732 {
1733     SFG_Window *win;
1734
1735     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" );
1736     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" );
1737
1738     win = fgStructure.CurrentWindow;
1739
1740 #if TARGET_HOST_POSIX_X11
1741     if(!glutGet(GLUT_FULL_SCREEN)) {
1742         if(fghToggleFullscreen() != -1) {
1743             win->State.IsFullscreen = GL_TRUE;
1744         }
1745     }
1746
1747 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE) /* FIXME: what about WinCE */
1748
1749     if (glutGet(GLUT_FULL_SCREEN))
1750     {
1751         /*  Leave full screen state before resizing. */
1752         glutFullScreenToggle();
1753     }
1754
1755     {
1756         RECT rect;
1757
1758         /* For fullscreen mode, force the top-left corner to 0,0
1759          * and adjust the window rectangle so that the client area
1760          * covers the whole screen.
1761          */
1762
1763         rect.left   = 0;
1764         rect.top    = 0;
1765         get_display_origin(&rect.left,&rect.top);
1766         rect.right  = fgDisplay.ScreenWidth+rect.left;
1767         rect.bottom = fgDisplay.ScreenHeight+rect.top;
1768
1769         AdjustWindowRect ( &rect, WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS |
1770                                   WS_CLIPCHILDREN, FALSE );
1771
1772         /*
1773          * SWP_NOACTIVATE     Do not activate the window
1774          * SWP_NOOWNERZORDER  Do not change position in z-order
1775          * SWP_NOSENDCHANGING Supress WM_WINDOWPOSCHANGING message
1776          * SWP_NOZORDER       Retains the current Z order (ignore 2nd param)
1777          */
1778
1779         SetWindowPos( fgStructure.CurrentWindow->Window.Handle,
1780                       HWND_TOP,
1781                       rect.left,
1782                       rect.top,
1783                       rect.right  - rect.left,
1784                       rect.bottom - rect.top,
1785                       SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
1786                       SWP_NOZORDER
1787                     );
1788         
1789         win->State.IsFullscreen = GL_TRUE;
1790     }
1791 #endif
1792 }
1793
1794 /*
1795  * Toggle the window's full screen state.
1796  */
1797 void FGAPIENTRY glutFullScreenToggle( void )
1798 {
1799     SFG_Window *win;
1800
1801     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreenToggle" );
1802     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreenToggle" );
1803
1804     win = fgStructure.CurrentWindow;
1805
1806 #if TARGET_HOST_POSIX_X11
1807     if(fghToggleFullscreen() != -1) {
1808         win->State.IsFullscreen = !win->State.IsFullscreen;
1809     }
1810 #elif TARGET_HOST_MS_WINDOWS
1811     glutFullScreen();
1812     win->State.IsFullscreen = !win->State.IsFullscreen;
1813 #endif
1814 }
1815
1816 /*
1817  * A.Donev: Set and retrieve the window's user data
1818  */
1819 void* FGAPIENTRY glutGetWindowData( void )
1820 {
1821     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindowData" );
1822     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutGetWindowData" );
1823     return fgStructure.CurrentWindow->UserData;
1824 }
1825
1826 void FGAPIENTRY glutSetWindowData(void* data)
1827 {
1828     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowData" );
1829     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowData" );
1830     fgStructure.CurrentWindow->UserData = data;
1831 }
1832
1833 /*** END OF FILE ***/