home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / mui / dev / gui / m2mui2_0.lha / txt / MuiD.def < prev    next >
Text File  |  1994-02-19  |  43KB  |  997 lines

  1. DEFINITION MODULE MuiD;
  2.  
  3. (*$ NilChk      := FALSE *)
  4. (*$ EntryClear  := FALSE *)
  5. (*$ LargeVars   := FALSE *)
  6. (*$ StackParms  := FALSE *)
  7.  
  8. (***************************************************************************
  9. **
  10. ** $Id: MuiD.def,v 1.4 1994/02/09 14:50:03 Kochtopf Exp $
  11. **
  12. ** MUI - MagicUserInterface
  13. ** (c) 1993/94 by Stefan Stuntz
  14. **
  15. ** Main Header File
  16. **
  17. ** Modula-Interface done by Christian "Kochtopf" Scholz '93/94 (Freeware)
  18. **
  19. ** New Version 9.2.1994 for MUI 2.0
  20. **
  21. ** If you got problems with this, please contact
  22. **
  23. **   ruebe@pool.informatik.rwth-aachen.de
  24. **
  25. ****************************************************************************
  26. ** General Header File Information
  27. ****************************************************************************
  28. **
  29. ** All macro and structure definitions follow these rules:
  30. **
  31. ** Name                         Meaning
  32. **
  33. ** mc<class>                    Name of a class
  34. ** mm<class><method>            Method
  35. ** mv<class><method><x>         Special method value
  36. ** ma<class><attrib>            Attribute
  37. ** mv<class><attrib><x>         Special attribute value
  38. ** me<error>                    Error return code from MUIError()
  39. ** mi<name>                     Standard MUI image
  40. **
  41. **        ma... attribute definitions are followed by a comment
  42. ** consisting of the three possible letters I, S and G.
  43. ** I: it's possible to specify this attribute at object creation time.
  44. ** S: it's possible to change this attribute with SetAttrs().
  45. ** G: it's possible to get this attribute with GetAttr().
  46. *)
  47.  
  48. IMPORT UD: UtilityD;
  49. IMPORT S:  SYSTEM;
  50.  
  51.  
  52.  
  53. (***************************************************************************
  54. ** Library specification
  55. ***************************************************************************)
  56.  
  57. CONST
  58.  
  59.     muiMasterName="muimaster.library";
  60.     muiMasterVMin=4;
  61.  
  62.  
  63. (***************************************************************************
  64. ** ARexx Interface
  65. ***************************************************************************)
  66.  
  67. TYPE
  68.     MUICommand = RECORD
  69.                     mcName      : S.ADDRESS;
  70.                     mcTemplate  : S.ADDRESS;
  71.                     mcParameters: LONGINT;
  72.                     mcHook      : UD.HookPtr;
  73.                     mcReserved  : ARRAY[0..5] OF LONGINT;
  74.                  END;
  75. (***************************************************************************
  76. ** Parameter structure for some Classes
  77. ***************************************************************************)
  78.  
  79.     mPaletteEntry   = RECORD
  80.                         mpe_ID      : LONGINT;
  81.                         mpe_Red     : LONGCARD;
  82.                         mpe_Green   : LONGCARD;
  83.                         mpe_Blue    : LONGCARD;
  84.                         mpe_Group   : LONGINT;
  85.                       END;
  86.  
  87.     mScrmodelistEntry   = RECORD
  88.                             sme_Name    : S.ADDRESS; (* string *)
  89.                             sme_ModeID  : LONGCARD;
  90.                           END;
  91.  
  92. CONST   mvPaletteEntryEnd   = -1;
  93.  
  94. (***************************************************************************
  95. ** Return values for MUIError()
  96. ***************************************************************************)
  97.  
  98. CONST
  99.                 meOK                  =0;
  100.                 meOutOfMemory         =1;
  101.                 meOutOfGfxMemory      =2;
  102.                 meInvalidWindowObject =3;
  103.                 meMissingLibrary      =4;
  104.                 meNoARexx             =5;
  105.                 meSingleTask          =6;
  106.  
  107.  
  108.  
  109. (***************************************************************************
  110. ** Standard MUI Images
  111. ***************************************************************************)
  112.  
  113. CONST
  114.                 miWindowBack    = 0;
  115.                 miRequesterBack = 1;
  116.                 miButtonBack    = 2;
  117.                 miListBack      = 3;
  118.                 miTextBack      = 4;
  119.                 miPropBack      = 5;
  120.                 miActiveBack    = 6;
  121.                 miSelectedBack  = 7;
  122.                 miListCursor    = 8;
  123.                 miListSelect    = 9;
  124.                 miListSelCur   = 10;
  125.                 miArrowUp      = 11;
  126.                 miArrowDown    = 12;
  127.                 miArrowLeft    = 13;
  128.                 miArrowRight   = 14;
  129.                 miCheckMark    = 15;
  130.                 miRadioButton  = 16;
  131.                 miCycle        = 17;
  132.                 miPopUp        = 18;
  133.                 miPopFile      = 19;
  134.                 miPopDrawer    = 20;
  135.                 miPropKnob     = 21;
  136.                 miDrawer       = 22;
  137.                 miHardDisk     = 23;
  138.                 miDisk         = 24;
  139.                 miChip         = 25;
  140.                 miVolume       = 26;
  141.                 miPopUpBack    = 27;
  142.                 miNetwork      = 28;
  143.                 miAssign       = 29;
  144.                 miTapePlay     = 30;
  145.                 miTapePlayBack = 31;
  146.                 miTapePause    = 32;
  147.                 miTapeStop     = 33;
  148.                 miTapeRecord   = 34;
  149.                 miGroupBack    = 35;
  150.                 miSliderBack   = 36;
  151.                 miSliderKnob   = 37;
  152.                 miTapeUp       = 38;
  153.                 miTapeDown     = 39;
  154.                 miCount        = 40;
  155.  
  156.                 miBACKGROUND = (128+ 0);
  157.                 miSHADOW     = (128+ 1);
  158.                 miSHINE      = (128+ 2);
  159.                 miFILL       = (128+ 3);
  160.                 miSHADOWBACK = (128+ 4);
  161.                 miSHADOWFILL = (128+ 5);
  162.                 miSHADOWSHINE= (128+ 6);
  163.                 miFILLBACK   = (128+ 7);
  164.                 miFILLSHINE  = (128+ 8);
  165.                 miSHINEBACK  = (128+ 9);
  166.                 miFILLBACK2  = (128+10);
  167.                 miHSHINEBACK = (128+11);
  168.                 miHSHADOWBACK= (128+12);
  169.                 miHSHINESHINE =(128+13);
  170.                 miHSHADOWSHADOW=(128+14);
  171.                 miN1HSHINE   = (128+15);
  172.                 miLASTPAT    = (128+15);
  173.  
  174. (***************************************************************************
  175. ** Special values for some methods
  176. ***************************************************************************)
  177.  
  178. CONST
  179.                 mvTriggerValue =49893131H;
  180.                 mvEveryTime    =49893131H;
  181.  
  182.                 mvApplicationSaveENV     = 0;
  183.                 mvApplicationSaveENVARC  =-1;
  184.                 mvApplicationLoadENV     = 0;
  185.                 mvApplicationLoadENVARC  =-1;
  186.  
  187.                 mvApplicationReturnIDQuit = -1;
  188.  
  189.                 mvListInsertTop       =  0;
  190.                 mvListInsertActive    = -1;
  191.                 mvListInsertSorted    = -2;
  192.                 mvListInsertBottom    = -3;
  193.  
  194.                 mvListRemoveFirst     =  0;
  195.                 mvListRemoveActive    = -1;
  196.                 mvListRemoveLast      = -2;
  197.  
  198.                 mvListSelectOff       =  0;
  199.                 mvListSelectOn        =  1;
  200.                 mvListSelectToggle    =  2;
  201.                 mvListSelectAsk       =  3;
  202.  
  203.                 mvListJumpActive      = -1;
  204.                 mvListGetEntryActive  = -1;
  205.                 mvListSelectActive    = -1;
  206.                 mvSelectAll           = -2;
  207.  
  208.                 mvListRedrawActive    = -1;
  209.                 mvListRedrawAll       = -2;
  210.  
  211.                 mvListExchangeActive  = -1;
  212.  
  213.                 mvColorpanelGetColorActive = -1;
  214.                 mvColorpanelSetColorActive = -1;
  215.  
  216.  
  217. (****************************************************************************)
  218. (** Notify.mui 7.13 (01.12.93)                                             **)
  219. (****************************************************************************)
  220.  
  221.   CONST mcNotify = "Notify.mui";
  222.  
  223. (* Methods *)
  224.  
  225.   CONST mmCallHook                  = 8042B96BH;
  226.   CONST mmKillNotify                = 8042D240H;
  227.   CONST mmMultiSet                  = 8042D356H;
  228.   CONST mmNotify                    = 8042C9CBH;
  229.   CONST mmSet                       = 8042549AH;
  230.   CONST mmSetAsString               = 80422590H;
  231.   CONST mmWriteLong                 = 80428D86H;
  232.   CONST mmWriteString               = 80424BF4H;
  233.  
  234. (* Attributes *)
  235.  
  236.   CONST maAppMessage                 = 80421955H; (* ..g struct AppMessage * *)
  237.   CONST maHelpFile                   = 80423A6EH; (* isg STRPTR            *)
  238.   CONST maHelpLine                   = 8042A825H; (* isg LONG              *)
  239.   CONST maHelpNode                   = 80420B85H; (* isg STRPTR            *)
  240.   CONST maNoNotify                   = 804237F9H; (* .s. BOOL              *)
  241.   CONST maRevision                   = 80427EAAH; (* ..g LONG              *)
  242.   CONST maUserData                   = 80420313H; (* isg ULONG             *)
  243.   CONST maVersion                    = 80422301H; (* ..g LONG              *)
  244.  
  245.  
  246.  
  247. (****************************************************************************)
  248. (** Application.mui 7.12 (28.11.93)                                        **)
  249. (****************************************************************************)
  250.  
  251.   CONST mcApplication = "Application.mui";
  252.  
  253. (* Methods *)
  254.  
  255.   CONST mmApplicationGetMenuCheck   = 8042C0A7H;
  256.   CONST mmApplicationGetMenuState   = 8042A58FH;
  257.   CONST mmApplicationInput          = 8042D0F5H;
  258.   CONST mmApplicationInputBuffered  = 80427E59H;
  259.   CONST mmApplicationLoad           = 8042F90DH;
  260.   CONST mmApplicationPushMethod     = 80429EF8H;
  261.   CONST mmApplicationReturnID       = 804276EFH;
  262.   CONST mmApplicationSave           = 804227EFH;
  263.   CONST mmApplicationSetMenuCheck   = 8042A707H;
  264.   CONST mmApplicationSetMenuState   = 80428BEFH;
  265.   CONST mmApplicationShowHelp       = 80426479H;
  266.  
  267. (* Attributes *)
  268.  
  269.   CONST maApplicationActive          = 804260ABH; (* isg BOOL              *)
  270.   CONST maApplicationAuthor          = 80424842H; (* i.g STRPTR            *)
  271.   CONST maApplicationBase            = 8042E07AH; (* i.g STRPTR            *)
  272.   CONST maApplicationBroker          = 8042DBCEH; (* ..g Broker *          *)
  273.   CONST maApplicationBrokerHook      = 80428F4BH; (* isg struct Hook *     *)
  274.   CONST maApplicationBrokerPort      = 8042E0ADH; (* ..g struct MsgPort *  *)
  275.   CONST maApplicationBrokerPri       = 8042C8D0H; (* i.g LONG              *)
  276.   CONST maApplicationCommands        = 80428648H; (* isg struct MUI_Command * *)
  277.   CONST maApplicationCopyright       = 8042EF4DH; (* i.g STRPTR            *)
  278.   CONST maApplicationDescription     = 80421FC6H; (* i.g STRPTR            *)
  279.   CONST maApplicationDiskObject      = 804235CBH; (* isg struct DiskObject * *)
  280.   CONST maApplicationDoubleStart     = 80423BC6H; (* ..g BOOL              *)
  281.   CONST maApplicationDropObject      = 80421266H; (* is. Object *          *)
  282.   CONST maApplicationIconified       = 8042A07FH; (* .sg BOOL              *)
  283.   CONST maApplicationMenu            = 80420E1FH; (* i.g struct NewMenu *  *)
  284.   CONST maApplicationMenuAction      = 80428961H; (* ..g ULONG             *)
  285.   CONST maApplicationMenuHelp        = 8042540BH; (* ..g ULONG             *)
  286.   CONST maApplicationRexxMsg         = 8042FD88H; (* ..g struct RxMsg *    *)
  287.   CONST maApplicationRexxString      = 8042D711H; (* .s. STRPTR            *)
  288.   CONST maApplicationSingleTask      = 8042A2C8H; (* i.. BOOL              *)
  289.   CONST maApplicationSleep           = 80425711H; (* .s. BOOL              *)
  290.   CONST maApplicationTitle           = 804281B8H; (* i.g STRPTR            *)
  291.   CONST maApplicationVersion         = 8042B33FH; (* i.g STRPTR            *)
  292.   CONST maApplicationWindow          = 8042BFE0H; (* i.. Object *          *)
  293.  
  294.  
  295.  
  296. (****************************************************************************)
  297. (** Window.mui 7.16 (03.12.93)                                             **)
  298. (****************************************************************************)
  299.  
  300.   CONST mcWindow = "Window.mui";
  301.  
  302. (* Methods *)
  303.  
  304.   CONST mmWindowGetMenuCheck        = 80420414H;
  305.   CONST mmWindowGetMenuState        = 80420D2FH;
  306.   CONST mmWindowScreenToBack        = 8042913DH;
  307.   CONST mmWindowScreenToFront       = 804227A4H;
  308.   CONST mmWindowSetCycleChain       = 80426510H;
  309.   CONST mmWindowSetMenuCheck        = 80422243H;
  310.   CONST mmWindowSetMenuState        = 80422B5EH;
  311.   CONST mmWindowToBack              = 8042152EH;
  312.   CONST mmWindowToFront             = 8042554FH;
  313.  
  314. (* Attributes *)
  315.  
  316.   CONST maWindowActivate             = 80428D2FH; (* isg BOOL              *)
  317.   CONST maWindowActiveObject         = 80427925H; (* .sg Object *          *)
  318.   CONST maWindowAltHeight            = 8042CCE3H; (* i.g LONG              *)
  319.   CONST maWindowAltLeftEdge          = 80422D65H; (* i.g LONG              *)
  320.   CONST maWindowAltTopEdge           = 8042E99BH; (* i.g LONG              *)
  321.   CONST maWindowAltWidth             = 804260F4H; (* i.g LONG              *)
  322.   CONST maWindowAppWindow            = 804280CFH; (* i.. BOOL              *)
  323.   CONST maWindowBackdrop             = 8042C0BBH; (* i.. BOOL              *)
  324.   CONST maWindowBorderless           = 80429B79H; (* i.. BOOL              *)
  325.   CONST maWindowCloseGadget          = 8042A110H; (* i.. BOOL              *)
  326.   CONST maWindowCloseRequest         = 8042E86EH; (* ..g BOOL              *)
  327.   CONST maWindowDefaultObject        = 804294D7H; (* isg Object *          *)
  328.   CONST maWindowDepthGadget          = 80421923H; (* i.. BOOL              *)
  329.   CONST maWindowDragBar              = 8042045DH; (* i.. BOOL              *)
  330.   CONST maWindowHeight               = 80425846H; (* i.g LONG              *)
  331.   CONST maWindowID                   = 804201BDH; (* isg ULONG             *)
  332.   CONST maWindowInputEvent           = 804247D8H; (* ..g struct InputEvent * *)
  333.   CONST maWindowLeftEdge             = 80426C65H; (* i.g LONG              *)
  334.   CONST maWindowMenu                 = 8042DB94H; (* i.. struct NewMenu *  *)
  335.   CONST maWindowNoMenus              = 80429DF5H; (* .s. BOOL              *)
  336.   CONST maWindowOpen                 = 80428AA0H; (* .sg BOOL              *)
  337.   CONST maWindowPublicScreen         = 804278E4H; (* isg STRPTR            *)
  338.   CONST maWindowRefWindow            = 804201F4H; (* is. Object *          *)
  339.   CONST maWindowRootObject           = 8042CBA5H; (* i.. Object *          *)
  340.   CONST maWindowScreen               = 8042DF4FH; (* isg struct Screen *   *)
  341.   CONST maWindowScreenTitle          = 804234B0H; (* isg STRPTR            *)
  342.   CONST maWindowSizeGadget           = 8042E33DH; (* i.. BOOL              *)
  343.   CONST maWindowSizeRight            = 80424780H; (* i.. BOOL              *)
  344.   CONST maWindowSleep                = 8042E7DBH; (* .sg BOOL              *)
  345.   CONST maWindowTitle                = 8042AD3DH; (* isg STRPTR            *)
  346.   CONST maWindowTopEdge              = 80427C66H; (* i.g LONG              *)
  347.   CONST maWindowWidth                = 8042DCAEH; (* i.g LONG              *)
  348.   CONST maWindowWindow               = 80426A42H; (* ..g struct Window *   *)
  349.  
  350.   CONST mvWindowActiveObjectNone     = 0;
  351.   CONST mvWindowActiveObjectNext     = -1;
  352.   CONST mvWindowActiveObjectPrev     = -2;
  353.   CONST mvWindowAltHeightScaled      = -1000;
  354.   CONST mvWindowAltLeftEdgeCentered  = -1;
  355.   CONST mvWindowAltLeftEdgeMoused    = -2;
  356.   CONST mvWindowAltLeftEdgeNoChange  = -1000;
  357.   CONST mvWindowAltTopEdgeCentered   = -1;
  358.   CONST mvWindowAltTopEdgeMoused     = -2;
  359.   CONST mvWindowAltTopEdgeNoChange   = -1000;
  360.   CONST mvWindowAltWidthScaled       = -1000;
  361.   CONST mvWindowHeightScaled         = -1000;
  362.   CONST mvWindowHeightDefault        = -1001;
  363.   CONST mvWindowLeftEdgeCentered     = -1;
  364.   CONST mvWindowLeftEdgeMoused       = -2;
  365.   CONST mvWindowMenuNoMenu           = -1;
  366.   CONST mvWindowTopEdgeCentered      = -1;
  367.   CONST mvWindowTopEdgeMoused        = -2;
  368.   CONST mvWindowWidthScaled          = -1000;
  369.   CONST mvWindowWidthDefault         = -1001;
  370.  
  371.  
  372. (****************************************************************************)
  373. (** Area.mui 7.15 (28.11.93)                                               **)
  374. (****************************************************************************)
  375.  
  376.   CONST mcArea = "Area.mui";
  377.  
  378. (* Methods *)
  379.  
  380.   CONST mmAskMinMax                 = 80423874H;
  381.   CONST mmCleanup                   = 8042D985H;
  382.   CONST mmDraw                      = 80426F3FH;
  383.   CONST mmHandleInput               = 80422A1AH;
  384.   CONST mmHide                      = 8042F20FH;
  385.   CONST mmSetup                     = 80428354H;
  386.   CONST mmShow                      = 8042CC84H;
  387.  
  388. (* Attributes *)
  389.  
  390.   CONST maApplicationObject          = 8042D3EEH; (* ..g Object *          *)
  391.   CONST maBackground                 = 8042545BH; (* is. LONG              *)
  392.   CONST maBottomEdge                 = 8042E552H; (* ..g LONG              *)
  393.   CONST maControlChar                = 8042120BH; (* i.. char              *)
  394.   CONST maDisabled                   = 80423661H; (* isg BOOL              *)
  395.   CONST maExportID                   = 8042D76EH; (* isg LONG              *)
  396.   CONST maFixHeight                  = 8042A92BH; (* i.. LONG              *)
  397.   CONST maFixHeightTxt               = 804276F2H; (* i.. LONG              *)
  398.   CONST maFixWidth                   = 8042A3F1H; (* i.. LONG              *)
  399.   CONST maFixWidthTxt                = 8042D044H; (* i.. STRPTR            *)
  400.   CONST maFont                       = 8042BE50H; (* i.g struct TextFont * *)
  401.   CONST maFrame                      = 8042AC64H; (* i.. LONG              *)
  402.   CONST maFramePhantomHoriz          = 8042ED76H; (* i.. BOOL              *)
  403.   CONST maFrameTitle                 = 8042D1C7H; (* i.. STRPTR            *)
  404.   CONST maHeight                     = 80423237H; (* ..g LONG              *)
  405.   CONST maHorizWeight                = 80426DB9H; (* i.. LONG              *)
  406.   CONST maInnerBottom                = 8042F2C0H; (* i.. LONG              *)
  407.   CONST maInnerLeft                  = 804228F8H; (* i.. LONG              *)
  408.   CONST maInnerRight                 = 804297FFH; (* i.. LONG              *)
  409.   CONST maInnerTop                   = 80421EB6H; (* i.. LONG              *)
  410.   CONST maInputMode                  = 8042FB04H; (* i.. LONG              *)
  411.   CONST maLeftEdge                   = 8042BEC6H; (* ..g LONG              *)
  412.   CONST maPressed                    = 80423535H; (* ..g BOOL              *)
  413.   CONST maRightEdge                  = 8042BA82H; (* ..g LONG              *)
  414.   CONST maSelected                   = 8042654BH; (* isg BOOL              *)
  415.   CONST maShowMe                     = 80429BA8H; (* isg BOOL              *)
  416.   CONST maShowSelState               = 8042CAACH; (* i.. BOOL              *)
  417.   CONST maTimer                      = 80426435H; (* ..g LONG              *)
  418.   CONST maTopEdge                    = 8042509BH; (* ..g LONG              *)
  419.   CONST maVertWeight                 = 804298D0H; (* i.. LONG              *)
  420.   CONST maWeight                     = 80421D1FH; (* i.. LONG              *)
  421.   CONST maWidth                      = 8042B59CH; (* ..g LONG              *)
  422.   CONST maWindow                     = 80421591H; (* ..g struct Window *   *)
  423.   CONST maWindowObject               = 8042669EH; (* ..g Object *          *)
  424.  
  425.   CONST mvFontInherit                = 0;
  426.   CONST mvFontNormal                 = -1;
  427.   CONST mvFontList                   = -2;
  428.   CONST mvFontTiny                   = -3;
  429.   CONST mvFontFixed                  = -4;
  430.   CONST mvFontTitle                  = -5;
  431.   CONST mvFrameNone                  = 0;
  432.   CONST mvFrameButton                = 1;
  433.   CONST mvFrameImageButton           = 2;
  434.   CONST mvFrameText                  = 3;
  435.   CONST mvFrameString                = 4;
  436.   CONST mvFrameReadList              = 5;
  437.   CONST mvFrameInputList             = 6;
  438.   CONST mvFrameProp                  = 7;
  439.   CONST mvFrameGauge                 = 8;
  440.   CONST mvFrameGroup                 = 9;
  441.   CONST mvFramePopUp                 = 10;
  442.   CONST mvFrameVirtual               = 11;
  443.   CONST mvFrameSlider                = 12;
  444.   CONST mvFrameCount                 = 13;
  445.   CONST mvInputModeNone              = 0;
  446.   CONST mvInputModeRelVerify         = 1;
  447.   CONST mvInputModeImmediate         = 2;
  448.   CONST mvInputModeToggle            = 3;
  449.  
  450.  
  451. (****************************************************************************)
  452. (** Rectangle.mui 7.14 (28.11.93)                                          **)
  453. (****************************************************************************)
  454.  
  455.   CONST mcRectangle = "Rectangle.mui";
  456.  
  457. (* Attributes *)
  458.  
  459.   CONST maRectangleHBar              = 8042C943H; (* i.g BOOL              *)
  460.   CONST maRectangleVBar              = 80422204H; (* i.g BOOL              *)
  461.  
  462.  
  463.  
  464. (****************************************************************************)
  465. (** Image.mui 7.13 (28.11.93)                                              **)
  466. (****************************************************************************)
  467.  
  468.   CONST mcImage = "Image.mui";
  469.  
  470. (* Attributes *)
  471.  
  472.   CONST maImageFontMatch             = 8042815DH; (* i.. BOOL              *)
  473.   CONST maImageFontMatchHeight       = 80429F26H; (* i.. BOOL              *)
  474.   CONST maImageFontMatchWidth        = 804239BFH; (* i.. BOOL              *)
  475.   CONST maImageFreeHoriz             = 8042DA84H; (* i.. BOOL              *)
  476.   CONST maImageFreeVert              = 8042EA28H; (* i.. BOOL              *)
  477.   CONST maImageOldImage              = 80424F3DH; (* i.. struct Image *    *)
  478.   CONST maImageSpec                  = 804233D5H; (* i.. char *            *)
  479.   CONST maImageState                 = 8042A3ADH; (* is. LONG              *)
  480.  
  481.  
  482.  
  483. (****************************************************************************)
  484. (** Text.mui 7.15 (28.11.93)                                               **)
  485. (****************************************************************************)
  486.  
  487.   CONST mcText = "Text.mui";
  488.  
  489. (* Attributes *)
  490.  
  491.   CONST maTextContents               = 8042F8DCH; (* isg STRPTR            *)
  492.   CONST maTextHiChar                 = 804218FFH; (* i.. char              *)
  493.   CONST maTextPreParse               = 8042566DH; (* isg STRPTR            *)
  494.   CONST maTextSetMax                 = 80424D0AH; (* i.. BOOL              *)
  495.   CONST maTextSetMin                 = 80424E10H; (* i.. BOOL              *)
  496.  
  497.  
  498.  
  499. (****************************************************************************)
  500. (** String.mui 7.13 (28.11.93)                                             **)
  501. (****************************************************************************)
  502.  
  503.   CONST mcString = "String.mui";
  504.  
  505. (* Attributes *)
  506.  
  507.   CONST maStringAccept               = 8042E3E1H; (* isg STRPTR            *)
  508.   CONST maStringAcknowledge          = 8042026CH; (* ..g STRPTR            *)
  509.   CONST maStringAttachedList         = 80420FD2H; (* i.. Object *          *)
  510.   CONST maStringBufferPos            = 80428B6CH; (* .sg LONG              *)
  511.   CONST maStringContents             = 80428FFDH; (* isg STRPTR            *)
  512.   CONST maStringDisplayPos           = 8042CCBFH; (* .sg LONG              *)
  513.   CONST maStringFormat               = 80427484H; (* i.g LONG              *)
  514.   CONST maStringInteger              = 80426E8AH; (* isg ULONG             *)
  515.   CONST maStringMaxLen               = 80424984H; (* i.. LONG              *)
  516.   CONST maStringReject               = 8042179CH; (* isg STRPTR            *)
  517.   CONST maStringSecret               = 80428769H; (* i.g BOOL              *)
  518.  
  519.   CONST mvStringFormatLeft           = 0;
  520.   CONST mvStringFormatCenter         = 1;
  521.   CONST mvStringFormatRight          = 2;
  522.  
  523.  
  524. (****************************************************************************)
  525. (** Prop.mui 7.12 (28.11.93)                                               **)
  526. (****************************************************************************)
  527.  
  528.   CONST mcProp = "Prop.mui";
  529.  
  530. (* Attributes *)
  531.  
  532.   CONST maPropEntries                = 8042FBDBH; (* isg LONG              *)
  533.   CONST maPropFirst                  = 8042D4B2H; (* isg LONG              *)
  534.   CONST maPropHoriz                  = 8042F4F3H; (* i.g BOOL              *)
  535.   CONST maPropSlider                 = 80429C3AH; (* isg BOOL              *)
  536.   CONST maPropVisible                = 8042FEA6H; (* isg LONG              *)
  537.  
  538.  
  539.  
  540. (****************************************************************************)
  541. (** Gauge.mui 7.39 (02.02.94)                                              **)
  542. (****************************************************************************)
  543.  
  544.   CONST mcGauge = "Gauge.mui";
  545.  
  546. (* Attributes *)
  547.  
  548.   CONST maGaugeCurrent               = 8042F0DDH; (* isg LONG              *)
  549.   CONST maGaugeDivide                = 8042D8DFH; (* isg BOOL              *)
  550.   CONST maGaugeHoriz                 = 804232DDH; (* i.. BOOL              *)
  551.   CONST maGaugeInfoText              = 8042BF15H; (* isg char *            *)
  552.   CONST maGaugeMax                   = 8042BCDBH; (* isg LONG              *)
  553.  
  554.  
  555.  
  556. (****************************************************************************)
  557. (** Scale.mui 7.35 (02.02.94)                                              **)
  558. (****************************************************************************)
  559.  
  560.   CONST mcScale = "Scale.mui";
  561.  
  562. (* Attributes *)
  563.  
  564.   CONST maScaleHoriz                 = 8042919AH; (* isg BOOL              *)
  565.  
  566.  
  567.  
  568. (****************************************************************************)
  569. (** Boopsi.mui 7.34 (02.02.94)                                             **)
  570. (****************************************************************************)
  571.  
  572.   CONST mcBoopsi = "Boopsi.mui";
  573.  
  574. (* Attributes *)
  575.  
  576.   CONST maBoopsiClass                = 80426999H; (* isg struct IClass *   *)
  577.   CONST maBoopsiClassID              = 8042BFA3H; (* isg char *            *)
  578.   CONST maBoopsiMaxHeight            = 8042757FH; (* isg ULONG             *)
  579.   CONST maBoopsiMaxWidth             = 8042BCB1H; (* isg ULONG             *)
  580.   CONST maBoopsiMinHeight            = 80422C93H; (* isg ULONG             *)
  581.   CONST maBoopsiMinWidth             = 80428FB2H; (* isg ULONG             *)
  582.   CONST maBoopsiObject               = 80420178H; (* ..g Object *          *)
  583.   CONST maBoopsiRemember             = 8042F4BDH; (* i.. ULONG             *)
  584.   CONST maBoopsiTagDrawInfo          = 8042BAE7H; (* isg ULONG             *)
  585.   CONST maBoopsiTagScreen            = 8042BC71H; (* isg ULONG             *)
  586.   CONST maBoopsiTagWindow            = 8042E11DH; (* isg ULONG             *)
  587.  
  588.  
  589.  
  590. (****************************************************************************)
  591. (** Colorfield.mui 7.36 (02.02.94)                                         **)
  592. (****************************************************************************)
  593.  
  594.   CONST mcColorfield = "Colorfield.mui";
  595.  
  596. (* Attributes *)
  597.  
  598.   CONST maColorfieldBlue             = 8042D3B0H; (* isg ULONG             *)
  599.   CONST maColorfieldGreen            = 80424466H; (* isg ULONG             *)
  600.   CONST maColorfieldPen              = 8042713AH; (* ..g ULONG             *)
  601.   CONST maColorfieldRed              = 804279F6H; (* isg ULONG             *)
  602.   CONST maColorfieldRGB              = 8042677AH; (* isg ULONG *           *)
  603.  
  604.  
  605.  
  606. (****************************************************************************)
  607. (** List.mui 7.22 (28.11.93)                                               **)
  608. (****************************************************************************)
  609.  
  610.   CONST mcList = "List.mui";
  611.  
  612. (* Methods *)
  613.  
  614.   CONST mmListClear                 = 8042AD89H;
  615.   CONST mmListExchange              = 8042468CH;
  616.   CONST mmListGetEntry              = 804280ECH;
  617.   CONST mmListInsert                = 80426C87H;
  618.   CONST mmListInsertSingle          = 804254D5H;
  619.   CONST mmListJump                  = 8042BAABH;
  620.   CONST mmListNextSelected          = 80425F17H;
  621.   CONST mmListRedraw                = 80427993H;
  622.   CONST mmListRemove                = 8042647EH;
  623.   CONST mmListSelect                = 804252D8H;
  624.   CONST mmListSort                  = 80422275H;
  625.  
  626. (* Attributes *)
  627.  
  628.   CONST maListActive                 = 8042391CH; (* isg LONG              *)
  629.   CONST maListAdjustHeight           = 8042850DH; (* i.. BOOL              *)
  630.   CONST maListAdjustWidth            = 8042354AH; (* i.. BOOL              *)
  631.   CONST maListCompareHook            = 80425C14H; (* is. struct Hook *     *)
  632.   CONST maListConstructHook          = 8042894FH; (* is. struct Hook *     *)
  633.   CONST maListDestructHook           = 804297CEH; (* is. struct Hook *     *)
  634.   CONST maListDisplayHook            = 8042B4D5H; (* is. struct Hook *     *)
  635.   CONST maListEntries                = 80421654H; (* ..g LONG              *)
  636.   CONST maListFirst                  = 804238D4H; (* ..g LONG              *)
  637.   CONST maListFormat                 = 80423C0AH; (* isg STRPTR            *)
  638.   CONST maListMultiTestHook          = 8042C2C6H; (* is. struct Hook *     *)
  639.   CONST maListQuiet                  = 8042D8C7H; (* .s. BOOL              *)
  640.   CONST maListSourceArray            = 8042C0A0H; (* i.. APTR              *)
  641.   CONST maListTitle                  = 80423E66H; (* isg char *            *)
  642.   CONST maListVisible                = 8042191FH; (* ..g LONG              *)
  643.  
  644.   CONST mvListActiveOff              = -1;
  645.   CONST mvListActiveTop              = -2;
  646.   CONST mvListActiveBottom           = -3;
  647.   CONST mvListActiveUp               = -4;
  648.   CONST mvListActiveDown             = -5;
  649.   CONST mvListActivePageUp           = -6;
  650.   CONST mvListActivePageDown         = -7;
  651.   CONST mvListConstructHookString    = -1;
  652.   CONST mvListDestructHookString     = -1;
  653.  
  654.  
  655. (****************************************************************************)
  656. (** Floattext.mui 7.37 (05.02.94)                                          **)
  657. (****************************************************************************)
  658.  
  659.   CONST mcFloattext = "Floattext.mui";
  660.  
  661. (* Attributes *)
  662.  
  663.   CONST maFloattextJustify           = 8042DC03H; (* isg BOOL              *)
  664.   CONST maFloattextSkipChars         = 80425C7DH; (* is. STRPTR            *)
  665.   CONST maFloattextTabSize           = 80427D17H; (* is. LONG              *)
  666.   CONST maFloattextText              = 8042D16AH; (* isg STRPTR            *)
  667.  
  668.  
  669.  
  670. (****************************************************************************)
  671. (** Volumelist.mui 7.34 (02.02.94)                                         **)
  672. (****************************************************************************)
  673.  
  674.   CONST mcVolumelist = "Volumelist.mui";
  675.  
  676.  
  677. (****************************************************************************)
  678. (** Scrmodelist.mui 7.42 (03.02.94)                                        **)
  679. (****************************************************************************)
  680.  
  681.   CONST mcScrmodelist = "Scrmodelist.mui";
  682.  
  683. (* Attributes *)
  684.  
  685.  
  686.  
  687.  
  688. (****************************************************************************)
  689. (** Dirlist.mui 7.34 (02.02.94)                                            **)
  690. (****************************************************************************)
  691.  
  692.   CONST mcDirlist = "Dirlist.mui";
  693.  
  694. (* Methods *)
  695.  
  696.   CONST mmDirlistReRead             = 80422D71H;
  697.  
  698. (* Attributes *)
  699.  
  700.   CONST maDirlistAcceptPattern       = 8042760AH; (* is. STRPTR            *)
  701.   CONST maDirlistDirectory           = 8042EA41H; (* is. STRPTR            *)
  702.   CONST maDirlistDrawersOnly         = 8042B379H; (* is. BOOL              *)
  703.   CONST maDirlistFilesOnly           = 8042896AH; (* is. BOOL              *)
  704.   CONST maDirlistFilterDrawers       = 80424AD2H; (* is. BOOL              *)
  705.   CONST maDirlistFilterHook          = 8042AE19H; (* is. struct Hook *     *)
  706.   CONST maDirlistMultiSelDirs        = 80428653H; (* is. BOOL              *)
  707.   CONST maDirlistNumBytes            = 80429E26H; (* ..g LONG              *)
  708.   CONST maDirlistNumDrawers          = 80429CB8H; (* ..g LONG              *)
  709.   CONST maDirlistNumFiles            = 8042A6F0H; (* ..g LONG              *)
  710.   CONST maDirlistPath                = 80426176H; (* ..g STRPTR            *)
  711.   CONST maDirlistRejectIcons         = 80424808H; (* is. BOOL              *)
  712.   CONST maDirlistRejectPattern       = 804259C7H; (* is. STRPTR            *)
  713.   CONST maDirlistSortDirs            = 8042BBB9H; (* is. LONG              *)
  714.   CONST maDirlistSortHighLow         = 80421896H; (* is. BOOL              *)
  715.   CONST maDirlistSortType            = 804228BCH; (* is. LONG              *)
  716.   CONST maDirlistStatus              = 804240DEH; (* ..g LONG              *)
  717.  
  718.   CONST mvDirlistSortDirsFirst       = 0;
  719.   CONST mvDirlistSortDirsLast        = 1;
  720.   CONST mvDirlistSortDirsMix         = 2;
  721.   CONST mvDirlistSortTypeName        = 0;
  722.   CONST mvDirlistSortTypeDate        = 1;
  723.   CONST mvDirlistSortTypeSize        = 2;
  724.   CONST mvDirlistStatusInvalid       = 0;
  725.   CONST mvDirlistStatusReading       = 1;
  726.   CONST mvDirlistStatusValid         = 2;
  727.  
  728.  
  729. (****************************************************************************)
  730. (** Group.mui 7.12 (28.11.93)                                              **)
  731. (****************************************************************************)
  732.  
  733.   CONST mcGroup = "Group.mui";
  734.  
  735. (* Methods *)
  736.  
  737.  
  738. (* Attributes *)
  739.  
  740.   CONST maGroupActivePage            = 80424199H; (* isg LONG              *)
  741.   CONST maGroupChild                 = 804226E6H; (* i.. Object *          *)
  742.   CONST maGroupColumns               = 8042F416H; (* is. LONG              *)
  743.   CONST maGroupHoriz                 = 8042536BH; (* i.. BOOL              *)
  744.   CONST maGroupHorizSpacing          = 8042C651H; (* is. LONG              *)
  745.   CONST maGroupPageMode              = 80421A5FH; (* is. BOOL              *)
  746.   CONST maGroupRows                  = 8042B68FH; (* is. LONG              *)
  747.   CONST maGroupSameHeight            = 8042037EH; (* i.. BOOL              *)
  748.   CONST maGroupSameSize              = 80420860H; (* i.. BOOL              *)
  749.   CONST maGroupSameWidth             = 8042B3ECH; (* i.. BOOL              *)
  750.   CONST maGroupSpacing               = 8042866DH; (* is. LONG              *)
  751.   CONST maGroupVertSpacing           = 8042E1BFH; (* is. LONG              *)
  752.  
  753.  
  754.  
  755. (****************************************************************************)
  756. (** Group.mui 7.12 (28.11.93)                                              **)
  757. (****************************************************************************)
  758.  
  759.   CONST mcRegister = "Register.mui";
  760.  
  761. (* Attributes *)
  762.  
  763.   CONST maRegisterFrame              = 8042349BH; (* i.g BOOL              *)
  764.   CONST maRegisterTitles             = 804297ECH; (* i.g STRPTR *          *)
  765.  
  766.  
  767.  
  768. (****************************************************************************)
  769. (** Virtgroup.mui 7.34 (02.02.94)                                          **)
  770. (****************************************************************************)
  771.  
  772.   CONST mcVirtgroup = "Virtgroup.mui";
  773.  
  774. (* Methods *)
  775.  
  776.  
  777. (* Attributes *)
  778.  
  779.   CONST maVirtgroupHeight            = 80423038H; (* ..g LONG              *)
  780.   CONST maVirtgroupLeft              = 80429371H; (* isg LONG              *)
  781.   CONST maVirtgroupTop               = 80425200H; (* isg LONG              *)
  782.   CONST maVirtgroupWidth             = 80427C49H; (* ..g LONG              *)
  783.  
  784.  
  785.  
  786. (****************************************************************************)
  787. (** Scrollgroup.mui 7.32 (02.02.94)                                        **)
  788. (****************************************************************************)
  789.  
  790.   CONST mcScrollgroup = "Scrollgroup.mui";
  791.  
  792. (* Attributes *)
  793.  
  794.   CONST maScrollgroupContents        = 80421261H; (* i.. Object *          *)
  795.  
  796.  
  797.  
  798. (****************************************************************************)
  799. (** Scrollbar.mui 7.12 (28.11.93)                                          **)
  800. (****************************************************************************)
  801.  
  802.   CONST mcScrollbar = "Scrollbar.mui";
  803.  
  804.  
  805. (****************************************************************************)
  806. (** Listview.mui 7.13 (28.11.93)                                           **)
  807. (****************************************************************************)
  808.  
  809.   CONST mcListview = "Listview.mui";
  810.  
  811. (* Attributes *)
  812.  
  813.   CONST maListviewClickColumn        = 8042D1B3H; (* ..g LONG              *)
  814.   CONST maListviewDefClickColumn     = 8042B296H; (* isg LONG              *)
  815.   CONST maListviewDoubleClick        = 80424635H; (* i.g BOOL              *)
  816.   CONST maListviewInput              = 8042682DH; (* i.. BOOL              *)
  817.   CONST maListviewList               = 8042BCCEH; (* i.. Object *          *)
  818.   CONST maListviewMultiSelect        = 80427E08H; (* i.. LONG              *)
  819.   CONST maListviewSelectChange       = 8042178FH; (* ..g BOOL              *)
  820.  
  821.   CONST mvListviewMultiSelectNone    = 0;
  822.   CONST mvListviewMultiSelectDefault = 1;
  823.   CONST mvListviewMultiSelectShifted = 2;
  824.   CONST mvListviewMultiSelectAlways  = 3;
  825.  
  826.  
  827. (****************************************************************************)
  828. (** Radio.mui 7.12 (28.11.93)                                              **)
  829. (****************************************************************************)
  830.  
  831.   CONST mcRadio = "Radio.mui";
  832.  
  833. (* Attributes *)
  834.  
  835.   CONST maRadioActive                = 80429B41H; (* isg LONG              *)
  836.   CONST maRadioEntries               = 8042B6A1H; (* i.. STRPTR *          *)
  837.  
  838.  
  839.  
  840. (****************************************************************************)
  841. (** Cycle.mui 7.16 (28.11.93)                                              **)
  842. (****************************************************************************)
  843.  
  844.   CONST mcCycle = "Cycle.mui";
  845.  
  846. (* Attributes *)
  847.  
  848.   CONST maCycleActive                = 80421788H; (* isg LONG              *)
  849.   CONST maCycleEntries               = 80420629H; (* i.. STRPTR *          *)
  850.  
  851.   CONST mvCycleActiveNext            = -1;
  852.   CONST mvCycleActivePrev            = -2;
  853.  
  854.  
  855. (****************************************************************************)
  856. (** Slider.mui 7.12 (28.11.93)                                             **)
  857. (****************************************************************************)
  858.  
  859.   CONST mcSlider = "Slider.mui";
  860.  
  861. (* Attributes *)
  862.  
  863.   CONST maSliderLevel                = 8042AE3AH; (* isg LONG              *)
  864.   CONST maSliderMax                  = 8042D78AH; (* i.. LONG              *)
  865.   CONST maSliderMin                  = 8042E404H; (* i.. LONG              *)
  866.   CONST maSliderQuiet                = 80420B26H; (* i.. BOOL              *)
  867.   CONST maSliderReverse              = 8042F2A0H; (* isg BOOL              *)
  868.  
  869.  
  870.  
  871. (****************************************************************************)
  872. (** Coloradjust.mui 7.44 (05.02.94)                                        **)
  873. (****************************************************************************)
  874.  
  875.   CONST mcColoradjust = "Coloradjust.mui";
  876.  
  877. (* Attributes *)
  878.  
  879.   CONST maColoradjustBlue            = 8042B8A3H; (* isg ULONG             *)
  880.   CONST maColoradjustGreen           = 804285ABH; (* isg ULONG             *)
  881.   CONST maColoradjustModeID          = 8042EC59H; (* isg ULONG             *)
  882.   CONST maColoradjustRed             = 80420EAAH; (* isg ULONG             *)
  883.   CONST maColoradjustRGB             = 8042F899H; (* isg ULONG *           *)
  884.  
  885.  
  886.  
  887. (****************************************************************************)
  888. (** Palette.mui 7.33 (02.02.94)                                            **)
  889. (****************************************************************************)
  890.  
  891.   CONST mcPalette = "Palette.mui";
  892.  
  893. (* Attributes *)
  894.  
  895.   CONST maPaletteEntries             = 8042A3D8H; (* i.g struct MUI_Palette_Entry * *)
  896.   CONST maPaletteGroupable           = 80423E67H; (* isg BOOL              *)
  897.   CONST maPaletteNames               = 8042C3A2H; (* isg char **           *)
  898.  
  899.  
  900.  
  901. (****************************************************************************)
  902. (** Colorpanel.mui 7.9 (02.02.94)                                          **)
  903. (****************************************************************************)
  904.  
  905.   CONST mcColorpanel = "Colorpanel.mui";
  906.  
  907. (* Methods *)
  908.  
  909.   CONST mmColorpanelGetColor        = 80425AF1H;
  910.   CONST mmColorpanelSetColor        = 8042C240H;
  911.  
  912. (* Attributes *)
  913.  
  914.   CONST maColorpanelActive           = 8042FCDEH; (* isg ULONG             *)
  915.   CONST maColorpanelCount            = 8042DCF6H; (* i.g LONG              *)
  916.  
  917.  
  918.  
  919. (****************************************************************************)
  920. (** Popstring.mui 7.19 (02.12.93)                                          **)
  921. (****************************************************************************)
  922.  
  923.   CONST mcPopstring = "Popstring.mui";
  924.  
  925. (* Methods *)
  926.  
  927.   CONST mmPopstringClose            = 8042DC52H;
  928.   CONST mmPopstringOpen             = 804258BAH;
  929.  
  930. (* Attributes *)
  931.  
  932.   CONST maPopstringButton            = 8042D0B9H; (* i.g Object *          *)
  933.   CONST maPopstringCloseHook         = 804256BFH; (* isg struct Hook *     *)
  934.   CONST maPopstringOpenHook          = 80429D00H; (* isg struct Hook *     *)
  935.   CONST maPopstringString            = 804239EAH; (* i.g Object *          *)
  936.   CONST maPopstringToggle            = 80422B7AH; (* isg BOOL              *)
  937.  
  938.  
  939.  
  940. (****************************************************************************)
  941. (** Popobject.mui 7.18 (02.12.93)                                          **)
  942. (****************************************************************************)
  943.  
  944.   CONST mcPopobject = "Popobject.mui";
  945.  
  946. (* Attributes *)
  947.  
  948.   CONST maPopobjectFollow            = 80424CB5H; (* isg BOOL              *)
  949.   CONST maPopobjectLight             = 8042A5A3H; (* isg BOOL              *)
  950.   CONST maPopobjectObject            = 804293E3H; (* i.g Object *          *)
  951.   CONST maPopobjectObjStrHook        = 8042DB44H; (* isg struct Hook *     *)
  952.   CONST maPopobjectStrObjHook        = 8042FBE1H; (* isg struct Hook *     *)
  953.   CONST maPopobjectVolatile          = 804252ECH; (* isg BOOL              *)
  954.  
  955.  
  956.  
  957. (****************************************************************************)
  958. (** Popasl.mui 7.5 (03.12.93)                                              **)
  959. (****************************************************************************)
  960.  
  961.   CONST mcPopasl = "Popasl.mui";
  962.  
  963. (* Attributes *)
  964.  
  965.   CONST maPopaslActive               = 80421B37H; (* ..g BOOL              *)
  966.   CONST maPopaslStartHook            = 8042B703H; (* isg struct Hook *     *)
  967.   CONST maPopaslStopHook             = 8042D8D2H; (* isg struct Hook *     *)
  968.   CONST maPopaslType                 = 8042DF3DH; (* i.g ULONG             *)
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975. (****************************************************************************)
  976. (** The additional Procedures for window-class                             **)
  977. (****************************************************************************)
  978.  
  979.  
  980.         PROCEDURE mvWindowTopEdgeDelta(p:LONGINT): LONGINT;
  981.         PROCEDURE mvWindowWidthMinMax(p:LONGINT): LONGINT;
  982.         PROCEDURE mvWindowWidthVisible(p:LONGINT): LONGINT; 
  983.         PROCEDURE mvWindowWidthScreen(p:LONGINT): LONGINT; 
  984.         PROCEDURE mvWindowHeightMinMax(p:LONGINT): LONGINT; 
  985.         PROCEDURE mvWindowHeightVisible(p:LONGINT): LONGINT; 
  986.         PROCEDURE mvWindowHeightScreen(p:LONGINT): LONGINT; 
  987.         PROCEDURE mvWindowAltTopEdgeDelta(p:LONGINT): LONGINT; 
  988.         PROCEDURE mvWindowAltWidthMinMax(p:LONGINT): LONGINT; 
  989.         PROCEDURE mvWindowAltWidthVisible(p:LONGINT): LONGINT; 
  990.         PROCEDURE mvWindowAltWidthScreen(p:LONGINT): LONGINT; 
  991.         PROCEDURE mvWindowAltHeightMinMax(p:LONGINT): LONGINT; 
  992.         PROCEDURE mvWindowAltHeightVisible(p:LONGINT): LONGINT; 
  993.         PROCEDURE mvWindowAltHeightScreen(p:LONGINT): LONGINT; 
  994.  
  995.  
  996. END MuiD.
  997.