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