workbench/demos/strtest.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Demo/test for AROS stringgadgets.
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/intuition.h>
  11 #include <intuition/intuition.h>
  12
  13 #define DEBUG 1
  14 #include <aros/debug.h>
  15
  16 VOID HandleEvents(struct Window *);
  17
  18 /***************
  19 **  Gadgetry  **
  20 ***************/
  21 #define STRBUFSIZE 100
  22 #define STRGADWIDTH     100
  23 #define STRGADHEIGHT    20
  24
  25
  26 UBYTE strbuf[STRBUFSIZE];
  27 UBYTE undobuf[STRBUFSIZE];
  28
  29 UWORD strborderdata[] = { 0,0, STRGADWIDTH + 3,0, STRGADWIDTH + 3,STRGADHEIGHT +3,
  30                 0,STRGADHEIGHT + 3, 0,0};
  31
  32 struct Border strborder = { -2, -2, 1, 0, JAM1, 5, strborderdata, };
  33
  34 struct StringInfo strinfo = {strbuf, undobuf, 0, STRBUFSIZE, };
  35 struct Gadget strgad = {NULL, 20, 20, STRGADWIDTH, STRGADHEIGHT,
  36         GFLG_GADGHCOMP, GACT_RELVERIFY|GACT_STRINGLEFT, GTYP_STRGADGET,
  37         &strborder, NULL, NULL, 0, &strinfo, 0, NULL, };
  38
  39 struct IntuitionBase *IntuitionBase;
  40
  41 /*************
  42 **  main()  **
  43 *************/
  44 int main(int argc, char **argv)
  45 {
  46     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 37);
  47     if (IntuitionBase)
  48     {
  49         struct Window *window = OpenWindowTags(NULL,
  50                 WA_Width,       200,
  51                 WA_Height,      100,
  52                 WA_Title,       (IPTR)"Stringgadget Demo",
  53                 WA_Gadgets,     (IPTR)&strgad,
  54                 WA_IDCMP,       IDCMP_GADGETUP|IDCMP_RAWKEY|IDCMP_CLOSEWINDOW,
  55                 WA_DragBar,     TRUE,
  56                 WA_CloseGadget, TRUE,
  57                 TAG_END);
  58         if (window)
  59         {
  60             HandleEvents(window);
  61             CloseWindow(window);
  62         }
  63
  64         CloseLibrary((struct Library *)IntuitionBase);
  65     }
  66
  67     return (0);
  68 }
  69
  70 /*******************
  71 **  HandleEvents  **
  72 *******************/
  73 VOID HandleEvents(struct Window *win)
  74 {
  75     struct IntuiMessage *imsg;
  76     struct MsgPort *port = win->UserPort;
  77     BOOL terminated = FALSE;
  78
  79     while (!terminated)
  80     {
  81         if ((imsg = (struct IntuiMessage *)GetMsg(port)) != NULL)
  82         {
  83
  84             switch (imsg->Class)
  85             {
  86
  87             case IDCMP_GADGETUP:
  88                 break;
  89
  90             case IDCMP_RAWKEY:
  91                 if(imsg->Code == 0x10)
  92                     terminated = TRUE;
  93
  94                 break;
  95
  96             case IDCMP_CLOSEWINDOW:
  97                 terminated = TRUE;
  98                 break;
  99
 100             } /* switch (imsg->Class) */
 101             ReplyMsg((struct Message *)imsg);
 102
 103
 104         } /* if ((imsg = GetMsg(port)) != NULL) */
 105         else
 106         {
 107             Wait(1L << port->mp_SigBit);
 108         }
 109     } /* while (!terminated) */
 110
 111     return;
 112 } /* HandleEvents() */