home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / animcontrol_test.e < prev    next >
Text File  |  1997-02-10  |  725b  |  33 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'plugins/animcontrol'
  3.  
  4. PROC main() HANDLE
  5.   DEF a=NIL:PTR TO animcontrol
  6.   NEW a.animcontrol(10,20)
  7.   easyguiA('BOOPSI in EasyGUI!',
  8.     [ROWS,
  9.       [TEXT,'AnimControl test...',NIL,TRUE,1],
  10.       [PLUGIN,{animcontrolaction},a],
  11.       [EQCOLS,
  12.         [BUTTON,{reset},'Reset',a],
  13.         [BUTTON,{toggle_enabled},'Toggle Enabled',a]
  14.       ]
  15.     ])
  16. EXCEPT DO
  17.   END a
  18.   report_exception()
  19. ENDPROC
  20.  
  21. PROC animcontrolaction(i,a:PTR TO animcontrol)
  22.   PrintF('Action: mode=\d frame=\d\n', a.mode, a.frame)
  23. ENDPROC
  24.  
  25. PROC reset(a:PTR TO animcontrol,i)
  26.   a.setframe(10)
  27.   a.setplay(FALSE)
  28. ENDPROC
  29.  
  30. PROC toggle_enabled(a:PTR TO animcontrol,i)
  31.   a.setdisabled(a.disabled=FALSE)
  32. ENDPROC
  33.