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