/* Copyright (c) Mark J. Kilgard, 1995. */

/* This program is freely distributable without licensing fees 
   and is provided without guarantee or warrantee expressed or 
   implied. This program is -not- in the public domain. */

#if !defined(WIN32)
#include <X11/Xlib.h>
#include <X11/Xatom.h>
#endif /* WIN32 */

/* SGI optimization introduced in IRIX 6.3 to avoid X server
   round trips for interning common X atoms. */
#if defined(_SGI_EXTRA_PREDEFINES) && !defined(NO_FAST_ATOMS)
#include <X11/SGIFastAtom.h>
#else
#define XSGIFastInternAtom(dpy,string,fast_name,how) XInternAtom(dpy,string,how)
#endif

#include "glutint.h"

/* CENTRY */
void APIENTRY 
glutFullScreen(void)
{
#if defined(WIN32)
/*
	RECT rect;
*/	
    ShowWindow(__glutCurrentWindow->win, SW_SHOWMAXIMIZED);

/*
	GetWindowRect(__glutCurrentWindow->win, &rect);
	
  __glutCurrentWindow->desiredX = rect.left;
  __glutCurrentWindow->desiredY = rect.top;
  __glutCurrentWindow->desiredWidth = rect.right;
  __glutCurrentWindow->desiredHeight = rect.bottom;
  __glutCurrentWindow->desiredConfMask |= CWX | CWY | CWWidth | CWHeight;
  __glutPutOnWorkList(__glutCurrentWindow,
    GLUT_CONFIGURE_WORK | GLUT_FULL_SCREEN_WORK);

	printf ("Resized to <%d, %d> - <%d, %d>\n", rect.left, rect.top, rect.right, rect.bottom);
*/
#else
  if (__glutMotifHints == None) {
    __glutMotifHints = XSGIFastInternAtom(__glutDisplay, "_MOTIF_WM_HINTS",
      SGI_XA__MOTIF_WM_HINTS, 0);
    if (__glutMotifHints == None) {
      __glutWarning("Could not intern X atom for _MOTIF_WM_HINTS.");
    }
  }

  __glutCurrentWindow->desiredX = 0;
  __glutCurrentWindow->desiredY = 0;
  __glutCurrentWindow->desiredWidth = __glutScreenWidth;
  __glutCurrentWindow->desiredHeight = __glutScreenHeight;
  __glutCurrentWindow->desiredConfMask |= CWX | CWY | CWWidth | CWHeight;
  __glutPutOnWorkList(__glutCurrentWindow,
    GLUT_CONFIGURE_WORK | GLUT_FULL_SCREEN_WORK);
#endif
}

void
glutNoBorder(void)
{

#if !defined(WIN32)
    MotifWmHints hints;

    if (__glutMotifHints == None) {
	__glutMotifHints = XSGIFastInterAtom(__glutDisplay, "_MOTIF_WM_HINTS",
					     SGI_XA__MOTIF_WM_HINTS, 0)
	if (__glutMotifHints == None) {
      	    __glutWarning("Could not intern X atom for _MOTIF_WM_HINTS.");
    	}
    }

    hints.flags = MWM_HINTS_DECORATIONS;
    hints.decorations = 0; /* Absolutely no decorations */

    XChangeProperty(__glutDisplay, __glutCurrentWindow->win,
    		    __glutMotifHints, __glutMotifHints, 32,
    		    PropModeReplace, (unsigned char *) &hints, 4);
#endif
    
    return;
}

/* ENDCENTRY */