/*
 *  Triton - The object oriented GUI creation system for the Amiga
 *  Written by Stefan Zeiger in 1993-1995
 *
 *  (c) 1993-1995 by Stefan Zeiger
 *  You are hereby allowed to use this source or parts
 *  of it for creating programs for AmigaOS which use the
 *  Triton GUI creation system. All other rights reserved.
 *
 *  Toolmanager1.c - Looks like the original ToolManager
 *
 */


#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <libraries/triton.h>

#ifdef __GNUC__
#ifndef __OPTIMIZE__
#include <clib/triton_protos.h>
#else
#include <inline/triton.h>
#endif /* __OPTIMIZE__ */
#else
#include <proto/triton.h>
#endif /* __GNUC__ */


STRPTR cycle_entries[]={"Exec","Image","Sound","Menu","Icon","Dock","Access",NULL};

extern struct List LVList;

struct Node LVNodes[] =
{
  { &LVNodes[1], (struct Node *)&LVList.lh_Head,  0, 0, "2024view" },
  { &LVNodes[2], &LVNodes[0],                     0, 0, "Add to archive" },
  { &LVNodes[3], &LVNodes[1],                     0, 0, "Delete" },
  { &LVNodes[4], &LVNodes[2],                     0, 0, "Edit text" },
  { &LVNodes[5], &LVNodes[3],                     0, 0, "Env" },
  { &LVNodes[6], &LVNodes[4],                     0, 0, "Exchange" },
  { &LVNodes[7], &LVNodes[5],                     0, 0, "Global Help System" },
  { &LVNodes[8], &LVNodes[6],                     0, 0, "Multiview" },
  { (struct Node *)&LVList.lh_Tail, &LVNodes[7],  0, 0, "Paint" }
};

struct List LVList={&LVNodes[0],NULL,&LVNodes[8],0,0};


int main(void)
{
  if(TR_OpenTriton(TRITON11VERSION,TRCA_Name,"ToolManagerGUIDemo1",TRCA_LongName,"ToolManager GUI demo 1",TRCA_Info,"Looks like the original ToolManager",TAG_END))
  {
    TR_AutoRequestTags(Application,NULL,
      WindowID(0), WindowPosition(TRWP_BELOWTITLEBAR),
      WindowTitle("ToolManager GUI demo 1"), WindowFlags(TRWF_NOSIZEGADGET|TRWF_NODELZIP|TRWF_NOZIPGADGET|TRWF_NOESCCLOSE),
      WindowBackfillNone,

      VertGroupA,

        Space,

        HorizGroupAC,
          Space,
          TextID("_Object Type",1),
          Space,
          CycleGadget(cycle_entries,0,1),
          Space,
        EndGroup,

        Space,

        HorizGroupAC,
          Space,
            VertGroupAC,
              CenteredTextID("Object List",2),
              Space,
              ListSSCN(&LVList,2,0,0),
            EndGroup,
          Space,
            VertGroupA,
              TextN(""),
              Space,
              Button("Top",3),
              Space,
              Button("Up",4),
              Space,
              Button("Down",5),
              Space,
              Button("Bottom",6),
              Space,
              Button("So_rt",7),
            EndGroup,
          Space,
        EndGroup,

        Space,

        HorizGroupEA,
          Space,
          Button("_New...",8),
          Space,
          Button("_Edit...",9),
          Space,
          Button("Co_py",10),
          Space,
          Button("Remove",11),
          Space,
        EndGroup,

        Space,

        HorizGroupEA,
          Space,
          Button("_Save",12),
          Space,
          Button("_Use",13),
          Space,
          Button("_Test",14),
          Space,
          Button("_Cancel",15),
          Space,
        EndGroup,

        Space,

      EndGroup,

      TAG_END);
    TR_CloseTriton();
    return 0;
  }
  puts("Can't open triton.library v2+.");
  return 20;
}