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