home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk458.lzh / GIFMachine / Sources / warncli.c < prev    next >
C/C++ Source or Header  |  1991-02-15  |  2KB  |  52 lines
  1. /* Copyright 1990 by Christopher A. Wichura.
  2.    See file GIFMachine.doc for full description of rights.
  3. */
  4.  
  5. #include <exec/types.h>
  6. #include <intuition/intuition.h>
  7. #include <graphics/text.h>
  8. #include <proto/exec.h>
  9. #include <proto/intuition.h>
  10.  
  11. static struct TextAttr TOPAZ60 = {"topaz.font", TOPAZ_SIXTY,
  12.     FS_NORMAL, FPF_ROMFONT};
  13.  
  14. static struct IntuiText BodyText2 = {-1, -1,    /* pen numbers */
  15.                              0,             /* draw mode */
  16.                              9,14,          /* starting offsets */
  17.                              &TOPAZ60,      /* text attribute pointer */
  18.                              "for CLI use only!",
  19.                              NULL };
  20.  
  21. static struct IntuiText BodyText1 = {-1,-1,      /* pen numbers */
  22.                              0,             /* draw mode */
  23.                              29,4,          /* starting offsets */
  24.                              &TOPAZ60,      /* text attribute pointer */
  25.                              "GIFMachine is",
  26.                              &BodyText2 };
  27.  
  28. static struct IntuiText ContinueText = {-1,-1,  /* pen numbers */
  29.                              0,             /* draw mode */
  30.                              4,4,           /* starting offsets */
  31.                              &TOPAZ60,      /* text attribute pointer */
  32.                              "CONTINUE",
  33.                              NULL };
  34.  
  35. void WarnMustUseCLI(void)
  36. {
  37.     BOOL    OpenedIntui;
  38.  
  39.     if (IntuitionBase)
  40.         OpenedIntui = FALSE;
  41.     else {
  42.         if (!(IntuitionBase = OpenLibrary("intuition.library", 0)))
  43.             return;
  44.         OpenedIntui = TRUE;
  45.     }
  46.  
  47.     AutoRequest(NULL,&BodyText1,NULL,&ContinueText,0,0,220,64);
  48.  
  49.     if (OpenedIntui)
  50.         CloseLibrary(IntuitionBase);
  51. }
  52.