home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Guide / idcmp.e < prev    next >
Text File  |  1994-12-13  |  848b  |  25 lines
  1. MODULE 'intuition/intuition'
  2.  
  3. CONST GADGETBUFSIZE = GADGETSIZE, OURGADGET = 1
  4.  
  5. PROC main()
  6.   DEF buf[GADGETBUFSIZE]:ARRAY, wptr, class, gad:PTR TO gadget
  7.   Gadget(buf, NIL, OURGADGET, 1, 10, 30, 100, 'Press Me')
  8.   wptr:=OpenW(20,50,200,100,
  9.               IDCMP_CLOSEWINDOW OR IDCMP_GADGETUP,
  10.               WFLG_CLOSEGADGET OR WFLG_ACTIVATE,
  11.               'Gadget message window',NIL,1,buf)
  12.   IF wptr              /* Check to see we opened a window */
  13.     WHILE (class:=WaitIMessage(wptr))<>IDCMP_CLOSEWINDOW
  14.       gad:=MsgIaddr()  /* Our gadget clicked? */
  15.       IF (class=IDCMP_GADGETUP) AND (gad.userdata=OURGADGET)
  16.         TextF(10,60,
  17.               IF gad.flags=0 THEN 'Gadget off ' ELSE 'Gadget on   ')
  18.       ENDIF
  19.     ENDWHILE
  20.     CloseW(wptr)       /* Close the window */
  21.   ELSE
  22.     WriteF('Error -- could not open window!')
  23.   ENDIF
  24. ENDPROC
  25.