/* c.about_aim */
#include <stdio.h>
#include <string.h>
#include "swis.h"
#include "flex.h"
#include "os.h"
#include "wimp.h"
#include "wimpt.h"
#include "win.h"
#include "event.h"
#include "dbox.h"
#include "werr.h"
#include "txt.h"
#include "txtedit.h"
txt aboutwnd;
char about[21][80];

char * poll_loop(char *,int,wimp_eventstr *);
void wprintf(const char *form,...);

void about_aim(void)
{
  wimp_icon ic;
  char buf[80], *pntr;
  int aah,i;
  dbox d;
  d=dbox_new("AboutAim");
  aah=dbox_syshandle(d);

 aboutwnd=txt_new("About Aim");
strcpy(about[0]," AIM : Another Image Manager for Atari-ST/TT, Amiga and Archimedes.\n");
strcpy(about[1],"       An interactive and educational Image Processing package of the\n");
strcpy(about[2],"       Delft University of Technology, faculty of Applied Physics.\n");
strcpy(about[3],"       Based on an idea of prof.dr.ir.F.C.A.Groen.\n");
strcpy(about[4],"       Although there are some similarities, AIM is *not* a demo-version\n");
strcpy(about[5],"       of TCL-Image, the professional Image Processing package of the\n");
strcpy(about[6],"       Delft Center for Image Processing 'CBD'.\n");
strcpy(about[7],"       Original Atari-ST version: Frans Groen, Robert de Vries (a.o.).\n");
strcpy(about[8],"       Arthur version: Damir Sudar, Robert Ellens, Alle-Jan van der Veen.\n");
strcpy(about[9],"       RISC-OS version (including improvements): Ed Doppenberg.\n");
strcpy(about[10],"       The Archimedes versions are sponsored by ECD Computers Delft BV.\n");
strcpy(about[11],"       Co-ordination (all versions): Thom Hoeksma, Pattern Recognition,\n");
strcpy(about[12],"       Fac. of Applied Physics TUD, Lorentzweg 1, 2628 CJ Delft(Holland).\n");


strcpy(about[13],"       AIM is a Public Domain package and may be freely copied.\n");
strcpy(about[14],"       However, you can order for a printed Reference Manual together\n");
strcpy(about[15],"       with the latest version of AIM on disk:\n");
strcpy(about[16],"          Lindis International Ltd., Wood Farm, Linstead Magna,\n");
strcpy(about[17],"          Halesworth, Suffolk IP19 0DU. (UK). Tel: +44 (0)98685 476.\n");
strcpy(about[18],"       or ECD Computers Delft BV, Voldersgracht 25-26,\n");
strcpy(about[19],"          2611 EV Delft. (The Netherlands). Tel: +31 (0)15 147643.\n");
strcpy(about[20],"       (ECD and Lindis are distributors of *TCL-Image* too).\n");

  for (i=0;i<21;i++)
    {
     wimpt_complain(wimp_get_icon_info(aah,i+1,&ic));
     pntr=(char *)ic.data.indirecttext.buffer;
     strncpy(pntr,about[i],ic.data.indirecttext.bufflen);
    }
  dbox_show(d);
  dbox_fillin(d);
  dbox_dispose(&d);
} 
     
     
     
        
        
     
        
     


