/*
** PROGRAMM:  AmigaGuideDesigner Preferences
** AUTOR:     Michael Weiser
** COPYRIGHT: ©1994 Michael Weiser (Giftware)
** COMPILER:  SAS/C 6.5
**
** MODUL:     IntuiFuncs.c
** FUNKTION:  verschiedene Funktionen zur Intuition-Handhabung
**            (Gadgets,Windows,BevelBoxen)
**
*/

#include "AGDPrefs.h"

static UWORD __chip BusyPointer[]=
{
  0x0000, 0x0000,

  0x0400, 0x07C0,
  0x0000, 0x07C0,
  0x0100, 0x0380,
  0x0000, 0x07E0,
  0x07C0, 0x1FF8,
  0x1FF0, 0x3FEC,
  0x3FF8, 0x7FDE,
  0x3FF8, 0x7FBE,
  0x7FFC, 0xFF7F,
  0x7EFC, 0xFFFF,
  0x7FFC, 0xFFFF,
  0x3FF8, 0x7FFE,
  0x3FF8, 0x7FFE,
  0x1FF0, 0x3FFC,
  0x07C0, 0x1FF8,
  0x0000, 0x07E0,

  0x0000, 0x0000,
};

struct TagItem UnderscoreTags[]={GT_Underscore,'_',TAG_DONE};

static ULONG MainIDCMP,ProjSetIDCMP,DocsSetIDCMP,CommSetIDCMP,MiscSetIDCMP,ScrSetIDCMP;

/* ==================================================================================== GetValidWindow
** ermittelt ein existierendes Window
*/
struct Window *GetValidWindow(void)
{
  struct Window *win;

  if (MainWin) win=MainWin;
   else if (ProjSetWin) win=ProjSetWin;
    else if (DocsSetWin) win=DocsSetWin;
     else if (CommSetWin) win=CommSetWin;
      else if (MiscSetWin) win=MiscSetWin;
       else if (ScrSetWin) win=ScrSetWin;
        else win=NULL;

  return(win);
}

/* ===================================================================================== DisableWindow
** blockiert ein Window mit einem Null-Requester und setzt den BusyPointer
*/
ULONG DisableWindow(struct Window *win,struct Requester *req)
{
  if (win)
  {
    ULONG oldidcmp=win->IDCMPFlags;
    ModifyIDCMP(win,IDCMP_REFRESHWINDOW);

    /* Requester aufrufen */
    if (req) Request(req,win);

    /* Pointer setzen */
    if (IntuitionBase->lib_Version>=39)
      SetWindowPointer(win,WA_BusyPointer,TRUE,TAG_DONE);
    else
      SetPointer(win,BusyPointer,16,16,-6,0);

    return(oldidcmp);
  }

  return(0);
}

/* ====================================================================================== EnableWindow
** beendet den Sperr-Requester und setzt den Standard-Pointer
*/
void EnableWindow(struct Window *win,struct Requester *req,ULONG oldidcmp)
{
  if (win)
  {
    /* Pointer löschen */
    if (IntuitionBase->lib_Version>=39)
      SetWindowPointer(win,WA_Pointer,NULL,TAG_DONE);
    else
      ClearPointer(win);

    /* Requester beenden */
    if (req) EndRequest(req,win);

    ModifyIDCMP(win,oldidcmp);
  }
}

/* ================================================================================= DisableAllWindows
** sperrt alle Windows
*/
void DisableAllWindows(void)
{
  MainIDCMP   =DisableWindow(MainWin,&BlockReq);
  ProjSetIDCMP=DisableWindow(ProjSetWin,&BlockReq);
  DocsSetIDCMP=DisableWindow(DocsSetWin,&BlockReq);
  CommSetIDCMP=DisableWindow(CommSetWin,&BlockReq);
  MiscSetIDCMP=DisableWindow(MiscSetWin,&BlockReq);
  ScrSetIDCMP =DisableWindow(ScrSetWin,&BlockReq);
}

/* ================================================================================== EnableAllWindows
** gibt all Windows wieder frei
*/
void EnableAllWindows(void)
{
  EnableWindow(ScrSetWin,&BlockReq,ScrSetIDCMP);
  EnableWindow(MiscSetWin,&BlockReq,MiscSetIDCMP);
  EnableWindow(CommSetWin,&BlockReq,CommSetIDCMP);
  EnableWindow(DocsSetWin,&BlockReq,DocsSetIDCMP);
  EnableWindow(ProjSetWin,&BlockReq,ProjSetIDCMP);
  EnableWindow(MainWin,&BlockReq,MainIDCMP);
}

