Added FREEGLUT_LIB_PRAGMAS to control MS library pragmas, and fixed NOMINMAX define.
[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 #include <GL/freeglut.h>
29 #include "freeglut_internal.h"
30
31 #if defined(_WIN32_WCE)
32 #   include <Aygshell.h>
33 #   ifdef FREEGLUT_LIB_PRAGMAS
34 #       pragma comment( lib, "Aygshell.lib" )
35 #   endif
36
37 static wchar_t* fghWstrFromStr(const char* str)
38 {
39     int i,len=strlen(str);
40     wchar_t* wstr = (wchar_t*)malloc(2*len+2);
41     for(i=0; i<len; i++)
42         wstr[i] = str[i];
43     wstr[len] = 0;
44     return wstr;
45 }
46
47 #endif /* defined(_WIN32_WCE) */
48
49 /*
50  * TODO BEFORE THE STABLE RELEASE:
51  *
52  *  fgChooseVisual()        -- OK, but what about glutInitDisplayString()?
53  *  fgSetupPixelFormat      -- ignores the display mode settings
54  *  fgOpenWindow()          -- check the Win32 version, -iconic handling!
55  *  fgCloseWindow()         -- check the Win32 version
56  *  glutCreateWindow()      -- Check when default position and size is {-1,-1}
57  *  glutCreateSubWindow()   -- Check when default position and size is {-1,-1}
58  *  glutDestroyWindow()     -- check the Win32 version
59  *  glutSetWindow()         -- check the Win32 version
60  *  glutGetWindow()         -- OK
61  *  glutSetWindowTitle()    -- check the Win32 version
62  *  glutSetIconTitle()      -- check the Win32 version
63  *  glutShowWindow()        -- check the Win32 version
64  *  glutHideWindow()        -- check the Win32 version
65  *  glutIconifyWindow()     -- check the Win32 version
66  *  glutReshapeWindow()     -- check the Win32 version
67  *  glutPositionWindow()    -- check the Win32 version
68  *  glutPushWindow()        -- check the Win32 version
69  *  glutPopWindow()         -- check the Win32 version
70  */
71
72 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
73
74 /*
75  * Chooses a visual basing on the current display mode settings
76  */
77 #if TARGET_HOST_POSIX_X11
78
79 XVisualInfo* fgChooseVisual( void )
80 {
81 #define BUFFER_SIZES 6
82     int bufferSize[BUFFER_SIZES] = { 16, 12, 8, 4, 2, 1 };
83     GLboolean wantIndexedMode = GL_FALSE;
84     int attributes[ 32 ];
85     int where = 0;
86
87     /* First we have to process the display mode settings... */
88 /*
89  * XXX Why is there a semi-colon in this #define?  The code
90  * XXX that uses the macro seems to always add more semicolons...
91  */
92 #define ATTRIB(a) attributes[where++]=a;
93 #define ATTRIB_VAL(a,v) {ATTRIB(a); ATTRIB(v);}
94
95     if( fgState.DisplayMode & GLUT_INDEX )
96     {
97         ATTRIB_VAL( GLX_BUFFER_SIZE, 8 );
98         wantIndexedMode = GL_TRUE;
99     }
100     else
101     {
102         ATTRIB( GLX_RGBA );
103         ATTRIB_VAL( GLX_RED_SIZE,   1 );
104         ATTRIB_VAL( GLX_GREEN_SIZE, 1 );
105         ATTRIB_VAL( GLX_BLUE_SIZE,  1 );
106         if( fgState.DisplayMode & GLUT_ALPHA )
107             ATTRIB_VAL( GLX_ALPHA_SIZE, 1 );
108     }
109
110     if( fgState.DisplayMode & GLUT_DOUBLE )
111         ATTRIB( GLX_DOUBLEBUFFER );
112
113     if( fgState.DisplayMode & GLUT_STEREO )
114         ATTRIB( GLX_STEREO );
115
116     if( fgState.DisplayMode & GLUT_DEPTH )
117         ATTRIB_VAL( GLX_DEPTH_SIZE, 1 );
118
119     if( fgState.DisplayMode & GLUT_STENCIL )
120         ATTRIB_VAL( GLX_STENCIL_SIZE, 1 );
121
122     if( fgState.DisplayMode & GLUT_ACCUM )
123     {
124         ATTRIB_VAL( GLX_ACCUM_RED_SIZE,   1 );
125         ATTRIB_VAL( GLX_ACCUM_GREEN_SIZE, 1 );
126         ATTRIB_VAL( GLX_ACCUM_BLUE_SIZE,  1 );
127         if( fgState.DisplayMode & GLUT_ALPHA )
128             ATTRIB_VAL( GLX_ACCUM_ALPHA_SIZE, 1 );
129     }
130
131     if( fgState.DisplayMode & GLUT_AUX1 )
132         ATTRIB_VAL( GLX_AUX_BUFFERS, 1 );
133     if( fgState.DisplayMode & GLUT_AUX2 )
134         ATTRIB_VAL( GLX_AUX_BUFFERS, 2 );
135     if( fgState.DisplayMode & GLUT_AUX3 )
136         ATTRIB_VAL( GLX_AUX_BUFFERS, 3 );
137     if( fgState.DisplayMode & GLUT_AUX4 )
138         ATTRIB_VAL( GLX_AUX_BUFFERS, 4 );
139     if ( fgState.DisplayMode & GLUT_MULTISAMPLE )
140         ATTRIB_VAL( GLX_SAMPLES_SGIS, 4 );
141
142
143     /* Push a null at the end of the list */
144     ATTRIB( None );
145
146     if( ! wantIndexedMode )
147         return glXChooseVisual( fgDisplay.Display, fgDisplay.Screen,
148                                 attributes );
149     else
150     {
151         XVisualInfo* visualInfo;
152         int i;
153
154         /*
155          * In indexed mode, we need to check how many bits of depth can we
156          * achieve.  We do this by trying each possibility from the list
157          * given in the {bufferSize} array.  If we match, we return to caller.
158          */
159         for( i=0; i<BUFFER_SIZES; i++ )
160         {
161             attributes[ 1 ] = bufferSize[ i ];
162             visualInfo = glXChooseVisual( fgDisplay.Display, fgDisplay.Screen,
163                                           attributes );
164             if( visualInfo != NULL )
165                 return visualInfo;
166         }
167         return NULL;
168     }
169 }
170 #endif
171
172 /*
173  * Setup the pixel format for a Win32 window
174  */
175 #if TARGET_HOST_MS_WINDOWS
176 /* WRONG-- FIXME */
177 /* The following include file is available from SGI but is not standard:
178  *   #include <GL/wglext.h>
179  * So we copy the necessary parts out of it.
180  */
181 typedef const char * (WINAPI * PFNWGLGETEXTENSIONSSTRINGARBPROC) (HDC hdc);
182
183 typedef BOOL (WINAPI * PFNWGLCHOOSEPIXELFORMATARBPROC) (HDC hdc, const int *piAttribIList, const FLOAT *pfAttribFList, UINT nMaxFormats, int *piFormats, UINT *nNumFormats);
184
185 #define WGL_DRAW_TO_WINDOW_ARB         0x2001
186 #define WGL_ACCELERATION_ARB           0x2003
187 #define WGL_SUPPORT_OPENGL_ARB         0x2010
188 #define WGL_DOUBLE_BUFFER_ARB          0x2011
189 #define WGL_COLOR_BITS_ARB             0x2014
190 #define WGL_ALPHA_BITS_ARB             0x201B
191 #define WGL_DEPTH_BITS_ARB             0x2022
192 #define WGL_STENCIL_BITS_ARB           0x2023
193 #define WGL_FULL_ACCELERATION_ARB      0x2027
194
195 #define WGL_SAMPLE_BUFFERS_ARB         0x2041
196 #define WGL_SAMPLES_ARB                0x2042
197
198
199 GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly,
200                               unsigned char layer_type )
201 {
202 #if defined(_WIN32_WCE)
203     return GL_TRUE;
204 #else
205     PIXELFORMATDESCRIPTOR* ppfd, pfd;
206     int flags, pixelformat;
207
208     freeglut_return_val_if_fail( window != NULL, 0 );
209     flags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL;
210     if( fgState.DisplayMode & GLUT_DOUBLE )
211         flags |= PFD_DOUBLEBUFFER;
212
213     if( fgState.DisplayMode & GLUT_STEREO )
214         flags |= PFD_STEREO;
215
216 #if defined(_MSC_VER)
217 #pragma message( "fgSetupPixelFormat(): there is still some work to do here!" )
218 #endif
219
220     /* Specify which pixel format do we opt for... */
221     pfd.nSize           = sizeof(PIXELFORMATDESCRIPTOR);
222     pfd.nVersion        = 1;
223     pfd.dwFlags         = flags;
224
225     if( fgState.DisplayMode & GLUT_INDEX )
226     {
227         pfd.iPixelType = PFD_TYPE_COLORINDEX;
228         pfd.cRedBits                = 0;
229         pfd.cGreenBits            = 0;
230         pfd.cBlueBits             = 0;
231         pfd.cAlphaBits            = 0;
232     }
233     else
234     {
235         pfd.iPixelType      = PFD_TYPE_RGBA;
236         pfd.cRedBits                = 8;
237         pfd.cGreenBits            = 8;
238         pfd.cBlueBits             = 8;
239         if ( fgState.DisplayMode & GLUT_ALPHA )
240             pfd.cAlphaBits            = 8;
241         else
242             pfd.cAlphaBits            = 0;
243     }
244
245     pfd.cColorBits      = 24;
246     pfd.cRedShift       = 0;
247     pfd.cGreenShift     = 0;
248     pfd.cBlueShift      = 0;
249     pfd.cAlphaShift     = 0;
250     pfd.cAccumBits      = 0;
251     pfd.cAccumRedBits   = 0;
252     pfd.cAccumGreenBits = 0;
253     pfd.cAccumBlueBits  = 0;
254     pfd.cAccumAlphaBits = 0;
255 #if 0
256     pfd.cDepthBits      = 32;
257     pfd.cStencilBits    = 0;
258 #else
259     pfd.cDepthBits      = 24;
260     pfd.cStencilBits    = 8;
261 #endif
262     if( fgState.DisplayMode & GLUT_AUX4 )
263         pfd.cAuxBuffers = 4;
264     else if( fgState.DisplayMode & GLUT_AUX3 )
265         pfd.cAuxBuffers = 3;
266     else if( fgState.DisplayMode & GLUT_AUX2 )
267         pfd.cAuxBuffers = 2;
268     else if( fgState.DisplayMode & GLUT_AUX1 )
269         pfd.cAuxBuffers = 1;
270     else
271         pfd.cAuxBuffers = 0;
272
273     pfd.iLayerType      = layer_type;
274     pfd.bReserved       = 0;
275     pfd.dwLayerMask     = 0;
276     pfd.dwVisibleMask   = 0;
277     pfd.dwDamageMask    = 0;
278
279     pfd.cColorBits = (BYTE) GetDeviceCaps( window->Window.Device, BITSPIXEL );
280     ppfd = &pfd;
281
282     pixelformat = ChoosePixelFormat( window->Window.Device, ppfd );
283
284     /* windows hack for multismapling */
285     if (fgState.DisplayMode&GLUT_MULTISAMPLE)
286     {        
287         PFNWGLGETEXTENSIONSSTRINGARBPROC wglGetEntensionsStringARB=NULL;
288         HGLRC rc, rc_before=wglGetCurrentContext();
289         HWND hWnd;
290         HDC hDC, hDC_before=wglGetCurrentDC();
291         WNDCLASS wndCls;
292         ATOM atom;
293
294         /* create a dummy window */
295         ZeroMemory(&wndCls, sizeof(wndCls));
296                 wndCls.lpfnWndProc        = DefWindowProc;
297                 wndCls.hInstance            = fgDisplay.Instance;
298                 wndCls.style                    = CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
299                 wndCls.lpszClassName    = _T("FREEGLUT_dummy");
300         atom = RegisterClass( &wndCls );
301
302         hWnd=CreateWindow((LPCSTR)atom, _T(""), WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_OVERLAPPEDWINDOW , 0,0,0,0, 0, 0, fgDisplay.Instance, 0 );
303         hDC=GetDC(hWnd);
304         SetPixelFormat( hDC, pixelformat, ppfd );
305         
306         rc = wglCreateContext( hDC );
307         wglMakeCurrent(hDC, rc);
308         
309         wglGetEntensionsStringARB=(PFNWGLGETEXTENSIONSSTRINGARBPROC)wglGetProcAddress("wglGetExtensionsStringARB");
310         if (wglGetEntensionsStringARB)
311         {
312             const char * pWglExtString=wglGetEntensionsStringARB(hDC);
313             if (pWglExtString)
314             {
315                 if (strstr(pWglExtString, "WGL_ARB_multisample"))
316                 {
317                     int pAttributes[100];
318                     int iCounter=0;
319                     int iPixelFormat;
320                     BOOL bValid;
321                     float fAttributes[] = {0,0};
322                     UINT numFormats;
323                     PFNWGLCHOOSEPIXELFORMATARBPROC wglChoosePixelFormatARBProc=NULL;
324
325                     wglChoosePixelFormatARBProc=(PFNWGLCHOOSEPIXELFORMATARBPROC)wglGetProcAddress("wglChoosePixelFormatARB");
326                     if ( wglChoosePixelFormatARBProc )
327                     {
328                         pAttributes[iCounter++]=WGL_DRAW_TO_WINDOW_ARB;        pAttributes[iCounter++]=GL_TRUE;
329                         pAttributes[iCounter++]=WGL_SUPPORT_OPENGL_ARB;        pAttributes[iCounter++]=GL_TRUE;
330                         pAttributes[iCounter++]=WGL_ACCELERATION_ARB;        pAttributes[iCounter++]=WGL_FULL_ACCELERATION_ARB;
331
332                         pAttributes[iCounter++]=WGL_COLOR_BITS_ARB;            pAttributes[iCounter++]=pfd.cColorBits ;
333                         pAttributes[iCounter++]=WGL_ALPHA_BITS_ARB;            pAttributes[iCounter++]=pfd.cAlphaBits;
334                         pAttributes[iCounter++]=WGL_DEPTH_BITS_ARB;            pAttributes[iCounter++]=pfd.cDepthBits;
335                         pAttributes[iCounter++]=WGL_STENCIL_BITS_ARB;        pAttributes[iCounter++]=pfd.cStencilBits;
336
337                         pAttributes[iCounter++]=WGL_DOUBLE_BUFFER_ARB;        pAttributes[iCounter++]=(fgState.DisplayMode & GLUT_DOUBLE)!=0;
338                         pAttributes[iCounter++]=WGL_SAMPLE_BUFFERS_ARB;        pAttributes[iCounter++]=GL_TRUE;
339                         pAttributes[iCounter++]=WGL_SAMPLES_ARB;            pAttributes[iCounter++]=4;
340                         pAttributes[iCounter++]=0;                            pAttributes[iCounter++]=0;    /* terminator */
341
342                         bValid = wglChoosePixelFormatARBProc(window->Window.Device,pAttributes,fAttributes,1,&iPixelFormat,&numFormats);
343
344                         if (bValid && numFormats>0)
345                             pixelformat=iPixelFormat;
346                     }
347                 }
348                 wglMakeCurrent( hDC_before, rc_before);
349                 wglDeleteContext(rc);
350                 ReleaseDC(hWnd, hDC);
351                 DestroyWindow(hWnd);
352                 UnregisterClass(_T("FREEGLUT_dummy"), fgDisplay.Instance);
353             }
354         }
355     }
356
357     if( pixelformat == 0 )
358         return GL_FALSE;
359
360     if( checkOnly )
361         return GL_TRUE;
362     return SetPixelFormat( window->Window.Device, pixelformat, ppfd );
363 #endif /* defined(_WIN32_WCE) */
364 }
365 #endif /* TARGET_HOST_MS_WINDOWS */
366
367 /*
368  * Sets the OpenGL context and the fgStructure "Current Window" pointer to
369  * the window structure passed in.
370  */
371 void fgSetWindow ( SFG_Window *window )
372 {
373 #if TARGET_HOST_POSIX_X11
374     if ( window )
375         glXMakeCurrent(
376             fgDisplay.Display,
377             window->Window.Handle,
378             window->Window.Context
379         );
380 #elif TARGET_HOST_MS_WINDOWS
381     if( fgStructure.CurrentWindow )
382         ReleaseDC( fgStructure.CurrentWindow->Window.Handle,
383                    fgStructure.CurrentWindow->Window.Device );
384
385     if ( window )
386     {
387         window->Window.Device = GetDC( window->Window.Handle );
388         wglMakeCurrent(
389             window->Window.Device,
390             window->Window.Context
391         );
392     }
393 #endif
394     fgStructure.CurrentWindow = window;
395 }
396
397
398 /*
399  * Opens a window. Requires a SFG_Window object created and attached
400  * to the freeglut structure. OpenGL context is created here.
401  */
402 void fgOpenWindow( SFG_Window* window, const char* title,
403                    int x, int y, int w, int h,
404                    GLboolean gameMode, GLboolean isSubWindow )
405 {
406 #if TARGET_HOST_POSIX_X11
407     XSetWindowAttributes winAttr;
408     XTextProperty textProperty;
409     XSizeHints sizeHints;
410     XWMHints wmHints;
411     unsigned long mask;
412     unsigned int current_DisplayMode = fgState.DisplayMode ;
413
414     /* Save the display mode if we are creating a menu window */
415     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
416         fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB ;
417
418     window->Window.VisualInfo = fgChooseVisual( );
419
420     if( window->IsMenu && ( ! fgStructure.MenuContext ) )
421         fgState.DisplayMode = current_DisplayMode ;
422
423     if( ! window->Window.VisualInfo )
424     {
425         /*
426          * The "fgChooseVisual" returned a null meaning that the visual
427          * context is not available.
428          * Try a couple of variations to see if they will work.
429          */
430         if( !( fgState.DisplayMode & GLUT_DOUBLE ) )
431         {
432             fgState.DisplayMode |= GLUT_DOUBLE ;
433             window->Window.VisualInfo = fgChooseVisual( );
434             fgState.DisplayMode &= ~GLUT_DOUBLE;
435         }
436
437         if( fgState.DisplayMode & GLUT_MULTISAMPLE )
438         {
439             fgState.DisplayMode &= ~GLUT_MULTISAMPLE ;
440             window->Window.VisualInfo = fgChooseVisual( );
441             fgState.DisplayMode |= GLUT_MULTISAMPLE;
442         }
443     }
444
445     FREEGLUT_INTERNAL_ERROR_EXIT( window->Window.VisualInfo != NULL,
446                                   "Visual with necessary capabilities not found", "fgOpenWindow" );
447
448     /*
449      * XXX HINT: the masks should be updated when adding/removing callbacks.
450      * XXX       This might speed up message processing. Is that true?
451      * XXX
452      * XXX A: Not appreciably, but it WILL make it easier to debug.
453      * XXX    Try tracing old GLUT and try tracing freeglut.  Old GLUT
454      * XXX    turns off events that it doesn't need and is a whole lot
455      * XXX    more pleasant to trace.  (Think mouse-motion!  Tons of
456      * XXX    ``bonus'' GUI events stream in.)
457      */
458     winAttr.event_mask        =
459         StructureNotifyMask | SubstructureNotifyMask | ExposureMask |
460         ButtonPressMask | ButtonReleaseMask | KeyPressMask | KeyReleaseMask |
461         VisibilityChangeMask | EnterWindowMask | LeaveWindowMask |
462         PointerMotionMask | ButtonMotionMask;
463     winAttr.background_pixmap = None;
464     winAttr.background_pixel  = 0;
465     winAttr.border_pixel      = 0;
466
467     winAttr.colormap = XCreateColormap(
468         fgDisplay.Display, fgDisplay.RootWindow,
469         window->Window.VisualInfo->visual, AllocNone
470     );
471
472     mask = CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask;
473
474     if( window->IsMenu || ( gameMode == GL_TRUE ) )
475     {
476         winAttr.override_redirect = True;
477         mask |= CWOverrideRedirect;
478     }
479
480     window->Window.Handle = XCreateWindow(
481         fgDisplay.Display,
482         window->Parent == NULL ? fgDisplay.RootWindow :
483         window->Parent->Window.Handle,
484         x, y, w, h, 0,
485         window->Window.VisualInfo->depth, InputOutput,
486         window->Window.VisualInfo->visual, mask,
487         &winAttr
488     );
489
490     /*
491      * The GLX context creation, possibly trying the direct context rendering
492      *  or else use the current context if the user has so specified
493      */
494     if( window->IsMenu )
495     {
496         /*
497          * If there isn't already an OpenGL rendering context for menu
498          * windows, make one
499          */
500         if( !fgStructure.MenuContext )
501         {
502             fgStructure.MenuContext =
503                 (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) );
504             fgStructure.MenuContext->MVisualInfo = window->Window.VisualInfo;
505             fgStructure.MenuContext->MContext = glXCreateContext(
506                 fgDisplay.Display, fgStructure.MenuContext->MVisualInfo,
507                 NULL, ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT )
508             );
509         }
510
511         /* window->Window.Context = fgStructure.MenuContext->MContext; */
512         window->Window.Context = glXCreateContext(
513             fgDisplay.Display, window->Window.VisualInfo,
514             NULL, ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT )
515         );
516     }
517     else if( fgState.UseCurrentContext )
518     {
519         window->Window.Context = glXGetCurrentContext( );
520
521         if( ! window->Window.Context )
522             window->Window.Context = glXCreateContext(
523                 fgDisplay.Display, window->Window.VisualInfo,
524                 NULL, ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT )
525             );
526     }
527     else
528         window->Window.Context = glXCreateContext(
529             fgDisplay.Display, window->Window.VisualInfo,
530             NULL, ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT )
531         );
532
533 #if !defined( __FreeBSD__ ) && !defined( __NetBSD__ )
534     if(  !glXIsDirect( fgDisplay.Display, window->Window.Context ) )
535     {
536       if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT )
537         fgError( "Unable to force direct context rendering for window '%s'",
538                  title );
539       else if( fgState.DirectContext == GLUT_TRY_DIRECT_CONTEXT )
540         fgWarning( "Unable to create direct context rendering for window '%s'\nThis may hurt performance.",
541                  title );
542     }
543 #endif
544
545     /*
546      * XXX Assume the new window is visible by default
547      * XXX Is this a  safe assumption?
548      */
549     window->State.Visible = GL_TRUE;
550
551     sizeHints.flags = 0;
552     if ( fgState.Position.Use )
553         sizeHints.flags |= USPosition;
554     if ( fgState.Size.Use )
555         sizeHints.flags |= USSize;
556
557     /*
558      * Fill in the size hints values now (the x, y, width and height
559      * settings are obsolete, are there any more WMs that support them?)
560      * Unless the X servers actually stop supporting these, we should
561      * continue to fill them in.  It is *not* our place to tell the user
562      * that they should replace a window manager that they like, and which
563      * works, just because *we* think that it's not "modern" enough.
564      */
565     sizeHints.x      = x;
566     sizeHints.y      = y;
567     sizeHints.width  = w;
568     sizeHints.height = h;
569
570     wmHints.flags = StateHint;
571     wmHints.initial_state = fgState.ForceIconic ? IconicState : NormalState;
572     /* Prepare the window and iconified window names... */
573     XStringListToTextProperty( (char **) &title, 1, &textProperty );
574
575     XSetWMProperties(
576         fgDisplay.Display,
577         window->Window.Handle,
578         &textProperty,
579         &textProperty,
580         0,
581         0,
582         &sizeHints,
583         &wmHints,
584         NULL
585     );
586     XFree( textProperty.value );
587
588     XSetWMProtocols( fgDisplay.Display, window->Window.Handle,
589                      &fgDisplay.DeleteWindow, 1 );
590
591     glXMakeCurrent(
592         fgDisplay.Display,
593         window->Window.Handle,
594         window->Window.Context
595     );
596
597     XMapWindow( fgDisplay.Display, window->Window.Handle );
598
599 #elif TARGET_HOST_MS_WINDOWS
600
601     WNDCLASS wc;
602     DWORD flags;
603     DWORD exFlags = 0;
604     ATOM atom;
605
606     /* Grab the window class we have registered on glutInit(): */
607     atom = GetClassInfo( fgDisplay.Instance, _T("FREEGLUT"), &wc );
608     FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Info Not Found",
609                                    "fgOpenWindow" );
610
611     if( gameMode )
612     {
613         FREEGLUT_INTERNAL_ERROR_EXIT ( window->Parent == NULL,
614                                        "Game mode being invoked on a subwindow",
615                                        "fgOpenWindow" );
616
617         /*
618          * Set the window creation flags appropriately to make the window
619          * entirely visible:
620          */
621         flags = WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
622     }
623     else
624     {
625 #if !defined(_WIN32_WCE)
626         if ( ( ! isSubWindow ) && ( ! window->IsMenu ) )
627         {
628             /*
629              * Update the window dimensions, taking account of window
630              * decorations.  "freeglut" is to create the window with the
631              * outside of its border at (x,y) and with dimensions (w,h).
632              */
633             w += (GetSystemMetrics( SM_CXSIZEFRAME ) )*2;
634             h += (GetSystemMetrics( SM_CYSIZEFRAME ) )*2 +
635                 GetSystemMetrics( SM_CYCAPTION );
636         }
637 #endif /* defined(_WIN32_WCE) */
638
639         if( ! fgState.Position.Use )
640         {
641             x = CW_USEDEFAULT;
642             y = CW_USEDEFAULT;
643         }
644         if( ! fgState.Size.Use )
645         {
646             w = CW_USEDEFAULT;
647             h = CW_USEDEFAULT;
648         }
649
650         /*
651          * There's a small difference between creating the top, child and
652          * game mode windows
653          */
654         flags = WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE;
655
656         if ( window->IsMenu )
657         {
658             flags |= WS_POPUP;
659             exFlags |= WS_EX_TOOLWINDOW;
660         }
661 #if !defined(_WIN32_WCE)
662         else if( window->Parent == NULL )
663             flags |= WS_OVERLAPPEDWINDOW;
664 #endif
665         else
666             flags |= WS_CHILD;
667     }
668
669 #if defined(_WIN32_WCE)
670     {
671         wchar_t* wstr = fghWstrFromStr(title);
672
673         window->Window.Handle = CreateWindow(
674             _T("FREEGLUT"),
675             wstr,
676             WS_VISIBLE | WS_POPUP,
677             0,0, 240,320,
678             NULL,
679             NULL,
680             fgDisplay.Instance,
681             (LPVOID) window
682         );
683
684         free(wstr);
685
686         SHFullScreen(window->Window.Handle, SHFS_HIDESTARTICON);
687         SHFullScreen(window->Window.Handle, SHFS_HIDESIPBUTTON);
688         SHFullScreen(window->Window.Handle, SHFS_HIDETASKBAR);
689         MoveWindow(window->Window.Handle, 0, 0, 240, 320, TRUE);
690         ShowWindow(window->Window.Handle, SW_SHOW);
691         UpdateWindow(window->Window.Handle);
692     }
693 #else
694     window->Window.Handle = CreateWindowEx(
695         exFlags,
696         "FREEGLUT",
697         title,
698         flags,
699         x, y, w, h,
700         (HWND) window->Parent == NULL ? NULL : window->Parent->Window.Handle,
701         (HMENU) NULL,
702         fgDisplay.Instance,
703         (LPVOID) window
704     );
705 #endif /* defined(_WIN32_WCE) */
706
707     if( !( window->Window.Handle ) )
708         fgError( "Failed to create a window (%s)!", title );
709
710 #if defined(_WIN32_WCE)
711     ShowWindow( window->Window.Handle, SW_SHOW );
712 #else
713     ShowWindow( window->Window.Handle,
714                 fgState.ForceIconic ? SW_SHOWMINIMIZED : SW_SHOW );
715 #endif /* defined(_WIN32_WCE) */
716
717     UpdateWindow( window->Window.Handle );
718     ShowCursor( TRUE );  /* XXX Old comments say "hide cursor"! */
719
720 #endif
721
722     fgSetWindow( window );
723
724     window->Window.DoubleBuffered =
725         ( fgState.DisplayMode & GLUT_DOUBLE ) ? 1 : 0;
726
727     if ( ! window->Window.DoubleBuffered )
728     {
729         glDrawBuffer ( GL_FRONT );
730         glReadBuffer ( GL_FRONT );
731     }
732 }
733
734 /*
735  * Closes a window, destroying the frame and OpenGL context
736  */
737 void fgCloseWindow( SFG_Window* window )
738 {
739 #if TARGET_HOST_POSIX_X11
740
741     glXDestroyContext( fgDisplay.Display, window->Window.Context );
742     XFree( window->Window.VisualInfo );
743     XDestroyWindow( fgDisplay.Display, window->Window.Handle );
744     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
745
746 #elif TARGET_HOST_MS_WINDOWS
747
748     /* Make sure we don't close a window with current context active */
749     if( fgStructure.CurrentWindow == window )
750         wglMakeCurrent( NULL, NULL );
751
752     /*
753      * Step through the list of windows.  If the rendering context
754      * is not being used by another window, then we delete it.
755      */
756     {
757         int used = FALSE ;
758         SFG_Window *iter ;
759
760         for( iter = (SFG_Window *)fgStructure.Windows.First;
761              iter;
762              iter = (SFG_Window *)iter->Node.Next )
763         {
764             if( ( iter->Window.Context == window->Window.Context ) &&
765                 ( iter != window ) )
766                 used = TRUE;
767         }
768
769         if( ! used )
770             wglDeleteContext( window->Window.Context );
771     }
772
773     DestroyWindow( window->Window.Handle );
774 #endif
775 }
776
777
778 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
779
780 /*
781  * Creates a new top-level freeglut window
782  */
783 int FGAPIENTRY glutCreateWindow( const char* title )
784 {
785     /* XXX GLUT does not exit; it simply calls "glutInit" quietly if the
786      * XXX application has not already done so.  The "freeglut" community
787      * XXX decided not to go this route (freeglut-developer e-mail from
788      * XXX Steve Baker, 12/16/04, 4:22 PM CST, "Re: [Freeglut-developer]
789      * XXX Desired 'freeglut' behaviour when there is no current window"
790      */
791     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateWindow" );
792
793     return fgCreateWindow( NULL, title, fgState.Position.X, fgState.Position.Y,
794                            fgState.Size.X, fgState.Size.Y, GL_FALSE,
795                            GL_FALSE )->ID;
796 }
797
798 /*
799  * This function creates a sub window.
800  */
801 int FGAPIENTRY glutCreateSubWindow( int parentID, int x, int y, int w, int h )
802 {
803     int ret = 0;
804     SFG_Window* window = NULL;
805     SFG_Window* parent = NULL;
806
807     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateSubWindow" );
808     parent = fgWindowByID( parentID );
809     freeglut_return_val_if_fail( parent != NULL, 0 );
810     if ( x < 0 )
811     {
812         x = parent->State.Width + x ;
813         if ( w >= 0 ) x -= w ;
814     }
815
816     if ( w < 0 ) w = parent->State.Width - x + w ;
817     if ( w < 0 )
818     {
819         x += w ;
820         w = -w ;
821     }
822
823     if ( y < 0 )
824     {
825         y = parent->State.Height + y ;
826         if ( h >= 0 ) y -= h ;
827     }
828
829     if ( h < 0 ) h = parent->State.Height - y + h ;
830     if ( h < 0 )
831     {
832         y += h ;
833         h = -h ;
834     }
835
836     window = fgCreateWindow( parent, "", x, y, w, h, GL_FALSE, GL_FALSE );
837     ret = window->ID;
838
839     return ret;
840 }
841
842 /*
843  * Destroys a window and all of its subwindows
844  */
845 void FGAPIENTRY glutDestroyWindow( int windowID )
846 {
847     SFG_Window* window;
848     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyWindow" );
849     window = fgWindowByID( windowID );
850     freeglut_return_if_fail( window != NULL );
851     {
852         fgExecutionState ExecState = fgState.ExecState;
853         fgAddToWindowDestroyList( window );
854         fgState.ExecState = ExecState;
855     }
856 }
857
858 /*
859  * This function selects the current window
860  */
861 void FGAPIENTRY glutSetWindow( int ID )
862 {
863     SFG_Window* window = NULL;
864
865     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindow" );
866     if( fgStructure.CurrentWindow != NULL )
867         if( fgStructure.CurrentWindow->ID == ID )
868             return;
869
870     window = fgWindowByID( ID );
871     if( window == NULL )
872     {
873         fgWarning( "glutSetWindow(): window ID %d not found!", ID );
874         return;
875     }
876
877     fgSetWindow( window );
878 }
879
880 /*
881  * This function returns the ID number of the current window, 0 if none exists
882  */
883 int FGAPIENTRY glutGetWindow( void )
884 {
885     SFG_Window *win = fgStructure.CurrentWindow;
886     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindow" );
887     while ( win && win->IsMenu )
888         win = win->Parent;
889     return win ? win->ID : 0;
890 }
891
892 /*
893  * This function makes the current window visible
894  */
895 void FGAPIENTRY glutShowWindow( void )
896 {
897     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutShowWindow" );
898     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutShowWindow" );
899
900 #if TARGET_HOST_POSIX_X11
901
902     XMapWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
903     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
904
905 #elif TARGET_HOST_MS_WINDOWS
906
907     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_SHOW );
908
909 #endif
910
911     fgStructure.CurrentWindow->State.Redisplay = GL_TRUE;
912 }
913
914 /*
915  * This function hides the current window
916  */
917 void FGAPIENTRY glutHideWindow( void )
918 {
919     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutHideWindow" );
920     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutHideWindow" );
921
922 #if TARGET_HOST_POSIX_X11
923
924     if( fgStructure.CurrentWindow->Parent == NULL )
925         XWithdrawWindow( fgDisplay.Display,
926                          fgStructure.CurrentWindow->Window.Handle,
927                          fgDisplay.Screen );
928     else
929         XUnmapWindow( fgDisplay.Display,
930                       fgStructure.CurrentWindow->Window.Handle );
931     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
932
933 #elif TARGET_HOST_MS_WINDOWS
934
935     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_HIDE );
936
937 #endif
938
939     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
940 }
941
942 /*
943  * Iconify the current window (top-level windows only)
944  */
945 void FGAPIENTRY glutIconifyWindow( void )
946 {
947     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIconifyWindow" );
948     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIconifyWindow" );
949
950     fgStructure.CurrentWindow->State.Visible   = GL_FALSE;
951 #if TARGET_HOST_POSIX_X11
952
953     XIconifyWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
954                     fgDisplay.Screen );
955     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
956
957 #elif TARGET_HOST_MS_WINDOWS
958
959     ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_MINIMIZE );
960
961 #endif
962
963     fgStructure.CurrentWindow->State.Redisplay = GL_FALSE;
964 }
965
966 /*
967  * Set the current window's title
968  */
969 void FGAPIENTRY glutSetWindowTitle( const char* title )
970 {
971     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowTitle" );
972     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowTitle" );
973     if( ! fgStructure.CurrentWindow->Parent )
974     {
975 #if TARGET_HOST_POSIX_X11
976
977         XTextProperty text;
978
979         text.value = (unsigned char *) title;
980         text.encoding = XA_STRING;
981         text.format = 8;
982         text.nitems = strlen( title );
983
984         XSetWMName(
985             fgDisplay.Display,
986             fgStructure.CurrentWindow->Window.Handle,
987             &text
988         );
989
990         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
991
992 #elif TARGET_HOST_MS_WINDOWS
993 #    ifdef _WIN32_WCE
994         {
995             wchar_t* wstr = fghWstrFromStr(title);
996             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
997             free(wstr);
998         }
999 #    else
1000         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1001 #    endif
1002
1003 #endif
1004     }
1005 }
1006
1007 /*
1008  * Set the current window's iconified title
1009  */
1010 void FGAPIENTRY glutSetIconTitle( const char* title )
1011 {
1012     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetIconTitle" );
1013     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetIconTitle" );
1014
1015     if( ! fgStructure.CurrentWindow->Parent )
1016     {
1017 #if TARGET_HOST_POSIX_X11
1018
1019         XTextProperty text;
1020
1021         text.value = (unsigned char *) title;
1022         text.encoding = XA_STRING;
1023         text.format = 8;
1024         text.nitems = strlen( title );
1025
1026         XSetWMIconName(
1027             fgDisplay.Display,
1028             fgStructure.CurrentWindow->Window.Handle,
1029             &text
1030         );
1031
1032         XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1033
1034 #elif TARGET_HOST_MS_WINDOWS
1035 #    ifdef _WIN32_WCE
1036         {
1037             wchar_t* wstr = fghWstrFromStr(title);
1038             SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr );
1039             free(wstr);
1040         }
1041 #    else
1042         SetWindowText( fgStructure.CurrentWindow->Window.Handle, title );
1043 #    endif
1044
1045 #endif
1046     }
1047 }
1048
1049 /*
1050  * Change the current window's size
1051  */
1052 void FGAPIENTRY glutReshapeWindow( int width, int height )
1053 {
1054     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeWindow" );
1055     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutReshapeWindow" );
1056
1057     fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE;
1058     fgStructure.CurrentWindow->State.Width  = width ;
1059     fgStructure.CurrentWindow->State.Height = height;
1060 }
1061
1062 /*
1063  * Change the current window's position
1064  */
1065 void FGAPIENTRY glutPositionWindow( int x, int y )
1066 {
1067     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPositionWindow" );
1068     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPositionWindow" );
1069
1070 #if TARGET_HOST_POSIX_X11
1071
1072     XMoveWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle,
1073                  x, y );
1074     XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1075
1076 #elif TARGET_HOST_MS_WINDOWS
1077
1078     {
1079         RECT winRect;
1080
1081         /* "GetWindowRect" returns the pixel coordinates of the outside of the window */
1082         GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect );
1083         MoveWindow(
1084             fgStructure.CurrentWindow->Window.Handle,
1085             x,
1086             y,
1087             winRect.right - winRect.left,
1088             winRect.bottom - winRect.top,
1089             TRUE
1090         );
1091     }
1092
1093 #endif
1094 }
1095
1096 /*
1097  * Lowers the current window (by Z order change)
1098  */
1099 void FGAPIENTRY glutPushWindow( void )
1100 {
1101     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPushWindow" );
1102     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPushWindow" );
1103
1104 #if TARGET_HOST_POSIX_X11
1105
1106     XLowerWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1107
1108 #elif TARGET_HOST_MS_WINDOWS
1109
1110     SetWindowPos(
1111         fgStructure.CurrentWindow->Window.Handle,
1112         HWND_BOTTOM,
1113         0, 0, 0, 0,
1114         SWP_NOSIZE | SWP_NOMOVE
1115     );
1116
1117 #endif
1118 }
1119
1120 /*
1121  * Raises the current window (by Z order change)
1122  */
1123 void FGAPIENTRY glutPopWindow( void )
1124 {
1125     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPopWindow" );
1126     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPopWindow" );
1127
1128 #if TARGET_HOST_POSIX_X11
1129
1130     XRaiseWindow( fgDisplay.Display, fgStructure.CurrentWindow->Window.Handle );
1131
1132 #elif TARGET_HOST_MS_WINDOWS
1133
1134     SetWindowPos(
1135         fgStructure.CurrentWindow->Window.Handle,
1136         HWND_TOP,
1137         0, 0, 0, 0,
1138         SWP_NOSIZE | SWP_NOMOVE
1139     );
1140
1141 #endif
1142 }
1143
1144 /*
1145  * Resize the current window so that it fits the whole screen
1146  */
1147 void FGAPIENTRY glutFullScreen( void )
1148 {
1149     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" );
1150     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" );
1151
1152     {
1153 #if TARGET_HOST_POSIX_X11
1154         int x, y;
1155         Window w;
1156
1157         XMoveResizeWindow(
1158             fgDisplay.Display,
1159             fgStructure.CurrentWindow->Window.Handle,
1160             0, 0,
1161             fgDisplay.ScreenWidth,
1162             fgDisplay.ScreenHeight
1163         );
1164
1165         XFlush( fgDisplay.Display ); /* This is needed */
1166
1167         XTranslateCoordinates(
1168             fgDisplay.Display,
1169             fgStructure.CurrentWindow->Window.Handle,
1170             fgDisplay.RootWindow,
1171             0, 0, &x, &y, &w
1172         );
1173
1174         if (x || y)
1175         {
1176             XMoveWindow(
1177                 fgDisplay.Display,
1178                 fgStructure.CurrentWindow->Window.Handle,
1179                 -x, -y
1180             );
1181             XFlush( fgDisplay.Display ); /* XXX Shouldn't need this */
1182         }
1183 #elif TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE) /* FIXME: what about WinCE */
1184         RECT rect;
1185
1186         /* For fullscreen mode, force the top-left corner to 0,0
1187          * and adjust the window rectangle so that the client area
1188          * covers the whole screen.
1189          */
1190
1191         rect.left   = 0;
1192         rect.top    = 0;
1193         rect.right  = fgDisplay.ScreenWidth;
1194         rect.bottom = fgDisplay.ScreenHeight;
1195
1196         AdjustWindowRect ( &rect, WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS |
1197                                   WS_CLIPCHILDREN, FALSE );
1198
1199         /*
1200          * SWP_NOACTIVATE     Do not activate the window
1201          * SWP_NOOWNERZORDER  Do not change position in z-order
1202          * SWP_NOSENDCHANGING Supress WM_WINDOWPOSCHANGING message
1203          * SWP_NOZORDER       Retains the current Z order (ignore 2nd param)
1204          */
1205
1206         SetWindowPos( fgStructure.CurrentWindow->Window.Handle,
1207                       HWND_TOP,
1208                       rect.left,
1209                       rect.top,
1210                       rect.right  - rect.left,
1211                       rect.bottom - rect.top,
1212                       SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING |
1213                       SWP_NOZORDER
1214                     );
1215 #endif
1216     }
1217 }
1218
1219 /*
1220  * A.Donev: Set and retrieve the window's user data
1221  */
1222 void* FGAPIENTRY glutGetWindowData( void )
1223 {
1224     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindowData" );
1225     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutGetWindowData" );
1226     return fgStructure.CurrentWindow->UserData;
1227 }
1228
1229 void FGAPIENTRY glutSetWindowData(void* data)
1230 {
1231     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowData" );
1232     FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowData" );
1233     fgStructure.CurrentWindow->UserData = data;
1234 }
1235
1236 /*** END OF FILE ***/