home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / MUI / MUIBuilder22.lha / MUIBuilder / MB / M2 / M2Mui / MBMuiL.def < prev    next >
Encoding:
Modula Definition  |  1994-10-05  |  3.2 KB  |  117 lines
  1. DEFINITION MODULE MuiL{"muimaster.library",5}; (* note that version 5 is very old - if you need newer functions
  2.                                                   test this! 
  3.                                                *)
  4.  
  5. (*
  6. ** Modula-Interface for muimaster.library
  7. **
  8. ** MUI (c) 1993/94 by Stefan Stuntz
  9. **
  10. ** Modula-Interface done by Christian "Kochtopf" Scholz in 1993/94
  11. **
  12. ** If you got problems please contact :
  13. **
  14. **  ruebe@pool.informatik.rwth-aachen.de
  15. *)
  16.  
  17. IMPORT UD:UtilityD;
  18. IMPORT R;
  19. IMPORT MD:MuiD;
  20. FROM SYSTEM     IMPORT ADDRESS;
  21. FROM IntuitionD IMPORT IClassPtr, ObjectPtr, IDCMPFlagSet;
  22. FROM GraphicsD  IMPORT TextFontPtr;
  23. FROM ExecD      IMPORT LibraryPtr;
  24. FROM MuiClasses IMPORT mCustomClassPtr;
  25. FROM MuiD       IMPORT APTR, StrPtr;
  26.  
  27. (* || remove this... defined in MuiD ||
  28. TYPE APTR       = ADDRESS;  (* for readability *)
  29. TYPE StrPtr     = ADDRESS;
  30. *)
  31. (* || remove this... not needed here at all! defined in MuiClasses ||
  32. TYPE mImage     = ADDRESS;
  33. TYPE mImageInfo = ADDRESS;
  34. *)
  35.  
  36. VAR  
  37.      muiMasterVersion       : INTEGER;
  38.      muiMasterBase          : LibraryPtr;
  39.  
  40. CONST
  41.      muiMasterMinVersion    = 4;
  42.      muiMasterName          = "muimaster.library";
  43.  
  44. PROCEDURE mNewObject 
  45.             (class{R.A0}    : StrPtr;
  46.              taglist{R.A1}  : UD.TagItemPtr) : APTR ; CODE -30;
  47.  
  48. PROCEDURE mDisposeObject
  49.             (obj{R.A0}      : APTR); CODE -36;
  50.  
  51. PROCEDURE mRequestA 
  52.             (app{R.D0}      : APTR;
  53.              win{R.D1}      : APTR;
  54.              flags{R.D2}    : LONGINT;
  55.              title{R.A0}    : StrPtr;
  56.              gadgets{R.A1}  : StrPtr;
  57.              format{R.A2}   : StrPtr;
  58.              params{R.A3}   : UD.TagItemPtr): LONGINT; CODE -42;
  59.  
  60.  
  61. PROCEDURE mAllocAslRequest
  62.             (reqtype{R.D0}  : LONGINT;
  63.              taglist{R.A0}  : UD.TagItemPtr) : APTR; CODE -48;
  64.  
  65. PROCEDURE mAslRequest 
  66.             (requester{R.A0}: APTR;
  67.              taglist{R.A1}  : UD.TagItemPtr) : BOOLEAN; CODE -54;
  68.  
  69. PROCEDURE mFreeAslRequest 
  70.             (requester{R.A0}: APTR); CODE -60;
  71.  
  72. PROCEDURE mError() : LONGINT; CODE -66;
  73.  
  74. PROCEDURE MakeObject
  75.             (objtype{R.D0}      : LONGINT;
  76.              params{R.A0}       : UD.TagItemPtr) : ObjectPtr; CODE -120;
  77.  
  78. (* functions to be used with custom classes *)
  79.  
  80. PROCEDURE moSetError
  81.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  82.  
  83. PROCEDURE moGetClass
  84.             (classname{R.A0}: StrPtr) : IClassPtr; CODE -78;
  85.  
  86. PROCEDURE moFreeClass
  87.             (classptr{R.A0} : IClassPtr); CODE -84;
  88.  
  89.  
  90. PROCEDURE moRequestIDCMP
  91.             (obj{R.A0}      : ObjectPtr;
  92.              flags{R.D0}    : IDCMPFlagSet); CODE -90;
  93.  
  94. PROCEDURE moRejectIDCMP
  95.             (obj{R.A0}      : ObjectPtr;
  96.              flags{R.D0}    : IDCMPFlagSet); CODE -96;
  97.  
  98. PROCEDURE moRedraw
  99.             (obj{R.A0}      : ObjectPtr;
  100.              flags{R.D0}    : LONGCARD) : APTR; CODE -102;
  101.  
  102. PROCEDURE moCreateCustomClass
  103.             (base{R.A0}         : LibraryPtr;
  104.              supername{R.A1}    : StrPtr;
  105.              supermcc{R.A2}     : mCustomClassPtr;
  106.              datasize{R.D0}     : LONGINT;
  107.              dispatcher{R.A3}   : APTR) : mCustomClassPtr;  CODE -108;
  108.  
  109. PROCEDURE moDeleteCustomClass
  110.             (mcc{R.A0}          : mCustomClassPtr) : BOOLEAN; CODE -114;
  111.  
  112.  
  113.  
  114. END MuiL.
  115.  
  116.  
  117.