/** firm.c *****************/
/*                         */
/* by [RK]                 */
/*                         */
/* Copyright © 1988 by DgA */
/*                         */
/***************************/

/*
FIRM    : Digital Artists (DgA)
OBJECT  : firm.c
RELEASE : 1.0
AUTHOR  : [RK]
DATE    : 06-11-1988
STATUS  : SECRET
*/

#include <exec/types.h>
#include <intuition/intuition.h>
#include <graphics/text.h>

extern struct Window *Window;
extern struct TextAttr font[2];

UBYTE FirmName[16];
UBYTE UNDOBuffer[16];

USHORT fpts[2][18] =
 {
  {0,0,249,0,249,59,1,59,1,0,248,0,248,59,0,59,0,0},
  {0,0,155,0}
 };

struct Border fggbo[2] =
 {
  {-3,10,13,0,JAM2,2,&fpts[1][0],NULL},
  {-3,11,15,0,JAM2,2,&fpts[1][0],&fggbo[0]}
 };

struct StringInfo fggsi =
 {&FirmName[0],&UNDOBuffer[0],0,15,0,0,0,0,0,0,NULL,0,NULL};

struct IntuiText fggtxt =
 {9,0,JAM2,-21,-16,&font[0],"Bitte Firma eingeben",NULL};

struct Gadget fgg =
 {NULL,50,35,150,13,GADGHCOMP,STRINGCENTER|RELVERIFY,STRGADGET|REQGADGET,&fggbo[1],NULL,&fggtxt,0L,&fggsi,0,NULL};

struct Border fbo =
 {0,0,13,0,JAM2,9,&fpts[0][0],NULL};

struct Requester firms =
 {NULL,195,80,250,60,0,0,&fgg,&fbo,NULL,0,0,NULL,NULL,NULL,NULL,NULL};

GetFirm()
 {
  struct IntuiMsg *fmsg;
  BOOL choosen = FALSE;
  BOOL success;

  FirmName[0] = '\0';

  Request(&firms,Window);

  firms.Flags |= REQACTIVE;

  success = ActivateGadget(&fgg,Window,&firms);

  while (!(choosen))
   {
    while((fmsg=(struct IntuiMessage *)GetMsg(Window->UserPort))==NULL);
    ReplyMsg(fmsg);
    if (fmsg->Class == GADGETUP)
     choosen = TRUE;
   }

  EndRequest(&firms,Window);

  return(&FirmName[0]);
 }