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