/*************************************************************************/
/*                                                                       */
/* C-Beispielprogramm für die Get-It ( Diskettenmagazin der AIT-UG )     */
/*                                                                       */
/* Kurs 2 : Einfache Window-Demo                                         */
/* Datum : 9.1.89                                                        */
/*                                                                       */
/* Keine Copyrights irgendwelcher Art auf die folgenden Zeilen.          */
/*                                                                       */
/*************************************************************************/

#include <intuition/intuition.h>

struct IntuitionBase *IntuitionBase = NULL;

char Nachricht[][50] =
{ "intuition.library läßt sich nicht öffnen !\n",
  "Fenster läßt sich nicht öffnen !\n"
};

struct NewWindow NeuFenster =
{ 50,40,
  540,176,
  0,1,
  CLOSEWINDOW,
  WINDOWCLOSE | ACTIVATE,
  NULL,
  NULL,
  " Fenster ( einen Augenblick ! )",
  NULL,
  NULL,
  0,0,
  0,0,
  WBENCHSCREEN
};

struct Window *Fenster = NULL;

main()
{ IntuitionBase = OpenLibrary ( "intuition.library",0 );
  if ( IntuitionBase == NULL )
    notaus ( Nachricht[0] );

  Fenster = OpenWindow( &NeuFenster );
  if ( Fenster == NULL )
    notaus ( Nachricht[1] );

  Delay ( 100 );
  SetWindowTitles ( Fenster," << Zum Schließen hier anklicken !",-1 );

  Wait ( 1 << Fenster->UserPort->mp_SigBit );
  notaus( NULL );
}

notaus ( txt )
char *txt;
{ if ( txt != NULL )
    printf ( txt );
  if ( Fenster != NULL )
    CloseWindow ( Fenster );
  if ( IntuitionBase != NULL )
    CloseLibrary ( IntuitionBase );
  if ( txt != NULL )
    exit ( 100 );
  exit ( 0 );
}