home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / MUIBuilder22.lha / MUIBuilder / MB / M2 / M2Mui / MBMuiSupport.def < prev    next >
Encoding:
Modula Definition  |  1994-10-06  |  1.3 KB  |  53 lines
  1. DEFINITION MODULE MuiSupport;
  2.  
  3. (*$ DEFINE Locale:=TRUE *)
  4.  
  5. (*
  6. **  MuiSupport 2.0
  7. **
  8. **  done by Christian "Kochtopf" Scholz
  9. **
  10. **  just the DoMethod-PROCEDURE because there was none shipped with M2Amiga
  11. **  (or i haven't found it ;-)
  12. **
  13. **  Note that DoMethod returns nothing ( e.g. for setting up a Notify )
  14. **  and DOMethod does ( e.g. for the event-loop )
  15. **
  16. **  Then there is the fail-PROCEDURE (orig. defined in demo.h)
  17. **  A init-PROCEDURE is not needed.
  18. **
  19. **  $Log: MuiSupport.def,v $
  20. # Revision 1.6  1994/08/16  20:33:19  Kochtopf
  21. # StrPtr aus Arts importiert
  22. #
  23. # Revision 1.5  1994/08/11  17:00:11  Kochtopf
  24. # *** empty log message ***
  25. #
  26. # Revision 1.4  1994/02/09  14:50:03  Kochtopf
  27. # Versionsnummer in 2.0 geaendert.
  28. #
  29. # Revision 1.3  1994/02/02  09:37:18  Kochtopf
  30. # app bei fail in VAR-Parameter geaendert.
  31. #
  32. # Revision 1.2  1994/02/01  16:49:10  Kochtopf
  33. # kleine Veraenderungen.
  34. #
  35. **
  36. *)
  37.  
  38. IMPORT R;
  39. FROM SYSTEM IMPORT ADDRESS;
  40. FROM IntuitionD IMPORT IClassPtr;
  41. FROM MuiD IMPORT APTR, StrPtr;
  42.  
  43. PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
  44. PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
  45. (*$ IF Locale *)
  46. PROCEDURE fail(VAR app : APTR; str : StrPtr);
  47. (*$ ELSE *)
  48. PROCEDURE fail(VAR app : APTR; str : ARRAY OF CHAR);
  49. (*$ ENDIF *)
  50.  
  51. END MuiSupport.
  52.  
  53.