os4units: mui added, DoMethod, DoSuperMethod and so on added.

git-svn-id: trunk@33585 -

.gitattributes

@@ -6332,6 +6332,7 @@ packages/os4units/src/inputevent.pas svneol=native#text/pascal
 packages/os4units/src/intuition.pas svneol=native#text/pascal
 packages/os4units/src/keymap.pas svneol=native#text/pascal
 packages/os4units/src/layers.pas svneol=native#text/pascal
+packages/os4units/src/mui.pas svneol=native#text/pascal
 packages/os4units/src/timer.pas svneol=native#text/pascal
 packages/os4units/src/utility.pas svneol=native#text/pascal
 packages/palmunits/Makefile svneol=native#text/plain

packages/os4units/fpmake.pp

@@ -42,6 +42,7 @@ begin
     T:=P.Targets.AddUnit('clipboard.pas');
     T:=P.Targets.AddUnit('iffparse.pas');
     T:=P.Targets.AddUnit('intuition.pas');
+    T:=P.Targets.AddUnit('mui.pas');
 
 {$ifndef ALLPACKAGES}
     Run;

packages/os4units/src/intuition.pas

@@ -4037,6 +4037,12 @@ function SetAttrs(obj: Pointer; const Tags: array of PtrUInt): LongWord;
 function SetGadgetAttrs(gadget: PGadget; Window: PWindow; Requester: PRequester; const argv: array of PtrUInt): LongWord;
 function EasyRequest(Window: PWindow; const EasyStruct: PEasyStruct; IDCMPPtr: PLongWord; const args: array of PtrUInt): LongInt;
 procedure SetWindowPointer(Win: PWindow; const Tags: array of PtrUInt);
+function DoMethodA(Obj: PObject_; Message: APTR): LongWord;
+function DoMethod(Obj: PObject_; const Args: array of PtrUInt): LongWord;
+function CoerceMethodA(cl: PIClass; Obj: PObject_; Message: APTR): LongWord;
+function CoerceMethod(cl: PIClass; Obj: PObject_; const Args: array of PtrUInt): LongWord;
+function DoSuperMethodA(cl: PIClass; Obj: PObject_; Message: APTR): LongWord;
+function DoSuperMethod(cl: PIClass; Obj: PObject_; const Args: array of PtrUInt): LongWord;
 
 
 { Intuition macros }
@@ -4096,6 +4102,53 @@ begin
   SetWindowPointerA(Win, @Tags);
 end;
 
+// Functions wrapper
+
+function DoMethodA(Obj: PObject_; Message: APTR): LongWord; inline;
+begin
+  DoMethodA := 0;
+  if Obj = nil then
+    Exit;
+  DoMethodA := CallHookPkt(PHook(OCLASS(Obj)), Obj, Message);
+end;
+
+function DoMethod(Obj: PObject_; const Args: array of PtrUInt): LongWord; inline;
+begin
+  DoMethod := 0;
+  if obj = nil then
+    Exit;
+  DoMethod := CallHookPkt(PHook(OCLASS(Obj)), Obj, @Args);
+end;
+
+function DoSuperMethodA(cl: PIClass; Obj: PObject_; Message: APTR): LongWord; inline;
+begin
+  DoSuperMethodA := 0;
+  if (cl = nil) or (obj = nil) then
+    Exit;
+  DoSuperMethodA := CallHookPkt(PHook(cl^.cl_Super), Obj, Message);
+end;
+
+function DoSuperMethod(cl: PIClass; Obj: PObject_; const Args: array of PtrUInt): LongWord; inline;
+begin
+  DoSuperMethod := 0;
+  if (cl = nil) or (obj = nil) then
+    Exit;
+  DoSuperMethod := CallHookPkt(PHook(cl^.cl_Super), Obj, @Args);
+end;
+
+function CoerceMethodA(cl: PIClass; Obj: PObject_; Message: APTR): LongWord; inline;
+begin
+  CoerceMethodA := 0;
+  if (cl = nil) or (obj = nil) then
+    Exit;
+  CoerceMethodA := CallHookPkt(PHook(cl), Obj, Message);
+end;
+
+function CoerceMethod(cl: PIClass; Obj: PObject_; const Args: array of PtrUInt): LongWord; inline;
+begin
+  CoerceMethod := CoerceMethodA(cl, Obj, @Args);
+end;
+
 function INST_DATA(cl: PIClass; o: P_Object): Pointer; inline;
 begin
   INST_DATA := Pointer(PtrUInt(o) + cl^.cl_InstOffset);

packages/os4units/src/mui.pas

