home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / gui / E_Mgui_Src.lha / e_mgui_src / Simple_Example.e < prev   
Encoding:
Text File  |  1997-01-21  |  1.1 KB  |  66 lines
  1. /*
  2.     MGUI Example
  3.  
  4.     Simple Example
  5.  
  6.     (C)Copyright 1996/97 Amiga Foundation Classes
  7.  
  8.     See: http://www.intercom.it/~fsoft/afc.html
  9.  
  10.          FOR more info about AFC AND more modules
  11.  
  12. */
  13.  
  14. OPT OSVERSION=37
  15.  
  16. MODULE 'afc/mgui_oo',
  17.        'tools/easygui'
  18.  
  19. PROC main() HANDLE
  20.   DEF mg=NIL:PTR TO mgui
  21.  
  22.   NEW mg.mgui()
  23.  
  24.   mg.add('MGUI Main', [ROWS,
  25.                             [SBUTTON, {kill_all}, 'Kill ALL'],
  26.                             [SBUTTON, {msg}, 'Msg'],
  27.                             [SBUTTON, {newgui}, 'NEW GUI!']
  28.                          ], mg)
  29.  
  30.   mg.setattrs(NEW [MGUI_MAIN, TRUE,0,0])
  31.  
  32.   test(mg)
  33.  
  34.   test(mg)
  35.  
  36.   test(mg)
  37.  
  38.  
  39.   WHILE (mg.empty() = FALSE)
  40.     mg.message()
  41.   ENDWHILE
  42.  
  43. EXCEPT DO
  44.   IF exception THEN WriteF('Exception:\z\h[8]\n', exception)
  45.   END mg
  46.   CleanUp(0)
  47. ENDPROC
  48.  
  49. PROC newgui(mg:PTR TO mgui) IS test(mg)
  50.  
  51.  
  52. PROC kill_all(mg:PTR TO mgui) IS mg.clear()
  53.  
  54. PROC msg() IS WriteF('Message!\n')
  55.  
  56. PROC test(mg:PTR TO mgui)
  57.   DEF gui:PTR TO LONG
  58.  
  59.   gui:=NEW [ROWS,
  60.        NEW   [SBUTTON, {msg}, 'Msg']
  61.            ]
  62.  
  63.   mg.add('NEW Window', gui)
  64. ENDPROC
  65.  
  66.