/***************************************/
/*                                     */
/* 3.2.1.2.B customscreen_2.c          */
/*                                     */
/* Program: Window on Custom Screen    */
/* =================================== */
/*                                     */
/* Author: Date:      Comments:        */
/* -----  ----------  ----------       */
/* Wgb    10/16/1987  simple Screen    */
/*                                     */
/*                                     */
/***************************************/


#include <exec/types.h>
#include <intuition/intuition.h>


struct IntuitionBase *IntuitionBase;
struct Screen        *FirstScreen;
struct Window        *FirstWindow;
struct IntuiMessage  *message;


struct NewScreen FirstNewScreen =
   {
   0, 0,                    /* LeftEdge, TopEdge   */
   640, 200,                /* Width, Height       */
   1,                       /* Depth               */
   0, 1,                    /* DetailPen, BlockPen */
   HIRES,                   /* ViewModes           */
   CUSTOMSCREEN,            /* Type                */
   NULL,                    /* Font                */
   (UBYTE *)"Screen Test 2",
   NULL,                    /* Gadgets             */
   NULL,                    /* CustomBitMap        */
   };

struct NewWindow FirstNewWindow =
   {
   160, 50,                 /* LeftEdge, TopEdge   */
   320, 150,                /* Width, Height       */
   0, 1,                    /* DetailPen, BlockPen */
   CLOSEWINDOW,             /* IDCMP Flags         */
   WINDOWDEPTH |            /* Flags               */
   WINDOWSIZING |
   WINDOWDRAG |
   WINDOWCLOSE |
   SMART_REFRESH,
   NULL,                    /* First Gadget        */
   NULL,                    /* CheckMark           */
   (UBYTE *)"Test Custom-Screen",
   NULL,                    /* Screen  */
   NULL,                    /* BitMap              */
   100, 50,                 /* Min Width, Height   */
   640, 200,                /* Max Width, Height   */
   CUSTOMSCREEN,            /* Type                */
   };


main()
   {
   int i,j;
   
   Open_All();

   Delay(180L);

/*   ScreenToFront(FirstScreen);
   Delay(180L);
   ScreenToFront(FirstScreen);     */


   WBenchToFront();
   Delay(180L);
   WBenchToBack();

 for (i=1; i<6; i++)
   {
   for (j=0; j<10000; j++);
   DisplayBeep(FirstScreen);
   }


   Close_All();
   exit(TRUE);

   
   }



/***********************************************
 *                                             *
 * Function: Open library, screen and window   *
 * =========================================== *
 *                                             *
 * Author:  Date:      Comments:               *
 * ------  ----------  ----------              *
 * Wgb     10/16/1987                          *
 *                                             *
 *                                             *
 ***********************************************/

Open_All()
   {
   void          *OpenLibrary();
   struct Window *OpenWindow();
   struct Screen *OpenScreen();
   
   if (!(IntuitionBase = (struct IntuitionBase *)
       OpenLibrary("intuition.library", 0L)))
      {
      printf("Intuition library cannot be found!\n");
      Close_All();
      exit(FALSE);
      }
   
   if (!(FirstScreen = (struct Screen *)
       OpenScreen(&FirstNewScreen)))
      {
      printf("Screen cannot be opened!\n");
      Close_All();
      exit(FALSE);
      }
   
   FirstNewWindow.Screen = FirstScreen;
   
   if (!(FirstWindow = (struct Window *)
       OpenWindow(&FirstNewWindow)))
      {
      printf("Window cannot be opened!\n");
      Close_All();
      exit(FALSE);
      }
   }

/***************************************
 *                                     *
 * Function: Close everything opened   *
 * =================================== *
 *                                     *
 * Author:  Date:      Comments:       *
 * ------  ----------  ----------      *
 * Wgb     10/16/1987  Window, screen  *
 *                     and intuition   *
 *                                     *
 ***************************************/

Close_All()
   {
   if (FirstWindow)     CloseWindow(FirstWindow);
   if (FirstScreen)     CloseScreen(FirstScreen);
   if (IntuitionBase)   CloseLibrary(IntuitionBase);
   }