home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / mui-2.1.lha / MUI-2.1 / Developer / Modula / txt / MuiSupport.def < prev    next >
Encoding:
Modula Definition  |  1994-06-06  |  1010 b   |  42 lines
  1. DEFINITION MODULE MuiSupport;
  2.  
  3. (*
  4. **  MuiSupport 2.0
  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. **  $Log: MuiSupport.def,v $
  18. # Revision 1.4  1994/02/09  14:50:03  Kochtopf
  19. # Versionsnummer in 2.0 geaendert.
  20. #
  21. # Revision 1.3  1994/02/02  09:37:18  Kochtopf
  22. # app bei fail in VAR-Parameter geaendert.
  23. #
  24. # Revision 1.2  1994/02/01  16:49:10  Kochtopf
  25. # kleine Veraenderungen.
  26. #
  27. **
  28. *)
  29.  
  30. IMPORT R;
  31. FROM SYSTEM IMPORT ADDRESS;
  32. FROM IntuitionD IMPORT IClassPtr;
  33.  
  34. TYPE APTR = ADDRESS;
  35.  
  36. PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
  37. PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
  38. PROCEDURE fail(VAR app : APTR; str : ARRAY OF CHAR);
  39.  
  40. END MuiSupport.
  41.  
  42.