home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / modsrc / rawkeytest.e < prev    next >
Encoding:
Text File  |  1999-03-06  |  383 b   |  20 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        '*test'
  3.  
  4. PROC main() HANDLE
  5.   DEF raw=NIL:PTR TO rawkey
  6.   NEW raw.rawkey([76,77,78,79])
  7.   easyguiA('rawkey',
  8.     [ROWS,
  9.       [TEXT,'rawkey test',NIL,TRUE,10],
  10.       [PLUGIN,{rawkeyaction},raw]
  11.     ])
  12. EXCEPT DO
  13.   END raw
  14.   report_exception()
  15. ENDPROC
  16.  
  17. PROC rawkeyaction(i,t:PTR TO rawkey)
  18.   WriteF('rawkeyaction \d\n',t.hit)
  19. ENDPROC
  20.