/*
 * .tpl.c
 *
 * MACHINE GENERATED
 */

#include "defs.h"

Prototype __regargs struct Gadget *InitGads(struct Screen *);
Prototype void      FreeGads(void);

Prototype UBYTE         *Buf_storage_str;

Prototype struct Gadget *Gad_storage_str;
Prototype struct Gadget *Gad_storage_list;
Prototype struct Gadget *Gad_pagesize;
Prototype struct Gadget *Gad_linelength;
Prototype struct Gadget *Gad_split;
Prototype struct Gadget *Gad_title;
Prototype struct Gadget *Gad_filereq;
Prototype struct Gadget *Gad_print_it;
Prototype struct Gadget *Gad_automatic;
Prototype struct Gadget *Gad_quit;

Prototype struct NewGadget  NGAry[11];
Prototype struct MinList    List_storage_list;

#define xpos1   12
#define xpos2   (xpos1 +  33)
#define xpos3   (xpos1 + 180)
#define xpos4   (xpos1 + 302)

#define ypos1   29
#define ypos2   (ypos1 +  16)
#define ypos3   (ypos1 +  32)
#define ypos4   (ypos1 +  48)
#define ypos5   (ypos1 +  64)


/***********************  NGAry[11] **********************************/
const UBYTE linesstr[]  = "lines per page";
const UBYTE charsstr[]  = "chars per line";
const UBYTE splitstr[]  = "split pages";
const UBYTE addstr[]    = "add titlelines";
const UBYTE automstr[]  = "automatic";
const UBYTE loadstr[]   = "load files";
const UBYTE quitstr[]   = "Q U I T";
const UBYTE storagstr[] = "storage:";
const UBYTE printstr[]  = "print it";
const UBYTE forgetstr[] = "forget it";

struct NewGadget NGAry[11] =
{
  {xpos1, ypos1,59,  12, linesstr,  NULPTR, GAD_pagesize,     0x0002, NULPTR},
  {xpos1, ypos2,59,  12, charsstr,  NULPTR, GAD_linelength,   0x0002, NULPTR},
  {xpos2, ypos3, 0,   0, splitstr,  NULPTR, GAD_split,        0x0002, NULPTR},
  {xpos2, ypos4, 0,   0, addstr,    NULPTR, GAD_title,        0x0002, NULPTR},
  {xpos2, ypos5, 0,   0, automstr,  NULPTR, GAD_automatic,    0x0002, NULPTR},
  {xpos1, 114, 177,  17, loadstr,   NULPTR, GAD_filereq,      0x0010, NULPTR},
  {xpos1, 134, 177,  17, quitstr,   NULPTR, GAD_quit,         0x0010, NULPTR},
  {xpos3,  30, 241, 101, storagstr, NULPTR, GAD_storage_list, 0x0004, NULPTR},
  {xpos3, 110, 241,  17, NULPTR,    NULPTR, GAD_storage_str,  0x0004, NULPTR},
  {xpos3, 134, 119,  17, printstr,  NULPTR, GAD_print_it,     0x0000, NULPTR},
  {xpos4, 134, 119,  17, forgetstr, NULPTR, GAD_forget_it,    0x0000, NULPTR}
};

/***********************  Gad_pagesize ******************************/
struct Gadget *Gad_pagesize;

const UBYTE  *StatAry_pagesize[] =
{
  " 66",
  " 88",
  (void *) 0
};

UBYTE **Ary_pagesize   = StatAry_pagesize;

/***********************  Gad_linelength ****************************/
struct Gadget *Gad_linelength;

const UBYTE *StatAry_linelength[] =
{
  " 80",
  " 96",
  "132",
  (void *) 0
};

UBYTE **Ary_linelength  = StatAry_linelength;

/*****  Gad_split Gad_title Gad_filereq Gad_quit ********************/
struct Gadget *Gad_split;
struct Gadget *Gad_title;
struct Gadget *Gad_filereq;
struct Gadget *Gad_quit;

/***********************  Gad_storage_list **************************/
struct Gadget *Gad_storage_list;

struct MinList List_storage_list =
{
  (PE *) &List_storage_list.mlh_Tail,
  NULPTR,
  (PE *) &List_storage_list.mlh_Head
};

long   SelNo_storage_list  = 0;

/***********************  Gad_storage_str  **************************/
struct Gadget *Gad_storage_str;
UBYTE  *Buf_storage_str;
const UBYTE  *DefText_storage_str = "Welcome to the machine ...";

/*****  Gad_print_it Gad_automatic Gad_forget_it ********************/
struct Gadget *Gad_print_it;
struct Gadget *Gad_automatic;
struct Gadget *Gad_forget_it;

struct Gadget *GList;
struct VisualInfo *VisInfo;

/***********************  InitGads(scr)  **************************/
__regargs struct Gadget *
InitGads(struct Screen *scr)
{
  struct Gadget *gad;
  short  i;

  GList = (void *) 0;
  if ((VisInfo = GetVisualInfo(scr, TAG_END)) == NULL)
    return (NULPTR);

  struct NewGadget *ng;

  for ( i = 0, ng = NGAry;
        i < sizeof(NGAry) / sizeof(NGAry[0]);
        ++i, ++ng)
  {
    ng->ng_VisualInfo = VisInfo;
    ng->ng_TextAttr   = scr->Font;
  }

  if ((gad = CreateContext(&GList)) == NULL)
    return (NULPTR);

  Gad_pagesize      = gad = CreateGadget( CYCLE_KIND, gad, NG_pagesize,
                                          GTCY_Labels, Ary_pagesize,
                                          GTCY_Active, pagesize,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_linelength    = gad = CreateGadget( CYCLE_KIND, gad, NG_linelength,
                                          GTCY_Labels, Ary_linelength,
                                          GTCY_Active, linelength,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_split         = gad = CreateGadget( CHECKBOX_KIND, gad, NG_split,
                                          GTCB_Checked, split,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_title         = gad = CreateGadget( CHECKBOX_KIND, gad, NG_title,
                                          GTCB_Checked, title,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_automatic     = gad = CreateGadget( CHECKBOX_KIND, gad, NG_automatic,
                                          GTCB_Checked, autom,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_filereq       = gad = CreateGadget( BUTTON_KIND, gad, NG_filereq,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_quit          = gad = CreateGadget( BUTTON_KIND, gad, NG_quit,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_storage_str   = gad = CreateGadget( STRING_KIND, gad, NG_storage_str,
                                          GTST_MaxChars, MAXPATH,
                                          GTST_String,   DefText_storage_str,
                                          TAG_END );
  if (gad == NULL)
    return (NULL);

  Buf_storage_str   = ((struct StringInfo *)Gad_storage_str->SpecialInfo)->Buffer;

  Gad_storage_list  = gad = CreateGadget( LISTVIEW_KIND, gad, NG_storage_list,
                                          GTLV_Labels,        &List_storage_list,
                                          GTLV_Selected,      SelNo_storage_list,
                                          GTLV_ShowSelected,  Gad_storage_str,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  Gad_print_it      = gad = CreateGadget( BUTTON_KIND, gad, NG_print_it,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);


  Gad_forget_it     = gad = CreateGadget( BUTTON_KIND, gad, NG_forget_it,
                                          TAG_END);
  if (gad == NULL)
    return (NULL);

  return (GList);
}

/***********************  FreeGads(void)  ****************************/
void
FreeGads(void)
{
  FreeGadgets(GList);
  if (VisInfo)
    FreeVisualInfo(VisInfo);
  VisInfo = NULL;
  GList   = NULL;
}