/* =================================================================================== CloseAllWindows
** schließt alle Windows
*/
void CloseAllWindows(void)
{
  CloseMainWin();
  CloseProjSetWin();
  CloseDocsSetWin();
  CloseCommSetWin();
  CloseMiscSetWin();
  CloseScrSetWin();
}

/* ================================================================================== UpdateAllWindows
** schließt alle Windows
*/
void UpdateAllWindows(void)
{
  UpdateProjSetWin();
  UpdateDocsSetWin();
  UpdateCommSetWin();
  UpdateMiscSetWin();
  UpdateScrSetWin();
}

/* ================================================================================== CreateGadgetList
** kreiert eine Gadgetliste aus einem GadgetData-Array
** Original: (c) 1990-1993 Stefan Becker (vom Toolmanager 2.1)
*/
struct Gadget* CreateGadgetList(struct GadgetData *gd, UBYTE gadnum)
{
  struct Gadget    *glist=NULL;
  struct Gadget    *gad  =NULL;
  struct NewGadget  ng={0};
  ULONG i;

  ng.ng_TextAttr  =&Screen.ps_ScrAttr;
  ng.ng_VisualInfo=Screen.ps_VisualInfo;

  /* Context anlegen */
  if (gad=CreateContext(&glist))
  {
    for (i=0; i<gadnum; i++, gd++)
    {
      /* NewGadget setzen */
      ng.ng_LeftEdge  =gd->LeftEdge;
      ng.ng_TopEdge   =gd->TopEdge;
      ng.ng_Width     =gd->Width;
      ng.ng_Height    =gd->Height;
      ng.ng_GadgetText=gd->GadgetText;
      ng.ng_GadgetID  =gd->GadgetID;
      ng.ng_Flags     =gd->Flags;

      if (gd->Tags)
      {
        UnderscoreTags[1].ti_Tag =TAG_MORE;
        UnderscoreTags[1].ti_Data=(ULONG)gd->Tags;
      }
      else
        UnderscoreTags[1].ti_Tag =TAG_DONE;

      /* CreateGadget() */
      if (!(gad=CreateGadgetA(gd->Type,gad,&ng,UnderscoreTags)))
      {
        /* Fehler */
        break;
      }

      /* Gadget-Pointer sichern */
      gd->Gadget=gad;
    }

    /* TagList wieder in Ordnung bringen, für Gebrauch von anderen Modulen */
    UnderscoreTags[1].ti_Data=TAG_DONE;

    /* Alles OK */
    if (gad) return(glist);

    /* Fehler */
    FreeGadgets(glist);
  }

  /* FALSE */
  return(NULL);
}

/* =============================================================================== DrawSeparatorsBoxes
** zeichnet alle Separators, die in einem SepData-Vector stehen
*/
void DrawSeparators(struct Window *w,struct SepData *sd,UBYTE sepnum)
{
  ULONG i;

  for (i=0;i<sepnum;i++,sd++)
  {
    DrawBevelBox(w->RPort,
                 sd->LeftEdge,sd->TopEdge,
                 sd->Width,SEPHEIGHT,
                 GT_VisualInfo,Screen.ps_VisualInfo,
                 GTBB_Recessed,TRUE,
                 TAG_DONE);
  }
}

/* ==================================================================================== FindVanillaKey
** sucht aus einem String den Buchstaben '_' und gibt den nächsten Buchstaben zurück
*/
char FindVanillaKey(const char *text)
{
  unsigned char *d;

  /* '_' in GadgetText suchen */
  if (d=strchr(text,'_'))
  {
    /* gefunden-nächsten Buchstaben zurückgeben */
    d++;
    return((char)tolower(*d));
  }
  else
  {
    /* nicht gefunden-illegales Zeichen zurückgeben */
    return(1);
  }
}

/* =================================================================================== MatchVanillaKey
** sucht aus einem Array von Buchstaben einen bestimmten heraus und gibt dessen
** Position im Array zurück
*/
LONG MatchVanillaKey(char key,const char *vanillakeys)
{
  char *d;

  /* in Array 'key' suchen */
  if (d=strchr(vanillakeys,key))
    /* gefunden-Nummer zurückgeben */
    return(d-vanillakeys);
  else
    /* nicht gefunden-illegalen Wert zurückgeben */
    return(-1);
}

/* ====================================================================================== DoStringCopy
** verdoppelt den Gadget-Buffer und gibt vorher den alten frei
*/
void DoStringCopy(char **buf,struct Gadget *gad)
{
  if (*buf) FreeVec(*buf);
  *buf=mstrdup(GetString(gad));
}

/* ======================================================================================= End of File
*/