home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Guide / gadgets.e < prev    next >
Encoding:
Text File  |  1994-12-13  |  631 b   |  20 lines
  1. MODULE 'intuition/intuition'
  2.  
  3. CONST GADGETBUFSIZE = 4 * GADGETSIZE
  4.  
  5. PROC main()
  6.   DEF buf[GADGETBUFSIZE]:ARRAY, next, wptr
  7.   next:=Gadget(buf,  NIL, 1, 0, 10, 30, 50, 'Hello')
  8.   next:=Gadget(next, buf, 2, 3, 70, 30, 50, 'World')
  9.   next:=Gadget(next, buf, 3, 1, 10, 50, 50, 'from')
  10.   next:=Gadget(next, buf, 4, 0, 70, 50, 70, 'gadgets')
  11.   wptr:=OpenW(20,50,200,100, 0, WFLG_ACTIVATE,
  12.               'Gadgets in a window',NIL,1,buf)
  13.   IF wptr         /* Check to see we opened a window */
  14.     Delay(500)    /* Wait a bit */
  15.     CloseW(wptr)  /* Close the window */
  16.   ELSE
  17.     WriteF('Error -- could not open window!')
  18.   ENDIF
  19. ENDPROC
  20.