/*-----------------------------------------------------------
--  Programm: prop.c
--     Autor: Intuition Ed 
--     Datum: Tue Apr  3
--  Funktion: Beispiel für ein zweidemensionales Proportionalgadget.
------------------------------------------------------------/*


/*-------------------
--  Includes  :    --
-------------------*/

#include <intuition/intuition.h>


/*-------------------
--  Defines  :     --
-------------------*/

#define GADGET1_GAD                              0

#define HORIZGADGET1_POS   (MAXBODY/100)
#define VERTGADGET1_POS   (MAXBODY/200)

/*-------------------
--  Funktionen  :  --
-------------------*/

void                   Open_All() ;
void                   Close_All();

/*-------------------
--  externe        --
--  Variablen  :   --
-------------------*/

struct IntuitionBase  *IntuitionBase;
struct Window         *Window1;


/*-------------------
--  Strukturen  :  --
-------------------*/


struct Image    Gadget1Image;
struct PropInfo Gadget1PropInfo =
{
 FREEHORIZ                                /* Flags                     */
 | AUTOKNOB
 | FREEVERT,
 HORIZGADGET1_POS * 50,                   /* HorizPot                  */
 VERTGADGET1_POS * 100,                   /* VertPot                   */
 HORIZGADGET1_POS * 10,                   /* HorizBody                 */
 VERTGADGET1_POS * 20,                    /* VertBody                  */
 0,                                       /* CWidth                    */
 0,                                       /* CHeight                   */
 0,                                       /* HPotRes                   */
 0,                                       /* VPotRes                   */
 0,                                       /* LeftBorder                */
 0,                                       /* TopBorder                 */
};

struct Gadget Gadget1 =
{
 NULL,                                    /* Last Gadget               */
  50, 25,                                 /* LeftEdge , TopEdge        */
 100,100,                                 /* Width , Height            */
 GADGHCOMP,                               /* Flags                     */
 RELVERIFY,                               /* Activation                */
 PROPGADGET,                              /* Gadget Type               */
 (APTR)&Gadget1Image,                     /* Gadget Render             */
 NULL,                                    /* No Selected Render        */
 NULL,                                    /* No Gadget Text            */
 NULL,                                    /* Mutual Exclude            */
 (APTR)&Gadget1PropInfo,                  /* SpecialInfo               */
 GADGET1_GAD,                             /* Gadget ID                 */
 NULL,                                    /* User Data                 */
};

/*-  NewWindow  :   ---
---  Window1        -*/

struct NewWindow NewWindow1 =
{
  20, 10,                                 /* LeftEdge , TopEdge        */
 200,150,                                 /* Width , Height            */
   0,  1,                                 /* DetailPen , BlockPen      */
 GADGETDOWN                               /* IDCMP Flags               */
 | GADGETUP
 | CLOSEWINDOW,
 WINDOWSIZING                             /* Flags                     */
 | WINDOWCLOSE
 | WINDOWDRAG
 | WINDOWDEPTH
 | SMART_REFRESH
 | ACTIVATE,
 &Gadget1,                                /* First Gadget              */
 NULL,                                    /* Check Mark                */
 NULL,                                    /* No Title                  */
 NULL,                                    /* Screen                    */
 NULL,                                    /* BitMap                    */
  80, 30,                                 /* MinWidth , MinHeight      */
 640,256,                                 /* MaxWidth , MaxHeight      */
 WBENCHSCREEN,                            /* ScreenType                */
};

/*-----------------------------------------------------------
--      Funktion: main
--  Benötigte oder veränderte globale Variablen
--              :         --
--  Rückgabewert:         --
--     Bemerkung: ruft Open_All und Close_All auf.
------------------------------------------------------------*/

void main()
{
 struct IntuiMessage  *message;
 struct Message       *GetMsg();

 Open_All();
   
 FOREVER
 {
  if (NOT(message = (struct IntuiMessage *)
        GetMsg(Window1->UserPort)))
  {
   Wait(1L << Window1->UserPort->mp_SigBit);
   continue;
  }
  ReplyMsg(message);

  switch (message->Class)
  {
   case GADGETUP    : printf(" VertPosition: %u\n"   ,(int)(Gadget1PropInfo.VertPot/VERTGADGET1_POS));
                      printf("HorizPosition: %u\n\n",(int)(Gadget1PropInfo.HorizPot/HORIZGADGET1_POS));
                      break;
         
   case CLOSEWINDOW : Close_All();
                      exit(TRUE);
         
  }
 }
}

/*-----------------------------------------------------------
--      Funktion: Open_All
--       Aufgabe: Öffnet die Intuitionslibrary,
--                öffnet alle Intuitionselemente.
--  Benötigte oder veränderte globale Variablen
--              :         --
--  Rückgabewert:         --
--     Bemerkung: Ruft bei einem Fehler Close_All auf.
------------------------------------------------------------*/


void Open_All()
{
 struct Window        *OpenWindow();
 void                 *OpenLibrary();

 if (NOT(IntuitionBase = (struct IntuitionBase*)
       OpenLibrary ("intuition.library", 0L)))
 {
  printf("Keine Intuition Library gefunden.");
  Close_All();
  exit(FALSE);
 }

 if (NOT(Window1 = (struct Window *)
       OpenWindow (&NewWindow1 )))
 {
  printf("Das Window1 -  WB-Window läßt sich nicht öffnen.\n");
  Close_All();
  exit(FALSE);
 }

}

/*-----------------------------------------------------------
--      Funktion: Close_All
--       Aufgabe: Schließt die Intuitionslibrary,
--                schließt alle Intuitionselemente
--  Benötigte oder veränderte globale Variablen
--              :         --
--  Rückgabewert:         --
--     Bemerkung:         --
------------------------------------------------------------*/

void Close_All()
{
 void                  CloseWindow();
 void                  CloseLibrary();

 if (Window1)   CloseWindow (Window1) ;
 if (IntuitionBase)     CloseLibrary(IntuitionBase);
}