/* 
  Jerry J. Trantow
  1560 A. East Irving Place
  Milwaukee, Wi 53202-1460

 Zarathustra asks "Who among you can laugh and be elevated 
 at the same time?"

15 Nov 88 This file contains the routines for PROJECT_ABOUT
 8 Jul 89 Finally got around to implementing PROJECT_ABOUT 
          with simple window 
20 Aug 89 Changed window to SMART_REFRESH
 1 Apr 90 Modified to work with spintask.c
 9 Jun 90 Changed TextAttr to be externals
25 Jun 90 Changed tabs to 60 column spaces
12 Jul 90 Window opens ACTIVATEd
*/

#include "spin.h"

struct TextAttr taBI =
{ (STRPTR)stTopaz,            /* ta_Name  */
  (UWORD)8,                   /* ta_YSize */
  (UBYTE)FSF_BOLD|FSF_ITALIC, /* ta_Style */
  (UBYTE)FPF_ROMFONT          /* ta_Flags */
};
struct TextAttr taB  =
{ (STRPTR)stTopaz,            /* ta_Name  */
  (UWORD)8,                   /* ta_YSize */
  (UBYTE)FSF_BOLD,            /* ta_Style */
  (UBYTE) FPF_ROMFONT         /* ta_Flags */
};
struct IntuiText CopyRight2=
{ (UBYTE)1,                       /* FrontPen  */
  (UBYTE)2,                       /* BackPen   */
  (UBYTE)JAM1,                    /* DrawMode  */
  (SHORT)0,                       /* LeftEdge  */
  (SHORT)20,                      /* TopEdge   */
  (struct TextAttr *)&taB,        /* ITextFont */
  (UBYTE *)"Milw, Wi 53202-1460", /* IText     */
  (struct IntuiText *)NULL        /* NextIText */
};
struct IntuiText CopyRight1=
{ (UBYTE)1,          /* FrontPen  */
  (UBYTE)2,          /* BackPen   */
  (UBYTE)JAM1,                    /* DrawMode  */
  (SHORT)0,                       /* LeftEdge  */
  (SHORT)10,                      /* TopEdge   */
  (struct TextAttr *)&taB,        /* ITextFont */
  (UBYTE *)"1560 A. East Irving Place", /* IText */
  (struct IntuiText *)&CopyRight2 /* NextIText */
};
struct IntuiText CopyRight0=
{ (UBYTE)1,           /* FrontPen  */
  (UBYTE)2,           /* BackPen   */
  (UBYTE)JAM1,                     /* DrawMode  */
  (SHORT)0,                        /* LeftEdge  */
  (SHORT)0,                        /* TopEdge   */
  (struct TextAttr *)&taBI,        /* ITextFont */
  (UBYTE *)"(c) 1990 J.J. Trantow  Compiled 14 July 1990",
  (struct IntuiText *)&CopyRight1  /* NextIText */
};

struct NewWindow NewFunWind=
{ 10,20,410,50,                /* dimensions */
  (UBYTE)-1,(UBYTE)-1,         /* pens       */
  (ULONG)CLOSEWINDOW,
  (ULONG)WINDOWCLOSE|WINDOWDRAG|SMART_REFRESH
         |ACTIVATE,
  (struct Gadget *)NULL,        /* FirstGadget */
  (struct Image *)NULL,
  (UBYTE *)"About SpinPointer", /* Title */
  NULL,NULL,
  0,0,0,0,
  WBENCHSCREEN
};
void about()
{
  FAST struct Window *WPtr;

  if ((WPtr=(struct Window *)OpenWindow(&NewFunWind))!=NULL)
  {
   PrintIText(WPtr->RPort,&CopyRight0,10L,15L);
   Wait(1L<<WPtr->UserPort->mp_SigBit);
   CloseWindow(WPtr);
  }
}