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