home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / tpledit.lzh / TPLEDIT / SRC / TEST.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-15  |  2.1 KB  |  100 lines
  1.  
  2. /*
  3.  *  TEST.C
  4.  *
  5.  *  TEST GADGET COMPILATION
  6.  *
  7.  *  WARNING WARNING.  Non DICE C users must open appropriate libraries
  8.  *  (actually, even DICE users will have to, I just added some of the
  9.  *  libraries that need openning to the auto-open library)
  10.  */
  11.  
  12. #include "x.tpl.c"
  13. #include <clib/intuition_protos.h>
  14.  
  15. main()
  16. {
  17.     struct Screen *scr;
  18.     struct Window *win;
  19.     struct Gadget *glist;
  20.  
  21.     if (scr = LockPubScreen(NULL)) {
  22.     if (glist = InitGads(scr)) {
  23.         win = OpenWindowTags(NULL,
  24.         WA_Flags,   WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|
  25.                 WFLG_SIZEGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE,
  26.  
  27.         WA_IDCMP,   IDCMP_NEWSIZE|IDCMP_MOUSEBUTTONS|IDCMP_GADGETDOWN|
  28.                 IDCMP_GADGETUP|IDCMP_MENUPICK|IDCMP_VANILLAKEY|
  29.                 IDCMP_RAWKEY|IDCMP_CHANGEWINDOW|IDCMP_CLOSEWINDOW|
  30.                 IDCMP_REFRESHWINDOW,
  31.  
  32.         WA_Left,    WIN_LEFT,
  33.         WA_Top,     WIN_TOP,
  34.         WA_Width,   WIN_WIDTH,
  35.         WA_Height,  WIN_HEIGHT,
  36.         WA_Title,   "TEST",
  37.         WA_MinWidth,  32,
  38.         WA_MinHeight, 32,
  39.         WA_MaxWidth,  -1,
  40.         WA_MaxHeight, -1,
  41.         WA_AutoAdjust, 1,
  42.         WA_PubScreen, NULL,
  43.         WA_PubScreenFallBack, 1,
  44.         WA_Gadgets, glist,
  45.         TAG_END
  46.         );
  47.         if (win) {
  48.         struct IntuiMessage *im;
  49.         short notDone = 1;
  50.  
  51.         GT_RefreshWindow(win, NULL);
  52.         while (notDone) {
  53.             WaitPort(win->UserPort);
  54.             while (im = GT_GetIMsg(win->UserPort)) {
  55.             switch(im->Class) {
  56.             case IDCMP_CLOSEWINDOW:
  57.                 notDone = 0;
  58.                 break;
  59.             case IDCMP_REFRESHWINDOW:
  60.                 GT_BeginRefresh(win);
  61.                 GT_EndRefresh(win, TRUE);
  62.                 break;
  63.             case IDCMP_GADGETUP:
  64.                 switch(((struct Gadget *)im->IAddress)->GadgetID) {
  65.                 case GAD_B1:
  66.                 puts("BUTTON 1");
  67.                 break;
  68.                 case GAD_B2:
  69.                 puts("BUTTON 2");
  70.                 break;
  71.                 case GAD_B3:
  72.                 printf("String L3: %s\n", Buf_B3);
  73.                 break;
  74.                 case GAD_B4:
  75.                 printf("String L4: %s\n", Buf_B4);
  76.                 break;
  77.                 case GAD_r1:
  78.                 printf("hello %d\n", im->Code);
  79.                 break;
  80.                 case GAD_S1:
  81.                 printf("SEL %d\n", im->Code);
  82.                 break;
  83.                 }
  84.                 break;
  85.             default:
  86.                 break;
  87.             }
  88.             GT_ReplyIMsg(im);
  89.             }
  90.         }
  91.         CloseWindow(win);
  92.         }
  93.     }
  94.     FreeGads();
  95.     }
  96.     return(0);
  97. }
  98.  
  99.  
  100.