home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easygui / windowify_test_os12.e < prev   
Encoding:
Text File  |  2000-06-05  |  720 b   |  35 lines
  1. OPT PREPROCESS
  2.  
  3. -> RST: Added conditional EASY_OS12 support
  4. #define EASY_OS12
  5.  
  6. #ifdef EASY_OS12
  7.   MODULE 'tools/easygui_os12','plugins/windowify_os12'
  8. #endif
  9. #ifndef EASY_OS12
  10.   OPT OSVERSION=37
  11.   MODULE 'tools/easygui',  'plugins/windowify'
  12. #endif
  13.  
  14. MODULE 'tools/exceptions'
  15.  
  16. PROC main() HANDLE
  17.   DEF p=NIL:PTR TO windowify
  18.   NEW p.windowify('Windowify','Hello from Windowify',TRUE)
  19.   easyguiA('GadTools in EasyGUI!',
  20.     [ROWS,
  21.       [TEXT,'Windowify test...',NIL,TRUE,1],
  22.       [SPACE],
  23.       [PLUGIN,0,p,TRUE],
  24.       [SPACE],
  25.       [BUTTON,{toggle_enabled},'Toggle Enabled',p]
  26.     ])
  27. EXCEPT DO
  28.   END p
  29.   report_exception()
  30. ENDPROC
  31.  
  32. PROC toggle_enabled(p:PTR TO windowify,i)
  33.   p.setdisabled(p.disabled=FALSE)
  34. ENDPROC
  35.