@@ -0,0 +1,4115 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2016 by Free Pascal development team
+
+    MUI functions for Amiga OS 4.x
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{$packrecords C}
+unit mui;
+
+interface
+
+{   MUI - MagicUserInterface
+   Copyright (C) 1992-2006 by Stefan Stuntz <[email protected]>
+ Copyright (C) 2006-2016 by Thore Boeckelmann, Jens Maus
+
+ Main Header File
+
+************************************************************************
+ Class Tree
+************************************************************************
+
+ rootclass                   (BOOPSI's base class)
+ +--Notify                   (implements notification mechanism)
+ !  +--Family                (handles multiple children)
+ !  !  +--Menustrip          (describes a complete menu strip)
+ !  !  +--Menu               (describes a single menu)
+ !  !  \--Menuitem           (describes a single menu item)
+ !  +--Application           (main class for all applications)
+ !  +--Window                (main class for all windows)
+ !  !  \--Aboutmui           (About window of MUI preferences)
+ !  \--Area                  (base class for all GUI elements)
+ !     +--Dtpic              (datatypes based bitmaps)
+ !     +--Rectangle          (spacing object)
+ !     +--Balance            (balancing separator bar)
+ !     +--Image              (image display)
+ !     +--Bitmap             (draws bitmaps)
+ !     !  \--Bodychunk       (makes bitmap from ILBM body chunk)
+ !     +--Pixmap             (draws raw image data)
+ !     +--Text               (text display)
+ !     +--Gadget             (base class for intuition gadgets)
+ !     !  \--Boopsi          (interface to BOOPSI gadgets)
+ !     +--Gauge              (fule gauge)
+ !     +--Scale              (percentage scale)
+ !     +--Colorfield         (field with changeable color)
+ !     +--Numeric            (base class for slider gadgets)
+ !     !  +--Knob            (turning knob)
+ !     !  +--Levelmeter      (level display)
+ !     !  +--Numericbutton   (space saving popup slider)
+ !     !  \--Slider          (traditional slider)
+ !     !     \--Prop         (proportional gadget)
+ !     +--Pendisplay         (displays a pen specification)
+ !     !  \--Poppen          (popup button to adjust a pen spec)
+ !     +--String             (string gadget)
+ !     \--Group              (groups other GUI elements)
+ !        +--List            (line-oriented list)
+ !        !  +--Floattext    (special list with floating text)
+ !        !  +--Volumelist   (special list with volumes)
+ !        !  +--Scrmodelist  (special list with screen modes)
+ !        !  \--Dirlist      (special list with files)
+ !        +--Title           (handles page groups with titles)
+ !        +--Register        (handles page groups with titles)
+ !        !  \--Penadjust    (group to adjust a pen)
+ !        +--Virtgroup       (handles virtual groups)
+ !        +--Scrollgroup     (virtual groups with scrollbars)
+ !        +--Scrollbar       (traditional scrollbar)
+ !        +--Listview        (listview)
+ !        +--Radio           (radio button)
+ !        +--Cycle           (cycle gadget)
+ !        +--Coloradjust     (several gadgets to adjust a color)
+ !        +--Palette         (complete palette gadget)
+ !        \--Popstring       (base class for popup objects)
+ !           +--Popobject    (popup aynthing in a separate window)
+ !           !  +--Poplist   (popup a simple listview)
+ !           !  \--Popscreen (popup a list of public screens)
+ !           \--Popasl       (popup an asl requester)
+ \--Semaphore                (semaphore equipped objects)
+    +--Dataspace             (handles general purpose data spaces)
+    +--Datamap               (handles general purpose data spaces)
+    +--Objectmap             (handles general purpose data spaces)
+    \--Process               (simplify handlig sub-tasks)
+
+************************************************************************
+ General Header File Information
+************************************************************************
+ All macro and structure definitions follow these rules:
+
+ Name                     | Meaning
+ -------------------------+-------------------------------------
+ MUIC_<class>             | Name of a class
+ MUIM_<class>_<method>    | Method
+ MUIP_<class>_<method>    | Methods parameter structure
+ MUIV_<class>_<method>_<x>| Special method value
+ MUIA_<class>_<attrib>    | Attribute
+ MUIV_<class>_<attrib>_<x>| Special attribute value
+ MUIE_<error>             | Error return code from MUI_Error()
+ MUII_<name>              | Standard MUI image
+ MUIX_<code>              | Control codes for text strings
+ MUIO_<name>              | Object type for MUI_MakeObject()
+
+ MUIA_... attribute definitions are followed by a comment
+ consisting of the three possible letters I, S and G.
+ I: it's possible to specify this attribute at object creation time.
+ S: it's possible to change this attribute with SetAttrs().
+ G: it's possible to get this attribute with GetAttr().
+
+ Items marked with "Custom Class" are for use in custom classes only!}
+
+uses
+  exec, intuition, utility, agraphics, iffparse;
+
+
+const
+  MUIMASTER_NAME: PChar = 'muimaster.library';
+  MUIMASTER_VMIN        = 20;
+  MUIMASTER_VLATEST     = 20;
+
+  IMSPEC_EXTERNAL_PREFIX = 'MUI:Images/';
+
+  MUIB_MUI  = TAG_USER;                // Base for legacy MUI identifiers
+  MUIB_RSVD = MUIB_MUI  or $10400000;  // Base for AROS reserved range
+  MUIB_ZUNE = MUIB_RSVD or $00020000;  // Base for Zune core reserved range
+  MUIB_AROS = MUIB_RSVD or $00070000;  // Base for AROS core reserved range
+
+  PST_MUI = 'm';
+  PST_CMAP = 'p';
+  PST_RGB = 'r';
+  PST_SYS = 's';
+
+// MUI_PenSpec is a an ascii spec like this:
+//   'm5'   = mui pen #5
+//   'p123' = cmap entry #123
+//   'rFFFFFFFF,00000000,00000000' =rgb #FF0000
+//   's3'   = system pen #3
+//   It needs to be like this, because for example nlist has default penspecs in it's source encoded like above which it directly passes to MUI_ObtainBestPen
+// Black box specification structures for images, pens, frames
+type
+  PMUI_PenSpec = ^TMUI_PenSpec;
+  TMUI_PenSpec = record
+    ps_buf: array[0..31] of char; // black box
+  end;
+
+  PMUI_FrameSpec = ^TMUI_FrameSpec;
+  TMUI_FrameSpec = record
+    buf: array[0..31] of char;
+  end;
+
+// Public Screen Stuff
+// NOTE: This stuff is only included to allow compilation of the supplied public screen manager for educational purposes. Everything
+//       here is subject to change without notice and I guarantee to do that just for fun! More info can be found in the screen manager source file.
+const
+  PSD_INITIAL_NAME: PChar = '(unnamed)';
+  PSD_INITIAL_TITLE: PChar = 'MUI Public Screen';
+
+const
+  PSD_NAME_FRONTMOST: PChar = '«Frontmost»';
+  PSD_FILENAME_SAVE: PChar = 'envarc:mui/PublicScreens.iff';
+  PSD_FILENAME_USE: PChar = 'env:mui/PublicScreens.iff';
+  PSD_MAXLEN_NAME = 32;
+  PSD_MAXLEN_TITLE = 128;
+  PSD_MAXLEN_FONT = 48;
+  PSD_MAXLEN_BACKGROUND = 256;
+  PSD_NUMCOLS = 8;
+  PSD_MAXSYSPENS = 20;
+  PSD_NUMSYSPENS = 12;
+  PSD_MAXMUIPENS = 10;
+  PSD_NUMMUIPENS = 8;
+
+type
+  TMUI_RGBcolor = record
+    Red: LongWord;
+    Green: LongWord;
+    Blue: LongWord;
+  end;
+  PMUI_RGBColor = ^TMUI_RGBColor;
+
+  TMUI_PubScreenDesc = record
+    Version: LongInt;
+    Name: array[0..PSD_MAXLEN_NAME-1] of char;
+    Title: array[0..PSD_MAXLEN_TITLE-1] of char;
+    Font: array[0..PSD_MAXLEN_FONT-1] of char;
+    Background: array[0..PSD_MAXLEN_BACKGROUND-1] of char;
+
+    DisplayID: LongWord;
+
+    DisplayWidth: Word;
+    DisplayHeight : Word;
+
+    DisplayDepth: byte;
+    OverscanType: byte;
+    AutoScroll: byte;
+    NoDrag: byte;
+    Exclusive : byte;
+    Interleaved : byte;
+    SysDefault : byte;
+    Behind : byte;
+    AutoClose : byte;
+    CloseGadget : byte;
+    DummyWasForeign : byte;
+
+    SystemPens: array[0..(PSD_MAXSYSPENS)-1] of byte;
+    Reserved: array[0..((1 + (7 * 4)) - PSD_MAXSYSPENS)-1] of byte;
+
+    Palette: array[0..(PSD_NUMCOLS)-1] of tMUI_RGBcolor;
+    rsvd: array[0..(PSD_MAXSYSPENS - PSD_NUMCOLS)-1] of tMUI_RGBcolor;
+    rsvd2: array[0..(PSD_MAXMUIPENS)-1] of tMUI_PenSpec;
+
+    Changed: LongInt;
+    UserData: APTR;
+  end;
+  PMUI_PubScreenDesc = ^TMUI_PubScreenDesc;
+
+  TMUIS_InfoClient = record
+    Node: TMinNode;
+    Task: PTask;
+    SigBit: LongWord;
+  end;
+  PMUIS_InfoClient = ^TMUIS_InfoClient;
+
+// Object Types for MUI_MakeObject()
+
+const
+  MUIO_Label         = 1;   // label: STRPTR, flags: LongWord
+  MUIO_Button        = 2;   // label: STRPTR
+  MUIO_Checkmark     = 3;   // label: STRPTR
+  MUIO_Cycle         = 4;   // label: STRPTR, entries: STRPTR
+  MUIO_Radio         = 5;   // label: STRPTR, entries: STRPTR
+  MUIO_Slider        = 6;   // label: STRPTR, min: LongInt, max: LongInt
+  MUIO_String        = 7;   // label: STRPTR, maxlen: LongInt
+  MUIO_PopButton     = 8;   // imagespec: STRPTR
+  MUIO_HSpace        = 9;   // Space: LongInt
+  MUIO_VSpace        = 10;  // Space: LongInt
+  MUIO_HBar          = 11;  // Space: LongInt
+  MUIO_VBar          = 12;  // Space: LongInt
+  MUIO_MenustripNM   = 13;  // Nm: PNewMenu, Flags: LongWord
+  MUIO_Menuitem      = 14;  // Label: STRPTR, shortcut: STRPTR, flags: LongWord, data: LongWord
+  MUIO_BarTitle      = 15;  // Label: STRPTR
+  MUIO_NumericButton = 16;  // Label: STRPTR, Min: LongInt, Max: LongInt, format: STRPTR
+  // flags for MUIO_Menuitem
+  MUIO_Menuitem_CopyStrings = 1 shl 30;
+  //flags for MUIO_Label type
+  MUIO_Label_SingleFrame    = 1 shl 8;
+  MUIO_Label_DoubleFrame    = 1 shl 9;
+  MUIO_Label_LeftAligned    = 1 shl 10;
+  MUIO_Label_Centered       = 1 shl 11;
+  MUIO_Label_FreeVert       = 1 shl 12;
+  MUIO_Label_Tiny           = 1 shl 13;
+  MUIO_Label_DontCopy       = 1 shl 14;
+  // flag for MUIO_MenustripNM: check for "localized" menu items such as 'O'#0'Open'
+  MUIO_MenustripNM_CommandKeyCheck = 1 shl 0; // check for "localized" menu items such as "O\0Open"
+
+
+// ARexx Interface
+type
+  TMUI_Command = record
+    mc_Name: PChar;
+    mc_Template: PChar;
+    mc_Parameters: LongInt;
+    mc_Hook: PHook;
+    mc_Reserved: array[0..4] of LongInt;
+  end;
+  PMUI_Command = ^TMUI_Command;
+
+const
+  MC_TEMPLATE_ID = -1;
+  MUI_RXERR_BADDEFINITION  = -1;
+  MUI_RXERR_OUTOFMEMORY    = -2;
+  MUI_RXERR_UNKNOWNCOMMAND = -3;
+  MUI_RXERR_BADSYNTAX      = -4;
+
+// Return values for MUI_Error()
+  MUIE_OK                  = 0;
+  MUIE_OutOfMemory         = 1;
+  MUIE_OutOfGfxMemory      = 2;
+  MUIE_InvalidWindowObject = 3;
+  MUIE_MissingLibrary      = 4;
+  MUIE_NoARexx             = 5;
+  MUIE_SingleTask          = 6;
+
+// Standard MUI Images & Backgrounds
+  //These images are configured with the preferences program.
+  MUII_WindowBack    = 0;
+  MUII_RequesterBack = 1;
+  MUII_ButtonBack    = 2;
+  MUII_ListBack      = 3;
+  MUII_TextBack      = 4;
+  MUII_PropBack      = 5;
+  MUII_PopupBack     = 6;
+  MUII_SelectedBack  = 7;
+  MUII_ListCursor    = 8;
+  MUII_ListSelect    = 9;
+  MUII_ListSelCur    = 10;
+  MUII_ArrowUp       = 11;
+  MUII_ArrowDown     = 12;
+  MUII_ArrowLeft     = 13;
+  MUII_ArrowRight    = 14;
+  MUII_CheckMark     = 15;
+  MUII_RadioButton   = 16;
+  MUII_Cycle         = 17;
+  MUII_PopUp         = 18;
+  MUII_PopFile       = 19;
+  MUII_PopDrawer     = 20;
+  MUII_PropKnob      = 21;
+  MUII_Drawer        = 22;
+  MUII_HardDisk      = 23;
+  MUII_Disk          = 24;
+  MUII_Chip          = 25;
+  MUII_Volume        = 26;
+  MUII_RegisterBack  = 27;
+  MUII_Network       = 28;
+  MUII_Assign        = 29;
+  MUII_TapePlay      = 30;
+  MUII_TapePlayBack  = 31;
+  MUII_TapePause     = 32;
+  MUII_TapeStop      = 33;
+  MUII_TapeRecord    = 34;
+  MUII_GroupBack     = 35;
+  MUII_SliderBack    = 36;
+  MUII_SliderKnob    = 37;
+  MUII_TapeUp        = 38;
+  MUII_TapeDown      = 39;
+  MUII_PageBack      = 40;
+  MUII_ReadListBack  = 41;
+  MUII_PopFont       = 42;
+  MUII_ImageButtonBack   = 43;
+  MUII_ImageSelectedBack = 44;
+  MUII_GaugeFull         = 45;
+  MUII_GaugeEmpty        = 46;
+  MUII_Menudisplay       = 47;
+  MUII_PullOpen          = 48;
+  MUII_StringBack        = 49;
+  MUII_StringActiveBack  = 50;
+  MUII_ListTitle         = 51;
+  MUII_GroupTitle        = 52;
+  MUII_RegisterTitle     = 53;
+  MUII_Close             = 54;
+  MUII_Count             = 55;
+  // These are direct color combinations and are not affected by users prefs.
+  // Generally, you should avoid using them. Better use one of the customized images above.
+  MUII_BACKGROUND     = 128; // These are direct color
+  MUII_SHADOW         = 129; // combinations and are not
+  MUII_SHINE          = 130; // affected by users prefs.
+  MUII_FILL           = 131;
+  MUII_SHADOWBACK     = 132; // Generally, you should
+  MUII_SHADOWFILL     = 133; // avoid using them. Better
+  MUII_SHADOWSHINE    = 134; // use one of the customized
+  MUII_FILLBACK       = 135; // images above.
+  MUII_FILLSHINE      = 136;
+  MUII_SHINEBACK      = 137;
+  MUII_FILLBACK2      = 138;
+  MUII_HSHINEBACK     = 139;
+  MUII_HSHADOWBACK    = 140;
+  MUII_HSHINESHINE    = 141;
+  MUII_HSHADOWSHADOW  = 142;
+  MUII_MARKSHINE      = 143;
+  MUII_MARKHALFSHINE  = 144;
+  MUII_MARKBACKGROUND = 145;
+  MUII_LASTPAT        = 146;
+
+// Special values for some methods, Special Values for MUIM_Notify
+  MUIV_TriggerValue    = $49893131;
+  MUIV_NotTriggerValue = $49893133;
+  MUIV_EveryTime       = $49893131; // as TrigVal
+
+  MUIV_Notify_Self               = 1;
+  MUIV_Notify_Window             = 2;
+  MUIV_Notify_Application        = 3;
+  MUIV_Notify_Parent             = 4;
+  MUIV_Notify_ParentParent       = 5;
+  MUIV_Notify_ParentParentParent = 6;
+
+const
+   MUIV_DragQuery_Refuse    = 0;
+   MUIV_DragQuery_Accept    = 1;
+
+   MUIV_DragReport_Abort    = 0;
+   MUIV_DragReport_Continue = 1;
+   MUIV_DragReport_Lock     = 2;
+   MUIV_DragReport_Refresh  = 3;
+
+ //      Parameter structures for some classes
+type
+   PMUI_Palette_Entry = ^TMUI_Palette_Entry;
+   TMUI_Palette_Entry = record
+     mpe_ID: LongInt;
+     mpe_Red: LongWord;
+     mpe_Green: LongWord;
+     mpe_Blue: LongWord;
+     mpe_Group: LongInt;
+   end;
+const
+   MUIV_Palette_Entry_End = -1;
+
+// Window Event Handler (don't touch!)
+// event handlers are inserted according to their priority. certain flags, see below for definitions.
+// object which should receive MUIM_HandleEvent. if <> nil, MUIM_HandleEvent is invoked on exactly this class with CoerceMethod().
+// one or more IDCMP flags this handler should react on.
+// MUIM_Window_AddEventHandler/RemoveEventHandler
+type
+  PMUI_EventHandlerNode = ^TMUI_EventHandlerNode;
+  TMUI_EventHandlerNode = record
+    ehn_Node: TMinNode;
+    ehn_Reserved: byte;
+    ehn_Priority: byte;
+    ehn_Flags: word;
+    ehn_Object: PObject_;
+    ehn_Class: PIClass;
+    ehn_Events: LongWord;
+  end;
+
+const
+  // flags for ehn_Flags
+  MUI_EHF_ALWAYSKEYS     = 1 shl 0;  // not for public use
+  MUI_EHF_GUIMODE        = 1 shl 1;  // handler will not be called if object is not visible or disabled
+                                     // set this if you dont want your handler to be called when your object is disabled or invisible
+  MUI_EHF_ISACTIVEGRP    = 1 shl 12; // not for public use */
+  MUI_EHF_ISACTIVE       = 1 shl 13; // this flag is maintained by MUI and READ-ONLY:  set when ehn_Object is a window's active or default object. */
+  MUI_EHF_ISCALLING      = 1 shl 14; // not for public use */
+  MUI_EHF_ISENABLED      = 1 shl 15; // this flag is maintained by MUI and READ-ONLY: it is set when the handler is added (after MUIM_Window_AddEventHandler) */
+                                     // and cleared when the handler is removed (after MUIM_Window_RemEventHandler). you may not change the state of this flag yourself, but you may read it */
+                                     // to find out whether your handler is currently added to a window or not.
+  // return values for MUIM_HandleEvent (bit-masked, all other bits must be 0)
+  MUI_EventHandlerRC_Eat = 1 shl 0;  // stop MUI from calling other handlers
+
+// MUI's draw pens
+  MPEN_SHINE      = 0;
+  MPEN_HALFSHINE  = 1;
+  MPEN_BACKGROUND = 2;
+  MPEN_HALFSHADOW = 3;
+  MPEN_SHADOW     = 4;
+  MPEN_TEXT       = 5;
+  MPEN_FILL       = 6;
+  MPEN_MARK       = 7;
+  MPEN_COUNT      = 8; // Number of pens, the single definintion is below
+
+  MUIPEN_MASK     = $0000ffff;  // Mask for pens from MUI_ObtainPen()
+
+  MUIV_Font_Inherit  = 0;
+  MUIV_Font_Normal   = -1;
+  MUIV_Font_List     = -2;
+  MUIV_Font_Tiny     = -3;
+  MUIV_Font_Fixed    = -4;
+  MUIV_Font_Title    = -5;
+  MUIV_Font_Big      = -6;
+  MUIV_Font_Button   = -7;
+  MUIV_Font_Knob     = -8;
+  MUIV_Font_NegCount = -9;
+
+
+// List Position Test
+type
+  PMUI_List_TestPos_Result = ^TMUI_List_TestPos_Result;
+  TMUI_List_TestPos_Result = record
+    entry: LongInt;    // number of entry, -1 if mouse not over valid entry
+    column: SmallInt;  // numer of column, -1 if no valid column
+    flags: Word;       // MUI_LPR_*
+    xoffset: SmallInt; // x offset of mouse click relative to column start
+    yoffset: SmallInt; // y offset of mouse click from center of line (negative values mean click was above center,   positive values mean click was below center)
+  end;
+
+const
+   MUI_LPR_ABOVE = 1 shl 0;
+   MUI_LPR_BELOW = 1 shl 1;
+   MUI_LPR_LEFT  = 1 shl 2;
+   MUI_LPR_RIGHT = 1 shl 3;
+
+// Structure used by MUIM_Application_AddInputHandler/RemInputHandler
+type
+  PMUI_InputHandlerNode = ^TMUI_InputHandlerNode;
+  TMUI_InputHandlerNode = record
+    ihn_Node: TMinNode;
+    ihn_Object: PObject_;
+    ihn_stuff: record
+      case LongInt of
+        0 : (ihn_sigs: LongWord);
+        1 : (ihn_timer: record
+               ihn_millis: word;
+               ihn_current: word;
+             end);
+      end;
+      ihn_Flags: LongWord;
+      ihn_Method: LongWord;
+    end;
+  // ihn_Signals = ihn_stuff.ihn_sigs;
+  // ihn_Millis = ihn_stuff.(ihn_timer.ihn_millis);
+  // ihn_Current = ihn_stuff.(ihn_timer.ihn_current);
+
+  TMUI_DragImage = record
+    bm: PBitmap;
+    width: SmallInt;  // exact width and height of bitmap
+    height: SmallInt;
+    touchx: SmallInt; // position of pointer click relative to bitmap
+    touchy: SmallInt;
+    flags: LongWord;
+  end;
+  PMUI_DragImage =^TMUI_DragImage;
+
+{  For Boopsi Image Implementors Only:
+
+   If MUI is using a boopsi image object, it will send a special method
+   immediately after object creation. This method has a parameter structure
+   where the boopsi can fill in its minimum and maximum size and learn if
+   its used in a horizontal or vertical context.
+
+   The boopsi image must use the method id (MUIM_BoopsiQuery) as return
+   value. That's how MUI sees that the method is implemented.
+
+   Note: MUI does not depend on this method. If the boopsi image doesn't
+         implement it, minimum size will be 0 and maximum size unlimited. }
+
+const
+   MUIM_BoopsiQuery = $80427157;
+
+   MRI_RARRAY_SIZE  = 20;
+type
+  Tdt_frame_image = record
+  end;
+  Pdt_frame_image = ^Tdt_frame_image;
+
+  // Info about the display environment on which all Area Objects have a reference to it.
+  TMUI_RenderInfo = record
+    mri_WindowObject: PObject_; // accessable in-between MUIM_Setup/MUIM_Cleanup
+    mri_Screen: PScreen;        // accessable in-between MUIM_Setup/MUIM_Cleanup
+    mri_DrawInfo: PDrawInfo;    // accessable in-between MUIM_Setup/MUIM_Cleanup
+    mri_Pens: PWord;            // accessable in-between MUIM_Setup/MUIM_Cleanup
+    mri_Window: PWindow;        // accessable in-between MUIM_Show/MUIM_Hide
+    mri_RastPort: PRastPort;    // accessable in-between MUIM_Show/MUIM_Hide
+    mri_Flags: LongWord;        // accessable in-between MUIM_Setup/MUIM_Cleanup
+
+    // the following stuff is private
+    mri_Colormap: PColorMap;
+    mri_ScreenWidth: word;
+    mri_ScreenHeight: word;
+    mri_PensStorage: array[0..MPEN_COUNT-1] of word; // storage for pens, mri_Pens points to here
+
+    mri_Fonts: array[0..(0-MUIV_Font_NegCount)-1] of PTextFont; // Opened text fonts, done by zune_get_font()
+
+    mri_rArray: array[0..MRI_RARRAY_SIZE-1] of PRegion; // this is for AddClipping/AddClipRegion
+    mri_rCount: Integer;
+
+    mri_ClipRect: TRectangle;
+    mri_BorderTop: word;    // The height of the windows top border (title)
+    mri_BorderBottom: word; // The height of the window's bottom bodder
+    mri_BorderLeft: word;   // The width of the window's left border
+    mri_BorderRight: word;  // The width of the window's right border
+
+    // Stuff for Borderscrollers
+    mri_LeftImage: PObject_;  // Valid between MUIM_Setup/MUIM_Cleanup
+    mri_RightImage: PObject_;
+    mri_UpImage: PObject_;
+    mri_DownImage: PObject_;
+    mri_SizeImage: PObject_;
+
+    mri_VertProp: PObject_;  // Valid between MUIM_Show/MUIM_Hide
+    mri_HorizProp: PObject_;
+
+    // buffering
+    mri_BufferRP: TRastPort;
+    mri_BufferBM: PBitmap;
+
+    mri_FrameImage: array[0..15] of Pdt_frame_image;
+  end;
+  PMUI_RenderInfo = ^TMUI_RenderInfo;
+
+const
+  // Flags for mri_Flags
+  MUIMRI_RECTFILL    = 1 shl 0; // If mri_Flags and MUIMRI_RECTFILL, RectFill() is quicker than Move()/Draw() for horizontal or vertical lines. on the current display.
+  MUIMRI_TRUECOLOR   = 1 shl 1; // If mri_Flags and MUIMRI_TRUECOLOR, display environment is a cybergraphics emulated hicolor or true color display.
+  MUIMRI_THINFRAMES  = 1 shl 2; // If mri_Flags and MUIMRI_THINFRAMES, MUI uses thin frames (1:1) apsect ratio instead of standard 2:1 frames.
+  MUIMRI_REFRESHMODE = 1 shl 3; // If mri_Flags and MUIMRI_REFRESHMODE, MUI is currently refreshing a WFLG_SIMPLEREFRESH window and is between a BeginRefresh()/EndRefresh() pair.
+
+type
+  PMUI_BoopsiQuery = ^TMUI_BoopsiQuery;
+  TMUI_BoopsiQuery = record
+    mbq_MethodID: LongWord;          // always MUIM_BoopsiQuery
+    mbq_Screen: PScreen;             // obsolete, use mbq_RenderInfo
+    mbq_Flags: LongWord;             // read only, see below
+    mbq_MinWidth: LongInt;           // write only, fill in min width
+    mbq_MinHeight: LongInt;          // write only, fill in min height
+    mbq_MaxWidth: LongInt;           // write only, fill in max width
+    mbq_MaxHeight: LongInt;          // write only, fill in max height
+    mbq_DefWidth: LongInt;           // write only, fill in def width
+    mbq_DefHeight: LongInt;          // write only, fill in def height
+    mbq_RenderInfo: PMUI_RenderInfo; // read only, display context
+  end;                               // may grow in future ...
+// old structure name
+  MUIP_BoopsiQuery = TMUI_BoopsiQuery;
+
+const
+  MBQF_HORIZ        = 1 shl 0;   // object used in a horizontal context (else vertical) use this for unlimited MaxWidth/Height
+  MBQ_MUI_MAXMAX    = 10000;     // use this for unlimited MaxWidth/Height
+  IDCMP_MOUSEOBJECT = $40000000; // special idcmp message created by MUI
+
+// Flags for Slave.mui MUIM_Slave_Delegate
+  MUIF_Slave_Delegate_ForceSlave = 1 shl 0; // skip caller task check and always dispatch the method on Slave's thread; useful when calling
+                                            // from a process which is neither the main MUI process nor the Slave's process
+
+
+// *********************************************************************
+// Notify
+const
+  MUIC_Notify: PChar = 'Notify.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Notify = MUIB_ZUNE or $00001d00;
+
+// Methods
+  MUIM_CallHook      = MUIB_MUI or $42b96b; // V4
+  MUIM_Export        = MUIB_MUI or $420f1c; // V12
+  MUIM_FindUData     = MUIB_MUI or $42c196; // V8
+  MUIM_GetConfigItem = MUIB_MUI or $423edb; // V11
+  MUIM_GetUData      = MUIB_MUI or $42ed0c; // V8
+  MUIM_Import        = MUIB_MUI or $42d012; // V12
+  MUIM_KillNotify    = MUIB_MUI or $42d240; // V4
+  MUIM_KillNotifyObj = MUIB_MUI or $42b145; // V16
+  MUIM_MultiSet      = MUIB_MUI or $42d356; // V7
+  MUIM_NoNotifySet   = MUIB_MUI or $42216f; // V9
+  MUIM_Notify        = MUIB_MUI or $42c9cb; // V4
+  MUIM_Set           = MUIB_MUI or $42549a; // V4
+  MUIM_SetAsString   = MUIB_MUI or $422590; // V4
+  MUIM_SetUData      = MUIB_MUI or $42c920; // V8
+  MUIM_SetUDataOnce  = MUIB_MUI or $42ca19; // V11
+  MUIM_WriteLong     = MUIB_MUI or $428d86; // V6
+  MUIM_WriteString   = MUIB_MUI or $424bf4; // V6
+  // AROS Specials
+  MUIM_ConnectParent    = MUIB_Notify or 0; // Zune V1
+  MUIM_DisconnectParent = MUIB_Notify or 1; // Zune V1
+
+type
+  TMUIP_CallHook = record
+    MethodID: LongWord; // MUIM_CallHook
+    Hook: PHook;
+    param1: LongWord;   // more might follow
+  end;
+  PMUIP_CallHook = ^TMUIP_CallHook;
+
+  TMUIP_Export = record
+    MethodID : LongWord; // MUIM_Export
+    dataspace : PObject_;
+  end;
+  PMUIP_Export = ^TMUIP_Export;
+
+  TMUIP_FindUData = record
+    MethodID : LongWord; // MUIM_FindUData
+    udata: LongWord;
+  end;
+  PMUIP_FindUData = ^TMUIP_FindUData;
+
+  TMUIP_GetConfigItem = record
+    MethodID: LongWord; // MUIM_GetConfigItem
+    id: LongWord;
+    storage: PLongWord;
+  end;
+  PMUIP_GetConfigItem = ^TMUIP_GetConfigItem;
+
+  TMUIP_GetUData = record
+    MethodID: LongWord; // MUIM_GetUData
+    udata: LongWord;
+    attr: LongWord;
+    storage: PLongWord;
+  end;
+  PMUIP_GetUData = ^TMUIP_GetUData;
+
+  TMUIP_Import = record
+    MethodID : LongWord; // MUIM_Import
+    dataspace : PObject_;
+  end;
+  PMUIP_Import = ^TMUIP_Import;
+
+  TMUIP_KillNotify = record
+    MethodID : LongWord; // MUIM_KillNotify
+    TrigAttr : LongWord;
+  end;
+  PMUIP_KillNotify = ^TMUIP_KillNotify;
+
+  TMUIP_KillNotifyObj = record
+    MethodID: LongWord; // MUIM_KillNotifyObj
+    TrigAttr: LongWord;
+    dest: PObject_;
+  end;
+  PMUIP_KillNotifyObj = ^TMUIP_KillNotifyObj;
+
+  TMUIP_MultiSet = record
+    MethodID: LongWord; // MUIM_MultiSet
+    attr: LongWord;
+    val: LongWord;
+    obj: APTR;          // more might follow
+  end;
+  PMUIP_MultiSet = ^TMUIP_MultiSet;
+
+  TMUIP_NoNotifySet = record
+    MethodID: LongWord; // MUIM_NoNotifySet
+    attr: LongWord;
+    val: LongWord;          // more might follow
+  end;
+  PMUIP_NoNotifySet = ^TMUIP_NoNotifySet;
+
+  TMUIP_Notify = record
+    MethodID: LongWord; // MUIM_Notify
+    TrigAttr: LongWord;
+    TrigVal: LongWord;
+    DestObj: APTR;
+    FollowParams: LongWord; // more might follow
+  end;
+  PMUIP_Notify = ^TMUIP_Notify;
+
+  TMUIP_Set = record
+    MethodID: LongWord; // MUIM_Set
+    attr: LongWord;
+    val: LongWord;
+  end;
+  PMUIP_Set = ^TMUIP_Set;
+
+  TMUIP_SetAsString = record
+    MethodID: LongWord; // MUIM_SetAsString
+    attr: LongWord;
+    format: PChar;
+    val: LongWord;
+  end;
+  PMUIP_SetAsString = ^TMUIP_SetAsString;
+
+  TMUIP_SetUData = record
+    MethodID: LongWord; // MUIM_SetUData
+    udata: LongWord;
+    attr: LongWord;
+    val: LongWord;
+  end;
+  PMUIP_SetUData = ^TMUIP_SetUData;
+
+  TMUIP_SetUDataOnce = record
+    MethodID : LongWord; // MUIM_SetUDataOnce
+    udata: LongWord;
+    attr: LongWord;
+    val: LongWord;
+  end;
+  PMUIP_SetUDataOnce = ^TMUIP_SetUDataOnce;
+
+  TMUIP_WriteLong = record
+    MethodID: LongWord; // MUIM_WriteLong
+    val: LongWord;
+    memory: PLongWord;
+  end;
+  PMUIP_WriteLong = ^TMUIP_WriteLong;
+
+  TMUIP_WriteString = record
+    MethodID: LongWord; // MUIM_WriteString
+    str: PChar;
+    memory: PChar;
+  end;
+  PMUIP_WriteString = ^TMUIP_WriteString;
+
+  TMUIP_ConnectParent = record
+    MethodID: LongWord; // MUIM_ConnectParent
+    parent: PObject_;
+  end;
+  PMUIP_ConnectParent = ^TMUIP_ConnectParent;
+
+  TMUIP_DisconnectParent = record
+    MethodID: LongWord; // MUIM_DisconnectParent
+  end;
+  PMUIP_DisconnectParent = ^TMUIP_DisconnectParent;
+
+// Attributes
+const
+  MUIA_ApplicationObject = MUIB_MUI or $42d3ee; // V4  ..g PObject
+  MUIA_AppMessage        = MUIB_MUI or $421955; // V5  ..g PAppMessage
+  MUIA_HelpLine          = MUIB_MUI or $42a825; // V4  isg LongInt
+  MUIA_HelpNode          = MUIB_MUI or $420b85; // V4  isg STRPTR
+  MUIA_NoNotify          = MUIB_MUI or $4237f9; // V7  .s. WordBool
+  MUIA_ObjectID          = MUIB_MUI or $42d76e; // V11 isg LongWord
+  MUIA_Parent            = MUIB_MUI or $42e35f; // V11 ..g PObject
+  MUIA_Revision          = MUIB_MUI or $427eaa; // V4  ..g LongInt
+  MUIA_UserData          = MUIB_MUI or $420313; // V4  isg LongWord
+  MUIA_Version           = MUIB_MUI or $422301; // V4  ..g LongInt
+  MUIA_NoNotifyMethod    = MUIB_MUI or $420a74; // V20 .s. LongWord
+
+// *********************************************************************
+// Family
+const
+   MUIC_Family: PChar = 'Family.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Family = MUIB_ZUNE or $00000c00;
+
+// Methods
+   MUIM_Family_AddHead        = MUIB_MUI or $42e200; // V8
+   MUIM_Family_AddTail        = MUIB_MUI or $42d752; // V8
+   MUIM_Family_Insert         = MUIB_MUI or $424d34; // V8
+   MUIM_Family_Remove         = MUIB_MUI or $42f8a9; // V8
+   MUIM_Family_Sort           = MUIB_MUI or $421c49; // V8
+   MUIM_Family_Transfer       = MUIB_MUI or $42c14a; // V8
+   MUIM_Family_GetChild       = MUIB_MUI or $42c556; // V20
+   MUIM_Family_DoChildMethods = MUIB_MUI or $429a3c; // V20
+type
+  TMUIP_Family_AddHead = record
+    MethodID: LongWord; // MUIM_Family_AddHead
+    obj: PObject_;
+  end;
+  PMUIP_Family_AddHead = ^TMUIP_Family_AddHead;
+
+  TMUIP_Family_AddTail = record
+    MethodID: LongWord; // MUIM_Family_AddTail
+    obj: PObject_;
+  end;
+  PMUIP_Family_AddTail = ^TMUIP_Family_AddTail;
+
+  TMUIP_Family_Insert = record
+    MethodID: LongWord; // MUIM_Family_Insert
+    obj: PObject_;
+    pred: PObject_;
+  end;
+  PMUIP_Family_Insert = ^TMUIP_Family_Insert;
+
+  TMUIP_Family_Remove = record
+    MethodID : LongWord; // MUIM_Family_Remove
+    obj : PObject_;
+  end;
+  PMUIP_Family_Remove = ^TMUIP_Family_Remove;
+
+  TMUIP_Family_Sort = record
+    MethodID : LongWord; // MUIM_Family_Sort
+    obj : array[0..0] of PObject_;
+  end;
+  PMUIP_Family_Sort = ^TMUIP_Family_Sort;
+
+  TMUIP_Family_Transfer = record
+    MethodID: LongWord; // MUIM_Family_Transfer
+    family: PObject_;
+  end;
+  PMUIP_Family_Transfer = ^TMUIP_Family_Transfer;
+
+  TMUIP_Family_GetChild = record
+    MethodID: LongWord; // MUIM_Family_GetChild
+    nr: LongInt;        // MUIV_Family_GetChild_* or Number
+    ref: PObject_;
+  end;
+  PMUIP_Family_GetChild = ^TMUIP_Family_GetChild;
+
+// Attributes
+const
+  MUIA_Family_Child      = MUIB_MUI or $42c696; // V8  i.. PObject
+  MUIA_Family_List       = MUIB_MUI or $424b9e; // V8  ..g PMinList
+  MUIA_Family_ChildCount = MUIB_MUI or $42b25a; // V20 ..g LongInt
+
+  MUIV_Family_GetChild_First    = 0;
+  MUIV_Family_GetChild_Last     = -1;
+  MUIV_Family_GetChild_Next     = -2;
+  MUIV_Family_GetChild_Previous = -3;
+  MUIV_Family_GetChild_Iterate  = -4;
+
+  MUIV_Group_GetChild_First    = MUIV_Family_GetChild_First;
+  MUIV_Group_GetChild_Last     = MUIV_Family_GetChild_Last;
+  MUIV_Group_GetChild_Next     = MUIV_Family_GetChild_Next;
+  MUIV_Group_GetChild_Previous = MUIV_Family_GetChild_Previous;
+  MUIV_Group_GetChild_Iterate  = MUIV_Family_GetChild_Iterate;
+
+// *********************************************************************
+//  Application
+const
+  MUIC_Application: PChar = 'Application.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Application = MUIB_ZUNE or $00000100;
+
+// Methods
+const
+  MUIM_Application_AboutMUI         = MUIB_MUI or $42d21d; // V14
+  MUIM_Application_AddInputHandler  = MUIB_MUI or $42f099; // V11
+  MUIM_Application_CheckRefresh     = MUIB_MUI or $424d68; // V11
+  MUIM_Application_GetMenuCheck     = MUIB_MUI or $42c0a7; // V4
+  MUIM_Application_GetMenuState     = MUIB_MUI or $42a58f; // V4
+  MUIM_Application_Input            = MUIB_MUI or $42d0f5; // V4
+  MUIM_Application_InputBuffered    = MUIB_MUI or $427e59; // V4
+  MUIM_Application_Load             = MUIB_MUI or $42f90d; // V4
+  MUIM_Application_NewInput         = MUIB_MUI or $423ba6; // V11
+  MUIM_Application_OpenConfigWindow = MUIB_MUI or $4299ba; // V11
+  MUIM_Application_PushMethod       = MUIB_MUI or $429ef8; // V4
+  MUIM_Application_RemInputHandler  = MUIB_MUI or $42e7af; // V11
+  MUIM_Application_ReturnID         = MUIB_MUI or $4276ef; // V4
+  MUIM_Application_Save             = MUIB_MUI or $4227ef; // V4
+  MUIM_Application_SetConfigItem    = MUIB_MUI or $424a80; // V11
+  MUIM_Application_SetMenuCheck     = MUIB_MUI or $42a707; // V4
+  MUIM_Application_SetMenuState     = MUIB_MUI or $428bef; // V4
+  MUIM_Application_ShowHelp         = MUIB_MUI or $426479; // V4
+  MUIM_Application_UnpushMethod     = MUIB_MUI or $4211dd; // V20
+
+// AROS specials
+  MUIM_Application_SetConfigdata    = MUIB_Application or $00000000; // Zune 20030407
+  MUIM_Application_OpenWindows      = MUIB_Application or $00000001; // Zune 20030407
+  MUIM_Application_Iconify          = MUIB_Application or $00000002; // Zune: V1
+  MUIM_Application_Execute          = MUIB_Application or $00000003;
+  MUIM_Application_UpdateMenus      = MUIB_Application or $00000004; // Zune 20070712
+
+type
+  TMUIP_Application_AboutMUI = record
+    MethodID: LongWord;  // MUIM_Application_AboutMUI
+    refwindow: PObject_;
+  end;
+  PMUIP_Application_AboutMUI = ^TMUIP_Application_AboutMUI;
+
+  TMUIP_Application_AddInputHandler = record
+    MethodID: LongWord;  // MUIM_Application_AddInputHandler
+    ihnode: PMUI_InputHandlerNode;
+  end;
+  PMUIP_Application_AddInputHandler = ^TMUIP_Application_AddInputHandler;
+
+  TMUIP_Application_CheckRefresh = record
+    MethodID: LongWord;  // MUIM_Application_CheckRefresh
+  end;
+  PMUIP_Application_CheckRefresh = ^TMUIP_Application_CheckRefresh;
+
+  TMUIP_Application_GetMenuCheck = record
+    MethodID: LongWord;  // MUIM_Application_GetMenuCheck
+    MenuID: LongWord;
+  end;
+  PMUIP_Application_GetMenuCheck = ^TMUIP_Application_GetMenuCheck;
+
+  TMUIP_Application_GetMenuState = record
+    MethodID: LongWord;  // MUIM_Application_GetMenuState
+    MenuID: LongWord;
+  end;
+  PMUIP_Application_GetMenuState = ^TMUIP_Application_GetMenuState;
+
+  TMUIP_Application_Input = record
+    MethodID: LongWord;  // MUIM_Application_Input
+    signal: PLongWord;
+  end;
+  PMUIP_Application_Input = ^TMUIP_Application_Input;
+
+  TMUIP_Application_InputBuffered = record
+    MethodID: LongWord;  // MUIM_Application_InputBuffered
+  end;
+  PMUIP_Application_InputBuffered = ^TMUIP_Application_InputBuffered;
+
+  TMUIP_Application_Load = record
+    MethodID: LongWord;  // MUIM_Application_Load
+    name: STRPTR;
+  end;
+  PMUIP_Application_Load = ^TMUIP_Application_Load;
+
+  TMUIP_Application_NewInput = record
+    MethodID: LongWord;  // MUIM_Application_NewInput
+    signal: PLongWord;
+  end;
+  PMUIP_Application_NewInput = ^TMUIP_Application_NewInput;
+
+  TMUIP_Application_OpenConfigWindow = record
+    MethodID: LongWord;  // MUIM_Application_OpenConfigWindow
+    flags: LongWord;
+  end;
+  PMUIP_Application_OpenConfigWindow = ^TMUIP_Application_OpenConfigWindow;
+
+  TMUIP_Application_PushMethod = record
+    MethodID: LongWord;  // MUIM_Application_PushMethod
+    dest: PObject_;
+    count: LongInt; // more elements may follow
+  end;
+  PMUIP_Application_PushMethod = ^TMUIP_Application_PushMethod;
+
+  TMUIP_Application_UnpushMethod = record
+    MethodID: LongWord;  // MUIM_Application_UnpushMethod
+    dest: PObject_;
+    NewMethodID: LongWord;
+    method: LongWord;
+  end;
+  PMUIP_Application_UnpushMethod = ^TMUIP_Application_UnpushMethod;
+
+  TMUIP_Application_RemInputHandler = record
+    MethodID: LongWord;   // MUIM_Application_RemInputHandler
+    ihnode: PMUI_InputHandlerNode;
+  end;
+  PMUIP_Application_RemInputHandler = ^TMUIP_Application_RemInputHandler;
+
+  TMUIP_Application_ReturnID = record
+    MethodID: LongWord;  // MUIM_Application_ReturnID
+    retid: LongWord;
+  end;
+  PMUIP_Application_ReturnID = ^TMUIP_Application_ReturnID;
+
+  TMUIP_Application_Save = record
+    MethodID: LongWord;  // MUIM_Application_Save
+    name: STRPTR;
+  end;
+
+  TMUIP_Application_SetConfigItem = record
+    MethodID: LongWord;  // MUIM_Application_SetConfigItem
+    item: LongWord;
+    data: APTR;
+  end;
+  PMUIP_Application_SetConfigItem = ^TMUIP_Application_SetConfigItem;
+
+  TMUIP_Application_SetMenuCheck = record
+    MethodID: LongWord;  // MUIM_Application_SetMenuCheck
+    MenuID: LongWord;
+    stat: LongInt;
+  end;
+  PMUIP_Application_SetMenuCheck = ^TMUIP_Application_SetMenuCheck;
+
+  TMUIP_Application_SetMenuState = record
+    MethodID : LongWord;  // MUIM_Application_SetMenuState
+    MenuID : LongWord;
+    stat : LongInt;
+  end;
+  PMUIP_Application_SetMenuState = ^TMUIP_Application_SetMenuState;
+
+  TMUIP_Application_ShowHelp = record
+    MethodID: LongWord;  // MUIM_Application_ShowHelp
+    window: PObject_;
+    name: PChar;
+    node: PChar;
+    line: LongInt;
+  end;
+  PMUIP_Application_ShowHelp = ^TMUIP_Application_ShowHelp;
+
+// Attributes
+const
+  MUIA_Application_Active          = MUIB_MUI or $4260ab; // V4  isg WordBool
+  MUIA_Application_Author          = MUIB_MUI or $424842; // V4  i.g STRPTR
+  MUIA_Application_Base            = MUIB_MUI or $42e07a; // V4  i.g STRPTR
+  MUIA_Application_Broker          = MUIB_MUI or $42dbce; // V4  ..g PBroker
+  MUIA_Application_BrokerHook      = MUIB_MUI or $428f4b; // V4  isg PHook
+  MUIA_Application_BrokerPort      = MUIB_MUI or $42e0ad; // V6  ..g PMsgPort
+  MUIA_Application_BrokerPri       = MUIB_MUI or $42c8d0; // V6  i.g LongInt
+  MUIA_Application_Commands        = MUIB_MUI or $428648; // V4  isg PMUI_Command
+  MUIA_Application_Copyright       = MUIB_MUI or $42ef4d; // V4  i.g STRPTR
+  MUIA_Application_Description     = MUIB_MUI or $421fc6; // V4  i.g STRPTR
+  MUIA_Application_DiskObject      = MUIB_MUI or $4235cb; // V4  isg PDiskObject
+  MUIA_Application_DoubleStart     = MUIB_MUI or $423bc6; // V4  ..g WordBool
+  MUIA_Application_DropObject      = MUIB_MUI or $421266; // V5  is. PObject
+  MUIA_Application_ForceQuit       = MUIB_MUI or $4257df; // V8  ..g WordBool
+  MUIA_Application_HelpFile        = MUIB_MUI or $4293f4; // V8  isg STRPTR
+  MUIA_Application_Iconified       = MUIB_MUI or $42a07f; // V4  .sg WordBool
+  MUIA_Application_MenuAction      = MUIB_MUI or $428961; // V4  ..g LongWord
+  MUIA_Application_MenuHelp        = MUIB_MUI or $42540b; // V4  ..g LongWord
+  MUIA_Application_Menustrip       = MUIB_MUI or $4252d9; // V8  i.. PObject
+  MUIA_Application_RexxHook        = MUIB_MUI or $427c42; // V7  isg PHook
+  MUIA_Application_RexxMsg         = MUIB_MUI or $42fd88; // V4  ..g PRxMsg
+  MUIA_Application_RexxString      = MUIB_MUI or $42d711; // V4  .s. STRPTR
+  MUIA_Application_SingleTask      = MUIB_MUI or $42a2c8; // V4  i.. WordBool
+  MUIA_Application_Sleep           = MUIB_MUI or $425711; // V4  .s. WordBool
+  MUIA_Application_Title           = MUIB_MUI or $4281b8; // V4  i.g STRPTR
+  MUIA_Application_UseCommodities  = MUIB_MUI or $425ee5; // V10 i.. WordBool
+  MUIA_Application_UsedClasses     = MUIB_MUI or $42e9a7; // V10 i.. STRPTR
+  MUIA_Application_UseRexx         = MUIB_MUI or $422387; // V10 i.. WordBool
+  MUIA_Application_SetWinPos       = MUIB_MUI or $432387;
+  MUIA_Application_GetWinPos       = MUIB_MUI or $432388;
+  MUIA_Application_SearchWinId     = MUIB_MUI or $432389;
+  MUIA_Application_GetWinPosAddr   = MUIB_MUI or $432390;
+  MUIA_Application_GetWinPosSize   = MUIB_MUI or $432391;
+  MUIA_Application_CopyWinPosToApp = MUIB_MUI or $432392;
+  MUIA_Application_Version         = MUIB_MUI or $42b33f; // V4  i.g STRPTR Standard DOS version string Example: "$VER: Program 1.3 (14.11.03)". Zune
+                                                          //                Zune extension: If unspecified or NULL, it will be automatically
+                                                          //                constructed from MUIA_Application_Title, MUIA_Application_Version_Number,
+                                                          //                MUIA_Application_Version_Date and MUIA_Application_Version_Extra as
+                                                          //                follows: "$VER: <title> <version> (<date>) [<extra>]".
+  MUIA_Application_Window          = MUIB_MUI or $42bfe0; // V4  i.. PObject
+  MUIA_Application_WindowList      = MUIB_MUI or $429abe; // V13 ..g PList
+
+  MUIA_Application_Configdata      = MUIB_Application or $0; // Zune 20030407 .s. PObject
+  MUIA_Application_Version_Number  = MUIB_Application or $1; // Zune          i.g STRPTR Version number. Examples: "1.5", "2.37.4b".
+  MUIA_Application_Version_Date    = MUIB_Application or $2; // Zune          i.g STRPTR Date information on the standard international YYYY-MM-DD format.
+  MUIA_Application_Version_Extra   = MUIB_Application or $3; // Zune          i.g STRPTR Arbitrary extra version information. Example: "nightly build".
+
+// MUI Obsolete tags
+{$ifdef MUI_OBSOLETE}
+  MUIA_Application_Menu = MUIB_MUI or $420e1f; // V4  i.g PNewMenu
+{$endif} // MUI_OBSOLETE
+
+  MAXWINS = 300;
+
+  MUIV_Application_Package_NetConnect = $a3ff7b49;
+
+type
+  TWindowPos = record
+    id: LongWord;
+    x1, y1, w1, h1: SmallInt;
+    x2, y2, w2, h2: SmallInt;
+  end;
+
+const
+// Flags for ihn_Flags set ihn_Ticks to number of 1/100 sec ticks you want to be triggered
+  MUIIHNF_TIMER          = 1 shl 0; // you want to be called every ihn_Millis msecs
+  MUIIHNF_TIMER_SCALE10  = 1 shl 1; // ihn_Millis is in 1/100 seconds instead
+  MUIIHNF_TIMER_SCALE100 = 1 shl 2; // ihn_Millis is in 1/10 seconds instead setting both SCALE10|SCALE100 makes ihn_Millis 1/1 seconds
+
+// Special values for the name field of MUIM_Application_Load/Save
+  MUIV_Application_Save_ENV    = 0;
+  MUIV_Application_Save_ENVARC = -1;
+  MUIV_Application_Load_ENV    = 0;
+  MUIV_Application_Load_ENVARC = -1;
+
+//  Special Values MUIM_Application_ReturnID. Usually program should leave the event loop if this is set
+  MUIV_Application_ReturnID_Quit = -1;
+
+type
+  TMUI_GlobalInfo = record
+    priv0: LongWord;
+    mgi_ApplicationObject: PObject_;
+    // The following data is private only, might be extended!
+  end;
+  PMUI_GlobalInfo = ^TMUI_GlobalInfo;
+
+// *********************************************************************
+//  Window
+const
+  MUIC_Window: PChar = 'Window.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Window = MUIB_ZUNE or $00003600;
+
+// Methods
+  MUIM_Window_ActionIconify   = MUIB_MUI or $422cc0; // V18 undoc
+  MUIM_Window_AddEventHandler = MUIB_MUI or $4203b7; // V16
+  MUIM_Window_Cleanup         = MUIB_MUI or $42ab26; // V18 undoc For custom classes only
+  MUIM_Window_RemEventHandler = MUIB_MUI or $42679e; // V16
+  MUIM_Window_ScreenToBack    = MUIB_MUI or $42913d; // V4
+  MUIM_Window_ScreenToFront   = MUIB_MUI or $4227a4; // V4
+  MUIM_Window_Setup           = MUIB_MUI or $42c34c; // V18 undoc For custom Classes only
+  MUIM_Window_Snapshot        = MUIB_MUI or $42945e; // V11
+  MUIM_Window_ToBack          = MUIB_MUI or $42152e; // V4
+  MUIM_Window_ToFront         = MUIB_MUI or $42554f; // V4
+  // AROS specials
+  MUIM_Window_AllocGadgetID   = MUIB_Window or $1; // Zune: V1 - allocate a GadgetID for BOOPSI gadgets
+  MUIM_Window_FreeGadgetID    = MUIB_Window or $4; // Zune: V1 - free the GadgetID for BOOPSI gadgets
+
+type
+  TMUIP_Window_ActionIconify = record
+    MethodID: LongWord;  // MUIM_Window_ActionIconify
+  end;
+  PMUIP_Window_ActionIconify = ^TMUIP_Window_ActionIconify;
+
+  TMUIP_Window_AddEventHandler = record
+    MethodID: LongWord;  // MUIM_Window_AddEventHandler
+    ehnode: PMUI_EventHandlerNode;
+  end;
+  PMUIP_Window_AddEventHandler = ^TMUIP_Window_AddEventHandler;
+
+  TMUIP_Window_Cleanup = record
+    MethodID: LongWord;  // MUIM_Window_Cleanup
+  end;
+  PMUIP_Window_Cleanup = ^TMUIP_Window_Cleanup;
+
+  TMUIP_Window_RemEventHandler = record
+    MethodID: LongWord; // MUIM_Window_RemEventHandler
+    ehnode: PMUI_EventHandlerNode;
+  end;
+  PMUIP_Window_RemEventHandler = ^TMUIP_Window_RemEventHandler;
+
+  TMUIP_Window_ScreenToBack = record
+    MethodID: LongWord; // MUIM_Window_ScreenToBack
+  end;
+  PMUIP_Window_ScreenToBack = ^TMUIP_Window_ScreenToBack;
+
+  TMUIP_Window_ScreenToFront = record
+    MethodID: LongWord; // MUIM_Window_ScreenToFront
+  end;
+  PMUIP_Window_ScreenToFront = ^TMUIP_Window_ScreenToFront;
+
+  TMUIP_Window_Setup = record
+    MethodID: LongWord; // MUIM_Window_Setup
+  end;
+  PMUIP_Window_Setup = ^TMUIP_Window_Setup;
+
+  TMUIP_Window_Snapshot = record
+    MethodID: LongWord;  // MUIM_Window_Snapshot
+    flags: LongInt;
+  end;
+  PMUIP_Window_Snapshot = ^TMUIP_Window_Snapshot;
+
+  TMUIP_Window_ToBack = record
+    MethodID: LongWord;  // MUIM_Window_ToBack
+  end;
+  PMUIP_Window_ToBack = ^TMUIP_Window_ToBack;
+
+  TMUIP_Window_ToFront = record
+    MethodID: LongWord;  // MUIM_Window_ToFront
+  end;
+  PMUIP_Window_ToFront = ^TMUIP_Window_ToFront;
+
+  TMUIP_Window_AddControlCharHandler = record
+    MethodID: LongWord;
+    ccnode: PMUI_EventHandlerNode;
+  end;
+  PMUIP_Window_AddControlCharHandler = ^TMUIP_Window_AddControlCharHandler;
+
+  TMUIP_Window_AllocGadgetID = record
+    MethodID: LongWord;
+  end;
+  PMUIP_Window_AllocGadgetID = ^TMUIP_Window_AllocGadgetID;
+
+  TMUIP_Window_DrawBackground = record
+    MethodID: LongWord;
+    left: LongInt;
+    top: LongInt;
+    width: LongInt;
+    height: LongInt;
+    xoffset: LongInt;
+    yoffset: LongInt;
+    flags: LongInt;
+  end;
+  PMUIP_Window_DrawBackground = ^TMUIP_Window_DrawBackground;
+
+  TMUIP_Window_DragObject = record
+    MethodID: LongWord;
+    obj: PObject_;
+    touchx: LongInt;
+    touchy: LongInt;
+    flags: LongWord;
+  end;
+  PMUIP_Window_DragObject = ^TMUIP_Window_DragObject;
+
+  TMUIP_Window_FreeGadgetID = record
+    MethodID: LongWord;
+    gadgetid: LongInt;
+  end;
+  PMUIP_Window_FreeGadgetID = ^TMUIP_Window_FreeGadgetID;
+
+  TMUIP_Window_RecalcDisplay = record
+    MethodID: LongWord;
+    originator: PObject_;
+  end;
+  PMUIP_Window_RecalcDisplay = ^TMUIP_Window_RecalcDisplay;
+
+  TMUIP_Window_RemControlCharHandler = record
+    MethodID: LongWord;
+    ccnode: PMUI_EventHandlerNode;
+  end;
+  PMUIP_Window_RemControlCharHandler = ^TMUIP_Window_RemControlCharHandler;
+
+  TMUIP_Window_UpdateMenu = record
+    MethodID: LongWord;
+  end;
+
+{$ifdef MUI_OBSOLETE}
+const
+  MUIM_Window_GetMenuCheck  = MUIB_MUI or $420414; // V4
+  MUIM_Window_GetMenuState  = MUIB_MUI or $420d2f; // V4
+  MUIM_Window_SetCycleChain = MUIB_MUI or $426510; // V4
+  MUIM_Window_SetMenuCheck  = MUIB_MUI or $422243; // V4
+  MUIM_Window_SetMenuState  = MUIB_MUI or $422b5e; // V4
+type
+  TMUIP_Window_GetMenuCheck = record
+    MethodID: LongWord;
+    MenuID: LongWord;
+  end;
+
+  TMUIP_Window_GetMenuState = record
+    MethodID: LongWord;
+    MenuID: LongWord;
+  end;
+
+  TMUIP_Window_SetCycleChain = record
+    MethodID: LongWord;
+    obj: array[0..0] of PObject_;
+  end;
+
+  TMUIP_Window_SetMenuCheck = record
+    MethodID: LongWord;
+    MenuID: LongWord;
+    stat: LongInt;
+  end;
+
+  TMUIP_Window_SetMenuState = record
+    MethodID: LongWord;
+    MenuID: LongWord;
+    stat: LongInt;
+  end;
+{$endif}
+
+// Attributes
+const
+  MUIA_Window_Activate      = MUIB_MUI or $428d2f; // V4  isg WordBool
+  MUIA_Window_ActiveObject  = MUIB_MUI or $427925; // V4  .sg PObject
+  MUIA_Window_AltHeight     = MUIB_MUI or $42cce3; // V4  i.g LongInt
+  MUIA_Window_AltLeftEdge   = MUIB_MUI or $422d65; // V4  i.g LongInt
+  MUIA_Window_AltTopEdge    = MUIB_MUI or $42e99b; // V4  i.g LongInt
+  MUIA_Window_AltWidth      = MUIB_MUI or $4260f4; // V4  i.g LongInt
+  MUIA_Window_AppWindow     = MUIB_MUI or $4280cf; // V5  i.. WordBool
+  MUIA_Window_Backdrop      = MUIB_MUI or $42c0bb; // V4  i.. WordBool
+  MUIA_Window_Borderless    = MUIB_MUI or $429b79; // V4  i.. WordBool
+  MUIA_Window_CloseGadget   = MUIB_MUI or $42a110; // V4  i.. WordBool
+  MUIA_Window_CloseRequest  = MUIB_MUI or $42e86e; // V4  ..g WordBool
+  MUIA_Window_DefaultObject = MUIB_MUI or $4294d7; // V4  isg PObject
+  MUIA_Window_DepthGadget   = MUIB_MUI or $421923; // V4  i.. WordBool
+  MUIA_Window_DisableKeys   = MUIB_MUI or $424c36; // V15 isg LongWord undoc
+  MUIA_Window_DragBar       = MUIB_MUI or $42045d; // V4  i.. WordBool
+  MUIA_Window_FancyDrawing  = MUIB_MUI or $42bd0e; // V8  isg WordBool
+  MUIA_Window_Height        = MUIB_MUI or $425846; // V4  i.g LongInt
+  MUIA_Window_ID            = MUIB_MUI or $4201bd; // V4  isg LongWord
+  MUIA_Window_InputEvent    = MUIB_MUI or $4247d8; // V4  ..g PInputEvent
+  MUIA_Window_IsSubWindow   = MUIB_MUI or $42b5aa; // V4  isg WordPool
+  MUIA_Window_LeftEdge      = MUIB_MUI or $426c65; // V4  i.g LongInt
+
+  MUIA_Window_MenuAction       = MUIB_MUI or $427521; // V8  isg LongWord
+  MUIA_Window_Menustrip        = MUIB_MUI or $42855e; // V8  i.g PObject
+  MUIA_Window_MouseObject      = MUIB_MUI or $42bf9b; // V10 ..g PObject
+  MUIA_Window_NeedsMouseObject = MUIB_MUI or $42372a; // V10 i.. WordBool
+  MUIA_Window_NoMenus          = MUIB_MUI or $429df5; // V4  is. WordBool
+  MUIA_Window_Open             = MUIB_MUI or $428aa0; // V4  .sg WordBool
+  MUIA_Window_PublicScreen     = MUIB_MUI or $4278e4; // V6  isg STRPTR
+  MUIA_Window_RefWindow        = MUIB_MUI or $4201f4; // V4  is. PObject
+  MUIA_Window_RootObject       = MUIB_MUI or $42cba5; // V4  isg PObject
+  MUIA_Window_Screen           = MUIB_MUI or $42df4f; // V4  isg PScreen
+  MUIA_Window_ScreenTitle      = MUIB_MUI or $4234b0; // V5  isg STRPTR
+  MUIA_Window_SizeGadget       = MUIB_MUI or $42e33d; // V4  i.. WordBool
+  MUIA_Window_SizeRight        = MUIB_MUI or $424780; // V4  i.. WordBool
+  MUIA_Window_Sleep            = MUIB_MUI or $42e7db; // V4  .sg WordBool
+  MUIA_Window_Title            = MUIB_MUI or $42ad3d; // V4  isg STRPTR
+  MUIA_Window_TopEdge          = MUIB_MUI or $427c66; // V4  i.g LongInt
+  MUIA_Window_UseBottomBorderScroller = MUIB_MUI or $424e79; // V13 isg WordBool
+  MUIA_Window_UseLeftBorderScroller   = MUIB_MUI or $42433e; // V13 isg WordBool
+  MUIA_Window_UseRightBorderScroller  = MUIB_MUI or $42c05e; // V13 isg WordBool
+  MUIA_Window_Width            = MUIB_MUI or $42dcae; // V4  i.g LongInt
+  MUIA_Window_Window           = MUIB_MUI or $426a42; // V4  ..g PWindow
+  // AROS specials
+  MUIA_Window_EraseArea  = MUIB_Window or $0; // Zune i.. WordBool default: True
+  MUIA_Window_ZoomGadget = MUIB_Window or $2; // Zune i.. WordBool Show ZoomGadget
+  MUIA_Window_ToolBox    = MUIB_Window or $3; // Zune i.. WordBool default: False Window should be opened as ToolBox
+
+// Values
+  MUIV_Window_ActiveObject_None = 0;
+  MUIV_Window_ActiveObject_Next = -1;
+  MUIV_Window_ActiveObject_Prev = -2;
+
+  MUIV_Window_AltHeight_Scaled     = -1000;
+  MUIV_Window_AltLeftEdge_Centered = -1;
+  MUIV_Window_AltLeftEdge_Moused   = -2;
+  MUIV_Window_AltLeftEdge_NoChange = -1000;
+  MUIV_Window_AltTopEdge_Centered  = -1;
+  MUIV_Window_AltTopEdge_Moused    = -2;
+  MUIV_Window_AltTopEdge_NoChange  = -1000;
+  MUIV_Window_AltWidth_Scaled      = -1000;
+
+  MUIV_Window_Height_Scaled        = -1000;
+  MUIV_Window_Height_Default       = -1001;
+  MUIV_Window_LeftEdge_Centered    = -1;
+  MUIV_Window_LeftEdge_Moused      = -2;
+  MUIV_Window_TopEdge_Centered     = -1;
+  MUIV_Window_TopEdge_Moused       = -2;
+  MUIV_Window_Width_Scaled         = -1000;
+  MUIV_Window_Width_Default        = -1001;
+
+  MUIV_Window_Button_MUI      = 1;
+  MUIV_Window_Button_Snapshot = 2;
+  MUIV_Window_Button_Iconify  = 4;
+  MUIV_Window_Button_Popup    = 8;
+
+{$ifdef MUI_OBSOLETE}
+  MUIA_Window_Menu        = MUIB_MUI or $42db94; // V4  i.. PNewMenu
+
+  MUIV_Window_Menu_NoMenu = -1;
+{$endif}
+
+
+// *********************************************************************
+//  Area
+const
+  MUIC_Area: PChar = 'Area.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Area = MUIB_ZUNE or $00000200;
+
+// Methods
+const
+  MUIM_AskMinMax         = MUIB_MUI or $423874; // V4 for Custom Classes only
+  MUIM_Cleanup           = MUIB_MUI or $42d985; // V4 for Custom Classes only
+  MUIM_ContextMenuBuild  = MUIB_MUI or $429d2e; // V11
+  MUIM_ContextMenuChoice = MUIB_MUI or $420f0e; // V11
+  MUIM_CreateBubble      = MUIB_MUI or $421c41; // V18
+  MUIM_CreateDragImage   = MUIB_MUI or $42eb6f; // V18 for Custom Classes only, undoc
+  MUIM_CreateShortHelp   = MUIB_MUI or $428e93; // V11
+  MUIM_CustomBackfill    = MUIB_MUI or $428d73; // Undoc
+  MUIM_DeleteBubble      = MUIB_MUI or $4211af; // V18
+  MUIM_DeleteDragImage   = MUIB_MUI or $423037; // V18 for Custom Classes only, undoc
+  MUIM_DeleteShortHelp   = MUIB_MUI or $42d35a; // V11
+  MUIM_DoDrag            = MUIB_MUI or $4216bb; // V18 for Custom Classes only, undoc
+  MUIM_DragBegin         = MUIB_MUI or $42c03a; // V11
+  MUIM_DragDrop          = MUIB_MUI or $42c555; // V11
+  MUIM_DragFinish        = MUIB_MUI or $4251f0; // V11
+  MUIM_DragQuery         = MUIB_MUI or $420261; // V11
+  MUIM_DragReport        = MUIB_MUI or $42edad; // V11
+  MUIM_Draw              = MUIB_MUI or $426f3f; // V4  Custom Class
+  MUIM_DrawBackground    = MUIB_MUI or $4238ca; // V11
+  MUIM_GoActive          = MUIB_MUI or $42491a; // Undoc
+  MUIM_GoInactive        = MUIB_MUI or $422c0c; // Undoc
+  MUIM_HandleEvent       = MUIB_MUI or $426d66; // V16 Custom Class
+  MUIM_HandleInput       = MUIB_MUI or $422a1a; // V4  Custom Class
+  MUIM_Hide              = MUIB_MUI or $42f20f; // V4  Custom Class
+  MUIM_Setup             = MUIB_MUI or $428354; // V4  Custom Class
+  MUIM_Show              = MUIB_MUI or $42cc84; // V4  Custom Class
+  // AROS Specials
+  MUIM_UnknownDropDestination = MUIB_MUI or $425550; // Zune
+  MUIM_Layout                 = MUIB_Area or $0;
+  MUIM_DrawParentBackground   = MUIB_Area or $1;
+
+  MUIV_CreateBubble_DontHidePointer = 1 shl 0;
+  MUIV_Application_OCW_ScreenPage   = 1 shl 1; // show just the screen page of the config window
+   MUIV_ContextMenuBuild_Default    = $ffffffff;
+
+type
+// MUI_MinMax structure holds information about minimum, maximum and default dimensions of an object.
+  TMUI_MinMax = record
+    MinWidth: SmallInt;
+    MinHeight: SmallInt;
+    MaxWidth: SmallInt;
+    MaxHeight: SmallInt;
+    DefWidth: SmallInt;
+    DefHeight: SmallInt;
+  end;
+  PMUI_MinMax = ^TMUI_MinMax;
+
+  TMUIP_AskMinMax = record
+    MethodID: LongWord;  // MUIM_AskMinMax
+    MinMaxInfo: PMUI_MinMax;
+  end;
+  PMUIP_AskMinMax = ^TMUIP_AskMinMax;
+
+  TMUIP_Cleanup = record
+    MethodID: LongWord;  // MUIM_Cleanup
+  end;
+  PMUIP_Cleanup = ^TMUIP_Cleanup;
+
+  TMUIP_ContextMenuBuild = record
+    MethodID: LongWord;  // MUIM_ContextMenuBuild
+    mx: LongInt;
+    my: LongInt;
+  end;
+  PMUIP_ContextMenuBuild = ^TMUIP_ContextMenuBuild;
+
+  TMUIP_ContextMenuChoice = record
+    MethodID: LongWord;  // MUIM_ContextMenuChoice
+    item: PObject_;
+  end;
+  PMUIP_ContextMenuChoice = ^TMUIP_ContextMenuChoice;
+
+  TMUIP_CreateBubble = record
+    MethodID: LongWord;  // MUIM_CreateBubble
+    x: LongInt;
+    y: LongInt;
+    txt : PChar;
+    flags: LongWord;
+  end;
+  PMUIP_CreateBubble = ^TMUIP_CreateBubble;
+
+  TMUIP_CreateDragImage = record
+    MethodID: LongWord;  // MUIM_CreateDragImage
+    touchx: LongInt;
+    touchy: LongInt;
+    flags: LongWord;
+  end;
+  PMUIP_CreateDragImage = ^TMUIP_CreateDragImage;
+
+  TMUIP_CreateShortHelp = record
+    MethodID: LongWord;  // MUIM_CreateShortHelp
+    mx: LongInt;
+    my: LongInt;
+  end;
+  PMUIP_CreateShortHelp = ^TMUIP_CreateShortHelp;
+
+  TMUIP_CustomBackfill = record
+    MethodID: LongWord;  // MUIM_CustomBackfill
+    left: LongInt;
+    top: LongInt;
+    right: LongInt;
+    bottom: LongInt;
+    xoffset: LongInt;
+    yoffset: LongInt;
+  end;
+  PMUIP_CustomBackfill = ^TMUIP_CustomBackfill;
+
+  TMUIP_DeleteBubble = record
+    MethodID: LongWord;  // MUIM_DeleteBubble
+    bubble: APTR;
+  end;
+  PMUIP_DeleteBubble = ^TMUIP_DeleteBubble;
+
+  TMUIP_DeleteDragImage = record
+    MethodID: LongWord;  // MUIM_DeleteDragImage
+    di: PMUI_DragImage;
+  end;
+  PMUIP_DeleteDragImage = ^TMUIP_DeleteDragImage;
+
+  TMUIP_DeleteShortHelp = record
+    MethodID: LongWord;  // MUIM_DeleteShortHelp
+    help: STRPTR;
+  end;
+  PMUIP_DeleteShortHelp = ^TMUIP_DeleteShortHelp;
+
+  TMUIP_DoDrag = record
+    MethodID: LongWord;  // MUIM_DoDrag
+    touchx: LongInt;
+    touchy: LongInt;
+    flags: LongWord;
+  end;
+  PMUIP_DoDrag = ^TMUIP_DoDrag;
+
+  TMUIP_UnknownDropDestination = record
+    MethodID: LongWord;  // MUIM_UnknownDropDestination
+    imsg: PIntuiMessage;
+  end;
+  PMUIP_UnknownDropDestination = ^TMUIP_UnknownDropDestination;
+
+  TMUIP_DragBegin = record
+    MethodID: LongWord;  // MUIM_DragBegin
+    obj: PObject_;
+  end;
+  PMUIP_DragBegin = ^TMUIP_DragBegin;
+
+  TMUIP_DragDrop = record
+    MethodID: LongWord;  // MUIM_DragDrop
+    obj: PObject_;
+    x: LongInt;
+    y: LongInt;
+  end;
+  PMUIP_DragDrop = ^TMUIP_DragDrop;
+
+  TMUIP_DragFinish = record
+    MethodID: LongWord;  // MUIM_DragFinish
+    obj: PObject_;
+  end;
+  PMUIP_DragFinish = ^TMUIP_DragFinish;
+
+  TMUIP_DragQuery = record
+    MethodID: LongWord;  // MUIM_DragQuery
+    obj: PObject_;
+  end;
+  PMUIP_DragQuery = ^TMUIP_DragQuery;
+
+  TMUIP_DragReport = record
+    MethodID: LongWord;  // MUIM_DragReport
+    obj: PObject_;
+    x: LongInt;
+    y: LongInt;
+    update: LongInt;
+  end;
+  PMUIP_DragReport = ^TMUIP_DragReport;
+
+  TMUIP_Draw = record
+    MethodID: LongWord;  // MUIM_Draw
+    flags: LongWord;
+  end;
+  PMUIP_Draw = ^TMUIP_Draw;
+
+  TMUIP_DrawBackground = record
+    MethodID: LongWord;  // MUIM_DrawBackground
+    left: LongInt;
+    top: LongInt;
+    width: LongInt;
+    height: LongInt;
+    xoffset: LongInt;
+    yoffset: LongInt;
+    flags: LongInt;
+  end;
+  PMUIP_DrawBackground = ^TMUIP_DrawBackground;
+
+  TMUIP_DrawBackgroundBuffered = record
+    MethodID: LongWord;
+    rp: PRastPort;
+    left: LongInt;
+    top: LongInt;
+    width: LongInt;
+    height: LongInt;
+    xoffset: LongInt;
+    yoffset: LongInt;
+    flags: LongInt;
+  end;
+  PMUIP_DrawBackgroundBuffered = ^TMUIP_DrawBackgroundBuffered;
+
+  TMUIP_GoActive = record
+    MethodID: LongWord;  // MUIM_GoActive
+  end;
+  PMUIP_GoActive = ^TMUIP_GoActive;
+
+  TMUIP_GoInactive = record
+    MethodID: LongWord;  // MUIM_GoInactive
+  end;
+  PMUIP_GoInactive = ^TMUIP_GoInactive;
+
+  TMUIP_HandleEvent = record
+    MethodID: LongWord;  // MUIM_HandleEvent
+    imsg: PIntuiMessage;
+    muikey: LongInt;
+  end;
+  PMUIP_HandleEvent = ^TMUIP_HandleEvent;
+
+  TMUIP_HandleInput = record
+    MethodID: LongWord;  // MUIM_HandleInput
+    imsg: PIntuiMessage;
+    muikey: LongInt;
+  end;
+  PMUIP_HandleInput = ^TMUIP_HandleInput;
+
+  TMUIP_Hide = record
+    MethodID: LongWord;  // MUIM_Hide
+  end;
+  PMUIP_Hide = ^TMUIP_Hide;
+
+  TMUIP_Setup = record
+    MethodID: LongWord;  // MUIM_Setup
+    RenderInfo: PMUI_RenderInfo;
+  end;
+  PMUIP_Setup = ^TMUIP_Setup;
+
+  TMUIP_Show = record
+    MethodID: LongWord;  // MUIM_Show
+  end;
+  PMUIP_Show = ^TMUIP_Show;
+
+  TMUIP_Layout = record
+    MethodID: LongWord;  // MUIM_Layout
+  end;
+  PMUIP_Layout = ^TMUIP_Layout;
+
+  TMUIP_DrawParentBackground = record
+    MethodID: LongWord;  // MUIM_DrawParentBackground
+    left: LongInt;
+    top: LongInt;
+    width: LongInt;
+    height: LongInt;
+    xoffset: LongInt;
+    yoffset: LongInt;
+    flags: LongInt;
+  end;
+  PMUIP_DrawParentBackground = ^TMUIP_DrawParentBackground;
+
+const
+  MUIF_DRAGIMAGE_HASMASK     = 1 shl 0; // Use provided mask for drawing Not supported at the moment
+  MUIF_DRAGIMAGE_SOURCEALPHA = 1 shl 1; // Use drag image source alpha information for transparent drawing
+
+// Attributes
+const
+  MUIA_Background         = MUIB_MUI or $42545b; // V4  is. LongInt
+  MUIA_BottomEdge         = MUIB_MUI or $42e552; // V4  ..g LongInt
+  MUIA_ContextMenu        = MUIB_MUI or $42b704; // V11 isg PObject
+  MUIA_ContextMenuTrigger = MUIB_MUI or $42a2c1; // V11 ..g PObject
+  MUIA_ControlChar        = MUIB_MUI or $42120b; // V4  isg Char
+  MUIA_CycleChain         = MUIB_MUI or $421ce7; // V11 isg LongInt
+  MUIA_Disabled           = MUIB_MUI or $423661; // V4  isg WordBool
+  MUIA_DoubleBuffer       = MUIB_MUI or $42a9c7; // V20 isg WordBool
+  MUIA_Draggable          = MUIB_MUI or $420b6e; // V11 isg WordBool
+  MUIA_Dropable           = MUIB_MUI or $42fbce; // V11 isg WordBool
+  MUIA_FillArea           = MUIB_MUI or $4294a3; // V4  is. WordBool
+
+  MUIA_FixHeight          = MUIB_MUI or $42a92b; // V4  i.. LongInt
+  MUIA_FixHeightTxt       = MUIB_MUI or $4276f2; // V4  i.. STRPTR
+  MUIA_FixWidth           = MUIB_MUI or $42a3f1; // V4  i.. LongInt
+  MUIA_FixWidthTxt        = MUIB_MUI or $42d044; // V4  i.. STRPTR
+
+  MUIA_Font               = MUIB_MUI or $42be50; // V4  i.g PTextFont
+  MUIA_Frame              = MUIB_MUI or $42ac64; // V4  i.. LongInt
+  MUIA_FramePhantomHoriz  = MUIB_MUI or $42ed76; // V4  i.. WordBool
+  MUIA_FrameTitle         = MUIB_MUI or $42d1c7; // V4  i.. STRPTR
+
+  MUIA_Height             = MUIB_MUI or $423237; // V4  ..g LongInt
+  MUIA_HorizDisappear     = MUIB_MUI or $429615; // V11 isg LongInt
+  MUIA_HorizWeight        = MUIB_MUI or $426db9; // V4  isg SmallInt
+
+  MUIA_InnerBottom        = MUIB_MUI or $42f2c0; // V4  i.g LongInt
+  MUIA_InnerLeft          = MUIB_MUI or $4228f8; // V4  i.g LongInt
+  MUIA_InnerRight         = MUIB_MUI or $4297ff; // V4  i.g LongInt
+  MUIA_InnerTop           = MUIB_MUI or $421eb6; // V4  i.g LongInt
+  MUIA_InputMode          = MUIB_MUI or $42fb04; // V4  i.. LongInt
+
+  MUIA_LeftEdge           = MUIB_MUI or $42bec6; // V4  ..g LongInt
+  MUIA_MaxHeight          = MUIB_MUI or $4293e4; // V11 i.. LongInt
+  MUIA_MaxWidth           = MUIB_MUI or $42f112; // V11 i.. LongInt
+
+  MUIA_Pressed            = MUIB_MUI or $423535; // V4  ..g WordBool
+  MUIA_RightEdge          = MUIB_MUI or $42ba82; // V4  ..g LongInt
+  MUIA_Selected           = MUIB_MUI or $42654b; // V4  isg WordBool
+  MUIA_ShortHelp          = MUIB_MUI or $428fe3; // V11 isg STRPTR
+  MUIA_ShowMe             = MUIB_MUI or $429ba8; // V4  isg WordBool
+  MUIA_ShowSelState       = MUIB_MUI or $42caac; // V4  i.. WordBool
+  MUIA_Timer              = MUIB_MUI or $426435; // V4  ..g LongInt
+  MUIA_TopEdge            = MUIB_MUI or $42509b; // V4  ..g LongInt
+  MUIA_VertDisappear      = MUIB_MUI or $42d12f; // V11 isg LongInt
+  MUIA_VertWeight         = MUIB_MUI or $4298d0; // V4  isg SmallInt
+  MUIA_Weight             = MUIB_MUI or $421d1f; // V4  i.. SmallInt
+  MUIA_Width              = MUIB_MUI or $42b59c; // V4  ..g LongInt
+  MUIA_Window             = MUIB_MUI or $421591; // V4  ..g PWindow
+  MUIA_WindowObject       = MUIB_MUI or $42669e; // V4  ..g PObject
+
+  // AROS Special
+  MUIA_NestedDisabled = MUIB_Area or $0; // Zune 20030530  isg WordBool
+
+{$ifdef MUI_OBSOLETE}
+  MUIA_ExportID = MUIB_MUI or $42d76e; // V4  isg LongWord
+{$endif}
+
+type
+  TMUI_ImageSpec_intern = record
+  end;
+  PMUI_ImageSpec_intern = ^TMUI_ImageSpec_intern;
+
+type
+  { (partial) instance data of area class  }
+  TMUI_AreaData = record
+    mad_RenderInfo : PMUI_RenderInfo;      // RenderInfo for this object
+    mad_Background: PMUI_ImageSpec_intern; // bg setting - private
+    mad_Font: PTextFont;                  // Font which is used to draw
+    mad_MinMax: TMUI_MinMax;              // min/max/default sizes
+    mad_Box: TIBox;                       // coordinates and dim of this object after layout
+    mad_addleft: ShortInt;                // left offset (frame & innerspacing)
+    mad_addtop: ShortInt;                 // top offset (frame & innerspacing)
+    mad_subwidth: ShortInt;               // additional width (frame & innerspacing)
+    mad_subheight: ShortInt;              // additional height (frame & innerspacing)
+    mad_Flags: LongWord;                  // see definitions below
+    mad_Flags2: LongWord;
+    // 40 bytes up to here
+    // The following data is private
+  end;
+  PMUI_AreaData = ^TMUI_AreaData;
+
+const
+  // mad_Flags Flags during MUIM_Draw
+  MADF_DRAWOBJECT = 1 shl 0;
+  MADF_DRAWUPDATE = 1 shl 1; // only update yourself
+  MADF_DRAWALL    = 1 shl 31;
+
+  MUIV_Frame_None        = 0;
+  MUIV_Frame_Button      = 1;
+  MUIV_Frame_ImageButton = 2;
+  MUIV_Frame_Text        = 3;
+  MUIV_Frame_String      = 4;
+  MUIV_Frame_ReadList    = 5;
+  MUIV_Frame_InputList   = 6;
+  MUIV_Frame_Prop        = 7;
+  MUIV_Frame_Gauge       = 8;
+  MUIV_Frame_Group       = 9;
+  MUIV_Frame_PopUp       = 10;
+  MUIV_Frame_Virtual     = 11;
+  MUIV_Frame_Slider      = 12;
+  MUIV_Frame_Knob        = 13;
+  MUIV_Frame_Drag        = 14;
+  MUIV_Frame_Count       = 15;
+  MUIV_Frame_Register    = 21;
+
+  MUIV_InputMode_None      = 0; // $00
+  MUIV_InputMode_RelVerify = 1; // $40 (1 shl 6)
+  MUIV_InputMode_Immediate = 2; // $80 (1 shl 7)
+  MUIV_InputMode_Toggle    = 3; // $c0 (1 shl 7) or (1 shl 6)
+
+// *********************************************************************
+//  Group
+const
+  MUIC_Group: PChar = 'Group.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Group = MUIB_ZUNE or $00001000;
+
+// Methods
+const
+  MUIM_Group_AddHead    = MUIB_MUI or $42e200; // V8
+  MUIM_Group_AddTail    = MUIB_MUI or $42d752; // V8
+  MUIM_Group_ExitChange = MUIB_MUI or $42d1cc; // V11
+  MUIM_Group_InitChange = MUIB_MUI or $420887; // V11
+  MUIM_Group_Sort       = MUIB_MUI or $427417; // V4
+  MUIM_Group_Remove     = MUIB_MUI or $42f8a9; // V8
+  // AROS special
+  MUIM_Group_DoMethodNoForward = MUIB_Group or $0;
+
+type
+  TMUIP_Group_AddHead = record
+    MethodID: LongWord;  // MUIM_Group_AddHead
+    obj: PObject_;
+  end;
+  PMUIP_Group_AddHead = ^TMUIP_Group_AddHead;
+
+  TMUIP_Group_AddTail = record
+    MethodID : LongWord;  // MUIM_Group_AddTail
+    obj: PObject_;
+  end;
+  PMUIP_Group_AddTail = ^TMUIP_Group_AddTail;
+
+  TMUIP_Group_ExitChange = record
+    MethodID : LongWord;  // MUIM_Group_ExitChange
+  end;
+  PMUIP_Group_ExitChange = ^TMUIP_Group_ExitChange;
+
+  TMUIP_Group_InitChange = record
+    MethodID: LongWord;  // MUIM_Group_InitChange
+  end;
+  PMUIP_Group_InitChange = ^TMUIP_Group_InitChange;
+
+  TMUIP_Group_Sort = record
+    MethodID: LongWord;  // MUIM_Group_Sort
+    obj: array[0..0] of PObject_;
+  end;
+  PMUIP_Group_Sort = ^TMUIP_Group_Sort;
+
+  TMUIP_Group_Remove = record
+    MethodID : LongWord;  // MUIM_Group_Remove
+    obj: PObject_;
+  end;
+  PMUIP_Group_Remove = ^TMUIP_Group_Remove;
+
+  TMUIP_Group_DoMethodNoForward = record
+    MethodID: LongWord;  // MUIM_Group_DoMethodNoForward
+    DoMethodID: LongWord;
+  end; // msg stuff follows
+  PMUIP_Group_DoMethodNoForward = ^TMUIP_Group_DoMethodNoForward;
+
+// Attributes
+const
+  MUIA_Group_ActivePage   = MUIB_MUI or $424199; // V5  isg LongInt
+  MUIA_Group_Child        = MUIB_MUI or $4226e6; // V4  i.. PObject_
+  MUIA_Group_ChildList    = MUIB_MUI or $424748; // V4  ..g PList
+  MUIA_Group_Columns      = MUIB_MUI or $42f416; // V4  is. LongInt
+  MUIA_Group_Forward      = MUIB_MUI or $421422; // V11 .s. WordBool
+  MUIA_Group_Horiz        = MUIB_MUI or $42536b; // V4  i.. WordBool
+  MUIA_Group_HorizSpacing = MUIB_MUI or $42c651; // V4  isg LongInt
+  MUIA_Group_LayoutHook   = MUIB_MUI or $42c3b2; // V11 i.. PHook
+  MUIA_Group_PageMode     = MUIB_MUI or $421a5f; // V5  i.. WordBool
+  MUIA_Group_Rows         = MUIB_MUI or $42b68f; // V4  is. LongInt
+  MUIA_Group_SameHeight   = MUIB_MUI or $42037e; // V4  i.. WordBool
+  MUIA_Group_SameSize     = MUIB_MUI or $420860; // V4  i.. WordBool
+  MUIA_Group_SameWidth    = MUIB_MUI or $42b3ec; // V4  i.. WordBool
+  MUIA_Group_Spacing      = MUIB_MUI or $42866d; // V4  is. LongInt
+  MUIA_Group_VertSpacing  = MUIB_MUI or $42e1bf; // V4  isg LongInt
+  // AROS special
+  MUIA_Group_Virtual      = MUIB_Group or $0; // Zune V1 i.. WordBool
+
+  MUIV_Group_ActivePage_First   = 0;
+  MUIV_Group_ActivePage_Last    = -1;
+  MUIV_Group_ActivePage_Prev    = -2;
+  MUIV_Group_ActivePage_Next    = -3;
+  MUIV_Group_ActivePage_Advance = -4;
+
+type
+  // This is the message you get if your custom layout hook is called
+  TMUI_LayoutMsg = record
+    lm_Type: LongWord;      // type of message (see defines below)
+    lm_Children: PMinList;  // list of this groups children, traverse with NextObject()
+    lm_MinMax: TMUI_MinMax; // results for MUILM_MINMAX
+    lm_Layout: record       // size (and result) for MUILM_LAYOUT
+       Width: LongInt;
+       Height: LongInt;
+       priv5: LongWord;
+       priv6: LongWord;
+    end;
+  end;
+  PMUI_LayoutMsg = ^TMUI_LayoutMsg;
+
+const
+  MUILM_MINMAX  = 1;  // MUI wants you to calc your min & max sizes
+  MUILM_LAYOUT  = 2;  // MUI wants you to layout your children
+  MUILM_UNKNOWN = -1; // return this if your hook doesn't implement lm_Type
+
+// *********************************************************************
+//  Rectangle
+const
+  MUIC_Rectangle: PChar = 'Rectangle.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Rectangle = MUIB_ZUNE or $00002b00;
+
+// Attributes
+const
+  MUIA_Rectangle_BarTitle = MUIB_MUI or $426689; // V11 i.g STRPTR
+  MUIA_Rectangle_HBar     = MUIB_MUI or $42c943; // V7  i.g WordBool
+  MUIA_Rectangle_VBar     = MUIB_MUI or $422204; // V7  i.g WordBool
+
+// *********************************************************************
+//  Text
+const
+  MUIC_Text: PChar = 'Text.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Text = MUIB_ZUNE or $00003500;
+
+// Attributes
+const
+  MUIA_Text_Contents  = MUIB_MUI or $42f8dc; // V4  isg STRPTR
+  MUIA_Text_HiChar    = MUIB_MUI or $4218ff; // V4  i.. Char
+  MUIA_Text_HiCharIdx = MUIB_MUI or $4214f5; //     i.. Char
+  MUIA_Text_PreParse  = MUIB_MUI or $42566d; // V4  isg STRPTR
+  MUIA_Text_SetMax    = MUIB_MUI or $424d0a; // V4  i.. WordBool
+  MUIA_Text_SetMin    = MUIB_MUI or $424e10; // V4  i.. WordBool
+  MUIA_Text_SetVMax   = MUIB_MUI or $420d8b; // V11 i.. WordBool
+
+// Control codes for text strings
+  MUIX_R  = #27+'r'; // right justified
+  MUIX_C  = #27+'c'; // centered
+  MUIX_L  = #27+'l'; // left justified
+
+  MUIX_N  = #27+'n'; // normal
+  MUIX_B  = #27+'b'; // bold
+  MUIX_I  = #27+'i'; // italic
+  MUIX_U  = #27+'u'; // underlined
+
+  MUIX_PT = #27+'2'; // text pen
+  MUIX_PH = #27+'8'; // highlight text pen
+
+// *********************************************************************
+//  Numeric
+const
+  MUIC_Numeric: PChar = 'Numeric.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Numeric = MUIB_ZUNE or $00001e00;
+
+// Methods
+const
+  MUIM_Numeric_Decrease     = MUIB_MUI or $4243a7; // V11
+  MUIM_Numeric_Increase     = MUIB_MUI or $426ecd; // V11
+  MUIM_Numeric_ScaleToValue = MUIB_MUI or $42032c; // V11
+  MUIM_Numeric_SetDefault   = MUIB_MUI or $42ab0a; // V11
+  MUIM_Numeric_Stringify    = MUIB_MUI or $424891; // V11
+  MUIM_Numeric_ValueToScale = MUIB_MUI or $423e4f; // V11
+  // AROS special
+  MUIM_Numeric_ValueToScaleExt = MUIB_Numeric or $0; // ZUNE only
+
+type
+  TMUIP_Numeric_Decrease = record
+    MethodID: LongWord;  // MUIM_Numeric_Decrease
+    amount: LongInt;
+  end;
+  PMUIP_Numeric_Decrease = ^TMUIP_Numeric_Decrease;
+
+  TMUIP_Numeric_Increase = record
+    MethodID: LongWord;  // MUIM_Numeric_Increase
+    amount: LongInt;
+  end;
+  PMUIP_Numeric_Increase = ^TMUIP_Numeric_Increase;
+
+  TMUIP_Numeric_ScaleToValue = record
+    MethodID: LongWord;  // MUIM_Numeric_ScaleToValue
+    scalemin: LongInt;
+    scalemax: LongInt;
+    scale: LongInt;
+  end;
+  PMUIP_Numeric_ScaleToValue = ^TMUIP_Numeric_ScaleToValue;
+
+  TMUIP_Numeric_SetDefault = record
+    MethodID: LongWord;  // MUIM_Numeric_SetDefault
+  end;
+  PMUIP_Numeric_SetDefault = ^TMUIP_Numeric_SetDefault;
+
+  TMUIP_Numeric_Stringify = record
+    MethodID: LongWord;  // MUIM_Numeric_Stringify
+    value: LongInt;
+  end;
+  PMUIP_Numeric_Stringify = ^TMUIP_Numeric_Stringify;
+
+  TMUIP_Numeric_ValueToScale = record
+    MethodID: LongWord;  // MUIM_Numeric_ValueToScale
+    scalemin: LongInt;
+    scalemax: LongInt;
+  end;
+  PMUIP_Numeric_ValueToScale = ^TMUIP_Numeric_ValueToScale;
+
+  TMUIP_Numeric_ValueToScaleExt = record
+    MethodID: LongWord;  // MUIM_Numeric_ValueToScaleExt
+    value: LongInt;
+    scalemin: LongInt;
+    scalemax: LongInt;
+  end;
+  PMUIP_Numeric_ValueToScaleExt = ^TMUIP_Numeric_ValueToScaleExt;
+
+// Attributes
+const
+  MUIA_Numeric_CheckAllSizes = MUIB_MUI or $421594; // V11 isg WordBool
+  MUIA_Numeric_Default       = MUIB_MUI or $4263e8; // V11 isg LongInt
+  MUIA_Numeric_Format        = MUIB_MUI or $4263e9; // V11 isg STRPTR
+  MUIA_Numeric_Max           = MUIB_MUI or $42d78a; // V11 isg LongInt
+  MUIA_Numeric_Min           = MUIB_MUI or $42e404; // V11 isg LongInt
+  MUIA_Numeric_Reverse       = MUIB_MUI or $42f2a0; // V11 isg WordBool
+  MUIA_Numeric_RevLeftRight  = MUIB_MUI or $4294a7; // V11 isg WordBool
+  MUIA_Numeric_RevUpDown     = MUIB_MUI or $4252dd; // V11 isg WordBool
+  MUIA_Numeric_Value         = MUIB_MUI or $42ae3a; // V11 isg LongInt
+
+// *********************************************************************
+//  Slider
+const
+  MUIC_Slider: PChar = 'Slider.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Slider = MUIB_ZUNE or $00003300;
+
+// Attributes
+const
+   MUIA_Slider_Horiz = $8042fad1;{ V11 isg BOOL               }
+   MUIA_Slider_Quiet = $80420b26;{ V6  i.. BOOL               }
+
+{$ifdef MUI_OBSOLETE}
+  MUIA_Slider_Level   = MUIB_MUI or $42ae3a; // V4  isg LongInt
+  MUIA_Slider_Max     = MUIB_MUI or $42d78a; // V4  isg LongInt
+  MUIA_Slider_Min     = MUIB_MUI or $42e404; // V4  isg LongInt
+  MUIA_Slider_Reverse = MUIB_MUI or $42f2a0; // V4  isg WordBool
+{$endif}
+
+// *********************************************************************
+//  String
+const
+  MUIC_String: PChar = 'String.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_String = MUIB_ZUNE or $00003400;
+
+// Attributes
+const
+  MUIA_String_Accept         = MUIB_MUI or $42e3e1; // V4  isg STRPTR
+  MUIA_String_Acknowledge    = MUIB_MUI or $42026c; // V4  ..g STRPTR
+  MUIA_String_AdvanceOnCR    = MUIB_MUI or $4226de; // V11 isg WordBool
+  MUIA_String_AttachedList   = MUIB_MUI or $420fd2; // V4  isg PObject_
+  MUIA_String_BufferPos      = MUIB_MUI or $428b6c; // V4  .sg LongInt
+  MUIA_String_Contents       = MUIB_MUI or $428ffd; // V4  isg STRPTR
+  MUIA_String_DisplayPos     = MUIB_MUI or $42ccbf; // V4  .sg LongInt
+  MUIA_String_EditHook       = MUIB_MUI or $424c33; // V7  isg PHook
+  MUIA_String_Format         = MUIB_MUI or $427484; // V4  i.g LongInt
+  MUIA_String_Integer        = MUIB_MUI or $426e8a; // V4  isg LongWord
+  MUIA_String_LonelyEditHook = MUIB_MUI or $421569; // V11 isg WordBool
+  MUIA_String_MaxLen         = MUIB_MUI or $424984; // V4  i.g LongInt
+  MUIA_String_Reject         = MUIB_MUI or $42179c; // V4  isg STRPTR
+  MUIA_String_Secret         = MUIB_MUI or $428769; // V4  i.g WordBool
+
+  MUIV_String_Format_Left   = 0;
+  MUIV_String_Format_Center = 1;
+  MUIV_String_Format_Right  = 2;
+
+
+// Extended features taken over from Alan Odgaard's BetterString MCC.
+// Attribute and method IDs match those of BetterString class.
+  MUIA_String_Columns      = $ad001005; // Zune
+  MUIA_String_NoInput      = $ad001007; // Zune
+  MUIA_String_SelectSize   = $ad001001; // Zune
+  MUIA_String_StayActive   = $ad001003; // Zune
+  MUIA_String_KeyUpFocus   = $ad001008; // Zune
+  MUIA_String_KeyDownFocus = $ad001009; // Zune
+
+  MUIM_String_ClearSelected = $ad001004; // Zune
+  MUIM_String_FileNameStart = $ad001006; // Zune
+  MUIM_String_Insert        = $ad001002; // Zune
+
+  MUIV_String_Insert_StartOfString = $00000000; // Zune
+  MUIV_String_Insert_EndOfString   = $fffffffe; // Zune
+  MUIV_String_Insert_BufferPos     = $ffffffff; // Zune
+  MUIV_String_BufferPos_End        = $ffffffff; // Zune
+
+  MUIR_String_FileNameStart_Volume = $ffffffff; // Zune
+
+type
+  TMUIP_String_ClearSelected = record
+    MethodID: LongWord;  // MUIM_String_ClearSelected
+  end;
+  PMUIP_String_ClearSelected = ^TMUIP_String_ClearSelected;
+
+  TMUIP_String_FileNameStart = record
+    MethodID: LongWord;  // MUIM_String_FileNameStart
+    buffer: STRPTR;
+    pos: LongInt;
+  end;
+
+  TMUIP_String_Insert = record
+    MethodID: LongWord;
+    text: STRPTR;  // MUIM_String_Insert
+    pos: LongInt;
+  end;
+
+// *********************************************************************
+//  Boopsi
+const
+  MUIC_Boopsi: PChar = 'Boopsi.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Boopsi = MUIB_ZUNE or $00000600;
+
+// Attributes
+const
+  MUIA_Boopsi_Class       = MUIB_MUI or $426999; // V4  isg PIClass
+  MUIA_Boopsi_ClassID     = MUIB_MUI or $42bfa3; // V4  isg PChar
+  MUIA_Boopsi_MaxHeight   = MUIB_MUI or $42757f; // V4  isg LongWord
+  MUIA_Boopsi_MaxWidth    = MUIB_MUI or $42bcb1; // V4  isg LongWord
+  MUIA_Boopsi_MinHeight   = MUIB_MUI or $422c93; // V4  isg LongWord
+  MUIA_Boopsi_MinWidth    = MUIB_MUI or $428fb2; // V4  isg LongWord
+  MUIA_Boopsi_Object      = MUIB_MUI or $420178; // V4  ..g PObject_
+  MUIA_Boopsi_Remember    = MUIB_MUI or $42f4bd; // V4  i.. LongWord
+  MUIA_Boopsi_Smart       = MUIB_MUI or $42b8d7; // V9  i.. BOOL
+  MUIA_Boopsi_TagDrawInfo = MUIB_MUI or $42bae7; // V4  isg LongWord
+  MUIA_Boopsi_TagScreen   = MUIB_MUI or $42bc71; // V4  isg LongWord
+  MUIA_Boopsi_TagWindow   = MUIB_MUI or $42e11d; // V4  isg LongWord
+
+// *********************************************************************
+//  Prop
+const
+  MUIC_Prop: PChar = 'Prop.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Prop = MUIB_ZUNE or $00002900;
+
+// Methods
+const
+  MUIM_Prop_Decrease = MUIB_MUI or $420dd1; // V16
+  MUIM_Prop_Increase = MUIB_MUI or $42cac0; // V16
+
+type
+  TMUIP_Prop_Decrease = record
+    MethodID: LongWord;  // MUIM_Prop_Decrease
+    amount: LongInt;
+  end;
+  PMUIP_Prop_Decrease = ^TMUIP_Prop_Decrease;
+
+  TMUIP_Prop_Increase = record
+    MethodID: LongWord; // MUIM_Prop_Increase
+    amount: LongInt;
+  end;
+  PMUIP_Prop_Increase = ^TMUIP_Prop_Increase;
+
+// Attributes
+const
+  MUIA_Prop_Entries      = $8042fbdb; // V4  isg LongInt
+  MUIA_Prop_First        = $8042d4b2; // V4  isg LongInt
+  MUIA_Prop_Horiz        = $8042f4f3; // V4  i.g WordBool
+  MUIA_Prop_Slider       = $80429c3a; // V4  isg WordBool
+  MUIA_Prop_UseWinBorder = $8042deee; // V13 i.. LongInt
+  MUIA_Prop_Visible      = $8042fea6; // V4  isg LongInt
+
+  MUIV_Prop_UseWinBorder_None   = 0;
+  MUIV_Prop_UseWinBorder_Left   = 1;
+  MUIV_Prop_UseWinBorder_Right  = 2;
+  MUIV_Prop_UseWinBorder_Bottom = 3;
+
+  MUIA_Prop_DeltaFactor  = MUIB_MUI or $427c5e; //    is. LongInt
+  MUIA_Prop_DoSmooth     = MUIB_MUI or $4236ce; // V4 i.. LongInt
+
+// *********************************************************************
+//  Scrollbar
+const
+  MUIC_Scrollbar: PChar = 'Scrollbar.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Scrollbar = MUIB_ZUNE or $00002e00;
+
+// Attributes
+const
+   MUIA_Scrollbar_Type = MUIB_MUI or $42fb6b; // V11 i.. LongInt
+
+   MUIV_Scrollbar_Type_Default = 0;
+   MUIV_Scrollbar_Type_Bottom  = 1;
+   MUIV_Scrollbar_Type_Top     = 2;
+   MUIV_Scrollbar_Type_Sym     = 3;
+
+// *********************************************************************
+//  Register
+const
+  MUIC_Register: PChar = 'Register.mui';
+
+// Identifier base  (for Zune extensions)
+  MUIB_Register = MUIB_ZUNE or $00002c00;
+
+// Attributes
+const
+  MUIA_Register_Frame  = MUIB_MUI or $42349b; // V7  i.g BOOL
+  MUIA_Register_Titles = MUIB_MUI or $4297ec; // V7  i.g STRPTR
+  // AROS special
+  MUIA_Register_Columns = MUIB_Register or $0; // Zune V1  i..
+
+// *********************************************************************
+//  Menustrip
+const
+  MUIC_Menustrip: PChar = 'Menustrip.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Menustrip = MUIB_ZUNE or $00001a00;
+
+// Attributes
+const
+  MUIA_Menustrip_Enabled = MUIB_MUI or $42815b; // V8  isg WordBool
+
+// *********************************************************************
+//  Menu
+const
+  MUIC_Menu: PChar = 'Menu.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Menu = MUIB_ZUNE or $00001b00;
+
+// Attributes  }
+const
+   MUIA_Menu_Enabled = MUIB_MUI or $42ed48; // V8  isg WordBool
+   MUIA_Menu_Title   = MUIB_MUI or $42a0e3; // V8  isg STRPTR
+
+// *********************************************************************
+//  Menuitem
+const
+  MUIC_Menuitem: PChar = 'Menuitem.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Menuitem = MUIB_ZUNE or $00001c00;
+
+// Attributes
+const
+  MUIA_Menuitem_Checked       = MUIB_MUI or $42562a; // V8  isg WordBool
+  MUIA_Menuitem_Checkit       = MUIB_MUI or $425ace; // V8  isg WordBool
+  MUIA_Menuitem_CommandString = MUIB_MUI or $42b9cc; // V16 isg WordBool
+  MUIA_Menuitem_Enabled       = MUIB_MUI or $42ae0f; // V8  isg WordBool
+  MUIA_Menuitem_Exclude       = MUIB_MUI or $420bc6; // V8  isg LongInt
+  MUIA_Menuitem_Shortcut      = MUIB_MUI or $422030; // V8  isg STRPTR
+  MUIA_Menuitem_Title         = MUIB_MUI or $4218be; // V8  isg STRPTR
+  MUIA_Menuitem_Toggle        = MUIB_MUI or $424d5c; // V8  isg WordBool
+  MUIA_Menuitem_Trigger       = MUIB_MUI or $426f32; // V8  ..g PMenuItem
+  // AROS special
+  MUIA_Menuitem_NewMenu       = MUIB_Menuitem or $0; // Zune: V1 ..g PNewMenu
+
+  MUIV_Menuitem_Shortcut_Check = -1;
+
+// *********************************************************************
+//  Dataspace
+const
+  MUIC_Dataspace: PChar = 'Dataspace.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Dataspace = MUIB_ZUNE or $00000b00;
+
+// Methods
+const
+  MUIM_Dataspace_Add      = MUIB_MUI or $423366; // V11
+  MUIM_Dataspace_Clear    = MUIB_MUI or $42b6c9; // V11
+  MUIM_Dataspace_Find     = MUIB_MUI or $42832c; // V11
+  MUIM_Dataspace_Merge    = MUIB_MUI or $423e2b; // V11
+  MUIM_Dataspace_ReadIFF  = MUIB_MUI or $420dfb; // V11
+  MUIM_Dataspace_Remove   = MUIB_MUI or $42dce1; // V11
+  MUIM_Dataspace_WriteIFF = MUIB_MUI or $425e8e; // V11
+
+type
+  TMUIP_Dataspace_Add = record
+    MethodID: LongWord;  // MUIM_Dataspace_Add
+    data: APTR;
+    len: LongInt;
+    id: LongWord;
+  end;
+  PMUIP_Dataspace_Add = ^TMUIP_Dataspace_Add;
+
+  TMUIP_Dataspace_Clear = record
+    MethodID: LongWord;  // MUIM_Dataspace_Clear
+  end;
+  PMUIP_Dataspace_Clear = ^TMUIP_Dataspace_Clear;
+
+  TMUIP_Dataspace_Find = record
+    MethodID: LongWord;  // MUIM_Dataspace_Find
+    id: LongWord;
+  end;
+  PMUIP_Dataspace_Find = ^TMUIP_Dataspace_Find;
+
+  TMUIP_Dataspace_Merge = record
+    MethodID: LongWord;  // MUIM_Dataspace_Merge
+    dataspace: PObject_;
+  end;
+  PMUIP_Dataspace_Merge = ^TMUIP_Dataspace_Merge;
+
+  TMUIP_Dataspace_ReadIFF = record
+    MethodID: LongWord;  // MUIM_Dataspace_ReadIFF
+    Handle: PIFFHandle;
+  end;
+  PMUIP_Dataspace_ReadIFF = ^TMUIP_Dataspace_ReadIFF;
+
+  TMUIP_Dataspace_Remove = record
+    MethodID: LongWord;  // MUIM_Dataspace_Remove
+    id: LongWord;
+  end;
+  PMUIP_Dataspace_Remove = ^TMUIP_Dataspace_Remove;
+
+  TMUIP_Dataspace_WriteIFF = record
+    MethodID: LongWord;  // MUIM_Dataspace_WriteIFF
+    handle: PIFFHandle;
+    type_: LongWord;
+    id: LongWord;
+  end;
+  PMUIP_Dataspace_WriteIFF = ^TMUIP_Dataspace_WriteIFF;
+
+// Attributes
+const
+  MUIA_Dataspace_Pool = MUIB_MUI or $424cf9; // V11 i.. APTR
+
+// *********************************************************************
+//  Virtgroup
+const
+  MUIC_Virtgroup: PChar = 'Virtgroup.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Virtgroup = MUIB_ZUNE or $00003700;
+
+// Attributes
+const
+  MUIA_Virtgroup_Height = MUIB_MUI or $423038; // V6  ..g LongInt
+  MUIA_Virtgroup_Input  = MUIB_MUI or $427f7e; // V11 i.. WordBool
+  MUIA_Virtgroup_Left   = MUIB_MUI or $429371; // V6  isg LongInt
+  MUIA_Virtgroup_Top    = MUIB_MUI or $425200; // V6  isg LongInt
+  MUIA_Virtgroup_Width  = MUIB_MUI or $427c49; // V6  ..g LongInt
+
+// *********************************************************************
+//  Scrollgroup
+const
+  MUIC_Scrollgroup: PChar = 'Scrollgroup.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Scrollgroup = MUIB_ZUNE or $00002f00;
+
+// Attributes
+const
+  MUIA_Scrollgroup_Contents     = MUIB_MUI or $421261; // V4  i.g PObject_
+  MUIA_Scrollgroup_FreeHoriz    = MUIB_MUI or $4292f3; // V9  i.. WordBool
+  MUIA_Scrollgroup_FreeVert     = MUIB_MUI or $4224f2; // V9  i.. WordBool
+  MUIA_Scrollgroup_HorizBar     = MUIB_MUI or $42b63d; // V16 ..g PObject_
+  MUIA_Scrollgroup_UseWinBorder = MUIB_MUI or $4284c1; // V13 i.. WordBool
+  MUIA_Scrollgroup_VertBar      = MUIB_MUI or $42cdc0; // V16 ..g PObject_
+
+// *********************************************************************
+//  ScrollButton
+const
+  MUIC_Scrollbutton: PChar = 'Scrollbutton.mui';
+
+// Identifier base
+  MUIB_Scrollbutton = MUIB_ZUNE or $00004100;
+
+// Attributes
+const
+  MUIA_Scrollbutton_NewPosition = MUIB_Scrollbutton or $0; // --G  LongWord (2 x SmallInt)
+  MUIA_Scrollbutton_Horiz       = MUIB_Scrollbutton or $1; // -SG  SmallInt
+  MUIA_Scrollbutton_Vert        = MUIB_Scrollbutton or $2; // -SG  SmallInt
+  MUIA_Scrollbutton_HorizProp   = MUIB_Scrollbutton or $3; // --G  PObject_
+  MUIA_Scrollbutton_VertProp    = MUIB_Scrollbutton or $4; // --G  PObject_
+
+// *********************************************************************
+//  Semaphore
+const
+  MUIC_Semaphore: PChar = 'Semaphore.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Semaphore = MUIB_ZUNE or $00003000;
+
+// Methods
+const
+  MUIM_Semaphore_Attempt       = MUIB_MUI or $426ce2; // V11
+  MUIM_Semaphore_AttemptShared = MUIB_MUI or $422551; // V11
+  MUIM_Semaphore_Obtain        = MUIB_MUI or $4276f0; // V11
+  MUIM_Semaphore_ObtainShared  = MUIB_MUI or $42ea02; // V11
+  MUIM_Semaphore_Release       = MUIB_MUI or $421f2d; // V11
+
+type
+  TMUIP_Semaphore_Attempt = record
+    MethodID: LongWord;  // MUIM_Semaphore_Attempt
+  end;
+  PMUIP_Semaphore_Attempt = ^TMUIP_Semaphore_Attempt;
+
+  TMUIP_Semaphore_AttemptShared = record
+    MethodID: LongWord;  // MUIM_Semaphore_AttemptShared
+  end;
+  PMUIP_Semaphore_AttemptShared = ^TMUIP_Semaphore_AttemptShared;
+
+  TMUIP_Semaphore_Obtain = record
+    MethodID: LongWord;  // MUIM_Semaphore_Obtain
+  end;
+  PMUIP_Semaphore_Obtain = ^TMUIP_Semaphore_Obtain;
+
+  TMUIP_Semaphore_ObtainShared = record
+    MethodID: LongWord;  // MUIM_Semaphore_ObtainShared
+  end;
+  PMUIP_Semaphore_ObtainShared = ^TMUIP_Semaphore_ObtainShared;
+
+  TMUIP_Semaphore_Release = record
+    MethodID: LongWord;  // MUIM_Semaphore_Release
+  end;
+  PMUIP_Semaphore_Release = ^TMUIP_Semaphore_Release;
+
+// *********************************************************************
+//  Bitmap
+const
+  MUIC_Bitmap: PChar = 'Bitmap.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Bitmap = MUIB_ZUNE or $00000400;
+
+// Attributes
+const
+  MUIA_Bitmap_Alpha          = MUIB_MUI or $423e71; // V20 isg LongWord
+  MUIA_Bitmap_Bitmap         = MUIB_MUI or $4279bd; // V8  isg PBitMap
+  MUIA_Bitmap_Height         = MUIB_MUI or $421560; // V8  isg LongInt
+  MUIA_Bitmap_MappingTable   = MUIB_MUI or $42e23d; // V8  isg Byte
+  MUIA_Bitmap_Precision      = MUIB_MUI or $420c74; // V11 isg LongInt
+  MUIA_Bitmap_RemappedBitmap = MUIB_MUI or $423a47; // V11 ..g PBitMap
+  MUIA_Bitmap_SourceColors   = MUIB_MUI or $425360; // V8  isg LongWord
+  MUIA_Bitmap_Transparent    = MUIB_MUI or $422805; // V8  isg LongInt
+  MUIA_Bitmap_UseFriend      = MUIB_MUI or $4239d8; // V11 i.. WordBool
+  MUIA_Bitmap_Width          = MUIB_MUI or $42eb3a; // V8  isg LongInt
+
+// *********************************************************************
+//  Bodychunk
+const
+   MUIC_Bodychunk : PChar = 'Bodychunk.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Bodychunk = MUIB_ZUNE or $00000500;
+
+// Attributes
+const
+  MUIA_Bodychunk_Body        = MUIB_MUI or $42ca67; // V8  isg Byte
+  MUIA_Bodychunk_Compression = MUIB_MUI or $42de5f; // V8  isg Byte
+  MUIA_Bodychunk_Depth       = MUIB_MUI or $42c392; // V8  isg LongInt
+  MUIA_Bodychunk_Masking     = MUIB_MUI or $423b0e; // V8  isg Byte
+
+// *********************************************************************
+//  ChunkyImage
+const
+   MUIC_ChunkyImage : PChar = 'ChunkyImage.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_ChunkyImage = MUIB_ZUNE or $00004000;
+
+// Attributes
+const
+  MUIA_ChunkyImage_Pixels    = MUIB_ChunkyImage or $0; // V8  isg PByte
+  MUIA_ChunkyImage_Palette   = MUIB_ChunkyImage or $1; // V8  isg PByte
+  MUIA_ChunkyImage_NumColors = MUIB_ChunkyImage or $2; // V8  isg LongInt
+  MUIA_ChunkyImage_Modulo    = MUIB_ChunkyImage or $3; // V8  isg LongInt
+
+// *********************************************************************
+//  Listview
+const
+  MUIC_Listview: PChar = 'Listview.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Listview = MUIB_ZUNE or $00001900;
+
+// Attributes
+const
+  MUIA_Listview_ClickColumn    = MUIB_MUI or $42d1b3; // V7  ..g LongInt
+  MUIA_Listview_DefClickColumn = MUIB_MUI or $42b296; // V7  isg LongInt
+  MUIA_Listview_DoubleClick    = MUIB_MUI or $424635; // V4  i.g WordBool
+  MUIA_Listview_DragType       = MUIB_MUI or $425cd3; // V11 isg LongInt
+  MUIA_Listview_Input          = MUIB_MUI or $42682d; // V4  i.. WordBool
+  MUIA_Listview_List           = MUIB_MUI or $42bcce; // V4  i.g PObject_
+  MUIA_Listview_MultiSelect    = MUIB_MUI or $427e08; // V7  i.. LongInt
+  MUIA_Listview_ScrollerPos    = MUIB_MUI or $42b1b4; // V10 i.. WordBool
+  MUIA_Listview_SelectChange   = MUIB_MUI or $42178f; // V4  ..g WordBool
+
+  MUIV_Listview_DragType_None      = 0;
+  MUIV_Listview_DragType_Immediate = 1;
+
+  MUIV_Listview_MultiSelect_None    = 0;
+  MUIV_Listview_MultiSelect_Default = 1;
+  MUIV_Listview_MultiSelect_Shifted = 2;
+  MUIV_Listview_MultiSelect_Always  = 3;
+
+  MUIV_Listview_ScrollerPos_Default = 0;
+  MUIV_Listview_ScrollerPos_Left    = 1;
+  MUIV_Listview_ScrollerPos_Right   = 2;
+  MUIV_Listview_ScrollerPos_None    = 3;
+
+// *********************************************************************
+//  List
+const
+  MUIC_List: PChar = 'List.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_List = MUIB_ZUNE or $00001400;
+
+// Methods
+const
+  MUIM_List_Clear        = MUIB_MUI or $42ad89; // V4
+  MUIM_List_Compare      = MUIB_MUI or $421b68; // V20
+  MUIM_List_Construct    = MUIB_MUI or $42d662; // V20
+  MUIM_List_CreateImage  = MUIB_MUI or $429804; // V11
+  MUIM_List_DeleteImage  = MUIB_MUI or $420f58; // V11
+  MUIM_List_Exchange     = MUIB_MUI or $42468c; // V4
+  MUIM_List_GetEntry     = MUIB_MUI or $4280ec; // V4
+  MUIM_List_Insert       = MUIB_MUI or $426c87; // V4
+  MUIM_List_InsertSingle = MUIB_MUI or $4254d5; // V7
+  MUIM_List_Jump         = MUIB_MUI or $42baab; // V4
+  MUIM_List_Move         = MUIB_MUI or $4253c2; // V9
+  MUIM_List_NextSelected = MUIB_MUI or $425f17; // V6
+  MUIM_List_Redraw       = MUIB_MUI or $427993; // V4
+  MUIM_List_Remove       = MUIB_MUI or $42647e; // V4
+  MUIM_List_Select       = MUIB_MUI or $4252d8; // V4
+  MUIM_List_Sort         = MUIB_MUI or $422275; // V4
+  MUIM_List_TestPos      = MUIB_MUI or $425f48; // V11
+
+type
+  TMUIP_List_Clear = record
+    MethodID: LongWord;  // MUIM_List_Clear
+  end;
+  PMUIP_List_Clear = ^TMUIP_List_Clear;
+
+  TMUIP_List_Compare = record
+    MethodID: LongWord;  // MUIM_List_Compare
+    entry1: APTR;
+    entry2: APTR;
+    sort_type1: LongInt;
+    sort_type2: LongInt;
+  end;
+  PMUIP_List_Compare = ^TMUIP_List_Compare;
+
+  TMUIP_List_Construct = record
+    MethodID: LongWord;  // MUIM_List_Construct
+    entry: APTR;
+    pool: APTR;
+  end;
+  PMUIP_List_Construct = ^TMUIP_List_Construct;
+
+  TMUIP_List_CreateImage = record
+    MethodID: LongWord;  // MUIM_List_CreateImage
+    obj: PObject_;
+    flags: LongWord;
+  end;
+  PMUIP_List_CreateImage = ^TMUIP_List_CreateImage;
+
+  TMUIP_List_DeleteImage = record
+    MethodID: LongWord;  // MUIM_List_DeleteImage
+    listimg: APTR;
+  end;
+  PMUIP_List_DeleteImage = ^TMUIP_List_DeleteImage;
+
+  TMUIP_List_Exchange = record
+    MethodID: LongWord;  // MUIM_List_Exchange
+    pos1: LongInt;
+    pos2: LongInt;
+  end;
+  PMUIP_List_Exchange = ^TMUIP_List_Exchange;
+
+  TMUIP_List_GetEntry = record
+    MethodID: LongWord;  // MUIM_List_GetEntry
+    pos: LongInt;
+    entry: PAPTR;
+  end;
+  PMUIP_List_GetEntry = ^TMUIP_List_GetEntry;
+
+  TMUIP_List_Insert = record
+    MethodID: LongWord;  // MUIM_List_Insert
+    entries: PAPTR;
+    count: LongInt;
+    pos: LongInt;
+  end;
+  PMUIP_List_Insert = ^TMUIP_List_Insert;
+
+  TMUIP_List_InsertSingle = record
+    MethodID: LongWord;  // MUIM_List_InsertSingle
+    entry: APTR;
+    pos: LongInt;
+  end;
+  PMUIP_List_InsertSingle = ^TMUIP_List_InsertSingle;
+
+  TMUIP_List_Jump = record
+    MethodID: LongWord;  // MUIM_List_Jump
+    pos: LongInt;
+  end;
+  PMUIP_List_Jump = ^TMUIP_List_Jump;
+
+  TMUIP_List_Move = record
+    MethodID: LongWord;  // MUIM_List_Move
+    from: LongInt;
+    too: LongInt;
+  end;
+  PMUIP_List_Move = ^TMUIP_List_Move;
+
+  TMUIP_List_NextSelected = record
+    MethodID: LongWord;  // MUIM_List_NextSelected
+    pos: PLongInt;
+  end;
+  PMUIP_List_NextSelected = ^TMUIP_List_NextSelected;
+
+  TMUIP_List_Redraw = record
+    MethodID: LongWord;  // MUIM_List_Redraw
+    pos: LongInt;
+  end;
+  PMUIP_List_Redraw = ^TMUIP_List_Redraw;
+
+  TMUIP_List_Remove = record
+    MethodID: LongWord;  // MUIM_List_Remove
+    pos: LongInt;
+  end;
+  PMUIP_List_Remove = ^TMUIP_List_Remove;
+
+  TMUIP_List_Select = record
+    MethodID: LongWord;  // MUIM_List_Select
+    pos: LongInt;
+    seltype: LongInt;
+    state: PLongInt;
+  end;
+  PMUIP_List_Select = ^TMUIP_List_Select;
+
+  TMUIP_List_Sort = record
+    MethodID: LongWord;  // MUIM_List_Sort
+  end;
+  PMUIP_List_Sort = ^TMUIP_List_Sort;
+
+  TMUIP_List_TestPos = record
+    MethodID: LongWord;  // MUIM_List_TestPos
+    x: LongInt;
+    y: LongInt;
+    res: PMUI_List_TestPos_Result;
+  end;
+  PMUIP_List_TestPos = ^TMUIP_List_TestPos;
+
+// Attributes
+const
+  MUIA_List_Active         = MUIB_MUI or $42391c; // V4  isg LongInt
+  MUIA_List_AdjustHeight   = MUIB_MUI or $42850d; // V4  i.. WordBool
+  MUIA_List_AdjustWidth    = MUIB_MUI or $42354a; // V4  i.. WordBool
+  MUIA_List_AutoVisible    = MUIB_MUI or $42a445; // V11 isg WordBool
+  MUIA_List_CompareHook    = MUIB_MUI or $425c14; // V4  is. PHook
+  MUIA_List_ConstructHook  = MUIB_MUI or $42894f; // V4  is. PHook
+  MUIA_List_DestructHook   = MUIB_MUI or $4297ce; // V4  is. PHook
+  MUIA_List_DisplayHook    = MUIB_MUI or $42b4d5; // V4  is. PHook
+  MUIA_List_DragSortable   = MUIB_MUI or $426099; // V11 isg WordBool
+  MUIA_List_DropMark       = MUIB_MUI or $42aba6; // V11 ..g LongInt
+  MUIA_List_Entries        = MUIB_MUI or $421654; // V4  ..g LongInt
+  MUIA_List_First          = MUIB_MUI or $4238d4; // V4  ..g LongInt
+  MUIA_List_Format         = MUIB_MUI or $423c0a; // V4  isg STRPTR
+  MUIA_List_InsertPosition = MUIB_MUI or $42d0cd; // V9  ..g LongInt
+  MUIA_List_MinLineHeight  = MUIB_MUI or $42d1c3; // V4  i.. LongInt
+  MUIA_List_MultiTestHook  = MUIB_MUI or $42c2c6; // V4  is. PHook
+  MUIA_List_Pool           = MUIB_MUI or $423431; // V13 i.. APTR
+  MUIA_List_PoolPuddleSize = MUIB_MUI or $42a4eb; // V13 i.. LongWord
+  MUIA_List_PoolThreshSize = MUIB_MUI or $42c48c; // V13 i.. LongWord
+  MUIA_List_Quiet          = MUIB_MUI or $42d8c7; // V4  .s. WordBool
+  MUIA_List_ShowDropMarks  = MUIB_MUI or $42c6f3; // V11 isg WordBool
+  MUIA_List_SourceArray    = MUIB_MUI or $42c0a0; // V4  i.. APTR
+  MUIA_List_Title          = MUIB_MUI or $423e66; // V6  isg PChar
+  MUIA_List_Visible        = MUIB_MUI or $42191f; // V4  ..g LongInt
+
+  MUIV_List_Active_Off      = -1;
+  MUIV_List_Active_Top      = -2;
+  MUIV_List_Active_Bottom   = -3;
+  MUIV_List_Active_Up       = -4;
+  MUIV_List_Active_Down     = -5;
+  MUIV_List_Active_PageUp   = -6;
+  MUIV_List_Active_PageDown = -7;
+
+  MUIV_List_ConstructHook_String = -1;
+  MUIV_List_DestructHook_String  = -1;
+
+  MUIV_List_CopyHook_String = -1;
+
+  MUIV_List_CursorType_None = 0;
+  MUIV_List_CursorType_Bar  = 1;
+  MUIV_List_CursorType_Rect = 2;
+
+  MUIV_List_Insert_Top    = 0;
+  MUIV_List_Insert_Active = -1;
+  MUIV_List_Insert_Sorted = -2;
+  MUIV_List_Insert_Bottom = -3;
+
+  MUIV_List_Remove_First    = 0;
+  MUIV_List_Remove_Active   = -1;
+  MUIV_List_Remove_Last     = -2;
+  MUIV_List_Remove_Selected = -3;
+
+  MUIV_List_Select_Off    = 0;
+  MUIV_List_Select_On     = 1;
+  MUIV_List_Select_Toggle = 2;
+  MUIV_List_Select_Ask    = 3;
+
+  MUIV_List_GetEntry_Active  = -1;
+  MUIV_List_EditEntry_Active = -1;
+  MUIV_List_Select_Active    = -1;
+  MUIV_List_Select_All       = -2;
+
+  MUIV_List_Redraw_Active = -1;
+  MUIV_List_Redraw_All    = -2;
+  MUIV_List_Redraw_Entry  = -3;
+
+  MUIV_List_Move_Top      = 0;
+  MUIV_List_Move_Active   = -1;
+  MUIV_List_Move_Bottom   = -2;
+  MUIV_List_Move_Next     = -3; // only valid for second parameter
+  MUIV_List_Move_Previous = -4; // only valid for second parameter
+
+  MUIV_List_Exchange_Top      = 0;
+  MUIV_List_Exchange_Active   = -1;
+  MUIV_List_Exchange_Bottom   = -2;
+  MUIV_List_Exchange_Next     = -3; // only valid for second parameter
+  MUIV_List_Exchange_Previous = -4; // only valid for second parameter
+
+  MUIV_List_Jump_Top    = 0;
+  MUIV_List_Jump_Active = -1;
+  MUIV_List_Jump_Bottom = -2;
+  MUIV_List_Jump_Up     = -4;
+  MUIV_List_Jump_Down   = -3;
+
+  MUIV_List_NextSelected_Start = -1;
+  MUIV_List_NextSelected_End   = -1;
+
+  MUIV_NList_SelectChange_Flag_Multi = 1 shl 0;
+
+// *********************************************************************
+//  Scrmodelist
+const
+  MUIC_Scrmodelist: PChar = 'Scrmodelist.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Scrmodelist = MUIB_ZUNE or $00001700;
+
+// *********************************************************************
+//  Floattext
+const
+  MUIC_Floattext: PChar = 'Floattext.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Floattext = MUIB_ZUNE or $00001500;
+
+// Methods
+  MUIM_Floattext_Append = MUIB_MUI or $42a221; // V20
+
+type
+  TMUIP_Floattext_Append = record
+    MethodID: LongWord;  // MUIM_Floattext_Append
+    Text: STRPTR;
+  end;
+  PMUIP_Floattext_Append = ^TMUIP_Floattext_Append;
+
+// Attributes
+const
+  MUIA_Floattext_Justify   = MUIB_MUI or $42dc03; // V4  isg WordBool
+  MUIA_Floattext_SkiPChars = MUIB_MUI or $425c7d; // V4  is. STRPTR
+  MUIA_Floattext_TabSize   = MUIB_MUI or $427d17; // V4  is. LongInt
+  MUIA_Floattext_Text      = MUIB_MUI or $42d16a; // V4  isg STRPTR
+
+// *********************************************************************
+//  Popstring
+const
+  MUIC_Popstring: PChar = 'Popstring.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Popstring = MUIB_ZUNE or $00002800;
+
+// Methods
+const
+  MUIM_Popstring_Close = MUIB_MUI or $42dc52; // V7
+  MUIM_Popstring_Open  = MUIB_MUI or $4258ba; // V7
+
+type
+  TMUIP_Popstring_Close = record
+    MethodID: LongWord;  // MUIM_Popstring_Close
+    result: LongInt;
+  end;
+  PMUIP_Popstring_Close = ^TMUIP_Popstring_Close;
+
+  TMUIP_Popstring_Open = record
+    MethodID: LongWord;  // MUIM_Popstring_Open
+  end;
+  PMUIP_Popstring_Open = ^TMUIP_Popstring_Open;
+
+// Attributes
+const
+  MUIA_Popstring_Button    = MUIB_MUI or $42d0b9; // V7  i.g PObject_
+  MUIA_Popstring_CloseHook = MUIB_MUI or $4256bf; // V7  isg PHook
+  MUIA_Popstring_OpenHook  = MUIB_MUI or $429d00; // V7  isg PHook
+  MUIA_Popstring_String    = MUIB_MUI or $4239ea; // V7  i.g PObject_
+  MUIA_Popstring_Toggle    = MUIB_MUI or $422b7a; // V7  isg WordBool
+
+// *********************************************************************
+//  Popobject
+const
+  MUIC_Popobject: PChar = 'Popobject.mui';
+
+// Identifier base
+  MUIB_Popobject = MUIB_ZUNE or $00002400;
+
+// Attributes
+const
+  MUIA_Popobject_Follow     = MUIB_MUI or $424cb5; // V7  isg WordBool
+  MUIA_Popobject_Light      = MUIB_MUI or $42a5a3; // V7  isg WordBool
+  MUIA_Popobject_Object     = MUIB_MUI or $4293e3; // V7  i.g PObject_
+  MUIA_Popobject_ObjStrHook = MUIB_MUI or $42db44; // V7  isg PHook
+  MUIA_Popobject_StrObjHook = MUIB_MUI or $42fbe1; // V7  isg PHook
+  MUIA_Popobject_Volatile   = MUIB_MUI or $4252ec; // V7  isg WordBool
+  MUIA_Popobject_WindowHook = MUIB_MUI or $42f194; // V9  isg PHook
+
+// *********************************************************************
+//  Cycle
+const
+  MUIC_Cycle: PChar = 'Cycle.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Cycle = MUIB_ZUNE or $00000a00;
+
+// Attributes
+const
+  MUIA_Cycle_Active  = MUIB_MUI or $421788; // V4  isg LongInt
+  MUIA_Cycle_Entries = MUIB_MUI or $420629; // V4  i.. STRPTR
+
+  MUIV_Cycle_Active_Next = -1;
+  MUIV_Cycle_Active_Prev = -2;
+
+// *********************************************************************
+//  Gauge
+const
+  MUIC_Gauge: PChar = 'Gauge.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Gauge = MUIB_ZUNE or $00000f00;
+
+// Attributes
+const
+  MUIA_Gauge_Current  = MUIB_MUI or $42f0dd; // V4  isg LongInt
+  MUIA_Gauge_Divide   = MUIB_MUI or $42d8df; // V4  isg WordBool
+  MUIA_Gauge_Horiz    = MUIB_MUI or $4232dd; // V4  i.. WordBool
+  MUIA_Gauge_InfoText = MUIB_MUI or $42bf15; // V7  isg STRPTR
+  MUIA_Gauge_Max      = MUIB_MUI or $42bcdb; // V4  isg LongInt
+  // AROS special
+  MUIA_Gauge_DupInfoText = MUIB_Gauge or $0; // ZUNE: V1  i.. WordBool - defaults to False
+
+// *********************************************************************
+//  Image
+const
+  MUIC_Image: PChar = 'Image.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Image = MUIB_ZUNE or $00001300;
+
+// Attributes
+const
+  MUIA_Image_FontMatch       = MUIB_MUI or $42815d; // V4  i.. WordBool
+  MUIA_Image_FontMatchHeight = MUIB_MUI or $429f26; // V4  i.. WordBool
+  MUIA_Image_FontMatchWidth  = MUIB_MUI or $4239bf; // V4  i.. WordBool
+  MUIA_Image_FreeHoriz       = MUIB_MUI or $42da84; // V4  i.. WordBool
+  MUIA_Image_FreeVert        = MUIB_MUI or $42ea28; // V4  i.. WordBool
+  MUIA_Image_OldImage        = MUIB_MUI or $424f3d; // V4  i.. PImage
+  MUIA_Image_Spec            = MUIB_MUI or $4233d5; // V4  i.. PChar
+  MUIA_Image_State           = MUIB_MUI or $42a3ad; // V4  is. LongInt
+
+// *********************************************************************
+//  Imagedisplay
+const
+  MUIC_Imagedisplay: PChar = 'Imagedisplay.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Imagedisplay = MUIB_ZUNE or $00001200;
+
+// Attributes
+  MUIA_Imagedisplay_Spec       = MUIB_MUI or $42a547; // V11 isg PMUI_ImageSpec
+  MUIA_Imagedisplay_UseDefSize = MUIB_MUI or $42186d; // V11 i.. WordBool undoc
+  // Aros Special
+  MUIA_Imagedisplay_FreeHoriz = MUIB_Imagedisplay or $0; // Zune 20030323 i.. WordBool default: True
+  MUIA_Imagedisplay_FreeVert  = MUIB_Imagedisplay or $1; // Zune 20030323 i.. WordBool default: True
+
+// *********************************************************************
+//  Popasl
+const
+  MUIC_Popasl: PChar = 'Popasl.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Popasl = MUIB_ZUNE or $00002100;
+
+// Attributes
+const
+  MUIA_Popasl_Active    = MUIB_MUI or $421b37; // V7  ..g WordBool
+  MUIA_Popasl_StartHook = MUIB_MUI or $42b703; // V7  isg PHook
+  MUIA_Popasl_StopHook  = MUIB_MUI or $42d8d2; // V7  isg PHook
+  MUIA_Popasl_Type      = MUIB_MUI or $42df3d; // V7  i.g LongWord
+
+// *********************************************************************
+//  Settingsgroup
+const
+  MUIC_Settingsgroup: PChar = 'Settingsgroup.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Settingsgroup = MUIB_ZUNE or $00003100;
+
+// Methods
+const
+  MUIM_Settingsgroup_ConfigToGadgets = MUIB_MUI or $427043; // V11
+  MUIM_Settingsgroup_GadgetsToConfig = MUIB_MUI or $425242; // V11
+
+type
+  TMUIP_Settingsgroup_ConfigToGadgets = record
+    MethodID: LongWord;  // MUIM_Settingsgroup_ConfigToGadgets
+    configdata: PObject_;
+  end;
+  PMUIP_Settingsgroup_ConfigToGadgets = ^TMUIP_Settingsgroup_ConfigToGadgets;
+
+  TMUIP_Settingsgroup_GadgetsToConfig = record
+    MethodID: LongWord;  // MUIM_Settingsgroup_GadgetsToConfig
+    configdata: PObject_;
+  end;
+  PMUIP_Settingsgroup_GadgetsToConfig = ^TMUIP_Settingsgroup_GadgetsToConfig;
+
+// *********************************************************************
+//  Settings
+const
+  MUIC_Settings: PChar = 'Settings.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Settings = MUIB_ZUNE or $00003200;
+
+// *********************************************************************
+//  Aboutmui
+const
+  MUIC_Aboutmui: PChar = 'Aboutmui.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Aboutmui = MUIB_ZUNE or $0;
+
+// Attributes
+const
+   MUIA_Aboutmui_Application = MUIB_MUI or $422523; // V11 i.. PObject
+
+// *********************************************************************
+//  Configdata
+const
+   MUIC_Configdata : PChar = 'Configdata.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Configdata = MUIB_ZUNE or $00000900;
+
+// Methods
+  MUIM_Configdata_GetWindowPos = MUIB_Configdata or $0000002A;
+  MUIM_Configdata_SetWindowPos = MUIB_Configdata or $0000002B;
+  MUIM_Configdata_GetString    = MUIB_Configdata or $00000000;
+  MUIM_Configdata_GetULong     = MUIB_Configdata or $00000001;
+  MUIM_Configdata_SetULong     = MUIB_Configdata or $00000002;
+  MUIM_Configdata_SetImspec    = MUIB_Configdata or $00000003;
+  MUIM_Configdata_SetFramespec = MUIB_Configdata or $00000004;
+  MUIM_Configdata_SetFont      = MUIB_Configdata or $00000005;
+  MUIM_Configdata_Save         = MUIB_Configdata or $00000006;
+  MUIM_Configdata_Load         = MUIB_Configdata or $00000007;
+  MUIM_Configdata_SetPenspec   = MUIB_Configdata or $00000008;
+  MUIM_Configdata_SetString    = MUIB_Configdata or $00000009;
+
+type
+  TMUIP_Configdata_GetString = record
+    MethodID: LongWord;
+    id: LongWord;
+  end;
+  PMUIP_Configdata_GetString = ^TMUIP_Configdata_GetString;
+
+  TMUIP_Configdata_GetULong = record
+    MethodID: LongWord;
+    id: LongWord;
+  end;
+  PMUIP_Configdata_GetULong = ^TMUIP_Configdata_GetULong;
+
+  TMUIP_Configdata_SetULong = record
+    MethodID: LongWord;
+    id: LongWord;
+    val: LongWord;
+  end;
+  PMUIP_Configdata_SetULong = ^TMUIP_Configdata_SetULong;
+
+  TMUIP_Configdata_SetImspec = record
+    MethodID: LongWord;
+    id: LongWord;
+    imspec: STRPTR;
+  end;
+  PMUIP_Configdata_SetImspec = ^TMUIP_Configdata_SetImspec;
+
+  TMUIP_Configdata_SetFramespec = record
+    MethodID: LongWord;
+    id: LongWord;
+    framespec: STRPTR;
+  end;
+  PMUIP_Configdata_SetFramespec = ^TMUIP_Configdata_SetFramespec;
+
+  TMUIP_Configdata_SetFont = record
+    MethodID: LongWord;
+    id: LongWord;
+    font: STRPTR;
+  end;
+  PMUIP_Configdata_SetFont = ^TMUIP_Configdata_SetFont;
+
+  TMUIP_Configdata_Save = record
+    MethodID: LongWord;
+    filename: STRPTR;
+  end;
+  PMUIP_Configdata_Save = ^TMUIP_Configdata_Save;
+
+  TMUIP_Configdata_Load = record
+    MethodID: LongWord;
+    filename: STRPTR;
+  end;
+  PMUIP_Configdata_Load = ^TMUIP_Configdata_Load;
+
+  TMUIP_Configdata_SetPenspec = record
+    MethodID: LongWord;
+    id: LongWord;
+    penspec: STRPTR;
+  end;
+  PMUIP_Configdata_SetPenspec = ^TMUIP_Configdata_SetPenspec;
+
+  TMUIP_Configdata_SetString = record
+    MethodID: LongWord;
+    id: LongWord;
+    Newstring: STRPTR;
+  end;
+  PMUIP_Configdata_SetString = ^TMUIP_Configdata_SetString;
+
+// Attributes
+const
+  MUIA_Configdata_Application     = MUIB_Configdata or $00000000; // Zune V1: i..  PObject_
+  MUIA_Configdata_ApplicationBase = MUIB_Configdata or $00000002; // Zune V1: i..  PObject_
+
+// The config items for MUIM_GetConfigItem
+  MUICFG_Invalid                  = -1;
+  MUICFG_Window_Spacing_Left      = $01; // LongWord, horiz pixels (def=4)
+  MUICFG_Window_Spacing_Right     = $02; // LongWord, horiz pixels (def=4)
+  MUICFG_Window_Spacing_Top       = $03; // LongWord, vert pixels (def=3)
+  MUICFG_Window_Spacing_Bottom    = $04; // LongWord, vert pixels (def=3)
+  MUICFG_Radio_HSpacing           = $05; // LongWord, horiz pixels (def=4)
+  MUICFG_Radio_VSpacing           = $06; // LongWord, vertical pixels (def=1)
+  MUICFG_Group_HSpacing           = $07; // LongWord, horiz pixels (def=6)
+  MUICFG_Group_VSpacing           = $08; // LongWord, vertical pixels (def=3)
+  MUICFG_Scrollbar_Arrangement    = $09; // LongWord, top = 0 (def), middle, bottom
+  MUICFG_Listview_Refresh         = $0a; // LongWord, linear, mixed = 1 (def)
+  MUICFG_Listview_Font_Leading    = $0b; // LongWord, vertical pixels (def=1)
+  MUICFG_Listview_SmoothVal       = $0c; // LongWord, ? (def=0)
+  MUICFG_Listview_Multi           = $0d; // LongWord, shifted = 0 (def), always
+  MUICFG_GroupTitle_Position      = $0f; // LongWord, 1=centered
+  MUICFG_GroupTitle_Color         = $10; // LongWord, 0=normal
+  MUICFG_Cycle_MenuCtrl_Level     = $11; // LongWord, num of entries (def=2)
+  MUICFG_Cycle_MenuCtrl_Position  = $12; // LongWord, below = 0 (def), on active
+  MUICFG_Frame_Drag               = $18;
+  MUICFG_Cycle_Menu_Recessed      = $19; // LongWord, false = 0 (def), true
+  MUICFG_Cycle_MenuCtrl_Speed     = $1a; // LongWord, num of ticks (0..50) (def=0)
+  MUICFG_Listview_Smoothed        = $1b; // LongWord, false = 0 (def), true
+  MUICFG_Window_Redraw            = $1d; // LongWord, no clear, clear = 1 (def)
+  MUICFG_Font_Normal              = $1e;
+  MUICFG_Font_List                = $1f;
+  MUICFG_Font_Tiny                = $20;
+  MUICFG_Font_Fixed               = $21;
+  MUICFG_Font_Title               = $22;
+  MUICFG_Font_Big                 = $23;
+  MUICFG_PublicScreen             = $24;
+  MUICFG_Frame_Button             = $2b;
+  MUICFG_Frame_ImageButton        = $2c;
+  MUICFG_Frame_Text               = $2d;
+  MUICFG_Frame_String             = $2e;
+  MUICFG_Frame_ReadList           = $2f;
+  MUICFG_Frame_InputList          = $30;
+  MUICFG_Frame_Prop               = $31;
+  MUICFG_Frame_Gauge              = $32;
+  MUICFG_Frame_Group              = $33;
+  MUICFG_Frame_PopUp              = $34;
+  MUICFG_Frame_Virtual            = $35;
+  MUICFG_Frame_Slider             = $36;
+  MUICFG_Background_Window        = $37;
+  MUICFG_Background_Requester     = $38;
+  MUICFG_Background_Button        = $39;
+  MUICFG_Background_List          = $3a;
+  MUICFG_Background_Text          = $3b;
+  MUICFG_Background_Prop          = $3c;
+  MUICFG_Background_PopUp         = $3d;
+  MUICFG_Background_Selected      = $3e;
+  MUICFG_Background_ListCursor    = $3f;
+  MUICFG_Background_ListSelect    = $40;
+  MUICFG_Background_ListSelCur    = $41;
+  MUICFG_Image_ArrowUp            = $42;
+  MUICFG_Image_ArrowDown          = $43;
+  MUICFG_Image_ArrowLeft          = $44;
+  MUICFG_Image_ArrowRight         = $45;
+  MUICFG_Image_CheckMark          = $46;
+  MUICFG_Image_RadioButton        = $47;
+  MUICFG_Image_Cycle              = $48;
+  MUICFG_Image_PopUp              = $49;
+  MUICFG_Image_PopFile            = $4a;
+  MUICFG_Image_PopDrawer          = $4b;
+  MUICFG_Image_PropKnob           = $4c;
+  MUICFG_Image_Drawer             = $4d;
+  MUICFG_Image_HardDisk           = $4e;
+  MUICFG_Image_Disk               = $4f;
+  MUICFG_Image_Chip               = $50;
+  MUICFG_Image_Volume             = $51;
+  MUICFG_Image_Network            = $52;
+  MUICFG_Image_Assign             = $53;
+  MUICFG_Background_Register      = $54;
+  MUICFG_Image_TapePlay           = $55;
+  MUICFG_Image_TapePlayBack       = $56;
+  MUICFG_Image_TapePause          = $57;
+  MUICFG_Image_TapeStop           = $58;
+  MUICFG_Image_TapeRecord         = $59;
+  MUICFG_Background_Framed        = $5a;
+  MUICFG_Background_Slider        = $5b;
+  MUICFG_Background_SliderKnob    = $5c;
+  MUICFG_Image_TapeUp             = $5d;
+  MUICFG_Image_TapeDown           = $5e;
+  MUICFG_Keyboard_Press           = $5f;
+  MUICFG_Keyboard_Toggle          = $60;
+  MUICFG_Keyboard_Up              = $61;
+  MUICFG_Keyboard_Down            = $62;
+  MUICFG_Keyboard_PageUp          = $63;
+  MUICFG_Keyboard_PageDown        = $64;
+  MUICFG_Keyboard_Top             = $65;
+  MUICFG_Keyboard_Bottom          = $66;
+  MUICFG_Keyboard_Left            = $67;
+  MUICFG_Keyboard_Right           = $68;
+  MUICFG_Keyboard_WordLeft        = $69;
+  MUICFG_Keyboard_WordRight       = $6a;
+  MUICFG_Keyboard_LineStart       = $6b;
+  MUICFG_Keyboard_LineEnd         = $6c;
+  MUICFG_Keyboard_NextGadget      = $6d;
+  MUICFG_Keyboard_PrevGadget      = $6e;
+  MUICFG_Keyboard_GadgetOff       = $6f;
+  MUICFG_Keyboard_CloseWindow     = $70;
+  MUICFG_Keyboard_NextWindow      = $71;
+  MUICFG_Keyboard_PrevWindow      = $72;
+  MUICFG_Keyboard_Help            = $73;
+  MUICFG_Keyboard_Popup           = $74;
+  MUICFG_Window_Positions         = $7a;
+  MUICFG_Balance_Look             = $7b; // LongWord, frame = 0 (def), object
+  MUICFG_Font_Button              = $80;
+  MUICFG_Scrollbar_Type           = $83; // LongWord, standard = 0 (def), newlook, custom
+  MUICFG_String_Background        = $84;
+  MUICFG_String_Text              = $85;
+  MUICFG_String_ActiveBackground  = $86;
+  MUICFG_String_ActiveText        = $87;
+  MUICFG_Font_Knob                = $88;
+  MUICFG_Drag_LeftButton          = $89; // LongWord, false, true (def)
+  MUICFG_Drag_MiddleButton        = $8a; // LongWord, false (def), true
+  MUICFG_Drag_LMBModifier         = $8b; // key desc (def = control)
+  MUICFG_Drag_MMBModifier         = $8c; // key desc
+  MUICFG_Drag_Autostart           = $8d; // LongWord, false = 0, true (def)
+  MUICFG_Drag_Autostart_Length    = $8e; // LongWord, pixels (def = 3)
+  MUICFG_ActiveObject_Color       = $8f; // penspec
+  MUICFG_Frame_Knob               = $90;
+  MUICFG_Dragndrop_Look           = $94; // LongWord, solid, ghosted on obj (def), ...
+  MUICFG_Background_Page          = $95;
+  MUICFG_Background_ReadList      = $96;
+  MUICFG_String_Cursor            = $400;
+  MUICFG_String_MarkedBackground  = $401;
+  MUICFG_String_MarkedText        = $402;
+  MUICFG_Register_TruncateTitles  = $403;
+  MUICFG_Window_Refresh           = $404;
+  MUICFG_Screen_Mode              = $505;
+  MUICFG_Screen_Mode_ID           = $506;
+  MUICFG_Screen_Width             = $507;
+  MUICFG_Screen_Height            = $508;
+  MUICFG_WindowPos                = $509;
+  MUICFG_Window_Buttons           = $50a;
+
+  MUICFG_CustomFrame_1            = $600;
+  MUICFG_CustomFrame_2            = $601;
+  MUICFG_CustomFrame_3            = $602;
+  MUICFG_CustomFrame_4            = $603;
+  MUICFG_CustomFrame_5            = $604;
+  MUICFG_CustomFrame_6            = $605;
+  MUICFG_CustomFrame_7            = $606;
+  MUICFG_CustomFrame_8            = $607;
+  MUICFG_CustomFrame_9            = $608;
+  MUICFG_CustomFrame_10           = $609;
+  MUICFG_CustomFrame_11           = $60a;
+  MUICFG_CustomFrame_12           = $60b;
+  MUICFG_CustomFrame_13           = $60c;
+  MUICFG_CustomFrame_14           = $60d;
+  MUICFG_CustomFrame_15           = $60e;
+  MUICFG_CustomFrame_16           = $60f;
+
+  MUICFG_PublicScreen_PopToFront  = $700;
+  MUICFG_Iconification_Hotkey     = $701;
+  MUICFG_Iconification_ShowIcon   = $702;
+  MUICFG_Iconification_ShowMenu   = $703;
+  MUICFG_Iconification_OnStartup  = $704;
+  MUICFG_Interfaces_EnableARexx   = $705;
+  MUICFG_BubbleHelp_FirstDelay    = $706;
+  MUICFG_BubbleHelp_NextDelay     = $707;
+
+// *********************************************************************
+//  Imageadjust
+const
+  MUIC_Imageadjust: PChar = 'Imageadjust.mui';
+
+// Identifier base (for AROS extensions)
+  MUIB_Imageadjust = MUIB_ZUNE or $00001100;
+
+// Attributes
+const
+  MUIA_Imageadjust_Type = MUIB_MUI or $422f2b; // V11 i.. LongInt
+  MUIA_Imageadjust_Spec = MUIB_MUI or $4279e1; // ??? .g. PChar
+  // AROS special
+  MUIA_Imageadjust_Originator = MUIB_Imageadjust or $0; // Zune: i.. PObject_
+
+  MUIV_Imageadjust_Type_All        = 0;
+  MUIV_Imageadjust_Type_Image      = 1;
+  MUIV_Imageadjust_Type_Background = 2;
+  MUIV_Imageadjust_Type_Pen        = 3;
+
+// *********************************************************************
+//  Popimage
+const
+  MUIC_Popimage: PChar = 'Popimage.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Popimage = MUIB_ZUNE or $00002300;
+
+// *********************************************************************
+//  Scale
+const
+  MUIC_Scale: PChar = 'Scale.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Scale = MUIB_ZUNE or $00002d00;
+
+// Attributes
+const
+  MUIA_Scale_Horiz = MUIB_MUI or $42919a; // V4  isg WordBool
+
+// *********************************************************************
+//  Radio
+const
+  MUIC_Radio: PChar = 'Radio.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Radio = MUIB_ZUNE or $00002a00;
+
+// Attributes
+const
+  MUIA_Radio_Active  = MUIB_MUI or $429b41; // V4  isg LongInt
+  MUIA_Radio_Entries = MUIB_MUI or $42b6a1; // V4  i.. STRPTR
+
+// *********************************************************************
+//  Balance
+const
+  MUIC_Balance: PChar = 'Balance.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Balance = MUIB_ZUNE or $00000300;
+
+// Attributes
+  MUIA_Balance_Quiet = MUIB_Balance or $0; // Zune V20 i.. LongInt
+
+// *********************************************************************
+//  Pendisplay
+const
+  MUIC_Pendisplay: PChar = 'Pendisplay.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Pendisplay = MUIB_ZUNE or $00002000;
+
+// Methods
+const
+  MUIM_Pendisplay_SetColormap = MUIB_MUI or $426c80; // V13
+  MUIM_Pendisplay_SetMUIPen   = MUIB_MUI or $42039d; // V13
+  MUIM_Pendisplay_SetRGB      = MUIB_MUI or $42c131; // V13
+
+type
+  TMUIP_Pendisplay_SetColormap = record
+    MethodID: LongWord;  // MUIM_Pendisplay_SetColormap
+    colormap: LongInt;
+  end;
+  PMUIP_Pendisplay_SetColormap = ^TMUIP_Pendisplay_SetColormap;
+
+  TMUIP_Pendisplay_SetMUIPen = record
+    MethodID: LongWord;  // MUIM_Pendisplay_SetMUIPen
+    muipen: LongInt;
+  end;
+  PMUIP_Pendisplay_SetMUIPen = ^TMUIP_Pendisplay_SetMUIPen;
+
+  TMUIP_Pendisplay_SetRGB = record
+    MethodID: LongWord;  // MUIM_Pendisplay_SetRGB
+    red: LongWord;
+    green: LongWord;
+    blue: LongWord;
+  end;
+  PMUIP_Pendisplay_SetRGB = ^TMUIP_Pendisplay_SetRGB;
+
+// Attributes
+const
+  MUIA_Pendisplay_Pen       = MUIB_MUI or $42a748; // V13 ..g PObject_
+  MUIA_Pendisplay_Reference = MUIB_MUI or $42dc24; // V13 isg PObject_
+  MUIA_Pendisplay_RGBcolor  = MUIB_MUI or $42a1a9; // V11 isg PMUI_RGBcolor
+  MUIA_Pendisplay_Spec      = MUIB_MUI or $42a204; // V11 isg PMUI_PenSpec
+
+// *********************************************************************
+//  Penadjust
+const
+  MUIC_Penadjust: PChar= 'Penadjust.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Penadjust = MUIB_ZUNE or $00001f00;
+
+// Attributes
+const
+  MUIA_Penadjust_PSIMode = MUIB_MUI or $421cbb; // V11 i.. WordBool
+
+// *********************************************************************
+//  Poppen
+const
+  MUIC_Poppen: PChar = 'Poppen.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Poppen = MUIB_ZUNE or $00002700;
+
+// *********************************************************************
+//  Colorfield
+const
+  MUIC_Colorfield: PChar = 'Colorfield.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Colorfield = MUIB_ZUNE or $00000800;
+
+// Attributes
+const
+  MUIA_Colorfield_Blue  = MUIB_MUI or $42d3b0; // V4  isg LongWord
+  MUIA_Colorfield_Green = MUIB_MUI or $424466; // V4  isg LongWord
+  MUIA_Colorfield_Pen   = MUIB_MUI or $42713a; // V4  ..g LongWord
+  MUIA_Colorfield_Red   = MUIB_MUI or $4279f6; // V4  isg LongWord
+  MUIA_Colorfield_RGB   = MUIB_MUI or $42677a; // V4  isg LongWord
+
+// *********************************************************************
+//  Coloradjust
+const
+  MUIC_Coloradjust: PChar = 'Coloradjust.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Coloradjust = MUIB_ZUNE or $00000700;
+
+// Attributes
+const
+  MUIA_Coloradjust_Blue   = MUIB_MUI or $42b8a3; // V4  isg LongWord
+  MUIA_Coloradjust_Green  = MUIB_MUI or $4285ab; // V4  isg LongWord
+  MUIA_Coloradjust_ModeID = MUIB_MUI or $42ec59; // V4  isg LongWord
+  MUIA_Coloradjust_Red    = MUIB_MUI or $420eaa; // V4  isg LongWord
+  MUIA_Coloradjust_RGB    = MUIB_MUI or $42f899; // V4  isg LongWord
+
+// *********************************************************************
+//  Mccprefs
+const
+  MUIC_Mccprefs: PChar = 'Mccprefs.mui';
+
+// *********************************************************************
+//  Frameadjust
+const
+  MUIC_Frameadjust: PChar = 'Frameadjust.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Frameadjust = MUIB_ZUNE or $00000d00;
+
+// Attributes
+  MUIA_Frameadjust_Spec = MUIB_Frameadjust or $0; // Zune 20030330 ig. STRPTR
+
+// *********************************************************************
+//  Framedisplay
+const
+  MUIC_Framedisplay: PChar = 'Framedisplay.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Framedisplay = MUIB_ZUNE or $00000e00;
+
+// Attributes
+  MUIA_Framedisplay_Spec = MUIB_MUI or $421794; // MUI: V??  isg PMUI_FrameSpec
+
+// *********************************************************************
+//  Popframe
+const
+  MUIC_Popframe: PChar = 'Popframe.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Popframe = MUIB_ZUNE or $00002200;
+
+// *********************************************************************
+//  Volumelist
+const
+  MUIC_Volumelist: PChar = 'Volumelist.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Volumelist = MUIB_ZUNE or $1600;
+
+// *********************************************************************
+//  Dirlist
+const
+  MUIC_Dirlist: PChar = 'Dirlist.mui';
+
+// Identifer base (for Zune extensions)
+  MUIB_Dirlist = MUIB_ZUNE or $00001800;
+
+// Methods
+const
+  MUIM_Dirlist_ReRead = MUIB_MUI or $422d71; // V4
+
+type
+  TMUIP_Dirlist_ReRead = record
+    MethodID : LongWord;  // MUIM_Dirlist_ReRead
+  end;
+
+// Attributes
+const
+  MUIA_Dirlist_AcceptPattern = MUIB_MUI or $42760a; // V4  is. STRPTR
+  MUIA_Dirlist_Directory     = MUIB_MUI or $42ea41; // V4  isg STRPTR
+  MUIA_Dirlist_DrawersOnly   = MUIB_MUI or $42b379; // V4  is. WordBool
+  MUIA_Dirlist_FilesOnly     = MUIB_MUI or $42896a; // V4  is. WordBool
+  MUIA_Dirlist_FilterDrawers = MUIB_MUI or $424ad2; // V4  is. WordBool
+  MUIA_Dirlist_FilterHook    = MUIB_MUI or $42ae19; // V4  is. PHook
+  MUIA_Dirlist_MultiSelDirs  = MUIB_MUI or $428653; // V6  is. WordBool
+  MUIA_Dirlist_NumBytes      = MUIB_MUI or $429e26; // V4  ..g LongInt
+  MUIA_Dirlist_NumDrawers    = MUIB_MUI or $429cb8; // V4  ..g LongInt
+  MUIA_Dirlist_NumFiles      = MUIB_MUI or $42a6f0; // V4  ..g LongInt
+  MUIA_Dirlist_Path          = MUIB_MUI or $426176; // V4  ..g STRPTR
+  MUIA_Dirlist_RejectIcons   = MUIB_MUI or $424808; // V4  is. WordBool
+  MUIA_Dirlist_RejectPattern = MUIB_MUI or $4259c7; // V4  is. STRPTR
+  MUIA_Dirlist_SortDirs      = MUIB_MUI or $42bbb9; // V4  is. LongInt
+  MUIA_Dirlist_SortHighLow   = MUIB_MUI or $421896; // V4  is. WordBool
+  MUIA_Dirlist_SortType      = MUIB_MUI or $4228bc; // V4  is. LongInt
+  MUIA_Dirlist_Status        = MUIB_MUI or $4240de; // V4  ..g LongInt
+
+  MUIV_Dirlist_SortDirs_First = 0;
+  MUIV_Dirlist_SortDirs_Last  = 1;
+  MUIV_Dirlist_SortDirs_Mix   = 2;
+
+  MUIV_Dirlist_SortType_Name = 0;
+  MUIV_Dirlist_SortType_Date = 1;
+  MUIV_Dirlist_SortType_Size = 2;
+
+  MUIV_Dirlist_Status_Invalid = 0;
+  MUIV_Dirlist_Status_Reading = 1;
+  MUIV_Dirlist_Status_Valid   = 2;
+
+// *********************************************************************
+//  Numericbutton
+const
+  MUIC_Numericbutton: PChar = 'Numericbutton.mui';
+
+// *********************************************************************
+//  Poplist
+const
+  MUIC_Poplist: PChar = 'Poplist.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Poplist = MUIB_ZUNE or $00002500;
+
+// Attributes
+const
+  MUIA_Poplist_Array = MUIB_MUI or $42084c; // V8  i.. PPChar
+
+// *********************************************************************
+//  Popscreen
+const
+  MUIC_Popscreen: PChar = 'Popscreen.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Popscreen = MUIB_ZUNE or $00002600;
+
+// *********************************************************************
+//  Crawling
+const
+  MUIC_Crawling: PChar = 'Crawling.mui';
+
+// *********************************************************************
+//  Levelmeter
+const
+  MUIC_Levelmeter: PChar = 'Levelmeter.mui';
+
+// Attributes
+const
+  MUIA_Levelmeter_Label = MUIB_MUI or $420dd5; // V11 isg STRPTR
+
+// *********************************************************************
+//  Knob
+const
+  MUIC_Knob: PChar = 'Knob.mui';
+
+// *********************************************************************
+//  Dtpic
+const
+  MUIC_Dtpic: PChar = 'Dtpic.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Palette = MUIB_ZUNE or $00008a00;
+
+// Attributes
+const
+  MUIA_Dtpic_Alpha          = MUIB_MUI or $42b4db; // V20 isg LongInt
+  MUIA_Dtpic_DarkenSelState = MUIB_MUI or $423247; // V20 i.g WordBool
+  MUIA_Dtpic_Fade           = MUIB_MUI or $420429; // V20 isg LongInt
+  MUIA_Dtpic_LightenOnMouse = MUIB_MUI or $42966a; // V20 i.g WordBool
+  MUIA_Dtpic_Name           = MUIB_MUI or $423d72; // V18 isg STRPTR
+
+// *********************************************************************
+//  Palette
+const
+  MUIC_Palette: PChar = 'Palette.mui';
+
+// Attributes
+const
+  MUIA_Palette_Entries   = $8042a3d8;{ V6  i.g struct MUI_Palette_Entry    }
+  MUIA_Palette_Groupable = $80423e67;{ V6  isg BOOL               }
+  MUIA_Palette_Names     = $8042c3a2;{ V6  isg char               }
+
+// *********************************************************************
+//  Title
+const
+  MUIC_Title: PChar = 'Title.mui';
+
+// *********************************************************************
+//  Process
+const
+  MUIC_Process: PChar = 'Process.mui';
+
+// Methods
+  MUIM_Process_Kill    = MUIB_MUI or $4264cf; // V20
+  MUIM_Process_Launch  = MUIB_MUI or $425df7; // V20
+  MUIM_Process_Process = MUIB_MUI or $4230aa; // V20
+  MUIM_Process_Signal  = MUIB_MUI or $42e791; // V20
+
+type
+  TMUIP_Process_Kill = record
+    MethodID : LongWord;
+    maxdelay: LongInt;
+  end;
+
+  TMUIP_Process_Launch = record
+    MethodID : LongWord;
+  end;
+
+  TMUIP_Process_Process = record
+    MethodID : LongWord;
+    kill: PLongWord;
+    proc: PObject_;
+  end;
+
+  TMUIP_Process_Signal = record
+    MethodID : LongWord;
+    sigs: LongWord;
+  end;
+
+// Attributes
+const
+  MUIA_Process_AutoLaunch   = MUIB_MUI or $428855; // V20 i.. LongWord
+  MUIA_Process_Name         = MUIB_MUI or $42732b; // V20 i.. LongWord
+  MUIA_Process_Priority     = MUIB_MUI or $422a54; // V20 i.. LongWord
+  MUIA_Process_SourceClass  = MUIB_MUI or $42cf8b; // V20 i.. LongWord
+  MUIA_Process_SourceObject = MUIB_MUI or $4212a2; // V20 i.. LongWord
+  MUIA_Process_StackSize    = MUIB_MUI or $4230d0; // V20 i.. LongWord
+  MUIA_Process_Task         = MUIB_MUI or $42b123; // V20 ..g LongWord
+
+// *********************************************************************
+//  Pixmap
+const
+  MUIC_Pixmap: PChar = 'Pixmap.mui';
+
+// Identifier base (for Zune extensions)
+  MUIB_Pixmap = MUIB_ZUNE or $00003600;
+
+/// Methods
+  MUIM_Pixmap_DrawSection = MUIB_MUI or $42ce0f; // private, V20
+
+type
+  TMUIP_Pixmap_DrawSection = record // private
+    MethodID: LongWord;  // MUIM_Pixmap_DrawSection
+    sx: LongInt;
+    sy: LongInt;
+    sw: LongInt;
+    sh: LongInt;
+    mri: PMUI_RenderInfo;
+    dx: LongInt;
+    dy: LongInt;
+  end;
+
+// Attributes
+const
+  MUIA_Pixmap_Alpha            = MUIB_MUI or $421fef; // V20 isg LongWord
+  MUIA_Pixmap_CLUT             = MUIB_MUI or $42042a; // V20 isg LongWord
+  MUIA_Pixmap_CompressedSize   = MUIB_MUI or $42e7e4; // V20 isg LongWord
+  MUIA_Pixmap_Compression      = MUIB_MUI or $42ce74; // V20 isg LongWord
+  MUIA_Pixmap_Data             = MUIB_MUI or $429ea0; // V20 isg APTR
+  MUIA_Pixmap_Format           = MUIB_MUI or $42ab14; // V20 isg LongWord
+  MUIA_Pixmap_Height           = MUIB_MUI or $4288be; // V20 isg LongInt
+  MUIA_Pixmap_UncompressedData = MUIB_MUI or $42b085; // V20 ..g APTR
+  MUIA_Pixmap_Width            = MUIB_MUI or $42ccb8; // V20 isg LongInt
+
+  MUIV_Pixmap_Compression_None  = 0;
+  MUIV_Pixmap_Compression_RLE   = 1;
+  MUIV_Pixmap_Compression_BZip2 = 2;
+
+  MUIV_Pixmap_Format_CLUT8  = 0;
+  MUIV_Pixmap_Format_RGB24  = 1;
+  MUIV_Pixmap_Format_ARGB32 = 2;
+
+// *********************************************************************
+//  Gadget
+const
+  MUIC_Gadget: PChar = 'Gadget.mui';
+
+// Attributes
+const
+  MUIA_Gadget_Gadget = MUIB_MUI or $42ec1a; // V11 ..g PGadget
+
+// *********************************************************************
+//  Applist
+const
+  MUIC_Applist: PChar = 'Applist.mui';
+
+// *********************************************************************
+//  Cclist
+const
+  MUIC_Cclist: PChar = 'Cclist.mui';
+
+type
+// Instance data of notify class
+  TMUI_NotifyData = record
+    mnd_GlobalInfo: PMUI_GlobalInfo;
+    mnd_UserData: LongWord;
+    mnd_ObjectID: LongWord;
+    priv1: LongWord;
+    priv2: LongWord;
+    priv3: LongWord;
+    priv4: LongWord;
+  end;
+  PMUI_NotifyData = ^TMUI_NotifyData;
+
+const
+  // special maximum dimension in case it is unlimited
+  MUI_MAXMAX = 10000;
+
+type
+  T__dummyAreaData__ = record
+    mnd: TMUI_NotifyData;
+    mad: TMUI_AreaData;
+  end;
+  P__dummyAreaData__ = ^T__dummyAreaData__;
+
+const
+// Possible keyevents (user configurable)
+  MUIKEY_RELEASE      = -2;  // this one is faked only, so not configurable
+  MUIKEY_NONE         = -1;
+  MUIKEY_PRESS        = 0;
+  MUIKEY_TOGGLE       = 1;
+  MUIKEY_UP           = 2;
+  MUIKEY_DOWN         = 3;
+  MUIKEY_PAGEUP       = 4;
+  MUIKEY_PAGEDOWN     = 5;
+  MUIKEY_TOP          = 6;
+  MUIKEY_BOTTOM       = 7;
+  MUIKEY_LEFT         = 8;
+  MUIKEY_RIGHT        = 9;
+  MUIKEY_WORDLEFT     = 10;
+  MUIKEY_WORDRIGHT    = 11;
+  MUIKEY_LINESTART    = 12;
+  MUIKEY_LINEEND      = 13;
+  MUIKEY_GADGET_NEXT  = 14;
+  MUIKEY_GADGET_PREV  = 15;
+  MUIKEY_GADGET_OFF   = 16;
+  MUIKEY_WINDOW_CLOSE = 17;
+  MUIKEY_WINDOW_NEXT  = 18;
+  MUIKEY_WINDOW_PREV  = 19;
+  MUIKEY_HELP         = 20;
+  MUIKEY_POPUP        = 21;
+  MUIKEY_COUNT        = 22;
+
+  // The mask definitions of the above keys
+  MUIKEYF_PRESS = 1 shl MUIKEY_PRESS;
+  MUIKEYF_TOGGLE = 1 shl MUIKEY_TOGGLE;
+  MUIKEYF_UP = 1 shl MUIKEY_UP;
+  MUIKEYF_DOWN = 1 shl MUIKEY_DOWN;
+  MUIKEYF_PAGEUP = 1 shl MUIKEY_PAGEUP;
+  MUIKEYF_PAGEDOWN = 1 shl MUIKEY_PAGEDOWN;
+  MUIKEYF_TOP = 1 shl MUIKEY_TOP;
+  MUIKEYF_BOTTOM = 1 shl MUIKEY_BOTTOM;
+  MUIKEYF_LEFT = 1 shl MUIKEY_LEFT;
+  MUIKEYF_RIGHT = 1 shl MUIKEY_RIGHT;
+  MUIKEYF_WORDLEFT = 1 shl MUIKEY_WORDLEFT;
+  MUIKEYF_WORDRIGHT = 1 shl MUIKEY_WORDRIGHT;
+  MUIKEYF_LINESTART = 1 shl MUIKEY_LINESTART;
+  MUIKEYF_LINEEND = 1 shl MUIKEY_LINEEND;
+  MUIKEYF_GADGET_NEXT = 1 shl MUIKEY_GADGET_NEXT;
+  MUIKEYF_GADGET_PREV = 1 shl MUIKEY_GADGET_PREV;
+  MUIKEYF_GADGET_OFF = 1 shl MUIKEY_GADGET_OFF;
+  MUIKEYF_WINDOW_CLOSE = 1 shl MUIKEY_WINDOW_CLOSE;
+  MUIKEYF_WINDOW_NEXT = 1 shl MUIKEY_WINDOW_NEXT;
+  MUIKEYF_WINDOW_PREV = 1 shl MUIKEY_WINDOW_PREV;
+  MUIKEYF_HELP = 1 shl MUIKEY_HELP;
+  MUIKEYF_POPUP = 1 shl MUIKEY_POPUP;
+
+// MUI_CustomClass returned by MUI_CreateCustomClass()
+// use for whatever you want  MUI has opened these libraries for you automatically. You can use them or decide to open
+type
+  TMUI_CustomClass = record
+    mcc_UserData: APTR; // freely usable
+
+    // Zune/MUI had the following libraries opened for you
+    mcc_UtilityBase: PLibrary;
+    mcc_DOSBase: PLibrary;
+    mcc_GfxBase: PLibrary;
+    mcc_IntuitionBase: PLibrary;
+
+    mcc_Super: PIClass; // the boopsi class' superclass
+    mcc_Class: PIClass; // the boopsi class
+
+    // the following stuff is private
+    mcc_Module: PLibrary; // non-null if external class
+  end;
+  PMUI_CustomClass = ^TMUI_CustomClass;
+
+var
+  MUIMasterBase: PLibrary = nil;
+  IMui: PInterface = nil;
+
+function MUIObtain(): LongWord; syscall IMui 60;
+function MUIRelease(): LongWord; syscall IMui 64;
+// 68 Expunge not implemented
+// 72 Clone not implemented
+function MUI_NewObjectA(const ClassID: STRPTR; Tags: PTagItem): PObject_; syscall IMui 76;
+// 80 MUI_NewObject
+procedure MUI_DisposeObject(Obj: PObject_); syscall IMui 84;
+function MUI_RequestA(App: PObject_; Win: PObject_; Flags: LongWord; const Title: STRPTR; const Gadgets: STRPTR; const Format: STRPTR; Params: APTR): LongInt; syscall IMui 88;
+// 92 MUI_Request
+function MUI_AllocAslRequest(Type_: LongWord; TagList: PTagItem): Pointer; syscall IMui 96;
+// 100 MUI_AllocAslRequestTags
+function MUI_AslRequest(Req: APTR; TagList: PTagItem): LongBool; syscall IMui 104;
+// 108 MUI_AslRequestTags
+procedure MUI_FreeAslRequest(Req: APTR); syscall IMui 112;
+function MUI_Error: LongInt; syscall IMui 116;
+function MUI_SetError(ErrNum: LongInt): LongInt; syscall IMui 120;
+function MUI_GetClass(const ClassID: STRPTR): PIClass; syscall IMui 124;
+procedure MUI_FreeClass(Cl: PIClass); syscall IMui 128;
+procedure MUI_RequestIDCMP(Obj: PObject_; Flags: LongWord); syscall IMui 132;
+procedure MUI_RejectIDCMP(Obj: PObject_; Flags: LongWord); syscall IMui 136;
+procedure MUI_Redraw(Obj: PObject_; Flags: LongWord); syscall IMui 140;
+function MUI_CreateCustomClass(Base: PLibrary; const Supername: STRPTR; Supermcc: PMUI_CustomClass; DataSize: LongWord; Dispatcher: APTR): PMUI_CustomClass; syscall IMui 144;
+function MUI_DeleteCustomClass(Mcc: PMUI_CustomClass): LongBool; syscall IMui 148;
+function MUI_MakeObjectA(Type_: LongInt; Params: PLongWord): PObject_; syscall IMui 152;
+// 156 MUI_MakeObject
+function MUI_Layout(Obj: PObject_; l, t, w, h: LongInt; Flags: LongWord): LongBool; syscall IMui 160;
+// 164 - 176 Private
+function MUI_ObtainPen(Mri: PMUI_RenderInfo; Spec: PMUI_PenSpec; Flags: LongWord) : LongInt; syscall IMui 180;
+procedure MUI_ReleasePen(Mri: PMUI_RenderInfo; Pen: LongInt); syscall IMui 184;
+function MUI_AddClipping(Mri: PMUI_RenderInfo; l, t, w, h: LongInt): APTR; syscall IMui 188;
+procedure MUI_RemoveClipping(Mri: PMUI_RenderInfo; h: APTR); syscall IMui 192;
+function MUI_AddClipRegion(Mri: PMUI_RenderInfo; Region: PRegion): APTR; syscall IMui 196;
+procedure MUI_RemoveClipRegion(Mri: PMUI_RenderInfo; Region: APTR); syscall IMui 200;
+function MUI_BeginRefresh(Mri: PMUI_RenderInfo; Flags: LongWord): LongBool; syscall IMui 204;
+procedure MUI_EndRefresh(Mri: PMUI_RenderInfo; Flags: LongWord); syscall IMui 208;
+// 212 - 216 private
+function MUI_Show(Obj: PObject_): LongWord; syscall IMui 220;
+function MUI_Hide(Obj: PObject_): LongWord; syscall IMui 224;
+function MUI_LayoutObj(Obj: PObject_; l, t, w, h: LongInt; Flags: LongWord): LongBool; syscall IMui 228;
+function MUI_Offset(Obj: PObject_; X, Y: LongInt): LongBool; syscall IMui 232;
+// 236 - 572 private
+
+// some procedures to get some information about our object
+function MUINotifyData(Obj: APTR): PMUI_NotifyData;
+function MUIAreaData(Obj: APTR): PMUI_AreaData;
+function MUIGlobalInfo(Obj: APTR): PMUI_GlobalInfo;
+function MUIUserData(Obj: APTR): Pointer ;
+function MUIRenderInfo(Obj: APTR): PMUI_RenderInfo;
+function MUIPen(Pen: LongInt): LongInt;
+
+// some more specialized functions to retain information about special
+// object-data like rastport, window, etc.
+
+// NOTE: These macros may only be used in custom classes and are
+// only valid if your class is inbetween the specified methods!
+
+function OBJ_App(Obj: APTR): PObject_;        // valid between MUIM_Setup/Cleanup
+function OBJ_Win(Obj: APTR): PObject_;        // valid between MUIM_Setup/Cleanup
+function OBJ_Dri(Obj: APTR): PDrawInfo;       // valid between MUIM_Setup/Cleanup
+function OBJ_Screen(Obj: APTR): PScreen;      // valid between MUIM_Setup/Cleanup
+function OBJ_Pens(Obj: APTR): PWord;          // valid between MUIM_Setup/Cleanup
+function OBJ_Window(Obj: APTR): PWindow;        // valid between MUIM_Show/Hide
+function OBJ_Rp(Obj: APTR): PRastPort;          // valid between MUIM_Show/Hide
+function OBJ_Left(Obj: APTR): SmallInt;           // valid during MUIM_Draw
+function OBJ_Top(Obj: APTR): SmallInt;            // valid during MUIM_Draw *)
+function OBJ_Width(Obj: APTR): SmallInt;          // valid during MUIM_Draw *)
+function OBJ_Height(Obj: APTR): SmallInt;         // valid during MUIM_Draw *)
+function OBJ_Right(Obj: APTR): SmallInt;          // valid during MUIM_Draw *)
+function OBJ_Bottom(Obj: APTR): SmallInt;         // valid during MUIM_Draw *)
+function OBJ_AddLeft(Obj: APTR): SmallInt;        // valid during MUIM_Draw *)
+function OBJ_AddTop(Obj: APTR): SmallInt;         // valid during MUIM_Draw *)
+function OBJ_SubWidth(Obj: APTR): SmallInt;       // valid during MUIM_Draw *)
+function OBJ_SubHeight(Obj: APTR): SmallInt;      // valid during MUIM_Draw *)
+function OBJ_MLeft(Obj: APTR): SmallInt;          // valid during MUIM_Draw *)
+function OBJ_MTop(Obj: APTR): SmallInt;           // valid during MUIM_Draw *)
+function OBJ_MWidth(Obj: APTR): SmallInt;         // valid during MUIM_Draw *)
+function OBJ_MHeight(Obj: APTR): SmallInt;        // valid during MUIM_Draw *)
+function OBJ_MRight(Obj: APTR): SmallInt;         // valid during MUIM_Draw *)
+function OBJ_MBottom(Obj: APTR): SmallInt;        // valid during MUIM_Draw *)
+function OBJ_Font(Obj: APTR): PTextFont;      // valid between MUIM_Setup/Cleanup *)
+function OBJ_MinWidth(Obj: APTR): LongWord;     // valid between MUIM_Show/Hide *)
+function OBJ_MinHeight(Obj: APTR): LongWord;    // valid between MUIM_Show/Hide *)
+function OBJ_MaxWidth(Obj: APTR): LongWord;     // valid between MUIM_Show/Hide *)
+function OBJ_MaxHeight(Obj: APTR): LongWord;    // valid between MUIM_Show/Hide *)
+function OBJ_DefWidth(Obj: APTR): LongWord;     // valid between MUIM_Show/Hide *)
+function OBJ_DefHeight(Obj: APTR): LongWord;    // valid between MUIM_Show/Hide *)
+function OBJ_Flags(Obj: APTR): LongWord;
+
+function OBJ_Between(a, x, b: SmallInt): Boolean;
+function OBJ_IsInObject(x, y: SmallInt; Obj: PObject_): Boolean;
+
+function MUIV_Window_AltHeight_MinMax(p: LongInt): LongInt;
+function MUIV_Window_AltHeight_Visible(p: LongInt): LongInt;
+function MUIV_Window_AltHeight_Screen(p: LongInt): LongInt;
+function MUIV_Window_AltTopEdge_Delta(p: LongInt): LongInt;
+function MUIV_Window_AltWidth_MinMax(p: LongInt): LongInt;
+function MUIV_Window_AltWidth_Visible(p: LongInt): LongInt;
+function MUIV_Window_AltWidth_Screen(p: LongInt): LongInt;
+function MUIV_Window_Height_MinMax(p: LongInt): LongInt;
+function MUIV_Window_Height_Visible(p: LongInt): LongInt;
+function MUIV_Window_Height_Screen(p: LongInt): LongInt;
+function MUIV_Window_TopEdge_Delta(p: LongInt): LongInt;
+function MUIV_Window_Width_MinMax(p: LongInt): LongInt;
+function MUIV_Window_Width_Visible(p: LongInt): LongInt;
+function MUIV_Window_Width_Screen(p: LongInt): LongInt;
+
+
+// Functions and procedures with array of const go here
+function MUI_AllocAslRequestTags(ReqTyp: Longword; const Tags: array of PtrUInt): Pointer;
+function MUI_AslRequestTags(req: Pointer; const Tags : array of PtrUInt): LongBool;
+function MUI_MakeObject(_Type: LongInt; const Params : array of PtrUInt): PObject_;
+function MUI_NewObject(a0arg: PChar; const Tags: array of PtrUInt): PObject_;
+function MUI_Request(App: Pointer; win: Pointer; Flags: LongWord; Title: PChar; Gadgets: PChar; Format: PChar; const Params: Array Of PtrUInt): LongInt;
+
+implementation
+
+function MUINotifyData(Obj: APTR): PMUI_NotifyData; inline;
+begin
+  MUINotifyData := PMUI_NotifyData(@P__dummyAreaData__(Obj)^.mnd);
+end;
+
+function MUIAreaData(Obj: APTR): PMUI_AreaData; inline;
+begin
+  MUIAreaData := PMUI_AreaData(@P__dummyAreaData__(Obj)^.mad);
+end;
+
+function MUIGlobalInfo(Obj: APTR): PMUI_GlobalInfo; inline;
+begin
+  MUIGlobalInfo := PMUI_GlobalInfo(P__dummyAreaData__(Obj)^.mnd.mnd_GlobalInfo);
+end;
+
+function MUIUserData(Obj: APTR): Pointer; inline;
+begin
+  MUIUserData := Pointer(p__dummyAreaData__(obj)^.mnd.mnd_GlobalInfo);
+end;
+
+function MUIRenderInfo(Obj: APTR): PMUI_RenderInfo; inline;
+begin
+  MUIRenderInfo := PMUI_RenderInfo(P__dummyAreaData__(obj)^.mad.mad_RenderInfo);
+end;
+
+function MUIPen(Pen: LongInt): LongInt; inline;
+begin
+  MUIPen := LongInt(Pen and MUIPEN_Mask);
+end;
+
+function OBJ_App(Obj: APTR): PObject_; inline;
+begin
+  OBJ_App := MUIGlobalInfo(Obj)^.mgi_ApplicationObject;
+end;
+
+function OBJ_Win(Obj: APTR): PObject_; inline;
+begin
+  OBJ_Win := MUIRenderInfo(Obj)^.mri_WindowObject;
+end;
+
+function OBJ_Dri(Obj: APTR): PDrawInfo; inline;
+begin
+  OBJ_Dri := MUIRenderInfo(obj)^.mri_DrawInfo;
+end;
+
+function OBJ_Screen(Obj: APTR): PScreen; inline;
+begin
+  OBJ_Screen := MUIRenderInfo(Obj)^.mri_Screen;
+end;
+
+function OBJ_Pens(Obj: APTR): PWord; inline;
+begin
+  OBJ_Pens := MUIRenderInfo(obj)^.mri_Pens;
+end;
+
+function OBJ_Window(Obj: APTR): PWindow; inline;
+begin
+  OBJ_Window := MUIRenderInfo(obj)^.mri_Window;
+end;
+
+function OBJ_Rp(Obj: APTR): PRastPort; inline;
+begin
+  OBJ_Rp := MUIRenderInfo(Obj)^.mri_RastPort;
+end;
+
+function OBJ_Left(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Left := MUIAreaData(Obj)^.mad_Box.Left;
+end;
+
+function OBJ_Top(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Top := MUIAreaData(Obj)^.mad_Box.Top;
+end;
+
+function OBJ_Width(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Width := MUIAreaData(Obj)^.mad_Box.Width;
+end;
+
+function OBJ_Height(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Height := MUIAreaData(Obj)^.mad_Box.Height;
+end;
+
+function OBJ_Right(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Right := OBJ_Left(Obj) + OBJ_Width(Obj) - 1;
+end;
+
+function OBJ_Bottom(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_Bottom := OBJ_Top(Obj) + OBJ_Height(Obj) - 1;
+end;
+
+function OBJ_AddLeft(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_AddLeft := MUIAreaData(obj)^.mad_AddLeft;
+end;
+
+function OBJ_AddTop(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_AddTop := MUIAreaData(obj)^.mad_AddTop;
+end;
+
+function OBJ_SubWidth(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_SubWidth := MUIAreaData(obj)^.mad_SubWidth;
+end;
+
+function OBJ_SubHeight(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_SubHeight := MUIAreaData(obj)^.mad_SubHeight;
+end;
+
+function OBJ_MLeft(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MLeft := OBJ_Left(obj) + OBJ_AddLeft(obj);
+end;
+
+function OBJ_MTop(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MTop := OBJ_Top(obj) + OBJ_AddTop(obj);
+end;
+
+function OBJ_MWidth(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MWidth := OBJ_Width(obj) - OBJ_SubWidth(obj);
+end;
+
+function OBJ_MHeight(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MHeight := OBJ_Height(obj) - OBJ_SubHeight(obj);
+end;
+
+function OBJ_MRight(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MRight := OBJ_MLeft(obj) + OBJ_MWidth(obj) - 1;
+end;
+
+function OBJ_MBottom(Obj: APTR): SmallInt; inline;
+begin
+  OBJ_MBottom := OBJ_MTop(obj) + OBJ_MHeight(obj) - 1;
+end;
+
+function OBJ_Font(Obj: APTR): PTextFont; inline;
+begin
+  OBJ_Font := MUIAreaData(obj)^.mad_Font;
+end;
+
+function OBJ_MinWidth(Obj: APTR): LongWord; inline;
+begin
+  OBJ_MinWidth := MUIAreaData(obj)^.mad_MinMax.MinWidth;
+end;
+
+function OBJ_MinHeight(Obj: APTR): LongWord; inline;
+begin
+  OBJ_MinHeight := MUIAreaData(obj)^.mad_MinMax.MinHeight;
+end;
+
+function OBJ_MaxWidth(Obj: APTR): LongWord; inline;
+begin
+  OBJ_maxWidth := MUIAreaData(obj)^.mad_MinMax.MaxWidth;
+end;
+
+function OBJ_MaxHeight(Obj: APTR): LongWord; inline;
+begin
+  OBJ_maxHeight := MUIAreaData(obj)^.mad_MinMax.MaxHeight;
+end;
+
+function OBJ_DefWidth(Obj: APTR): LongWord; inline;
+begin
+  OBJ_DefWidth := MUIAreaData(obj)^.mad_MinMax.DefWidth;
+end;
+
+function OBJ_DefHeight(Obj: APTR): LongWord; inline;
+begin
+  OBJ_DefHeight := MUIAreaData(obj)^.mad_MinMax.DefHeight;
+end;
+
+function OBJ_Flags(Obj: APTR): LongWord; inline;
+begin
+  OBJ_Flags := MUIAreaData(obj)^.mad_Flags;
+end;
+
+// 2 useful procedures for testing if some coordinates are inside your object (converted from the ones in class3.c. So look there how to use... )
+
+function OBJ_Between(a,x,b : SmallInt): boolean; inline;
+begin
+  OBJ_Between := (x >= a) and (x <= b);
+end;
+
+function OBJ_IsInObject(x, y: SmallInt; Obj: PObject_): boolean; inline;
+begin
+  OBJ_IsInObject := OBJ_Between(OBJ_MLeft(obj), x, OBJ_MRight(obj)) and OBJ_Between(OBJ_MTop(obj), y, OBJ_MBottom(obj));
+end;
+
+function MUIV_Window_AltHeight_MinMax(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltHeight_MinMax := 0 - p;
+end;
+
+function MUIV_Window_AltHeight_Visible(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltHeight_Visible := -100 - p;
+end;
+
+function MUIV_Window_AltHeight_Screen(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltHeight_Screen := -200 - p;
+end;
+
+function MUIV_Window_AltTopEdge_Delta(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltTopEdge_Delta := -3 - p;
+end;
+
+function MUIV_Window_AltWidth_MinMax(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltWidth_MinMax := 0 - p;
+end;
+
+function MUIV_Window_AltWidth_Visible(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltWidth_Visible := -100 - p;
+end;
+
+function MUIV_Window_AltWidth_Screen(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_AltWidth_Screen := -200 - p;
+end;
+
+function MUIV_Window_Height_MinMax(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_Height_MinMax := 0 - p;
+end;
+
+function MUIV_Window_Height_Visible(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_Height_Visible := -100 - p;
+end;
+
+function MUIV_Window_Height_Screen(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_Height_Screen := -200 - p;
+end;
+
+function MUIV_Window_TopEdge_Delta(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_TopEdge_Delta := -3 - p;
+end;
+
+function MUIV_Window_Width_MinMax(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_Width_MinMax := 0 - p;
+end;
+
+function MUIV_Window_Width_Visible(p: LongInt): LongInt; inline;
+begin
+  MUIV_Window_Width_Visible := -100 - p;
+end;
+
+function MUIV_Window_Width_Screen(p : LongInt) : LongInt; inline;
+begin
+  MUIV_Window_Width_Screen := (-200 - (p));
+end;
+
+// Functions and procedures with array of const go here
+
+function MUI_AllocAslRequestTags(ReqTyp : longword; const Tags: array of PtrUInt) : Pointer; inline;
+begin
+  MUI_AllocAslRequestTags := MUI_AllocAslRequest(ReqTyp, @Tags);
+end;
+
+function MUI_AslRequestTags(Req: Pointer; const Tags: array of PtrUInt) : LongBool; inline;
+begin
+  MUI_AslRequestTags := MUI_AslRequest(Req, @Tags);
+end;
+
+function MUI_MakeObject(_Type : LongInt; const Params: array of PtrUInt): PObject_; inline;
+begin
+  MUI_MakeObject := MUI_MakeObjectA(_Type, @Params);
+end;
+
+function MUI_NewObject(a0arg: PChar; const Tags: array of PtrUInt): PObject_; inline;
+begin
+  MUI_NewObject := MUI_NewObjectA(a0arg , @Tags);
+end;
+
+function MUI_Request(App: Pointer; win: Pointer; Flags: LongWord; Title: PChar; Gadgets: PChar; Format: PChar; const Params: Array Of PtrUInt): LongInt;
+begin
+  MUI_Request := MUI_RequestA(App, Win, Flags, Title, Gadgets, Format, @Params);
+end;
+
+const
+  // Change LIBVERSION to proper values
+  LIBVERSION: LongWord = 0;
+
+initialization
+  MUIMasterBase := OpenLibrary(MUIMASTER_NAME, LIBVERSION);
+  if Assigned(MUIMasterBase) then
+    IMui := GetInterface(MUIMasterBase, 'main', 1, nil);
+finalization
+  if Assigned(IMui) then
+    DropInterface(IMui);
+  if Assigned(MUIMasterBase) then
+    CloseLibrary(MUIMasterBase);
+end.

packages/os4units/src/utility.pas

@@ -320,6 +320,7 @@ function UCS4Valid(UCS4: LongInt): LongInt; syscall IUtility 360;
 
 
 function AllocNamedObject(Name: STRPTR; const Tags: array of PtrUInt): PNamedObject; inline;
+function CallHook(Hook: PHook; Obj: APTR; Params: array of PtrUInt): LongWord; inline;
 
 function TAG_(value: pointer): PtrUInt; overload; inline;
 function TAG_(value: PChar): PtrUInt; overload; inline;
@@ -338,6 +339,11 @@ begin
   AllocNamedObject := AllocNamedObjectA(Name, @Tags);
 end;
 
+function CallHook(Hook: PHook; Obj: APTR; Params: array of PtrUInt): LongWord; inline;
+begin
+  CallHook := CallHookPkt(Hook, Obj, @Params);
+end;
+
 function TAG_(value: pointer): PtrUInt; inline;
 begin
   TAG_:=PtrUInt(value);