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 / MuiL.def < prev    next >
Encoding:
Modula Definition  |  1994-06-29  |  3.1 KB  |  113 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 mCustomClass;
  25.  
  26. TYPE APTR       = ADDRESS;  (* for readability *)
  27. TYPE StrPtr     = ADDRESS;
  28. TYPE mImage     = ADDRESS;
  29. TYPE mImageInfo = ADDRESS;
  30. TYPE mCustomClassPtr = POINTER TO mCustomClass;
  31.  
  32. VAR  
  33.      muiMasterVersion       : INTEGER;
  34.      muiMasterBase          : LibraryPtr;
  35.  
  36. CONST
  37.      muiMasterMinVersion    = 4;
  38.      muiMasterName          = "muimaster.library";
  39.  
  40. PROCEDURE mNewObject 
  41.             (class{R.A0}    : StrPtr;
  42.              taglist{R.A1}  : UD.TagItemPtr) : APTR ; CODE -30;
  43.  
  44. PROCEDURE mDisposeObject
  45.             (obj{R.A0}      : APTR); CODE -36;
  46.  
  47. PROCEDURE mRequestA 
  48.             (app{R.D0}      : APTR;
  49.              win{R.D1}      : APTR;
  50.              flags{R.D2}    : LONGINT;
  51.              title{R.A0}    : StrPtr;
  52.              gadgets{R.A1}  : StrPtr;
  53.              format{R.A2}   : StrPtr;
  54.              params{R.A3}   : UD.TagItemPtr): LONGINT; CODE -42;
  55.  
  56.  
  57. PROCEDURE mAllocAslRequest
  58.             (reqtype{R.D0}  : LONGINT;
  59.              taglist{R.A0}  : UD.TagItemPtr) : APTR; CODE -48;
  60.  
  61. PROCEDURE mAslRequest 
  62.             (requester{R.A0}: APTR;
  63.              taglist{R.A1}  : UD.TagItemPtr) : BOOLEAN; CODE -54;
  64.  
  65. PROCEDURE mFreeAslRequest 
  66.             (requester{R.A0}: APTR); CODE -60;
  67.  
  68. PROCEDURE mError() : LONGINT; CODE -66;
  69.  
  70. PROCEDURE MakeObject
  71.             (objtype{R.A0}      : LONGINT;
  72.              params{R.A1}       : UD.TagItemPtr) : ObjectPtr; CODE -120;
  73.  
  74. (* functions to be used with custom classes *)
  75.  
  76. PROCEDURE moSetError
  77.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  78.  
  79. PROCEDURE moGetClass
  80.             (classname{R.A0}: StrPtr) : IClassPtr; CODE -78;
  81.  
  82. PROCEDURE moFreeClass
  83.             (classptr{R.A0} : IClassPtr); CODE -84;
  84.  
  85.  
  86. PROCEDURE moRequestIDCMP
  87.             (obj{R.A0}      : ObjectPtr;
  88.              flags{R.D0}    : IDCMPFlagSet); CODE -90;
  89.  
  90. PROCEDURE moRejectIDCMP
  91.             (obj{R.A0}      : ObjectPtr;
  92.              flags{R.D0}    : IDCMPFlagSet); CODE -96;
  93.  
  94. PROCEDURE moRedraw
  95.             (obj{R.A0}      : ObjectPtr;
  96.              flags{R.D0}    : LONGCARD) : APTR; CODE -102;
  97.  
  98. PROCEDURE moCreateCustomClass
  99.             (base{R.A0}         : LibraryPtr;
  100.              supername{R.A1}    : StrPtr;
  101.              supermcc{R.A2}     : mCustomClassPtr;
  102.              datasize{R.D0}     : LONGINT;
  103.              dispatcher{R.A3}   : APTR) : mCustomClassPtr;  CODE -108;
  104.  
  105. PROCEDURE moDeleteCustomClass
  106.             (mcc{R.A0}          : mCustomClassPtr) : BOOLEAN; CODE -114;
  107.  
  108.  
  109.  
  110. END MuiL.
  111.  
  112.  
  113.