home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 514a.lha / TplEdit_v1.00_alpha / Src / dumb.c < prev    next >
C/C++ Source or Header  |  1991-06-08  |  2KB  |  78 lines
  1.  
  2. /*
  3.  *  TEST.C
  4.  *
  5.  *  TEST GADGET COMPILATION
  6.  *
  7.  *  WARNING WARNING.  Non DICE C users must open appropriate libraries
  8.  */
  9.  
  10. #include "x.c"
  11.  
  12. main()
  13. {
  14.     struct Screen *scr;
  15.     struct Window *win;
  16.     struct Gadget *glist;
  17.  
  18.     if (scr = LockPubScreen(NULL)) {
  19.     if (glist = InitGads(scr)) {
  20.         win = OpenWindowTags(NULL,
  21.         WA_Flags,   WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|
  22.                 WFLG_SIZEGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE,
  23.  
  24.         WA_IDCMP,   IDCMP_NEWSIZE|IDCMP_MOUSEBUTTONS|IDCMP_GADGETDOWN|
  25.                 IDCMP_GADGETUP|IDCMP_MENUPICK|IDCMP_VANILLAKEY|
  26.                 IDCMP_RAWKEY|IDCMP_CHANGEWINDOW|IDCMP_CLOSEWINDOW|
  27.                 IDCMP_REFRESHWINDOW,
  28.  
  29.         WA_Left,    WIN_LEFT,
  30.         WA_Top,     WIN_TOP,
  31.         WA_Width,   WIN_WIDTH,
  32.         WA_Height,  WIN_HEIGHT,
  33.         WA_Title,   "TEST",
  34.         WA_MinWidth,  32,
  35.         WA_MinHeight, 32,
  36.         WA_MaxWidth,  -1,
  37.         WA_MaxHeight, -1,
  38.         WA_AutoAdjust, 1,
  39.         WA_PubScreen, NULL,
  40.         WA_PubScreenFallBack, 1,
  41.         WA_Gadgets, glist,
  42.         TAG_END
  43.         );
  44.         if (win) {
  45.         struct IntuiMessage *im;
  46.         short notDone = 1;
  47.  
  48.         GT_RefreshWindow(win, NULL);
  49.         while (notDone) {
  50.             WaitPort(win->UserPort);
  51.             while (im = GT_GetIMsg(win->UserPort)) {
  52.             switch(im->Class) {
  53.             case IDCMP_CLOSEWINDOW:
  54.                 notDone = 0;
  55.                 break;
  56.             case IDCMP_REFRESHWINDOW:
  57.                 GT_BeginRefresh(win);
  58.                 GT_EndRefresh(win, TRUE);
  59.                 break;
  60.             case IDCMP_GADGETUP:
  61.                 puts("Gadget was Hit");
  62.                 break;
  63.             default:
  64.                 break;
  65.             }
  66.             GT_ReplyIMsg(im);
  67.             }
  68.         }
  69.         CloseWindow(win);
  70.         }
  71.     }
  72.     FreeGads();
  73.     }
  74.     return(0);
  75. }
  76.  
  77.  
  78.