home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easygui / ticker_test_os12.e < prev    next >
Encoding:
Text File  |  2000-06-06  |  532 b   |  32 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/ticker_os12'
  8. #endif
  9. #ifndef EASY_OS12
  10.   OPT OSVERSION=37
  11.   MODULE 'tools/easygui', 'plugins/ticker'
  12. #endif
  13.  
  14. MODULE 'tools/exceptions'
  15.  
  16. PROC main() HANDLE
  17.   DEF t=NIL:PTR TO ticker
  18.   NEW t
  19.   easyguiA('Ticker!',
  20.     [ROWS,
  21.       [TEXT,'Ticker test:',NIL,TRUE,10],
  22.       [PLUGIN,{tickaction},t]
  23.     ])
  24. EXCEPT DO
  25.   END t
  26.   report_exception()
  27. ENDPROC
  28.  
  29. PROC tickaction(i,t)
  30.   WriteF('Tick!\n')
  31. ENDPROC
  32.