home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / EasyGUI / examples / test.e < prev    next >
Encoding:
Text File  |  1996-06-06  |  656 b   |  27 lines
  1. -> messy EasyGUI test
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI', 'graphics/text'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('result=\d\n',easygui('test-gui',
  8.     [ROWS,
  9.       [BEVEL,
  10.         [EQROWS,
  11.           [BUTTON,{um},'Um,...'],
  12.           [MX,{mx},NIL,['One','Two','Three',NIL],FALSE],
  13.           [BUTTON,{pom},'PomPomPom'],
  14.           [CHECK,{pom},'check this out!',TRUE,FALSE],
  15.           [STR,3,'input','bla',10,4]]],
  16.       [EQCOLS,
  17.         [BUTTON,1,'Save'],
  18.         [BUTTON,2,'Use'],
  19.         [BUTTON,0,'Cancel']]]))
  20. EXCEPT
  21.   WriteF('"\s"\n',[exception,0])
  22. ENDPROC
  23.  
  24. PROC um(x) IS WriteF('um!\n')
  25. PROC pom(x) IS WriteF('pom!\n')
  26. PROC mx(x,y) IS WriteF('mx=\d!\n',y)
  27.