home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / mui / dev / gui / m2mui2_0.lha / txt / MuiL.def < prev    next >
Text File  |  1994-02-19  |  3KB  |  95 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.  
  25. TYPE APTR       = ADDRESS;  (* for readability *)
  26. TYPE StrPtr     = ADDRESS;
  27. TYPE mImage     = ADDRESS;
  28. TYPE mImageInfo = ADDRESS;
  29.  
  30. VAR  
  31.      muiMasterVersion       : INTEGER;
  32.      muiMasterBase          : LibraryPtr;
  33.  
  34. CONST
  35.      muiMasterMinVersion    = 4;
  36.      muiMasterName          = "muimaster.library";
  37.  
  38. PROCEDURE mNewObject 
  39.             (class{R.A0}    : StrPtr;
  40.              taglist{R.A1}  : UD.TagItemPtr) : APTR ; CODE -30;
  41.  
  42. PROCEDURE mDisposeObject
  43.             (obj{R.A0}      : APTR); CODE -36;
  44.  
  45. PROCEDURE mRequestA 
  46.             (app{R.D0}      : APTR;
  47.              win{R.D1}      : APTR;
  48.              flags{R.D2}    : LONGINT;
  49.              title{R.A0}    : StrPtr;
  50.              gadgets{R.A1}  : StrPtr;
  51.              format{R.A2}   : StrPtr;
  52.              params{R.A3}   : UD.TagItemPtr): LONGINT; CODE -42;
  53.  
  54.  
  55. PROCEDURE mAllocAslRequest
  56.             (reqtype{R.D0}  : LONGINT;
  57.              taglist{R.A0}  : UD.TagItemPtr) : APTR; CODE -48;
  58.  
  59. PROCEDURE mAslRequest 
  60.             (requester{R.A0}: APTR;
  61.              taglist{R.A1}  : UD.TagItemPtr) : BOOLEAN; CODE -54;
  62.  
  63. PROCEDURE mFreeAslRequest 
  64.             (requester{R.A0}: APTR); CODE -60;
  65.  
  66. PROCEDURE mError() : LONGINT; CODE -66;
  67.  
  68. (* functions to be used with custom classes *)
  69.  
  70. PROCEDURE moSetError
  71.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  72.  
  73. PROCEDURE moGetClass
  74.             (classname{R.A0}: StrPtr) : IClassPtr; CODE -78;
  75.  
  76. PROCEDURE moFreeClass
  77.             (classptr{R.A0} : IClassPtr); CODE -84;
  78.  
  79.  
  80. PROCEDURE moRequestIDCMP
  81.             (obj{R.A0}      : ObjectPtr;
  82.              flags{R.D0}    : IDCMPFlagSet); CODE -90;
  83.  
  84. PROCEDURE moRejectIDCMP
  85.             (obj{R.A0}      : ObjectPtr;
  86.              flags{R.D0}    : IDCMPFlagSet); CODE -96;
  87.  
  88. PROCEDURE moRedraw
  89.             (obj{R.A0}      : ObjectPtr;
  90.              flags{R.D0}    : LONGCARD) : APTR; CODE -102;
  91.  
  92. END MuiL.
  93.  
  94.  
  95.