home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d584 / wizardfiler.lha / WizardFiler / Example.c < prev    next >
C/C++ Source or Header  |  1992-01-04  |  8KB  |  280 lines
  1. /* ********************************************************************** */
  2. /* * WIZARD FILER   EXAMPLE    Version 1.01    Stefan Zeiger  21-Sep-91 * */
  3. /* ********************************************************************** */
  4.  
  5.  
  6. #include <intuition/intuition.h>
  7. #include <graphics/gfxbase.h>
  8. #include <string.h>
  9.  
  10. /* Remember to include this file if you use WizardFiler(): */
  11. #include "WizardFiler.h"
  12.  
  13.  
  14. /* Declare the functions: */
  15. void _main();
  16. USHORT press_continue();
  17. void quit();
  18.  
  19.  
  20. struct IntuitionBase *IntuitionBase;
  21. struct GfxBase *GfxBase=NULL;
  22.  
  23.  
  24. struct IntuiMessage *your_message;
  25. struct Window *your_window;
  26.  
  27.  
  28. /* 80-Characters ROM font: */
  29. struct TextAttr your_font=
  30. {
  31.   "topaz.font", /* Font Name */
  32.   TOPAZ_EIGHTY, /* Font Height */
  33.   FS_NORMAL,    /* Style */
  34.   FPF_ROMFONT   /* Preferences */
  35. };
  36.  
  37.  
  38. /* ********************************************************************* */
  39. /* * Information for the boolean gadget "CONTINUE"                     * */
  40. /* ********************************************************************* */
  41.  
  42. /* Values for a 8-letter box: */
  43. SHORT points8[]=
  44. {
  45.    0,  0,
  46.   76,  0,
  47.   76, 14,
  48.    0, 14,
  49.    0,  0
  50. };
  51.  
  52. /* A border for a 8-letter box: */
  53. struct Border border8=
  54. {
  55.   0, 0,         /* LeftEdge, TopEdge */
  56.   1, 2, JAM1,   /* FrontPen, BackPen, DrawMode */
  57.   5,            /* Count */
  58.   points8,      /* *XY */
  59.   NULL          /* *NextBorder */
  60. };
  61.  
  62. struct IntuiText text_continue=
  63. {
  64.   3, 0,       /* FrontPen, BackPen */
  65.   JAM1,       /* DrawMode */
  66.   7,4,        /* LeftEdge, TopEdge */
  67.   &your_font, /* *ITextFont, (Topaz, 80) */
  68.   "CONTINUE", /* *IText */
  69.   NULL        /* *NextText */
  70. };
  71.  
  72. struct Gadget gadget_continue=
  73. {
  74.   NULL,            /* *NextGadget */
  75.   16, 177, 78, 15, /* LeftEdge, TopEdge, Width, Height */
  76.   GADGHNONE,       /* Flags */
  77.   GADGIMMEDIATE,   /* Activation */
  78.   BOOLGADGET,      /* GadgetType */
  79.   (APTR) &border8, /* GadgetRender */
  80.   NULL,            /* SelectRender */
  81.   &text_continue,  /* *GadgetText */
  82.   NULL,            /* MutualExclude */
  83.   NULL,            /* SpecialInfo */
  84.   NULL,            /* GadgetID */
  85.   NULL             /* UserData */
  86. };
  87.  
  88.  
  89. /* ********************************************************************* */
  90. /* * YOUR WINDOW                                                       * */
  91. /* ********************************************************************* */
  92.  
  93. struct NewWindow your_new_window=
  94. {
  95.   0,0,              /* LeftEdge, TopEdge */
  96.   640, 200,         /* Width, Height */
  97.   0,1,              /* DetailPen, BlockPen */
  98.   CLOSEWINDOW|      /* IDCMPFlags */
  99.   GADGETDOWN,
  100.   ACTIVATE|         /* Flags */
  101.   WINDOWDEPTH|
  102.   WINDOWDRAG|
  103.   WINDOWCLOSE|
  104.   SMART_REFRESH,
  105.   &gadget_continue,        /* *FirstGadget */
  106.   NULL,                    /* *CheckMark */
  107.   (STRPTR) "WIZARD FILER 1.01 EXAMPLE", /* *Title */
  108.   NULL,                    /* *Screen */
  109.   NULL,                    /* *BitMap */
  110.   0,0,                     /* MinWidth, MinHeight */
  111.   0,0,                     /* MaxWidth, MaxHeight */
  112.   WBENCHSCREEN             /* Type */
  113. };
  114.  
  115.  
  116. /* ********************************************************************* */
  117. /* * TEXT:                                                             * */
  118. /* ********************************************************************* */
  119.  
  120. struct IntuiText int_text=
  121. {
  122.   1, 0,       /* FrontPen, BackPen */
  123.   JAM2,       /* DrawMode */
  124.   16, 9,      /* LewftEdge, TopEdge */
  125.   &your_font, /* *ITextFont */
  126.   NULL,       /* *IText */
  127.   NULL        /* *NextText */
  128. };
  129.  
  130. char *text_string[19]=
  131. {
  132.   "                                                                          ",
  133.   "WIZARD FILER EXAMPLE                 VERSION 1.01                21-Sep-91",
  134.   "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~",
  135.   "WizardFiler is an enhanced version of Anders Bjerin's 'FileWindow'.",
  136.   "WizardFiler v1.01 was written by Stefan Zeiger of ! WIZARD WORKS !",
  137.   "in 1991. It is in the PUBLIC DOMAIN with NO RIGHTS RESERVED. You",
  138.   "may use it in all of your programs - commercial or not - and you",
  139.   "do not even have to mention that you used it. You may alter the source",
  140.   "code for your requirements and just do whatever you want to do with",
  141.   "WizardFiler. And now try this demo and enjoy WizardFiler.",
  142.   "",
  143.   "          Happy programming,",
  144.   "                             Stefan.",
  145.   "",
  146.   "STANDARD MAIL : ! WIZARD WORKS !",
  147.   "                Stefan Zeiger",
  148.   "                Seligenstädter Weg 24",
  149.   "                D-W-8756 Kahl",
  150.   "VOICE:          (49)-6188-2525"
  151. };
  152.  
  153.  
  154. /* ******************* MAIN ******************** */
  155.  
  156. void _main()
  157. {
  158.   USHORT operation;
  159.   UBYTE file[TOTAL_LENGTH];
  160.   int temp;
  161.  
  162.   if((IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",33))==NULL) exit(0);
  163.   if((GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",33))==NULL)
  164.   {
  165.     CloseLibrary((struct Library *)IntuitionBase);
  166.     exit(0);
  167.   }
  168.  
  169.   /* Open your window: */
  170.   if((your_window=(struct Window *)OpenWindow(&your_new_window))==NULL)
  171.   {
  172.     CloseLibrary((struct Library *) IntuitionBase);
  173.     CloseLibrary((struct Library *) GfxBase);
  174.     exit(0);
  175.   }
  176.  
  177.   /* Copy some text into file. This is optional, but very handy if you   */
  178.   /* want the WizardFiler() to start to look in a specific directory, or  */
  179.   /* device:                                                             */
  180.   /* (If there is a file name in the string it will automatically appear */
  181.   /* in the "File:" gadget, and the path in the "Drawer:" gadget.)       */
  182.   strcpy(file, "df0:");
  183.  
  184.   /* Fill your_window with text: */
  185.   for(temp=1; temp < 19; temp++)
  186.   {
  187.     int_text.IText=text_string[temp];
  188.     PrintIText(your_window->RPort, &int_text, 0, temp*8);
  189.   }
  190.     
  191.   /* Wait: */
  192.   press_continue();
  193.  
  194.   /* Clicking on the CLOSE WINDOW gadget to leave the while loop: */
  195.   while(TRUE)
  196.   {
  197.     /* Clear your_window: */
  198.     int_text.IText=text_string[0];
  199.     for(temp=1; temp < 23; temp++)
  200.       PrintIText(your_window->RPort, &int_text, 0, temp*8);
  201.  
  202.     /* WIZARD FILER !!! */
  203.     operation=WizardFiler
  204.               (
  205.                 "WIZARD FILER 1.01",  /* Title            */
  206.                 NULL,                 /* ToShow (all)     */
  207.                 NULL,                 /* ToHide (none)    */
  208.                 0, 0,                 /* x, y position    */
  209.                 NULL,                 /* Screen    (none) */
  210.                 file                  /* file with path.  */
  211.               );
  212.  
  213.     int_text.IText="File name plus path:";
  214.     int_text.FrontPen=1; /* Normal colour. */
  215.     PrintIText(your_window->RPort, &int_text, 0, 8 );
  216.  
  217.     /* Write the filename and the path: */
  218.     int_text.IText=file; /* file name and path. */
  219.     int_text.FrontPen=3; /* Highlighted. */
  220.     PrintIText(your_window->RPort, &int_text, 16, 16 );
  221.   
  222.     int_text.IText="Operation:";
  223.     int_text.FrontPen=1; /* Normal colour. */
  224.     PrintIText(your_window->RPort, &int_text, 0, 24 );
  225.       
  226.     switch(operation)
  227.     {
  228.       case LOAD:   int_text.IText="LOAD"; break;
  229.       case SAVE:   int_text.IText="SAVE"; break;
  230.       case CANCEL: int_text.IText="CANCEL"; break;
  231.       case QUIT:   int_text.IText="QUIT"; break;
  232.       case PANIC:  int_text.IText="PANIC"; break;
  233.       default:     int_text.IText="Something went terribly WRONG!";
  234.     }
  235.     int_text.FrontPen=3; /* Highlighted. */
  236.     PrintIText(your_window->RPort, &int_text, 16, 32 );
  237.   
  238.     /* Draw the gadget again: */
  239.     RefreshGadgets(&gadget_continue, your_window, NULL);
  240.  
  241.     /* Wait: */
  242.     press_continue();
  243.   }
  244. }
  245.  
  246.  
  247. /* Clean up before we leave: */
  248. void quit()
  249. {
  250.   if(your_window) CloseWindow(your_window);
  251.   if(IntuitionBase) CloseLibrary((struct Library *) IntuitionBase);
  252.   if(GfxBase) CloseLibrary((struct Library *) GfxBase);
  253.   exit(0);
  254. }
  255.  
  256.  
  257. /* This function simply waits for someone to click on the CONTINUE */
  258. /* or CLOSEWINDOW gadget: */
  259. USHORT press_continue()
  260. {
  261.   ULONG class;
  262.  
  263.   while(TRUE)
  264.   {
  265.     Wait(1 << your_window->UserPort->mp_SigBit);
  266.     if(your_message=(struct IntuiMessage *)GetMsg(your_window->UserPort))
  267.     {
  268.       class = your_message->Class;
  269.       ReplyMsg((struct Message *)your_message);
  270.       switch(class)
  271.       {
  272.         case CLOSEWINDOW:
  273.                quit();    /* CLOSEWINDOW */
  274.         case GADGETDOWN:
  275.                return(1); /* CONTINUE */
  276.       }
  277.     }
  278.   }
  279. }
  280.