home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / amiga / gui / mui / mui14-dv.lha / MUI / Developer / Modula / txt / MuiSupport.def < prev    next >
Encoding:
Modula Definition  |  1993-10-27  |  683 b   |  29 lines
  1. DEFINITION MODULE MuiSupport;
  2.  
  3. (*
  4. **  MuiSupport
  5. **
  6. **  done by Christian "Kochtopf" Scholz
  7. **
  8. **  just the DoMethod-PROCEDURE because there was none shipped with M2Amiga
  9. **  (or i haven't found it ;-)
  10. **
  11. **  Note that DoMethod returns nothing ( e.g. for setting up a Notify )
  12. **  and DOMethod does ( e.g. for the event-loop )
  13. **
  14. **  Then there is the fail-PROCEDURE (orig. defined in demo.h)
  15. **  A init-PROCEDURE is not needed.
  16. *)
  17.  
  18. IMPORT R;
  19. FROM SYSTEM IMPORT ADDRESS;
  20.  
  21. TYPE APTR = ADDRESS;
  22.  
  23. PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
  24. PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
  25. PROCEDURE fail(app : APTR; str : ARRAY OF CHAR);
  26.  
  27. END MuiSupport.
  28.  
  29.