Fixing bug report 3021598 by modifying "glutSetWindow" under Windows so that it only...
[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 ( window != fgStructure.CurrentWindow )
816     {
817         if( fgStructure.CurrentWindow )
818             ReleaseDC( fgStructure.CurrentWindow->Window.Handle,
819                        fgStructure.CurrentWindow->Window.Device );
820
821         if ( window )
822         {
823             window->Window.Device = GetDC( window->Window.Handle );
824             wglMakeCurrent(
825                 window->Window.Device,
826                 window->Window.Context
827             );
828         }
829     }
830 #endif
831     fgStructure.CurrentWindow = window;
832 }
833
834 #if TARGET_HOST_MS_WINDOWS
835
836 #if(WINVER >= 0x500)
837 typedef struct {
838       int *x;
839       int *y;
840       const char *name;
841 }m_proc_t ;
842
843 static BOOL CALLBACK m_proc(HMONITOR mon,
844                             HDC hdc,
845                             LPRECT rect,
846                             LPARAM data)
847 {
848       m_proc_t *dp=(m_proc_t *)data;
849       MONITORINFOEX info;
850       BOOL res;
851       info.cbSize=sizeof(info);
852       res=GetMonitorInfo(mon,(LPMONITORINFO)&info);
853       if( res )
854       {
855           if( !strcmp(dp->name,info.szDevice) )
856           {
857               *(dp->x)=info.rcMonitor.left;
858               *(dp->y)=info.rcMonitor.top;
859               return FALSE;
860           }
861       }
862       return TRUE;
863 }
864
865 /* 
866  * this function is only used in fgOpenWindow. Currently it only sets 
867  * its output parameters, if the DisplayName is set in fgDisplay 
868  * (and if it is able to recognize the display)
869  */
870
871 static void get_display_origin(int *xp,int *yp)
872 {
873     if( fgDisplay.DisplayName )
874     {
875         m_proc_t st;
876         st.x=xp;
877         st.y=yp;
878         st.name=fgDisplay.DisplayName;
879         EnumDisplayMonitors(0,0,m_proc,(LPARAM)&st);
880      }
881 }
882 #else
883 #pragma message( "-display parameter only works if compiled with WINVER >= 0x0500")
884
885 static void get_display_origin(int *xp,int *yp)
886 {
887     if( fgDisplay.DisplayName )
888     {
889         fgWarning( "for working -display support FreeGLUT must be compiled with WINVER >= 0x0500");
890     }
891 }
892 #endif
893 #endif
894
895
896
897 /*
898  * Opens a window. Requires a SFG_Window object created and attached
899  * to the freeglut structure. OpenGL context is created here.
900  */
901 void fgOpenWindow( SFG_Window* window, const char* title,
902                    GLboolean positionUse, int x, int y,
903                    GLboolean sizeUse, int w, int h,
904                    GLboolean gameMode, GLboolean isSubWindow )
905 {
906 #if TARGET_HOST_POSIX_X11
907     XVisualInfo * visualInfo;
908     XSetWindowAttributes winAttr;
909     XTextProperty textProperty;
910     XSizeHints sizeHints;
911     XWMHints wmHints;
912     unsigned long mask;
913     int num_FBConfigs, i;
914     unsigned int current_DisplayMode = fgState.DisplayMode ;
915
916     /* Save the display mode if we are creating a menu window */
917     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
918         fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB ;
919
920     window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
921
922     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
923         fgState.DisplayMode = current_DisplayMode ;
924
925     if( ! window->Window.FBConfig )
926     {
927         /*
928          * The "fgChooseFBConfig" returned a null meaning that the visual
929          * context is not available.
930          * Try a couple of variations to see if they will work.
931          */
932         if( !( fgState.DisplayMode & GLUT_DOUBLE ) )
933         {
934             fgState.DisplayMode |= GLUT_DOUBLE ;
935             window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
936             fgState.DisplayMode &= ~GLUT_DOUBLE;
937         }
938
939         if( fgState.DisplayMode & GLUT_MULTISAMPLE )
940         {
941             fgState.DisplayMode &= ~GLUT_MULTISAMPLE ;
942             window->Window.FBConfig = fgChooseFBConfig( &num_FBConfigs );
943             fgState.DisplayMode |= GLUT_MULTISAMPLE;
944         }
945     }
946
947     FREEGLUT_INTERNAL_ERROR_EXIT( window->Window.FBConfig != NULL,
948                                   "FBConfig with necessary capabilities not found", "fgOpenWindow" );
949
950     /*  Get the X visual.  */
951     for (i = 0; i < num_FBConfigs; i++) {
952             visualInfo = glXGetVisualFromFBConfig( fgDisplay.Display,
953                                                    window->Window.FBConfig[i] );
954             if (visualInfo)
955                 break;
956     }
957
958     FREEGLUT_INTERNAL_ERROR_EXIT( visualInfo != NULL,
959                                   "visualInfo could not be retrieved from FBConfig", "fgOpenWindow" );
960
961     /*
962      * XXX HINT: the masks should be updated when adding/removing callbacks.
963      * XXX       This might speed up message processing. Is that true?
964      * XXX
965      * XXX A: Not appreciably, but it WILL make it easier to debug.
966      * XXX    Try tracing old GLUT and try tracing freeglut.  Old GLUT
967      * XXX    turns off events that it doesn't need and is a whole lot
968      * XXX    more pleasant to trace.  (Think mouse-motion!  Tons of
969      * XXX    ``bonus'' GUI events stream in.)
970      */
971     winAttr.event_mask        =
972         StructureNotifyMask | SubstructureNotifyMask | ExposureMask |
973         ButtonPressMask | ButtonReleaseMask | KeyPressMask | KeyReleaseMask |
974         VisibilityChangeMask | EnterWindowMask | LeaveWindowMask |
975         PointerMotionMask | ButtonMotionMask;
976     winAttr.background_pixmap = None;
977     winAttr.background_pixel  = 0;
978     winAttr.border_pixel      = 0;
979
980     winAttr.colormap = XCreateColormap(
981         fgDisplay.Display, fgDisplay.RootWindow,
982         visualInfo->visual, AllocNone
983     );
984
985     mask = CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask;
986
987     if( window->IsMenu || ( gameMode == GL_TRUE ) )
988     {
989         winAttr.override_redirect = True;
990         mask |= CWOverrideRedirect;
991     }
992
993     if( ! positionUse )
994         x = y = -1; /* default window position */
995     if( ! sizeUse )
996         w = h = 300; /* default window size */
997
998     window->Window.Handle = XCreateWindow(
999         fgDisplay.Display,
1000         window->Parent == NULL ? fgDisplay.RootWindow :
1001         window->Parent->Window.Handle,
1002         x, y, w, h, 0,
1003         visualInfo->depth, InputOutput,
1004         visualInfo->visual, mask,
1005         &winAttr
1006     );
1007
1008     /*
1009      * The GLX context creation, possibly trying the direct context rendering
1010      *  or else use the current context if the user has so specified
1011      */
1012
1013     if( window->IsMenu )
1014     {
1015         /*
1016          * If there isn't already an OpenGL rendering context for menu
1017          * windows, make one
1018          */
1019         if( !fgStructure.MenuContext )
1020         {
1021             fgStructure.MenuContext =
1022                 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
1023             fgStructure.MenuContext->MContext = fghCreateNewContext( window );
1024         }
1025
1026         /* window->Window.Context = fgStructure.MenuContext->MContext; */
1027         window->Window.Context = fghCreateNewContext( window );
1028     }
1029     else if( fgState.UseCurrentContext )
1030     {
1031         window->Window.Context = glXGetCurrentContext( );
1032
1033         if( ! window->Window.Context )
1034             window->Window.Context = fghCreateNewContext( window );
1035     }
1036     else
1037         window->Window.Context = fghCreateNewContext( window );
1038
1039 #if !defined( __FreeBSD__ ) && !defined( __NetBSD__ )
1040     if(  !glXIsDirect( fgDisplay.Display, window->Window.Context ) )
1041     {
1042       if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT )
1043         fgError( "Unable to force direct context rendering for window '%s'",
1044                  title );
1045     }
1046 #endif
1047
1048     /*
1049      * XXX Assume the new window is visible by default
1050      * XXX Is this a  safe assumption?
1051      */
1052     window->State.Visible = GL_TRUE;
1053
1054     sizeHints.flags = 0;
1055     if ( positionUse )
1056         sizeHints.flags |= USPosition;
1057     if ( sizeUse )
1058         sizeHints.flags |= USSize;
1059
1060     /*
1061      * Fill in the size hints values now (the x, y, width and height
1062      * settings are obsolete, are there any more WMs that support them?)
1063      * Unless the X servers actually stop supporting these, we should
1064      * continue to fill them in.  It is *not* our place to tell the user
1065      * that they should replace a window manager that they like, and which
1066      * works, just because *we* think that it's not "modern" enough.
1067      */
1068     sizeHints.x      = x;
1069     sizeHints.y      = y;
1070     sizeHints.width  = w;
1071     sizeHints.height = h;
1072
1073     wmHints.flags = StateHint;
1074     wmHints.initial_state = fgState.ForceIconic ? IconicState : NormalState;
1075     /* Prepare the window and iconified window names... */
1076     XStringListToTextProperty( (char **) &title, 1, &textProperty );
1077
1078     XSetWMProperties(
1079         fgDisplay.Display,
1080         window->Window.Handle,
1081         &textProperty,
1082         &textProperty,
1083         0,
1084         0,
1085         &sizeHints,
1086         &wmHints,
1087         NULL
1088     );
1089     XFree( textProperty.value );
1090
1091     XSetWMProtocols( fgDisplay.Display, window->Window.Handle,
1092                      &fgDisplay.DeleteWindow, 1 );
1093
1094     glXMakeContextCurrent(
1095         fgDisplay.Display,
1096         window->Window.Handle,
1097         window->Window.Handle,
1098         window->Window.Context
1099     );
1100
1101     XMapWindow( fgDisplay.Display, window->Window.Handle );
1102
1103     XFree(visualInfo);
1104
1105 #elif TARGET_HOST_MS_WINDOWS
1106
1107     WNDCLASS wc;
1108     DWORD flags;
1109     DWORD exFlags = 0;
1110     ATOM atom;
1111     int WindowStyle = 0;
1112
1113     /* Grab the window class we have registered on glutInit(): */
1114     atom = GetClassInfo( fgDisplay.Instance, _T("FREEGLUT"), &wc );
1115     FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Info Not Found",
1116                                    "fgOpenWindow" );
1117
1118     if( gameMode )
1119     {
1120         FREEGLUT_INTERNAL_ERROR_EXIT ( window->Parent == NULL,
1121                                        "Game mode being invoked on a subwindow",
1122                                        "fgOpenWindow" );
1123
1124         /*
1125          * Set the window creation flags appropriately to make the window
1126          * entirely visible:
1127          */
1128         flags = WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1129     }
1130     else
1131     {
1132         int worig = w, horig = h;
1133
1134 #if !defined(_WIN32_WCE)
1135         if ( ( ! isSubWindow ) && ( ! window->IsMenu ) )
1136         {
1137             /*
1138              * Update the window dimensions, taking account of window
1139              * decorations.  "freeglut" is to create the window with the
1140              * outside of its border at (x,y) and with dimensions (w,h).
1141              */
1142             w += (GetSystemMetrics( SM_CXSIZEFRAME ) )*2;
1143             h += (GetSystemMetrics( SM_CYSIZEFRAME ) )*2 +
1144                 GetSystemMetrics( SM_CYCAPTION );
1145         }
1146 #endif /* defined(_WIN32_WCE) */
1147
1148         if( ! positionUse )
1149         {
1150             x = CW_USEDEFAULT;
1151             y = CW_USEDEFAULT;
1152         }
1153         /* setting State.Width/Height to call resize callback later */
1154         if( ! sizeUse )
1155         {
1156             if( ! window->IsMenu )
1157             {
1158                 w = CW_USEDEFAULT;
1159                 h = CW_USEDEFAULT;
1160             }
1161             else /* fail safe - Windows can make a window of size (0, 0) */
1162                 w = h = 300; /* default window size */
1163             window->State.Width = window->State.Height = -1;
1164         }
1165         else
1166         {
1167             window->State.Width = worig;
1168             window->State.Height = horig;
1169         }
1170
1171         /*
1172          * There's a small difference between creating the top, child and
1173          * game mode windows
1174          */
1175         flags = WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
1176
1177         if ( window->IsMenu )
1178         {
1179             flags |= WS_POPUP;
1180             exFlags |= WS_EX_TOOLWINDOW;
1181         }
1182 #if !defined(_WIN32_WCE)
1183         else if( window->Parent == NULL )
1184             flags |= WS_OVERLAPPEDWINDOW;
1185 #endif
1186         else
1187             flags |= WS_CHILD;
1188     }
1189
1190 #if defined(_WIN32_WCE)
1191     {
1192         wchar_t* wstr = fghWstrFromStr(title);
1193
1194         window->Window.Handle = CreateWindow(
1195             _T("FREEGLUT"),
1196             wstr,
1197             WS_VISIBLE | WS_POPUP,
1198             0,0, 240,320,
1199             NULL,
1200             NULL,
1201             fgDisplay.Instance,
1202             (LPVOID) window
1203         );
1204
1205         free(wstr);
1206
1207         SHFullScreen(window->Window.Handle, SHFS_HIDESTARTICON);
1208         SHFullScreen(window->Window.Handle, SHFS_HIDESIPBUTTON);
1209         SHFullScreen(window->Window.Handle, SHFS_HIDETASKBAR);
1210         MoveWindow(window->Window.Handle, 0, 0, 240, 320, TRUE);
1211         ShowWindow(window->Window.Handle, SW_SHOW);
1212         UpdateWindow(window->Window.Handle);
1213     }
1214 #else
1215     {
1216       /* xoff and yoff are used to place window relative to current display */
1217       /* The operation of gamemode also depends on this */
1218         int xoff=0,yoff=0;
1219         get_display_origin(&xoff,&yoff);
1220
1221         window->Window.Handle = CreateWindowEx(
1222             exFlags,
1223             _T("FREEGLUT"),
1224             title,
1225             flags,
1226             x+xoff, y+yoff, w, h,
1227             (HWND) window->Parent == NULL ? NULL : window->Parent->Window.Handle,
1228             (HMENU) NULL,
1229             fgDisplay.Instance,
1230             (LPVOID) window
1231         );
1232     }
1233 #endif /* defined(_WIN32_WCE) */
1234
1235     if( !( window->Window.Handle ) )
1236         fgError( "Failed to create a window (%s)!", title );
1237
1238     /* Make a menu window always on top - fix Feature Request 947118 */
1239     if( window->IsMenu || gameMode )
1240         SetWindowPos(
1241                         window->Window.Handle,
1242                         HWND_TOPMOST,
1243                         0, 0, 0, 0,
1244                         SWP_NOMOVE | SWP_NOSIZE
1245                     );
1246
1247     /* Hack to remove the caption (title bar) and/or border
1248      * and all the system menu controls.
1249      */
1250     WindowStyle = GetWindowLong(window->Window.Handle, GWL_STYLE);
1251     if ( fgState.DisplayMode & GLUT_CAPTIONLESS )
1252     {
1253         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1254                         WindowStyle & ~(WS_DLGFRAME | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1255     }
1256     else if ( fgState.DisplayMode & GLUT_BORDERLESS )
1257     {
1258         SetWindowLong ( window->Window.Handle, GWL_STYLE,
1259                         WindowStyle & ~(WS_BORDER | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX));
1260     }
1261 /*  SetWindowPos(window->Window.Handle, NULL, 0, 0, 0, 0,
1262      SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); */
1263
1264
1265 #if defined(_WIN32_WCE)
1266     ShowWindow( window->Window.Handle, SW_SHOW );
1267 #else
1268     ShowWindow( window->Window.Handle,
1269                 fgState.ForceIconic ? SW_SHOWMINIMIZED : SW_SHOW );
1270 #endif /* defined(_WIN32_WCE) */
1271
1272     UpdateWindow( window->Window.Handle );
1273     ShowCursor( TRUE );  /* XXX Old comments say "hide cursor"! */
1274
1275 #endif
1276
1277     fgSetWindow( window );
1278
1279     window->Window.DoubleBuffered =
1280         ( fgState.DisplayMode & GLUT_DOUBLE ) ? 1 : 0;
1281
1282     if ( ! window->Window.DoubleBuffered )
1283     {
1284         glDrawBuffer ( GL_FRONT );
1285         glReadBuffer ( GL_FRONT );
1286     }
1287 }
1288
1289 /*
1290  * Closes a window, destroying the frame and OpenGL context
1291  */
1292 void fgCloseWindow( SFG_Window* window )
1293 {
1294 #if TARGET_HOST_POSIX_X11
1295
1296     if( window->Window.Context )
1297         glXDestroyContext( fgDisplay.Display, window->Window.Context );
1298     XFree( window->Window.FBConfig );
1299
1300     if( window->Window.Handle ) {
1301         XDestroyWindow( fgDisplay.Display, window->Window.Handle );
1302     }
1303     /* XFlush( fgDisplay.Display ); */ /* XXX Shouldn't need this */
1304
1305 #elif TARGET_HOST_MS_WINDOWS
1306
1307     /* Make sure we don't close a window with current context active */
1308     if( fgStructure.CurrentWindow == window )
1309         wglMakeCurrent( NULL, NULL );
1310
1311     /*
1312      * Step through the list of windows.  If the rendering context
1313      * is not being used by another window, then we delete it.
1314      */
1315     {
1316         int used = FALSE ;
1317         SFG_Window *iter ;
1318
1319         for( iter = (SFG_Window *)fgStructure.Windows.First;
1320              iter;
1321              iter = (SFG_Window *)iter->Node.Next )
1322         {
1323             if( ( iter->Window.Context == window->Window.Context ) &&
1324                 ( iter != window ) )
1325                 used = TRUE;
1326         }
1327
1328         if( ! used )
1329             wglDeleteContext( window->Window.Context );
1330     }
1331
1332     DestroyWindow( window->Window.Handle );
1333 #endif
1334 }
1335
1336
1337 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
1338
1339 /*
1340  * Creates a new top-level freeglut window
1341  */
1342 int FGAPIENTRY glutCreateWindow( const char* title )
1343 {
1344     /* XXX GLUT does not exit; it simply calls "glutInit" quietly if the
1345      * XXX application has not already done so.  The "freeglut" community
1346      * XXX decided not to go this route (freeglut-developer e-mail from
1347      * XXX Steve Baker, 12/16/04, 4:22 PM CST, "Re: [Freeglut-developer]
1348      * XXX Desired 'freeglut' behaviour when there is no current window"
1349      */
1350     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateWindow" );
1351
1352     return fgCreateWindow( NULL, title, fgState.Position.Use,
1353                            fgState.Position.X, fgState.Position.Y,
1354                            fgState.Size.Use, fgState.Size.X, fgState.Size.Y,
1355                            GL_FALSE, GL_FALSE )->ID;
1356 }
1357
1358 #if TARGET_HOST_MS_WINDOWS
1359 int FGAPIENTRY __glutCreateWindowWithExit( const char *title, void (__cdecl *exit_function)(int) )
1360 {
1361   __glutExitFunc = exit_function;
1362   return glutCreateWindow( title );
1363 }
1364 #endif
1365
1366 /*
1367  * This function creates a sub window.
1368  */
1369 int FGAPIENTRY glutCreateSubWindow( int parentID, int x, int y, int w, int h )
1370 {
1371     int ret = 0;
1372     SFG_Window* window = NULL;
1373     SFG_Window* parent = NULL;
1374
1375     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateSubWindow" );
1376     parent = fgWindowByID( parentID );
1377     freeglut_return_val_if_fail( parent != NULL, 0 );
1378     if ( x < 0 )
1379     {
1380         x = parent->State.Width + x ;
1381         if ( w >= 0 ) x -= w ;
1382     }
1383
1384     if ( w < 0 ) w = parent->State.Width - x + w ;
1385     if ( w < 0 )
1386     {
1387         x += w ;
1388         w = -w ;
1389     }
1390
1391     if ( y < 0 )
1392     {
1393         y = parent->State.Height + y ;
1394         if ( h >= 0 ) y -= h ;
1395     }
1396
1397     if ( h < 0 ) h = parent->State.Height - y + h ;
1398     if ( h < 0 )
1399     {
1400         y += h ;
1401         h = -h ;
1402     }
1403
1404     window = fgCreateWindow( parent, "", GL_TRUE, x, y, GL_TRUE, w, h, GL_FALSE, GL_FALSE );
1405     ret = window->ID;
1406
1407     return ret;
1408 }
1409
1410 /*
1411  * Destroys a window and all of its subwindows
1412  */
1413 void FGAPIENTRY glutDestroyWindow( int windowID )
1414 {
1415     SFG_Window* window;
1416     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyWindow" );
1417     window = fgWindowByID( windowID );
1418     freeglut_return_if_fail( window != NULL );
1419     {
1420         fgExecutionState ExecState = fgState.ExecState;
1421         fgAddToWindowDestroyList( window );
1422         fgState.ExecState = ExecState;
1423     }
1424 }
1425
1426 /*
1427  * This function selects the current window
1428  */
1429 void FGAPIENTRY glutSetWindow( int ID )
1430 {
1431     SFG_Window* window = NULL;
1432
1433     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindow" );
1434     if( fgStructure.CurrentWindow != NULL )
1435         if( fgStructure.CurrentWindow->ID == ID )
1436             return;
1437
1438     window = fgWindowByID( ID );
1439     if( window == NULL )
1440     {
1441         fgWarning( "glutSetWindow(): window ID %d not found!", ID );
1442         return;
1443     }
1444
1445     fgSetWindow( window );
1446 }
1447
1448 /*
1449  * This function returns the ID number of the current window, 0 if none exists
1450  */
1451 int FGAPIENTRY glutGetWindow( void )
1452 {
1453     SFG_Window *win = fgStructure.CurrentWindow;
1454     /*
1455      * Since GLUT did not throw an error if this function was called without a prior call to
1456      * "glutInit", this function shouldn't do so here.  Instead let us return a zero.
1457      * See Feature Request "[ 1307049 ] glutInit check".
1458      */
1459     if ( ! fgState.Initialised )
1460         return 0;
1461
1462     while ( win && win->IsMenu )
1463         win = win->Parent;
1464     return win ? win->ID : 0;
1465 }
1466
1467 /*
1468  * This function makes the current window visible
1469  */
1470 void FGAPIENTRY glutShowWindow( void )
1471 {
1472     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutShowWindow" );
1473     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutShowWindow" );
1474
1475 #if TARGET_HOST_POSIX_X11
1476
1477     XMapWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1478     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1479
1480 #elif TARGET_HOST_MS_WINDOWS
1481
1482     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_SHOW );
1483
1484 #endif
1485
1486     fgStructure.CurrentWindow->State.Redisplay = GL_TRUE;
1487 }
1488
1489 /*
1490  * This function hides the current window
1491  */
1492 void FGAPIENTRY glutHideWindow( void )
1493 {
1494     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutHideWindow" );
1495     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutHideWindow" );
1496
1497 #if TARGET_HOST_POSIX_X11
1498
1499     if( fgStructure.CurrentWindow->Parent == NULL )
1500         XWithdrawWindow( fgDisplay.Display,
1501                          fgStructure.CurrentWindow->Window.Handle,
1502                          fgDisplay.Screen );
1503     else
1504         XUnmapWindow( fgDisplay.Display,
1505                       fgStructure.CurrentWindow->Window.Handle );
1506     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1507
1508 #elif TARGET_HOST_MS_WINDOWS
1509
1510     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_HIDE );
1511
1512 #endif
1513
1514     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1515 }
1516
1517 /*
1518  * Iconify the current window (top-level windows only)
1519  */
1520 void FGAPIENTRY glutIconifyWindow( void )
1521 {
1522     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIconifyWindow" );
1523     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIconifyWindow" );
1524
1525     fgStructure.CurrentWindow->State.Visible   = GL_FALSE;
1526 #if TARGET_HOST_POSIX_X11
1527
1528     XIconifyWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1529                     fgDisplay.Screen );
1530     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1531
1532 #elif TARGET_HOST_MS_WINDOWS
1533
1534     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_MINIMIZE );
1535
1536 #endif
1537
1538     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
1539 }
1540
1541 /*
1542  * Set the current window's title
1543  */
1544 void FGAPIENTRY glutSetWindowTitle( const char* title )
1545 {
1546     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowTitle" );
1547     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowTitle" );
1548     if( ! fgStructure.CurrentWindow->Parent )
1549     {
1550 #if TARGET_HOST_POSIX_X11
1551
1552         XTextProperty text;
1553
1554         text.value = (unsigned char *) title;
1555         text.encoding = XA_STRING;
1556         text.format = 8;
1557         text.nitems = strlen( title );
1558
1559         XSetWMName(
1560             fgDisplay.Display,
1561             fgStructure.CurrentWindow->Window.Handle,
1562             &text
1563         );
1564
1565         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1566
1567 #elif TARGET_HOST_MS_WINDOWS
1568 #    ifdef _WIN32_WCE
1569         {
1570             wchar_t* wstr = fghWstrFromStr(title);
1571             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1572             free(wstr);
1573         }
1574 #    else
1575         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1576 #    endif
1577
1578 #endif
1579     }
1580 }
1581
1582 /*
1583  * Set the current window's iconified title
1584  */
1585 void FGAPIENTRY glutSetIconTitle( const char* title )
1586 {
1587     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetIconTitle" );
1588     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetIconTitle" );
1589
1590     if( ! fgStructure.CurrentWindow->Parent )
1591     {
1592 #if TARGET_HOST_POSIX_X11
1593
1594         XTextProperty text;
1595
1596         text.value = (unsigned char *) title;
1597         text.encoding = XA_STRING;
1598         text.format = 8;
1599         text.nitems = strlen( title );
1600
1601         XSetWMIconName(
1602             fgDisplay.Display,
1603             fgStructure.CurrentWindow->Window.Handle,
1604             &text
1605         );
1606
1607         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1608
1609 #elif TARGET_HOST_MS_WINDOWS
1610 #    ifdef _WIN32_WCE
1611         {
1612             wchar_t* wstr = fghWstrFromStr(title);
1613             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1614             free(wstr);
1615         }
1616 #    else
1617         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1618 #    endif
1619
1620 #endif
1621     }
1622 }
1623
1624 /*
1625  * Change the current window's size
1626  */
1627 void FGAPIENTRY glutReshapeWindow( int width, int height )
1628 {
1629     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeWindow" );
1630     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutReshapeWindow" );
1631
1632     if (glutGet(GLUT_FULL_SCREEN))
1633     {
1634       /*  Leave full screen state before resizing. */
1635       glutFullScreenToggle();
1636     }
1637
1638     fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
1639     fgStructure.CurrentWindow->State.Width  = width ;
1640     fgStructure.CurrentWindow->State.Height = height;
1641 }
1642
1643 /*
1644  * Change the current window's position
1645  */
1646 void FGAPIENTRY glutPositionWindow( int x, int y )
1647 {
1648     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPositionWindow" );
1649     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPositionWindow" );
1650
1651     if (glutGet(GLUT_FULL_SCREEN))
1652     {
1653       /*  Leave full screen state before moving. */
1654       glutFullScreenToggle();
1655     }
1656
1657 #if TARGET_HOST_POSIX_X11
1658
1659     XMoveWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1660                  x, y );
1661     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1662
1663 #elif TARGET_HOST_MS_WINDOWS
1664
1665     {
1666         RECT winRect;
1667
1668         /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
1669         GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect );
1670         MoveWindow(
1671             fgStructure.CurrentWindow->Window.Handle,
1672             x,
1673             y,
1674             winRect.right - winRect.left,
1675             winRect.bottom - winRect.top,
1676             TRUE
1677         );
1678     }
1679
1680 #endif
1681 }
1682
1683 /*
1684  * Lowers the current window (by Z order change)
1685  */
1686 void FGAPIENTRY glutPushWindow( void )
1687 {
1688     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPushWindow" );
1689     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPushWindow" );
1690
1691 #if TARGET_HOST_POSIX_X11
1692
1693     XLowerWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1694
1695 #elif TARGET_HOST_MS_WINDOWS
1696
1697     SetWindowPos(
1698         fgStructure.CurrentWindow->Window.Handle,
1699         HWND_BOTTOM,
1700         0, 0, 0, 0,
1701         SWP_NOSIZE | SWP_NOMOVE
1702     );
1703
1704 #endif
1705 }
1706
1707 /*
1708  * Raises the current window (by Z order change)
1709  */
1710 void FGAPIENTRY glutPopWindow( void )
1711 {
1712     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPopWindow" );
1713     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPopWindow" );
1714
1715 #if TARGET_HOST_POSIX_X11
1716
1717     XRaiseWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1718
1719 #elif TARGET_HOST_MS_WINDOWS
1720
1721     SetWindowPos(
1722         fgStructure.CurrentWindow->Window.Handle,
1723         HWND_TOP,
1724         0, 0, 0, 0,
1725         SWP_NOSIZE | SWP_NOMOVE
1726     );
1727
1728 #endif
1729 }
1730
1731 /*
1732  * Resize the current window so that it fits the whole screen
1733  */
1734 void FGAPIENTRY glutFullScreen( void )
1735 {
1736     SFG_Window *win;
1737
1738     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" );
1739     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" );
1740
1741     win = fgStructure.CurrentWindow;
1742
1743 #if TARGET_HOST_POSIX_X11
1744     if(!glutGet(GLUT_FULL_SCREEN)) {
1745         if(fghToggleFullscreen() != -1) {
1746             win->State.IsFullscreen = GL_TRUE;
1747         }
1748     }
1749
1750 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE) /* FIXME: what about WinCE */
1751
1752     if (glutGet(GLUT_FULL_SCREEN))
1753     {
1754         /*  Leave full screen state before resizing. */
1755         glutFullScreenToggle();
1756     }
1757
1758     {
1759         RECT rect;
1760
1761         /* For fullscreen mode, force the top-left corner to 0,0
1762          * and adjust the window rectangle so that the client area
1763          * covers the whole screen.
1764          */
1765
1766         rect.left   = 0;
1767         rect.top    = 0;
1768         get_display_origin(&rect.left,&rect.top);
1769         rect.right  = fgDisplay.ScreenWidth+rect.left;
1770         rect.bottom = fgDisplay.ScreenHeight+rect.top;
1771
1772         AdjustWindowRect ( &rect, WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS |
1773                                   WS_CLIPCHILDREN, FALSE );
1774
1775         /*
1776          * SWP_NOACTIVATE     Do not activate the window
1777          * SWP_NOOWNERZORDER  Do not change position in z-order
1778          * SWP_NOSENDCHANGING Supress WM_WINDOWPOSCHANGING message
1779          * SWP_NOZORDER       Retains the current Z order (ignore 2nd param)
1780          */
1781
1782         SetWindowPos( fgStructure.CurrentWindow->Window.Handle,
1783                       HWND_TOP,
1784                       rect.left,
1785                       rect.top,
1786                       rect.right  - rect.left,
1787                       rect.bottom - rect.top,
1788                       SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
1789                       SWP_NOZORDER
1790                     );
1791         
1792         win->State.IsFullscreen = GL_TRUE;
1793     }
1794 #endif
1795 }
1796
1797 /*
1798  * Toggle the window's full screen state.
1799  */
1800 void FGAPIENTRY glutFullScreenToggle( void )
1801 {
1802     SFG_Window *win;
1803
1804     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreenToggle" );
1805     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreenToggle" );
1806
1807     win = fgStructure.CurrentWindow;
1808
1809 #if TARGET_HOST_POSIX_X11
1810     if(fghToggleFullscreen() != -1) {
1811         win->State.IsFullscreen = !win->State.IsFullscreen;
1812     }
1813 #elif TARGET_HOST_MS_WINDOWS
1814     glutFullScreen();
1815     win->State.IsFullscreen = !win->State.IsFullscreen;
1816 #endif
1817 }
1818
1819 /*
1820  * A.Donev: Set and retrieve the window's user data
1821  */
1822 void* FGAPIENTRY glutGetWindowData( void )
1823 {
1824     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindowData" );
1825     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutGetWindowData" );
1826     return fgStructure.CurrentWindow->UserData;
1827 }
1828
1829 void FGAPIENTRY glutSetWindowData(void* data)
1830 {
1831     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowData" );
1832     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowData" );
1833     fgStructure.CurrentWindow->UserData = data;
1834 }
1835
1836 /*** END OF FILE ***/