(*------------------------------------------

  :Module.      Mui.mod
  :Author.      Albert Weinert  [awn]
  :Address.     Moltkestr. 68; 50859 Köln
  :EMail.       a.weinert@darkness.gun.de
  :Phone.       +49-2234-480800
  :Date.        19-Nov-1995
  :Copyright.   Albert Weinert
  :Language.    Oberon-2
  :Translator.  AmigaOberon V3.20, Oberon-A 1.6
  :Contents.    Interface to muimaster.library V12 (Mui 3.1)
  :Imports.     automatic created part by Stefan Stuntz

--------------------------------------------*)

(* <*IF OberonA THEN*> $IF OberonA *)
(*
<* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
<*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
<*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
*)
(* <* ELSE *> $ELSE *)

(* $CaseChk-  $NilChk-  *)
(* $RangeChk- $StackChk- $TypeChk-  $OvflChk- *)

(* <*END*> $END *)

MODULE Mui;

(* <*IF OberonA THEN*> $IF OberonA *)
IMPORT Exec, Utility, Intuition, SYSTEM, ASL, Graphics, Kernel, Sets, Classface, IFFParse;
(* <*ELSE*> $ELSE *)
IMPORT Exec, Utility, Intuition, SYSTEM, ASL, Graphics, Classface, IFFParse;
(* <*END*> $END *)

(***************************************************************************
**
** MUI - MagicUserInterface
** (c) 1993-1995 by Stefan Stuntz
**
** Main Interface File for AmigaOberon and Oberon-A
** (c) 1993-1995 by Albert Weinert
**
****************************************************************************
** Class Tree
****************************************************************************
**
** rootclass                     (BOOPSI's base class)
** +--Semaphore                  (baseclass for semaphore equipped objects)
** !  +--Applist                 (private class)
** !  +--Dataspace               (handles general purpose data spaces)
** !     \--Configdata           (handles MUI configuration data)
** +--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                  (handles intuition window related topics)
**    !  \--Aboutmui             (About window of MUI preferences)
**    +--Area                    (base class for all GUI elements)
**       +--Rectangle            (creates (empty) rectangles)
**       +--Balance              (creates a balancing separator bar)
**       +--Image                (creates images)
**       +--Bitmap               (draws bitmaps)
**       !  \--Bodychunk         (makes bitmap from ILBM body chunk)
**       +--Text                 (creates some text)
**       +--Gadget               (base class for intuition gadgets)
**       !  +--String            (creates a string gadget)
**       !  +--Boopsi            (interface to BOOPSI gadgets)
**       !  \--Prop              (creates a proportional gadget)
**       +--Gauge                (creates a fule gauge)
**       +--Scale                (creates a percentage scale)
**       +--Colorfield           (creates a field with changeable color)
**       +--List                 (creates a 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)
**       +--Numeric              (base class for slider gadgets)
**       !  +--Knob              (creates knobs)
**       !  +--Levelmeter        (creates a level display)
**       !  +--Numericbutton     (creates space saving popup sliders)
**       !  \--Slider            (creates slider gadgets)
**       +--Framedisplay         (displays a frame specification)
**       !  \--Popframe          (popup button to adjust a frame)
**       +--Imagedisplay         (displays an image specification)
**       !  \--Popimage          (popup button to adjust an image spec)
**       +--Pendisplay           (displays a pen specification)
**       !  \--Poppen            (popup button to adjust a pen spec)
**       +--Group                (groups other GUI elements)
**          +--Mccprefs          (base class for extern custom class preferences classes)
**          +--Register          (handles page groups with titles)
**          +--Settingsgroup     (Creates GUI elements to adjust MUIs preferences)
**          +--Settings          (Creates prefs)
**          +--Frameadjust       (creates an object to adjust a frame)
**          +--Penadjust         (creates a group to adjust a pen)
**          +--Imageadjust       (creates a group to adjust an image)
**          +--Virtgroup         (handles virtual groups)
**          +--Scrollgroup       (handles virtual groups with scrollers)
**          +--Scrollbar         (creates a scrollbar)
**          +--Listview          (creates a listview)
**          +--Radio             (creates radio buttons)
**          +--Cycle             (creates cycle gadgets)
**          +--Coloradjust       (creates some RGB sliders)
**          +--Palette           (creates a complete palette gadget)
**          +--Popstring         (base class for popups)
**             +--Popobject      (popup a MUI object in a window)
**             !  +--Poplist     (popup a simple listview)
**             !  \--Popscreen   (popup a list of public screens)
**             \--Popasl         (popup an asl requester)
**
****************************************************************************
** General Header File Information
****************************************************************************
**
** All macro and structure definitions follow these rules:
**
** Name                       Meaning
**
** c<Class>              Name of a class
** m<Class><Method>      Method
** p<Class><Method>      Methods parameter structure
** v<Class><Method><X>   Special method value
** a<Class><Attrib>      Attribute
** v<Class><Attrib><X>   Special attribute value
** e<Error>              Error return code from Error()
** i<Name>               Standard MUI image
** x<Code>               Control codes for text strings
** o<Name>               Object type for MakeObject()
**
** a<> ... 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!
*)

CONST
  name* = "muimaster.library";
  libVersion* = 12;
  minVersion* =  10;

TYPE

  Object * = Intuition.ObjectPtr;

(* <*IF OberonA THEN*> $IF OberonA *)
  dispatcher *= PROCEDURE ():Exec.APTR;
(* <* ELSE *> $ELSE *)
TYPE
  dispatcher *= PROCEDURE ( class{8} : Intuition.IClassPtr; obj{10} : Object; message{9} : Intuition.MsgPtr ):Exec.APTR;
(* <*END*> $END *)

(*************************************************************************
** Config items for MUIM_Application_SetConfigItem
*************************************************************************)

CONST
  ciPublicScreen *= 1;

(*************************************************************************
** Config items for MUIM_GetConfigItem
*************************************************************************)

CONST

  cfgNone                     *= 0;
  cfgFirst                    *= 1;

  cfgSpacingWindowLeft        *= 1;
  cfgSpacingWindowRight       *= 2;
  cfgSpacingWindowBottom      *= 3;
  cfgSpacingWindowTop         *= 4;
  cfgSpacingHRadio            *= 5;
  cfgSpacingVRadio            *= 6;
  cfgGroupSpacingHoriz        *= 7;
  cfgGroupSpacingVert         *= 8;
  cfgScrollbarType            *= 9;
  cfgListRefreshType         *= 10;
  cfgListviewStretch         *= 11;
  cfgListviewSmooth          *= 12;
  cfgMultiSelType            *= 13;
  cfgFrameType               *= 14;
  cfgGroupTitlePos           *= 15;
  cfgGroupTitleColor         *= 16;
  cfgMinPop                  *= 17;
  cfgPopPosition             *= 18;
  cfgIconifyGadget           *= 19;
  cfgIconifyIcon             *= 20;
  cfgDummyWasStartIconified  *= 21;
  cfgRegisterLevel           *= 22;
  cfgRegisterMax             *= 23;
  cfgDragFrame               *= 24;
  cfgPopupRecessed           *= 25;
  cfgPopupSpeed              *= 26;
  cfgListPixelType           *= 27;
  cfgRefreshType             *= 28;
  cfgRedrawType              *= 29;
  cfgNormalFont              *= 30;
  cfgListFont                *= 31;
  cfgTinyFont                *= 32;
  cfgFixedFont               *= 33;
  cfgTitleFont               *= 34;
  cfgBigFont                 *= 35;
  cfgPublicScreen            *= 36;
  cfgIconifyX                *= 37;
  cfgIconifyY                *= 38;
  cfgShutdownCommand         *= 39;
  cfgStartupCommand          *= 40;
  cfgHotkey                  *= 41;
  cfgFramesNone              *= 42;
  cfgFramesButton            *= 43;
  cfgFramesImageButton       *= 44;
  cfgFramesText              *= 45;
  cfgFramesString            *= 46;
  cfgFramesReadList          *= 47;
  cfgFramesInputList         *= 48;
  cfgFramesProp              *= 49;
  cfgFramesGauge             *= 50;
  cfgFramesGroup             *= 51;
  cfgFramesPopUp             *= 52;
  cfgFramesVirtual           *= 53;
  cfgFramesSlider            *= 54;
  cfgImagesWindowBack        *= 55;
  cfgImagesRequesterBack     *= 56;
  cfgImagesButtonBack        *= 57;
  cfgImagesListBack          *= 58;
  cfgImagesTextBack          *= 59;
  cfgImagesPropBack          *= 60;
  cfgImagesPopupBack         *= 61;
  cfgImagesSelectedBack      *= 62;
  cfgImagesListCursor        *= 63;
  cfgImagesListSelect        *= 64;
  cfgImagesListSelCur        *= 65;
  cfgImagesArrowUp           *= 66;
  cfgImagesArrowDown         *= 67;
  cfgImagesArrowLeft         *= 68;
  cfgImagesArrowRight        *= 69;
  cfgImagesCheckMark         *= 70;
  cfgImagesRadioButton       *= 71;
  cfgImagesCycle             *= 72;
  cfgImagesPopUp             *= 73;
  cfgImagesPopFile           *= 74;
  cfgImagesPopDrawer         *= 75;
  cfgImagesPropKnob          *= 76;
  cfgImagesDrawer            *= 77;
  cfgImagesHardDisk          *= 78;
  cfgImagesDisk              *= 79;
  cfgImagesChip              *= 80;
  cfgImagesVolume            *= 81;
  cfgImagesNetwork           *= 82;
  cfgImagesAssign            *= 83;
  cfgDummyWasPopUpBack       *= 84;
  cfgImagesTapePlay          *= 85;
  cfgImagesTapePlayBack      *= 86;
  cfgImagesTapePause         *= 87;
  cfgImagesTapeStop          *= 88;
  cfgImagesTapeRecord        *= 89;
  cfgImagesGroupBack         *= 90;
  cfgImagesSliderBack        *= 91;
  cfgImagesSliderKnob        *= 92;
  cfgImagesTapeUp            *= 93;
  cfgImagesTapeDown          *= 94;
  cfgKeysPRESS               *= 95;
  cfgKeysTOGGLE              *= 96;
  cfgKeysUP                  *= 97;
  cfgKeysDOWN                *= 98;
  cfgKeysPAGEUP              *= 99;
  cfgKeysPAGEDOWN           *= 100;
  cfgKeysTOP                *= 101;
  cfgKeysBOTTOM             *= 102;
  cfgKeysLEFT               *= 103;
  cfgKeysRIGHT              *= 104;
  cfgKeysWORDLEFT           *= 105;
  cfgKeysWORDRIGHT          *= 106;
  cfgKeysLINESTART          *= 107;
  cfgKeysLINEEND            *= 108;
  cfgKeysGADGETNEXT        *= 109;
  cfgKeysGADGETPREV        *= 110;
  cfgKeysGADGETOFF         *= 111;
  cfgKeysWINDOWCLOSE       *= 112;
  cfgKeysWINDOWNEXT        *= 113;
  cfgKeysWINDOWPREV        *= 114;
  cfgKeysHELP               *= 115;
  cfgKeysPOPUP              *= 116;
  cfgJumpGadget             *= 117;
  cfgSnapshotGadget         *= 118;
  cfgPrefsGadget            *= 119;
  cfgPopupGadget            *= 120;
  cfgDummyWasHelpGadget     *= 121;
  cfgOnExitWindows          *= 122;
  cfgDummyWasPrefsGroupActive *= 123;
  cfgPopScreen              *= 124;
  cfgIconifyMenu            *= 125;
  cfgUseRexx                *= 126;
  cfgUseCommodities         *= 127;
  cfgButtonFont             *= 128;
  cfgFirstBubbleDelay       *= 129;
  cfgNextBubbleDelay        *= 130;
  cfgPropType               *= 131;
  cfgStringBack             *= 132;
  cfgStringColor            *= 133;
  cfgStringActiveBack       *= 134;
  cfgStringActiveColor      *= 135;
  cfgSliderFont             *= 136;
  cfgDragLMB                *= 137;
  cfgDragMMB                *= 138;
  cfgDragQualiLMB           *= 139;
  cfgDragQualiMMB           *= 140;
  cfgDragAuto               *= 141;
  cfgDragAutoPixel          *= 142;
  cfgActiveObjectPen        *= 143;
  cfgPopLMB                 *= 144;
  cfgPopMMB                 *= 145;
  cfgPopQualiLMB            *= 146;
  cfgPopQualiMMB            *= 147;

  cfgLast                   *= 147;
  cfgCount                  *= cfgLast - cfgFirst + 1;

(*************************************************************************
** Specification structures for images, pens, frames
*************************************************************************)

TYPE
  (* <*IF OberonA THEN*> $IF OberonA *)
  PenSpec *= RECORD [2];
  (* <* ELSE *> $ELSE *)
  PenSpec *= STRUCT
  (* <*END*> $END *)
	      buf : ARRAY 32 OF SYSTEM.BYTE;
	     END;

  (* <*IF OberonA THEN*> $IF OberonA *)
  ImageSpec *= RECORD [2]
  (* <* ELSE *> $ELSE *)
  ImageSpec *= STRUCT
  (* <*END*> $END *)
	      buf : ARRAY 64 OF SYSTEM.BYTE;
	     END;

  (* <*IF OberonA THEN*> $IF OberonA *)
  FrameSpec *= RECORD [2];
  (* <* ELSE *> $ELSE *)
  FrameSpec *= STRUCT
  (* <*END*> $END *)
	      buf : ARRAY 8 OF SYSTEM.BYTE;
	     END;

(***************************************************************************
** Object Types for MakeObject()
***************************************************************************)
CONST
  oLabel       *= 1;   (* STRPTR label, ULONG flags *)
  oButton      *= 2;   (* STRPTR label *)
  oCheckmark   *= 3;   (* STRPTR label *)
  oCycle       *= 4;   (* STRPTR label, STRPTR *entries *)
  oRadio       *= 5;   (* STRPTR label, STRPTR *entries *)
  oSlider      *= 6;   (* STRPTR label, LONG min, LONG max *)
  oString      *= 7;   (* STRPTR label, LONG maxlen *)
  oPopButton   *= 8;   (* STRPTR imagespec *)
  oHSpace      *= 9;   (* LONG space   *)
  oVSpace      *=10;   (* LONG space   *)
  oHBar        *=11;   (* LONG space   *)
  oVBar        *=12;   (* LONG space   *)
  oMenustripNM *=13;   (* struct NewMenu *nm, ULONG flags *)
  oMenuitem    *=14;   (* STRPTR label, STRPTR shortcut, ULONG flags, ULONG data  *)
  oBarTitle    *=15;   (* STRPTR label *)
  oNumericButton *=16;   (* STRPTR label, LONG min, LONG max, STRPTR format *)

CONST
  oLabelSingleFrame *= 00100H;
  oLabelDoubleFrame *= 00200H;
  oLabelLeftAligned *= 00400H;
  oLabelCentered    *= 00800H;
  oLabelFreeVert    *= 01000H;

  oMenustripNMCommandKeyCheck *= 00001H;

(***************************************************************************
** ARexx Interface
***************************************************************************)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  Command * = RECORD [2]
(* <* ELSE *> $ELSE *)
  Command * = STRUCT
(* <*END*> $END *)
    name            * : Exec.STRPTR;
    template        * : Exec.STRPTR;
    parameters      * : LONGINT;
    hook            * : Utility.HookPtr;
    reserved        * : ARRAY 5 OF LONGINT;
  END;

CONST
  templateID * = SYSTEM.VAL(Exec.STRPTR,-1);

  rxerrBADDEFINITION  *= -1;
  rxerrOUTOFMEMORY    *= -2;
  rxerrUNKNOWNCOMMAND *= -3;
  rxerrBADSYNTAX      *= -4;


(***************************************************************************
** Return values for Error()
***************************************************************************)

CONST

	eOK                  * = 0;
	eOutOfMemory         * = 1;
	eOutOfGfxMemory      * = 2;
	eInvalidWindowObject * = 3;
	eMissingLibrary      * = 4;
	eNoARexx             * = 5;
	eSingleTask          * = 6;


(***************************************************************************
** Standard MUI Images
***************************************************************************)

CONST
	iWindowBack    * =  0;  (* These images are configured   *)
	iRequesterBack * =  1;  (* with the preferences program. *)
	iButtonBack    * =  2;
	iListBack      * =  3;
	iTextBack      * =  4;
	iPropBack      * =  5;
	iPopupBack     * =  6;
	iSelectedBack  * =  7;
	iListCursor    * =  8;
	iListSelect    * =  9;
	iListSelCur    * = 10;
	iArrowUp       * = 11;
	iArrowDown     * = 12;
	iArrowLeft     * = 13;
	iArrowRight    * = 14;
	iCheckMark     * = 15;
	iRadioButton   * = 16;
	iCycle         * = 17;
	iPopUp         * = 18;
	iPopFile       * = 19;
	iPopDrawer     * = 20;
	iPropKnob      * = 21;
	iDrawer        * = 22;
	iHardDisk      * = 23;
	iDisk          * = 24;
	iChip          * = 25;
	iVolume        * = 26;
	iPopUpBack     * = 27;
	iNetwork       * = 28;
	iAssign        * = 29;
	iTapePlay      * = 30;
	iTapePlayBack  * = 31;
	iTapePause     * = 32;
	iTapeStop      * = 33;
	iTapeRecord    * = 34;
	iGroupBack     * = 35;
	iSliderBack    * = 36;
	iSliderKnob    * = 37;
	iTapeUp        * = 38;
	iTapeDown      * = 39;
	iCount         * = 40;

	iBACKGROUND    * = 128    (* These are direct color    *);
	iSHADOW        * = 129    (* combinations and are not  *);
	iSHINE         * = 130    (* affected by users prefs.  *);
	iFILL          * = 131;
	iSHADOWBACK    * = 132    (* Generally, you should     *);
	iSHADOWFILL    * = 133    (* avoid using them. Better  *);
	iSHADOWSHINE   * = 134    (* use one of the customized *);
	iFILLBACK      * = 135    (* images above.             *);
	iFILLSHINE     * = 136;
	iSHINEBACK     * = 137;
	iFILLBACK2     * = 138;
	iHSHINEBACK    * = 139;
	iHSHADOWBACK   * = 140;
	iHSHINESHINE   * = 141;
	iHSHADOWSHADOW * = 142;
	iLASTPAT       * = 142;

(***************************************************************************
** Special values for some methods
***************************************************************************)

CONST

	vTriggerValue    *= 49893131H;
	vNotTriggerValue *= 49893133H;
	vEveryTime       *= 49893131H;

	vNotifySelf        *= 1;
	vNotifyWindow      *= 2;
	vNotifyApplication *= 3;

	vApplicationSaveENV     * =  0;
	vApplicationSaveENVARC  * = -1;
	vApplicationLoadENV     * =  0;
	vApplicationLoadENVARC  * = -1;

	vApplicationReturnIDQuit * = -1;

	vListInsertTop       * =  0;
	vListInsertActive    * = -1;
	vListInsertSorted    * = -2;
	vListInsertBottom    * = -3;

	vListRemoveFirst     * =  0;
	vListRemoveActive    * = -1;
	vListRemoveLast      * = -2;
	vListRemoveSelected  * = -3;

	vListSelectOff       * =  0;
	vListSelectOn        * =  1;
	vListSelectToggle    * =  2;
	vListSelectAsk       * =  3;

	vListGetEntryActive  * = -1;
	vListSelectActive    * = -1;
	vListSelectAll       * = -2;

	vListRedrawActive    * = -1;
	vListRedrawAll       * = -2;

	vListMoveTop      * =  0;
	vListMoveActive   * = -1;
	vListMoveBottom   * = -2;
	vListMoveNext     * = -3; (* only valid for second parameter *)
	vListMovePrevious * = -4; (* only valid for second parameter *)

	vListExchangeTop      * =  0;
	vListExchangeActive   * = -1;
	vListExchangeBottom   * = -2;
	vListExchangeNext     * = -3; (* only valid for second parameter *)
	vListExchangePrevious * = -4; (* only valid for second parameter *)

	vListJumpTop         * =  0;
	vListJumpActive      * = -1;
	vListJumpBottom      * =  2;

	vColorpanelGetColorActive *= -1;
	vColorpanelSetColorActive *= -1;

	vListNextSelectedStart * = -1;
	vListNextSelectedEnd * = -1;
	
(***************************************************************************
** Control codes for text strings
***************************************************************************)
CONST
  xR *= "\033r";    (* right justified *)
  xC *= "\033c";    (* centered        *)
  xL *= "\033l";    (* left justified  *)

  xN *= "\033n";    (* normal     *)
  xB *= "\033b";    (* bold       *)
  xI *= "\033i";    (* italic     *)
  xU *= "\033u";    (* underlined *)

  xPT *= "\0332";   (* text pen           *)
  xPH *= "\0338";   (* highlight text pen *)


CONST

(*******************************************)
(* Begin of automatic header file creation *)
(*******************************************)




(****************************************************************************)
(** Notify                                                                 **)
(****************************************************************************)

  cNotify * = "Notify.mui";

(* Methods *)

  CONST mCallHook                       * = 8042B96BH; (* V4  *)
  CONST mFindUData                      * = 8042C196H; (* V8  *)
  CONST mGetUData                       * = 8042ED0CH; (* V8  *)
  CONST mKillNotify                     * = 8042D240H; (* V4  *)
  CONST mMultiSet                       * = 8042D356H; (* V7  *)
  CONST mNoNotifySet                    * = 8042216FH; (* V9  *)
  CONST mNotify                         * = 8042C9CBH; (* V4  *)
  CONST mSet                            * = 8042549AH; (* V4  *)
  CONST mSetAsString                    * = 80422590H; (* V4  *)
  CONST mSetUData                       * = 8042C920H; (* V8  *)
  CONST mSetUDataOnce                   * = 8042CA19H; (* V11 *)
  CONST mWriteLong                      * = 80428D86H; (* V6  *)
  CONST mWriteString                    * = 80424BF4H; (* V6  *)

(* Attributes *)

  CONST aApplicationObject              * = 8042D3EEH; (* V4  ..g Object *          *)
  CONST aAppMessage                     * = 80421955H; (* V5  ..g struct AppMessage * *)
  CONST aHelpLine                       * = 8042A825H; (* V4  isg LONG              *)
  CONST aHelpNode                       * = 80420B85H; (* V4  isg STRPTR            *)
  CONST aNoNotify                       * = 804237F9H; (* V7  .s. BOOL              *)
  CONST aParent                         * = 8042E35FH; (* V11 ..g Object *          *)
  CONST aRevision                       * = 80427EAAH; (* V4  ..g LONG              *)
  CONST aUserData                       * = 80420313H; (* V4  isg ULONG             *)
  CONST aVersion                        * = 80422301H; (* V4  ..g LONG              *)



(****************************************************************************)
(** Family                                                                 **)
(****************************************************************************)

  cFamily * = "Family.mui";

(* Methods *)

  CONST mFamilyAddHead                  * = 8042E200H; (* V8  *)
  CONST mFamilyAddTail                  * = 8042D752H; (* V8  *)
  CONST mFamilyInsert                   * = 80424D34H; (* V8  *)
  CONST mFamilyRemove                   * = 8042F8A9H; (* V8  *)
  CONST mFamilySort                     * = 80421C49H; (* V8  *)
  CONST mFamilyTransfer                 * = 8042C14AH; (* V8  *)

(* Attributes *)

  CONST aFamilyChild                    * = 8042C696H; (* V8  i.. Object *          *)
  CONST aFamilyList                     * = 80424B9EH; (* V8  ..g struct MinList *  *)



(****************************************************************************)
(** Menustrip                                                              **)
(****************************************************************************)

  cMenustrip * = "Menustrip.mui";

(* Methods *)


(* Attributes *)

  CONST aMenustripEnabled               * = 8042815BH; (* V8  isg BOOL              *)



(****************************************************************************)
(** Menu                                                                   **)
(****************************************************************************)

  cMenu * = "Menu.mui";

(* Methods *)


(* Attributes *)

  CONST aMenuEnabled                    * = 8042ED48H; (* V8  isg BOOL              *)
  CONST aMenuTitle                      * = 8042A0E3H; (* V8  isg STRPTR            *)



(****************************************************************************)
(** Menuitem                                                               **)
(****************************************************************************)

  cMenuitem * = "Menuitem.mui";

(* Methods *)


(* Attributes *)

  CONST aMenuitemChecked                * = 8042562AH; (* V8  isg BOOL              *)
  CONST aMenuitemCheckit                * = 80425ACEH; (* V8  isg BOOL              *)
  CONST aMenuitemEnabled                * = 8042AE0FH; (* V8  isg BOOL              *)
  CONST aMenuitemExclude                * = 80420BC6H; (* V8  isg LONG              *)
  CONST aMenuitemShortcut               * = 80422030H; (* V8  isg STRPTR            *)
  CONST aMenuitemTitle                  * = 804218BEH; (* V8  isg STRPTR            *)
  CONST aMenuitemToggle                 * = 80424D5CH; (* V8  isg BOOL              *)
  CONST aMenuitemTrigger                * = 80426F32H; (* V8  ..g struct MenuItem * *)

  CONST vMenuitemShortcutCheck          * = SYSTEM.VAL(Exec.LSTRPTR,-1);


(****************************************************************************)
(** Application                                                            **)
(****************************************************************************)

  cApplication * = "Application.mui";

(* Methods *)

  CONST mApplicationAddInputHandler     * = 8042F099H; (* V11 *)
  CONST mApplicationCheckRefresh        * = 80424D68H; (* V11 *)
  CONST mApplicationGetMenuCheck        * = 8042C0A7H; (* V4  *)
  CONST mApplicationGetMenuState        * = 8042A58FH; (* V4  *)
  CONST mApplicationInput               * = 8042D0F5H; (* V4  *)
  CONST mApplicationInputBuffered       * = 80427E59H; (* V4  *)
  CONST mApplicationLoad                * = 8042F90DH; (* V4  *)
  CONST mApplicationNewInput            * = 80423BA6H; (* V11 *)
  CONST mApplicationOpenConfigWindow    * = 804299BAH; (* V11 *)
  CONST mApplicationPushMethod          * = 80429EF8H; (* V4  *)
  CONST mApplicationRemInputHandler     * = 8042E7AFH; (* V11 *)
  CONST mApplicationReturnID            * = 804276EFH; (* V4  *)
  CONST mApplicationSave                * = 804227EFH; (* V4  *)
  CONST mApplicationSetConfigItem       * = 80424A80H; (* V11 *)
  CONST mApplicationSetMenuCheck        * = 8042A707H; (* V4  *)
  CONST mApplicationSetMenuState        * = 80428BEFH; (* V4  *)
  CONST mApplicationShowHelp            * = 80426479H; (* V4  *)

(* Attributes *)

  CONST aApplicationActive              * = 804260ABH; (* V4  isg BOOL              *)
  CONST aApplicationAuthor              * = 80424842H; (* V4  i.g STRPTR            *)
  CONST aApplicationBase                * = 8042E07AH; (* V4  i.g STRPTR            *)
  CONST aApplicationBroker              * = 8042DBCEH; (* V4  ..g Broker *          *)
  CONST aApplicationBrokerHook          * = 80428F4BH; (* V4  isg struct Hook *     *)
  CONST aApplicationBrokerPort          * = 8042E0ADH; (* V6  ..g struct MsgPort *  *)
  CONST aApplicationBrokerPri           * = 8042C8D0H; (* V6  i.g LONG              *)
  CONST aApplicationCommands            * = 80428648H; (* V4  isg struct MUI_Command * *)
  CONST aApplicationCopyright           * = 8042EF4DH; (* V4  i.g STRPTR            *)
  CONST aApplicationDescription         * = 80421FC6H; (* V4  i.g STRPTR            *)
  CONST aApplicationDiskObject          * = 804235CBH; (* V4  isg struct DiskObject * *)
  CONST aApplicationDoubleStart         * = 80423BC6H; (* V4  ..g BOOL              *)
  CONST aApplicationDropObject          * = 80421266H; (* V5  is. Object *          *)
  CONST aApplicationForceQuit           * = 804257DFH; (* V8  ..g BOOL              *)
  CONST aApplicationHelpFile            * = 804293F4H; (* V8  isg STRPTR            *)
  CONST aApplicationIconified           * = 8042A07FH; (* V4  .sg BOOL              *)
  CONST aApplicationMenu                * = 80420E1FH; (* V4  i.g struct NewMenu *  *)
  CONST aApplicationMenuAction          * = 80428961H; (* V4  ..g ULONG             *)
  CONST aApplicationMenuHelp            * = 8042540BH; (* V4  ..g ULONG             *)
  CONST aApplicationMenustrip           * = 804252D9H; (* V8  i.. Object *          *)
  CONST aApplicationRexxHook            * = 80427C42H; (* V7  isg struct Hook *     *)
  CONST aApplicationRexxMsg             * = 8042FD88H; (* V4  ..g struct RxMsg *    *)
  CONST aApplicationRexxString          * = 8042D711H; (* V4  .s. STRPTR            *)
  CONST aApplicationSingleTask          * = 8042A2C8H; (* V4  i.. BOOL              *)
  CONST aApplicationSleep               * = 80425711H; (* V4  .s. BOOL              *)
  CONST aApplicationTitle               * = 804281B8H; (* V4  i.g STRPTR            *)
  CONST aApplicationUseCommodities      * = 80425EE5H; (* V10 i.. BOOL              *)
  CONST aApplicationUseRexx             * = 80422387H; (* V10 i.. BOOL              *)
  CONST aApplicationVersion             * = 8042B33FH; (* V4  i.g STRPTR            *)
  CONST aApplicationWindow              * = 8042BFE0H; (* V4  i.. Object *          *)



(****************************************************************************)
(** Window                                                                 **)
(****************************************************************************)

  cWindow * = "Window.mui";

(* Methods *)

  CONST mWindowGetMenuCheck             * = 80420414H; (* V4  *)
  CONST mWindowGetMenuState             * = 80420D2FH; (* V4  *)
  CONST mWindowScreenToBack             * = 8042913DH; (* V4  *)
  CONST mWindowScreenToFront            * = 804227A4H; (* V4  *)
  CONST mWindowSetCycleChain            * = 80426510H; (* V4  *)
  CONST mWindowSetMenuCheck             * = 80422243H; (* V4  *)
  CONST mWindowSetMenuState             * = 80422B5EH; (* V4  *)
  CONST mWindowToBack                   * = 8042152EH; (* V4  *)
  CONST mWindowToFront                  * = 8042554FH; (* V4  *)

(* Attributes *)

  CONST aWindowActivate                 * = 80428D2FH; (* V4  isg BOOL              *)
  CONST aWindowActiveObject             * = 80427925H; (* V4  .sg Object *          *)
  CONST aWindowAltHeight                * = 8042CCE3H; (* V4  i.g LONG              *)
  CONST aWindowAltLeftEdge              * = 80422D65H; (* V4  i.g LONG              *)
  CONST aWindowAltTopEdge               * = 8042E99BH; (* V4  i.g LONG              *)
  CONST aWindowAltWidth                 * = 804260F4H; (* V4  i.g LONG              *)
  CONST aWindowAppWindow                * = 804280CFH; (* V5  i.. BOOL              *)
  CONST aWindowBackdrop                 * = 8042C0BBH; (* V4  i.. BOOL              *)
  CONST aWindowBorderless               * = 80429B79H; (* V4  i.. BOOL              *)
  CONST aWindowCloseGadget              * = 8042A110H; (* V4  i.. BOOL              *)
  CONST aWindowCloseRequest             * = 8042E86EH; (* V4  ..g BOOL              *)
  CONST aWindowDefaultObject            * = 804294D7H; (* V4  isg Object *          *)
  CONST aWindowDepthGadget              * = 80421923H; (* V4  i.. BOOL              *)
  CONST aWindowDragBar                  * = 8042045DH; (* V4  i.. BOOL              *)
  CONST aWindowFancyDrawing             * = 8042BD0EH; (* V8  isg BOOL              *)
  CONST aWindowHeight                   * = 80425846H; (* V4  i.g LONG              *)
  CONST aWindowID                       * = 804201BDH; (* V4  isg ULONG             *)
  CONST aWindowInputEvent               * = 804247D8H; (* V4  ..g struct InputEvent * *)
  CONST aWindowLeftEdge                 * = 80426C65H; (* V4  i.g LONG              *)
  CONST aWindowMenu                     * = 8042DB94H; (* V4  i.. struct NewMenu *  *)
  CONST aWindowMenuAction               * = 80427521H; (* V8  isg ULONG             *)
  CONST aWindowMenustrip                * = 8042855EH; (* V8  i.g Object *          *)
  CONST aWindowMouseObject              * = 8042BF9BH; (* V10 ..g Object *          *)
  CONST aWindowNeedsMouseObject         * = 8042372AH; (* V10 i.. BOOL              *)
  CONST aWindowNoMenus                  * = 80429DF5H; (* V4  is. BOOL              *)
  CONST aWindowOpen                     * = 80428AA0H; (* V4  .sg BOOL              *)
  CONST aWindowPublicScreen             * = 804278E4H; (* V6  isg STRPTR            *)
  CONST aWindowRefWindow                * = 804201F4H; (* V4  is. Object *          *)
  CONST aWindowRootObject               * = 8042CBA5H; (* V4  isg Object *          *)
  CONST aWindowScreen                   * = 8042DF4FH; (* V4  isg struct Screen *   *)
  CONST aWindowScreenTitle              * = 804234B0H; (* V5  isg STRPTR            *)
  CONST aWindowSizeGadget               * = 8042E33DH; (* V4  i.. BOOL              *)
  CONST aWindowSizeRight                * = 80424780H; (* V4  i.. BOOL              *)
  CONST aWindowSleep                    * = 8042E7DBH; (* V4  .sg BOOL              *)
  CONST aWindowTitle                    * = 8042AD3DH; (* V4  isg STRPTR            *)
  CONST aWindowTopEdge                  * = 80427C66H; (* V4  i.g LONG              *)
  CONST aWindowWidth                    * = 8042DCAEH; (* V4  i.g LONG              *)
  CONST aWindowWindow                   * = 80426A42H; (* V4  ..g struct Window *   *)

  CONST vWindowActiveObjectNone         * = 0;
  CONST vWindowActiveObjectNext         * = -1;
  CONST vWindowActiveObjectPrev         * = -2;
  CONST vWindowAltHeightScaled          * = -1000;
  CONST vWindowAltLeftEdgeCentered      * = -1;
  CONST vWindowAltLeftEdgeMoused        * = -2;
  CONST vWindowAltLeftEdgeNoChange      * = -1000;
  CONST vWindowAltTopEdgeCentered       * = -1;
  CONST vWindowAltTopEdgeMoused         * = -2;
  CONST vWindowAltTopEdgeNoChange       * = -1000;
  CONST vWindowAltWidthScaled           * = -1000;
  CONST vWindowHeightScaled             * = -1000;
  CONST vWindowHeightDefault            * = -1001;
  CONST vWindowLeftEdgeCentered         * = -1;
  CONST vWindowLeftEdgeMoused           * = -2;
  CONST vWindowMenuNoMenu               * = -1;
  CONST vWindowTopEdgeCentered          * = -1;
  CONST vWindowTopEdgeMoused            * = -2;
  CONST vWindowWidthScaled              * = -1000;
  CONST vWindowWidthDefault             * = -1001;


(****************************************************************************)
(** Aboutmui                                                               **)
(****************************************************************************)

  cAboutmui * = "Aboutmui.mui";

(* Methods *)


(* Attributes *)

  CONST aAboutmuiApplication            * = 80422523H; (* V11 i.. Object *          *)



(****************************************************************************)
(** Area                                                                   **)
(****************************************************************************)

  cArea * = "Area.mui";

(* Methods *)

  CONST mAskMinMax                      * = 80423874H; (* V4  *)
  CONST mCleanup                        * = 8042D985H; (* V4  *)
  CONST mContextMenuBuild               * = 80429D2EH; (* V11 *)
  CONST mContextMenuChoice              * = 80420F0EH; (* V11 *)
  CONST mDragBegin                      * = 8042C03AH; (* V11 *)
  CONST mDragDrop                       * = 8042C555H; (* V11 *)
  CONST mDragFinish                     * = 804251F0H; (* V11 *)
  CONST mDragQuery                      * = 80420261H; (* V11 *)
  CONST mDragReport                     * = 8042EDADH; (* V11 *)
  CONST mDraw                           * = 80426F3FH; (* V4  *)
  CONST mHandleInput                    * = 80422A1AH; (* V4  *)
  CONST mHide                           * = 8042F20FH; (* V4  *)
  CONST mSetup                          * = 80428354H; (* V4  *)
  CONST mShow                           * = 8042CC84H; (* V4  *)

(* Attributes *)

  CONST aBackground                     * = 8042545BH; (* V4  is. LONG              *)
  CONST aBottomEdge                     * = 8042E552H; (* V4  ..g LONG              *)
  CONST aContextMenu                    * = 8042B704H; (* V11 isg Object *          *)
  CONST aContextMenuTrigger             * = 8042A2C1H; (* V11 ..g Object *          *)
  CONST aControlChar                    * = 8042120BH; (* V4  isg char              *)
  CONST aCycleChain                     * = 80421CE7H; (* V11 isg LONG              *)
  CONST aDisabled                       * = 80423661H; (* V4  isg BOOL              *)
  CONST aDraggable                      * = 80420B6EH; (* V11 isg BOOL              *)
  CONST aDropable                       * = 8042FBCEH; (* V11 isg BOOL              *)
  CONST aExportID                       * = 8042D76EH; (* V4  isg ULONG             *)
  CONST aFixHeight                      * = 8042A92BH; (* V4  i.. LONG              *)
  CONST aFixHeightTxt                   * = 804276F2H; (* V4  i.. STRPTR            *)
  CONST aFixWidth                       * = 8042A3F1H; (* V4  i.. LONG              *)
  CONST aFixWidthTxt                    * = 8042D044H; (* V4  i.. STRPTR            *)
  CONST aFont                           * = 8042BE50H; (* V4  i.g struct TextFont * *)
  CONST aFrame                          * = 8042AC64H; (* V4  i.. LONG              *)
  CONST aFramePhantomHoriz              * = 8042ED76H; (* V4  i.. BOOL              *)
  CONST aFrameTitle                     * = 8042D1C7H; (* V4  i.. STRPTR            *)
  CONST aHeight                         * = 80423237H; (* V4  ..g LONG              *)
  CONST aHorizDisappear                 * = 80429615H; (* V11 isg LONG              *)
  CONST aHorizWeight                    * = 80426DB9H; (* V4  i.. WORD              *)
  CONST aInnerBottom                    * = 8042F2C0H; (* V4  i.. LONG              *)
  CONST aInnerLeft                      * = 804228F8H; (* V4  i.. LONG              *)
  CONST aInnerRight                     * = 804297FFH; (* V4  i.. LONG              *)
  CONST aInnerTop                       * = 80421EB6H; (* V4  i.. LONG              *)
  CONST aInputMode                      * = 8042FB04H; (* V4  i.. LONG              *)
  CONST aLeftEdge                       * = 8042BEC6H; (* V4  ..g LONG              *)
  CONST aMaxHeight                      * = 804293E4H; (* V11 i.. LONG              *)
  CONST aMaxWidth                       * = 8042F112H; (* V11 i.. LONG              *)
  CONST aObjectID                       * = 8042D76EH; (* V11 isg ULONG             *)
  CONST aPressed                        * = 80423535H; (* V4  ..g BOOL              *)
  CONST aRightEdge                      * = 8042BA82H; (* V4  ..g LONG              *)
  CONST aSelected                       * = 8042654BH; (* V4  isg BOOL              *)
  CONST aShortHelp                      * = 80428FE3H; (* V11 isg STRPTR            *)
  CONST aShowMe                         * = 80429BA8H; (* V4  isg BOOL              *)
  CONST aShowSelState                   * = 8042CAACH; (* V4  i.. BOOL              *)
  CONST aTimer                          * = 80426435H; (* V4  ..g LONG              *)
  CONST aTopEdge                        * = 8042509BH; (* V4  ..g LONG              *)
  CONST aVertDisappear                  * = 8042D12FH; (* V11 isg LONG              *)
  CONST aVertWeight                     * = 804298D0H; (* V4  i.. WORD              *)
  CONST aWeight                         * = 80421D1FH; (* V4  i.. WORD              *)
  CONST aWidth                          * = 8042B59CH; (* V4  ..g LONG              *)
  CONST aWindow                         * = 80421591H; (* V4  ..g struct Window *   *)
  CONST aWindowObject                   * = 8042669EH; (* V4  ..g Object *          *)

  CONST vFontInherit                    * = 0;
  CONST vFontNormal                     * = -1;
  CONST vFontList                       * = -2;
  CONST vFontTiny                       * = -3;
  CONST vFontFixed                      * = -4;
  CONST vFontTitle                      * = -5;
  CONST vFontBig                        * = -6;
  CONST vFontButton                     * = -7;
  CONST vFrameNone                      * = 0;
  CONST vFrameButton                    * = 1;
  CONST vFrameImageButton               * = 2;
  CONST vFrameText                      * = 3;
  CONST vFrameString                    * = 4;
  CONST vFrameReadList                  * = 5;
  CONST vFrameInputList                 * = 6;
  CONST vFrameProp                      * = 7;
  CONST vFrameGauge                     * = 8;
  CONST vFrameGroup                     * = 9;
  CONST vFramePopUp                     * = 10;
  CONST vFrameVirtual                   * = 11;
  CONST vFrameSlider                    * = 12;
  CONST vFrameCount                     * = 13;
  CONST vInputModeNone                  * = 0;
  CONST vInputModeRelVerify             * = 1;
  CONST vInputModeImmediate             * = 2;
  CONST vInputModeToggle                * = 3;


(****************************************************************************)
(** Rectangle                                                              **)
(****************************************************************************)

  cRectangle * = "Rectangle.mui";

(* Attributes *)

  CONST aRectangleBarTitle              * = 80426689H; (* V11 i.g STRPTR            *)
  CONST aRectangleHBar                  * = 8042C943H; (* V7  i.g BOOL              *)
  CONST aRectangleVBar                  * = 80422204H; (* V7  i.g BOOL              *)



(****************************************************************************)
(** Balance                                                                **)
(****************************************************************************)

  cBalance * = "Balance.mui";


(****************************************************************************)
(** Image                                                                  **)
(****************************************************************************)

  cImage * = "Image.mui";

(* Attributes *)

  CONST aImageFontMatch                 * = 8042815DH; (* V4  i.. BOOL              *)
  CONST aImageFontMatchHeight           * = 80429F26H; (* V4  i.. BOOL              *)
  CONST aImageFontMatchWidth            * = 804239BFH; (* V4  i.. BOOL              *)
  CONST aImageFreeHoriz                 * = 8042DA84H; (* V4  i.. BOOL              *)
  CONST aImageFreeVert                  * = 8042EA28H; (* V4  i.. BOOL              *)
  CONST aImageOldImage                  * = 80424F3DH; (* V4  i.. struct Image *    *)
  CONST aImageSpec                      * = 804233D5H; (* V4  i.. char *            *)
  CONST aImageState                     * = 8042A3ADH; (* V4  is. LONG              *)



(****************************************************************************)
(** Bitmap                                                                 **)
(****************************************************************************)

  cBitmap * = "Bitmap.mui";

(* Attributes *)

  CONST aBitmapBitmap                   * = 804279BDH; (* V8  isg struct BitMap *   *)
  CONST aBitmapHeight                   * = 80421560H; (* V8  isg LONG              *)
  CONST aBitmapMappingTable             * = 8042E23DH; (* V8  isg UBYTE *           *)
  CONST aBitmapPrecision                * = 80420C74H; (* V11 isg LONG              *)
  CONST aBitmapRemappedBitmap           * = 80423A47H; (* V11 ..g struct BitMap *   *)
  CONST aBitmapSourceColors             * = 80425360H; (* V8  isg ULONG *           *)
  CONST aBitmapTransparent              * = 80422805H; (* V8  isg LONG              *)
  CONST aBitmapUseFriend                * = 804239D8H; (* V11 i.. BOOL              *)
  CONST aBitmapWidth                    * = 8042EB3AH; (* V8  isg LONG              *)



(****************************************************************************)
(** Bodychunk                                                              **)
(****************************************************************************)

  cBodychunk * = "Bodychunk.mui";

(* Attributes *)

  CONST aBodychunkBody                  * = 8042CA67H; (* V8  isg UBYTE *           *)
  CONST aBodychunkCompression           * = 8042DE5FH; (* V8  isg UBYTE             *)
  CONST aBodychunkDepth                 * = 8042C392H; (* V8  isg LONG              *)
  CONST aBodychunkMasking               * = 80423B0EH; (* V8  isg UBYTE             *)



(****************************************************************************)
(** Text                                                                   **)
(****************************************************************************)

  cText * = "Text.mui";

(* Attributes *)

  CONST aTextContents                   * = 8042F8DCH; (* V4  isg STRPTR            *)
  CONST aTextHiChar                     * = 804218FFH; (* V4  i.. char              *)
  CONST aTextPreParse                   * = 8042566DH; (* V4  isg STRPTR            *)
  CONST aTextSetMax                     * = 80424D0AH; (* V4  i.. BOOL              *)
  CONST aTextSetMin                     * = 80424E10H; (* V4  i.. BOOL              *)
  CONST aTextSetVMax                    * = 80420D8BH; (* V11 i.. BOOL              *)



(****************************************************************************)
(** Gadget                                                                 **)
(****************************************************************************)

  cGadget * = "Gadget.mui";

(* Attributes *)




(****************************************************************************)
(** String                                                                 **)
(****************************************************************************)

  cString * = "String.mui";

(* Attributes *)

  CONST aStringAccept                   * = 8042E3E1H; (* V4  isg STRPTR            *)
  CONST aStringAcknowledge              * = 8042026CH; (* V4  ..g STRPTR            *)
  CONST aStringAdvanceOnCR              * = 804226DEH; (* V11 isg BOOL              *)
  CONST aStringAttachedList             * = 80420FD2H; (* V4  i.. Object *          *)
  CONST aStringBufferPos                * = 80428B6CH; (* V4  .s. LONG              *)
  CONST aStringContents                 * = 80428FFDH; (* V4  isg STRPTR            *)
  CONST aStringDisplayPos               * = 8042CCBFH; (* V4  .s. LONG              *)
  CONST aStringEditHook                 * = 80424C33H; (* V7  isg struct Hook *     *)
  CONST aStringFormat                   * = 80427484H; (* V4  i.g LONG              *)
  CONST aStringInteger                  * = 80426E8AH; (* V4  isg ULONG             *)
  CONST aStringLonelyEditHook           * = 80421569H; (* V11 isg BOOL              *)
  CONST aStringMaxLen                   * = 80424984H; (* V4  i.g LONG              *)
  CONST aStringReject                   * = 8042179CH; (* V4  isg STRPTR            *)
  CONST aStringSecret                   * = 80428769H; (* V4  i.g BOOL              *)

  CONST vStringFormatLeft               * = 0;
  CONST vStringFormatCenter             * = 1;
  CONST vStringFormatRight              * = 2;


(****************************************************************************)
(** Boopsi                                                                 **)
(****************************************************************************)

  cBoopsi * = "Boopsi.mui";

(* Attributes *)

  CONST aBoopsiClass                    * = 80426999H; (* V4  isg struct IClass *   *)
  CONST aBoopsiClassID                  * = 8042BFA3H; (* V4  isg char *            *)
  CONST aBoopsiMaxHeight                * = 8042757FH; (* V4  isg ULONG             *)
  CONST aBoopsiMaxWidth                 * = 8042BCB1H; (* V4  isg ULONG             *)
  CONST aBoopsiMinHeight                * = 80422C93H; (* V4  isg ULONG             *)
  CONST aBoopsiMinWidth                 * = 80428FB2H; (* V4  isg ULONG             *)
  CONST aBoopsiObject                   * = 80420178H; (* V4  ..g Object *          *)
  CONST aBoopsiRemember                 * = 8042F4BDH; (* V4  i.. ULONG             *)
  CONST aBoopsiSmart                    * = 8042B8D7H; (* V9  i.. BOOL              *)
  CONST aBoopsiTagDrawInfo              * = 8042BAE7H; (* V4  isg ULONG             *)
  CONST aBoopsiTagScreen                * = 8042BC71H; (* V4  isg ULONG             *)
  CONST aBoopsiTagWindow                * = 8042E11DH; (* V4  isg ULONG             *)



(****************************************************************************)
(** Prop                                                                   **)
(****************************************************************************)

  cProp * = "Prop.mui";

(* Attributes *)

  CONST aPropEntries                    * = 8042FBDBH; (* V4  isg LONG              *)
  CONST aPropFirst                      * = 8042D4B2H; (* V4  isg LONG              *)
  CONST aPropHoriz                      * = 8042F4F3H; (* V4  i.g BOOL              *)
  CONST aPropSlider                     * = 80429C3AH; (* V4  isg BOOL              *)
  CONST aPropVisible                    * = 8042FEA6H; (* V4  isg LONG              *)



(****************************************************************************)
(** Gauge                                                                  **)
(****************************************************************************)

  cGauge * = "Gauge.mui";

(* Attributes *)

  CONST aGaugeCurrent                   * = 8042F0DDH; (* V4  isg LONG              *)
  CONST aGaugeDivide                    * = 8042D8DFH; (* V4  isg BOOL              *)
  CONST aGaugeHoriz                     * = 804232DDH; (* V4  i.. BOOL              *)
  CONST aGaugeInfoText                  * = 8042BF15H; (* V7  isg STRPTR            *)
  CONST aGaugeMax                       * = 8042BCDBH; (* V4  isg LONG              *)



(****************************************************************************)
(** Scale                                                                  **)
(****************************************************************************)

  cScale * = "Scale.mui";

(* Attributes *)

  CONST aScaleHoriz                     * = 8042919AH; (* V4  isg BOOL              *)



(****************************************************************************)
(** Colorfield                                                             **)
(****************************************************************************)

  cColorfield * = "Colorfield.mui";

(* Attributes *)

  CONST aColorfieldBlue                 * = 8042D3B0H; (* V4  isg ULONG             *)
  CONST aColorfieldGreen                * = 80424466H; (* V4  isg ULONG             *)
  CONST aColorfieldPen                  * = 8042713AH; (* V4  ..g ULONG             *)
  CONST aColorfieldRed                  * = 804279F6H; (* V4  isg ULONG             *)
  CONST aColorfieldRGB                  * = 8042677AH; (* V4  isg ULONG *           *)



(****************************************************************************)
(** List                                                                   **)
(****************************************************************************)

  cList * = "List.mui";

(* Methods *)

  CONST mListClear                      * = 8042AD89H; (* V4  *)
  CONST mListCreateImage                * = 80429804H; (* V11 *)
  CONST mListDeleteImage                * = 80420F58H; (* V11 *)
  CONST mListExchange                   * = 8042468CH; (* V4  *)
  CONST mListGetEntry                   * = 804280ECH; (* V4  *)
  CONST mListInsert                     * = 80426C87H; (* V4  *)
  CONST mListInsertSingle               * = 804254D5H; (* V7  *)
  CONST mListJump                       * = 8042BAABH; (* V4  *)
  CONST mListMove                       * = 804253C2H; (* V9  *)
  CONST mListNextSelected               * = 80425F17H; (* V6  *)
  CONST mListRedraw                     * = 80427993H; (* V4  *)
  CONST mListRemove                     * = 8042647EH; (* V4  *)
  CONST mListSelect                     * = 804252D8H; (* V4  *)
  CONST mListSort                       * = 80422275H; (* V4  *)
  CONST mListTestPos                    * = 80425F48H; (* V11 *)

(* Attributes *)

  CONST aListActive                     * = 8042391CH; (* V4  isg LONG              *)
  CONST aListAdjustHeight               * = 8042850DH; (* V4  i.. BOOL              *)
  CONST aListAdjustWidth                * = 8042354AH; (* V4  i.. BOOL              *)
  CONST aListAutoVisible                * = 8042A445H; (* V11 isg BOOL              *)
  CONST aListCompareHook                * = 80425C14H; (* V4  is. struct Hook *     *)
  CONST aListConstructHook              * = 8042894FH; (* V4  is. struct Hook *     *)
  CONST aListDestructHook               * = 804297CEH; (* V4  is. struct Hook *     *)
  CONST aListDisplayHook                * = 8042B4D5H; (* V4  is. struct Hook *     *)
  CONST aListDragSortable               * = 80426099H; (* V11 isg BOOL              *)
  CONST aListDropMark                   * = 8042ABA6H; (* V11 ..g LONG              *)
  CONST aListEntries                    * = 80421654H; (* V4  ..g LONG              *)
  CONST aListFirst                      * = 804238D4H; (* V4  ..g LONG              *)
  CONST aListFormat                     * = 80423C0AH; (* V4  isg STRPTR            *)
  CONST aListInsertPosition             * = 8042D0CDH; (* V9  ..g LONG              *)
  CONST aListMinLineHeight              * = 8042D1C3H; (* V4  i.. LONG              *)
  CONST aListMultiTestHook              * = 8042C2C6H; (* V4  is. struct Hook *     *)
  CONST aListQuiet                      * = 8042D8C7H; (* V4  .s. BOOL              *)
  CONST aListShowDropMarks              * = 8042C6F3H; (* V11 isg BOOL              *)
  CONST aListSourceArray                * = 8042C0A0H; (* V4  i.. APTR              *)
  CONST aListTitle                      * = 80423E66H; (* V6  isg char *            *)
  CONST aListVisible                    * = 8042191FH; (* V4  ..g LONG              *)

  CONST vListActiveOff                  * = -1;
  CONST vListActiveTop                  * = -2;
  CONST vListActiveBottom               * = -3;
  CONST vListActiveUp                   * = -4;
  CONST vListActiveDown                 * = -5;
  CONST vListActivePageUp               * = -6;
  CONST vListActivePageDown             * = -7;
  CONST vListConstructHookString        * = -1;
  CONST vListDestructHookString         * = -1;


(****************************************************************************)
(** Floattext                                                              **)
(****************************************************************************)

  cFloattext * = "Floattext.mui";

(* Attributes *)

  CONST aFloattextJustify               * = 8042DC03H; (* V4  isg BOOL              *)
  CONST aFloattextSkipChars             * = 80425C7DH; (* V4  is. STRPTR            *)
  CONST aFloattextTabSize               * = 80427D17H; (* V4  is. LONG              *)
  CONST aFloattextText                  * = 8042D16AH; (* V4  isg STRPTR            *)



(****************************************************************************)
(** Volumelist                                                             **)
(****************************************************************************)

  cVolumelist * = "Volumelist.mui";


(****************************************************************************)
(** Scrmodelist                                                            **)
(****************************************************************************)

  cScrmodelist * = "Scrmodelist.mui";

(* Attributes *)




(****************************************************************************)
(** Dirlist                                                                **)
(****************************************************************************)

  cDirlist * = "Dirlist.mui";

(* Methods *)

  CONST mDirlistReRead                  * = 80422D71H; (* V4  *)

(* Attributes *)

  CONST aDirlistAcceptPattern           * = 8042760AH; (* V4  is. STRPTR            *)
  CONST aDirlistDirectory               * = 8042EA41H; (* V4  isg STRPTR            *)
  CONST aDirlistDrawersOnly             * = 8042B379H; (* V4  is. BOOL              *)
  CONST aDirlistFilesOnly               * = 8042896AH; (* V4  is. BOOL              *)
  CONST aDirlistFilterDrawers           * = 80424AD2H; (* V4  is. BOOL              *)
  CONST aDirlistFilterHook              * = 8042AE19H; (* V4  is. struct Hook *     *)
  CONST aDirlistMultiSelDirs            * = 80428653H; (* V6  is. BOOL              *)
  CONST aDirlistNumBytes                * = 80429E26H; (* V4  ..g LONG              *)
  CONST aDirlistNumDrawers              * = 80429CB8H; (* V4  ..g LONG              *)
  CONST aDirlistNumFiles                * = 8042A6F0H; (* V4  ..g LONG              *)
  CONST aDirlistPath                    * = 80426176H; (* V4  ..g STRPTR            *)
  CONST aDirlistRejectIcons             * = 80424808H; (* V4  is. BOOL              *)
  CONST aDirlistRejectPattern           * = 804259C7H; (* V4  is. STRPTR            *)
  CONST aDirlistSortDirs                * = 8042BBB9H; (* V4  is. LONG              *)
  CONST aDirlistSortHighLow             * = 80421896H; (* V4  is. BOOL              *)
  CONST aDirlistSortType                * = 804228BCH; (* V4  is. LONG              *)
  CONST aDirlistStatus                  * = 804240DEH; (* V4  ..g LONG              *)

  CONST vDirlistSortDirsFirst           * = 0;
  CONST vDirlistSortDirsLast            * = 1;
  CONST vDirlistSortDirsMix             * = 2;
  CONST vDirlistSortTypeName            * = 0;
  CONST vDirlistSortTypeDate            * = 1;
  CONST vDirlistSortTypeSize            * = 2;
  CONST vDirlistStatusInvalid           * = 0;
  CONST vDirlistStatusReading           * = 1;
  CONST vDirlistStatusValid             * = 2;


(****************************************************************************)
(** Numeric                                                                **)
(****************************************************************************)

  cNumeric * = "Numeric.mui";

(* Methods *)

  CONST mNumericDecrease                * = 804243A7H; (* V11 *)
  CONST mNumericIncrease                * = 80426ECDH; (* V11 *)
  CONST mNumericScaleToValue            * = 8042032CH; (* V11 *)
  CONST mNumericSetDefault              * = 8042AB0AH; (* V11 *)
  CONST mNumericStringify               * = 80424891H; (* V11 *)
  CONST mNumericValueToScale            * = 80423E4FH; (* V11 *)

(* Attributes *)

  CONST aNumericDefault                 * = 804263E8H; (* V11 isg LONG              *)
  CONST aNumericFormat                  * = 804263E9H; (* V11 isg STRPTR            *)
  CONST aNumericMax                     * = 8042D78AH; (* V11 isg LONG              *)
  CONST aNumericMin                     * = 8042E404H; (* V11 isg LONG              *)
  CONST aNumericReverse                 * = 8042F2A0H; (* V11 isg BOOL              *)
  CONST aNumericRevLeftRight            * = 804294A7H; (* V11 isg BOOL              *)
  CONST aNumericRevUpDown               * = 804252DDH; (* V11 isg BOOL              *)
  CONST aNumericValue                   * = 8042AE3AH; (* V11 isg LONG              *)



(****************************************************************************)
(** Framedisplay                                                           **)
(****************************************************************************)

  cFramedisplay * = "Framedisplay.mui";

(* Attributes *)




(****************************************************************************)
(** Popframe                                                               **)
(****************************************************************************)

  cPopframe * = "Popframe.mui";


(****************************************************************************)
(** Imagedisplay                                                           **)
(****************************************************************************)

  cImagedisplay * = "Imagedisplay.mui";

(* Attributes *)




(****************************************************************************)
(** Popimage                                                               **)
(****************************************************************************)

  cPopimage * = "Popimage.mui";


(****************************************************************************)
(** Pendisplay                                                             **)
(****************************************************************************)

  cPendisplay * = "Pendisplay.mui";

(* Attributes *)

  CONST aPendisplayRGBcolor             * = 8042A1A9H; (* V11 isg struct MUI_RBBcolor * *)
  CONST aPendisplaySpec                 * = 8042A204H; (* V11 isg struct MUI_PenSpec  * *)



(****************************************************************************)
(** Poppen                                                                 **)
(****************************************************************************)

  cPoppen * = "Poppen.mui";


(****************************************************************************)
(** Knob                                                                   **)
(****************************************************************************)

  cKnob * = "Knob.mui";


(****************************************************************************)
(** Levelmeter                                                             **)
(****************************************************************************)

  cLevelmeter * = "Levelmeter.mui";

(* Attributes *)

  CONST aLevelmeterLabel                * = 80420DD5H; (* V11 isg STRPTR            *)



(****************************************************************************)
(** Numericbutton                                                          **)
(****************************************************************************)

  cNumericbutton * = "Numericbutton.mui";


(****************************************************************************)
(** Slider                                                                 **)
(****************************************************************************)

  cSlider * = "Slider.mui";

(* Attributes *)

  CONST aSliderHoriz                    * = 8042FAD1H; (* V11 isg BOOL              *)
  CONST aSliderLevel                    * = 8042AE3AH; (* V4  isg LONG              *)
  CONST aSliderMax                      * = 8042D78AH; (* V4  isg LONG              *)
  CONST aSliderMin                      * = 8042E404H; (* V4  isg LONG              *)
  CONST aSliderQuiet                    * = 80420B26H; (* V6  i.. BOOL              *)
  CONST aSliderReverse                  * = 8042F2A0H; (* V4  isg BOOL              *)



(****************************************************************************)
(** Group                                                                  **)
(****************************************************************************)

  cGroup * = "Group.mui";

(* Methods *)

  CONST mGroupExitChange                * = 8042D1CCH; (* V11 *)
  CONST mGroupInitChange                * = 80420887H; (* V11 *)

(* Attributes *)

  CONST aGroupActivePage                * = 80424199H; (* V5  isg LONG              *)
  CONST aGroupChild                     * = 804226E6H; (* V4  i.. Object *          *)
  CONST aGroupChildList                 * = 80424748H; (* V4  ..g struct List *     *)
  CONST aGroupColumns                   * = 8042F416H; (* V4  is. LONG              *)
  CONST aGroupHoriz                     * = 8042536BH; (* V4  i.. BOOL              *)
  CONST aGroupHorizSpacing              * = 8042C651H; (* V4  is. LONG              *)
  CONST aGroupLayoutHook                * = 8042C3B2H; (* V11 i.. struct Hook *     *)
  CONST aGroupPageMode                  * = 80421A5FH; (* V5  i.. BOOL              *)
  CONST aGroupRows                      * = 8042B68FH; (* V4  is. LONG              *)
  CONST aGroupSameHeight                * = 8042037EH; (* V4  i.. BOOL              *)
  CONST aGroupSameSize                  * = 80420860H; (* V4  i.. BOOL              *)
  CONST aGroupSameWidth                 * = 8042B3ECH; (* V4  i.. BOOL              *)
  CONST aGroupSpacing                   * = 8042866DH; (* V4  is. LONG              *)
  CONST aGroupVertSpacing               * = 8042E1BFH; (* V4  is. LONG              *)

  CONST vGroupActivePageFirst           * = 0;
  CONST vGroupActivePageLast            * = -1;
  CONST vGroupActivePagePrev            * = -2;
  CONST vGroupActivePageNext            * = -3;


(****************************************************************************)
(** Mccprefs                                                               **)
(****************************************************************************)

  cMccprefs * = "Mccprefs.mui";


(****************************************************************************)
(** Register                                                               **)
(****************************************************************************)

  cRegister * = "Register.mui";

(* Attributes *)

  CONST aRegisterFrame                  * = 8042349BH; (* V7  i.g BOOL              *)
  CONST aRegisterTitles                 * = 804297ECH; (* V7  i.g STRPTR *          *)



(****************************************************************************)
(** Settingsgroup                                                          **)
(****************************************************************************)

  cSettingsgroup * = "Settingsgroup.mui";

(* Methods *)


(* Attributes *)




(****************************************************************************)
(** Settings                                                               **)
(****************************************************************************)

  cSettings * = "Settings.mui";

(* Methods *)


(* Attributes *)




(****************************************************************************)
(** Frameadjust                                                            **)
(****************************************************************************)

  cFrameadjust * = "Frameadjust.mui";

(* Methods *)


(* Attributes *)




(****************************************************************************)
(** Penadjust                                                              **)
(****************************************************************************)

  cPenadjust * = "Penadjust.mui";

(* Methods *)


(* Attributes *)

  CONST aPenadjustPSIMode               * = 80421CBBH; (* V11 i.. BOOL              *)



(****************************************************************************)
(** Imageadjust                                                            **)
(****************************************************************************)

  cImageadjust * = "Imageadjust.mui";

(* Methods *)


(* Attributes *)




(****************************************************************************)
(** Virtgroup                                                              **)
(****************************************************************************)

  cVirtgroup * = "Virtgroup.mui";

(* Methods *)


(* Attributes *)

  CONST aVirtgroupHeight                * = 80423038H; (* V6  ..g LONG              *)
  CONST aVirtgroupInput                 * = 80427F7EH; (* V11 i.. BOOL              *)
  CONST aVirtgroupLeft                  * = 80429371H; (* V6  isg LONG              *)
  CONST aVirtgroupTop                   * = 80425200H; (* V6  isg LONG              *)
  CONST aVirtgroupWidth                 * = 80427C49H; (* V6  ..g LONG              *)



(****************************************************************************)
(** Scrollgroup                                                            **)
(****************************************************************************)

  cScrollgroup * = "Scrollgroup.mui";

(* Methods *)


(* Attributes *)

  CONST aScrollgroupContents            * = 80421261H; (* V4  i.. Object *          *)
  CONST aScrollgroupFreeHoriz           * = 804292F3H; (* V9  i.. BOOL              *)
  CONST aScrollgroupFreeVert            * = 804224F2H; (* V9  i.. BOOL              *)



(****************************************************************************)
(** Scrollbar                                                              **)
(****************************************************************************)

  cScrollbar * = "Scrollbar.mui";

(* Attributes *)

  CONST aScrollbarType                  * = 8042FB6BH; (* V11 i.. LONG              *)

  CONST vScrollbarTypeDefault           * = 0;
  CONST vScrollbarTypeBottom            * = 1;
  CONST vScrollbarTypeTop               * = 2;
  CONST vScrollbarTypeSym               * = 3;


(****************************************************************************)
(** Listview                                                               **)
(****************************************************************************)

  cListview * = "Listview.mui";

(* Attributes *)

  CONST aListviewClickColumn            * = 8042D1B3H; (* V7  ..g LONG              *)
  CONST aListviewDefClickColumn         * = 8042B296H; (* V7  isg LONG              *)
  CONST aListviewDoubleClick            * = 80424635H; (* V4  i.g BOOL              *)
  CONST aListviewDragType               * = 80425CD3H; (* V11 isg LONG              *)
  CONST aListviewInput                  * = 8042682DH; (* V4  i.. BOOL              *)
  CONST aListviewList                   * = 8042BCCEH; (* V4  i.g Object *          *)
  CONST aListviewMultiSelect            * = 80427E08H; (* V7  i.. LONG              *)
  CONST aListviewScrollerPos            * = 8042B1B4H; (* V10 i.. BOOL              *)
  CONST aListviewSelectChange           * = 8042178FH; (* V4  ..g BOOL              *)

  CONST vListviewDragTypeNone           * = 0;
  CONST vListviewDragTypeImmediate      * = 1;
  CONST vListviewMultiSelectNone        * = 0;
  CONST vListviewMultiSelectDefault     * = 1;
  CONST vListviewMultiSelectShifted     * = 2;
  CONST vListviewMultiSelectAlways      * = 3;
  CONST vListviewScrollerPosDefault     * = 0;
  CONST vListviewScrollerPosLeft        * = 1;
  CONST vListviewScrollerPosRight       * = 2;


(****************************************************************************)
(** Radio                                                                  **)
(****************************************************************************)

  cRadio * = "Radio.mui";

(* Attributes *)

  CONST aRadioActive                    * = 80429B41H; (* V4  isg LONG              *)
  CONST aRadioEntries                   * = 8042B6A1H; (* V4  i.. STRPTR *          *)



(****************************************************************************)
(** Cycle                                                                  **)
(****************************************************************************)

  cCycle * = "Cycle.mui";

(* Attributes *)

  CONST aCycleActive                    * = 80421788H; (* V4  isg LONG              *)
  CONST aCycleEntries                   * = 80420629H; (* V4  i.. STRPTR *          *)

  CONST vCycleActiveNext                * = -1;
  CONST vCycleActivePrev                * = -2;


(****************************************************************************)
(** Coloradjust                                                            **)
(****************************************************************************)

  cColoradjust * = "Coloradjust.mui";

(* Attributes *)

  CONST aColoradjustBlue                * = 8042B8A3H; (* V4  isg ULONG             *)
  CONST aColoradjustGreen               * = 804285ABH; (* V4  isg ULONG             *)
  CONST aColoradjustModeID              * = 8042EC59H; (* V4  isg ULONG             *)
  CONST aColoradjustRed                 * = 80420EAAH; (* V4  isg ULONG             *)
  CONST aColoradjustRGB                 * = 8042F899H; (* V4  isg ULONG *           *)



(****************************************************************************)
(** Palette                                                                **)
(****************************************************************************)

  cPalette * = "Palette.mui";

(* Attributes *)

  CONST aPaletteEntries                 * = 8042A3D8H; (* V6  i.g struct MUI_Palette_Entry * *)
  CONST aPaletteGroupable               * = 80423E67H; (* V6  isg BOOL              *)
  CONST aPaletteNames                   * = 8042C3A2H; (* V6  isg char **           *)



(****************************************************************************)
(** Popstring                                                              **)
(****************************************************************************)

  cPopstring * = "Popstring.mui";

(* Methods *)

  CONST mPopstringClose                 * = 8042DC52H; (* V7  *)
  CONST mPopstringOpen                  * = 804258BAH; (* V7  *)

(* Attributes *)

  CONST aPopstringButton                * = 8042D0B9H; (* V7  i.g Object *          *)
  CONST aPopstringCloseHook             * = 804256BFH; (* V7  isg struct Hook *     *)
  CONST aPopstringOpenHook              * = 80429D00H; (* V7  isg struct Hook *     *)
  CONST aPopstringString                * = 804239EAH; (* V7  i.g Object *          *)
  CONST aPopstringToggle                * = 80422B7AH; (* V7  isg BOOL              *)



(****************************************************************************)
(** Popobject                                                              **)
(****************************************************************************)

  cPopobject * = "Popobject.mui";

(* Attributes *)

  CONST aPopobjectFollow                * = 80424CB5H; (* V7  isg BOOL              *)
  CONST aPopobjectLight                 * = 8042A5A3H; (* V7  isg BOOL              *)
  CONST aPopobjectObject                * = 804293E3H; (* V7  i.g Object *          *)
  CONST aPopobjectObjStrHook            * = 8042DB44H; (* V7  isg struct Hook *     *)
  CONST aPopobjectStrObjHook            * = 8042FBE1H; (* V7  isg struct Hook *     *)
  CONST aPopobjectVolatile              * = 804252ECH; (* V7  isg BOOL              *)
  CONST aPopobjectWindowHook            * = 8042F194H; (* V9  isg struct Hook *     *)



(****************************************************************************)
(** Poplist                                                                **)
(****************************************************************************)

  cPoplist * = "Poplist.mui";

(* Attributes *)

  CONST aPoplistArray                   * = 8042084CH; (* V8  i.. char **           *)



(****************************************************************************)
(** Popscreen                                                              **)
(****************************************************************************)

  cPopscreen * = "Popscreen.mui";

(* Attributes *)




(****************************************************************************)
(** Popasl                                                                 **)
(****************************************************************************)

  cPopasl * = "Popasl.mui";

(* Attributes *)

  CONST aPopaslActive                   * = 80421B37H; (* V7  ..g BOOL              *)
  CONST aPopaslStartHook                * = 8042B703H; (* V7  isg struct Hook *     *)
  CONST aPopaslStopHook                 * = 8042D8D2H; (* V7  isg struct Hook *     *)
  CONST aPopaslType                     * = 8042DF3DH; (* V7  i.g ULONG             *)



(****************************************************************************)
(** Semaphore                                                              **)
(****************************************************************************)

  cSemaphore * = "Semaphore.mui";

(* Methods *)

  CONST mSemaphoreAttempt               * = 80426CE2H; (* V11 *)
  CONST mSemaphoreAttemptShared         * = 80422551H; (* V11 *)
  CONST mSemaphoreObtain                * = 804276F0H; (* V11 *)
  CONST mSemaphoreObtainShared          * = 8042EA02H; (* V11 *)
  CONST mSemaphoreRelease               * = 80421F2DH; (* V11 *)


(****************************************************************************)
(** Applist                                                                **)
(****************************************************************************)

  cApplist * = "Applist.mui";

(* Methods *)



(****************************************************************************)
(** Dataspace                                                              **)
(****************************************************************************)

  cDataspace * = "Dataspace.mui";

(* Methods *)

  CONST mDataspaceAdd                   * = 80423366H; (* V11 *)
  CONST mDataspaceClear                 * = 8042B6C9H; (* V11 *)
  CONST mDataspaceMerge                 * = 80423E2BH; (* V11 *)
  CONST mDataspaceReadIFF               * = 80420DFBH; (* V11 *)
  CONST mDataspaceRemove                * = 8042DCE1H; (* V11 *)
  CONST mDataspaceWriteIFF              * = 80425E8EH; (* V11 *)

(* Attributes *)

  CONST aDataspacePool                  * = 80424CF9H; (* V11 i.. APTR              *)



(****************************************************************************)
(** Configdata                                                             **)
(****************************************************************************)

  cConfigdata * = "Configdata.mui";

(* Methods *)


(* Attributes *)




(*****************************************)
(* End of automatic header file creation *)
(*****************************************)

(* <*IF OberonA THEN*> $IF OberonA *)
TYPE
    LONGINTARRAY = ARRAY 1 OF LONGINT;
    SET32ARRAY = ARRAY 1 OF Sets.SET32;
(* <*END*> $END *)

(***************************************************************************
** Parameter structures for some classes
***************************************************************************)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  PaletteEntryPtr * = POINTER [2] TO PaletteEntry;
  RenderInfoPtr * = POINTER [2] TO RenderInfo;
  ScrmodelistEntryPtr * = POINTER [2] TO ScrmodelistEntry;
  InputHandlerNodePtr * = POINTER [2] TO InputHandlerNode;
  NotifyDataPtr * = POINTER [2] TO NotifyData;
  MinMaxPtr * = POINTER [2] TO MinMax;
  WidthHeightPtr *= POINTER [2] TO WidthHeight;
  LayoutMsgPtr * = POINTER [2] TO LayoutMsg;
  AreaDataPtr * = POINTER [2] TO AreaData;
  GlobalInfoPtr * = POINTER [2] TO GlobalInfo;
(* <* ELSE *> $ELSE *)
  PaletteEntryPtr * = UNTRACED POINTER TO PaletteEntry;
  RenderInfoPtr * = UNTRACED POINTER TO RenderInfo;
  ScrmodelistEntryPtr * = UNTRACED POINTER TO ScrmodelistEntry;
  InputHandlerNodePtr *= UNTRACED POINTER TO InputHandlerNode;
  NotifyDataPtr * = UNTRACED POINTER TO NotifyData;
  MinMaxPtr * = UNTRACED POINTER TO MinMax;
  WidthHeightPtr *= UNTRACED POINTER TO WidthHeight;
  LayoutMsgPtr * = UNTRACED POINTER TO LayoutMsg;
  AreaDataPtr * = UNTRACED POINTER TO AreaData;
  GlobalInfoPtr * = UNTRACED POINTER TO GlobalInfo;
(* <*END*> $END *)

(* <*IF OberonA THEN*> $IF OberonA *)
  PaletteEntry * = RECORD [2];
(* <* ELSE *> $ELSE *)
  PaletteEntry * = STRUCT;
(* <*END*> $END *)
		     id    * : LONGINT;
		     red   * : LONGINT;
		     green * : LONGINT;
		     blue  * : LONGINT;
		     group * : LONGINT;
		   END;


CONST vPaletteEntryEnd = -1;

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  ScrmodelistEntry * = RECORD [2];
(* <* ELSE *> $ELSE *)
  ScrmodelistEntry * = STRUCT
(* <*END*> $END *)
			 name   * : Exec.STRPTR;
			 modeID * : LONGINT;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  InputHandlerNode *= RECORD [2];
			node *: Exec.MinNode;
(* <* ELSE *> $ELSE *)
  InputHandlerNode *= STRUCT( node *: Exec.MinNode );
(* <*END*> $END *)
			object *: Object;
			(* <*IF OberonA THEN*> $IF OberonA *)
			signals *  : Sets.SET32;
			flags   *  : Sets.SET32;
			(* <* ELSE *> $ELSE *)
			signals *  : LONGSET;
			flags   *  : LONGSET;
			(* <*END*> $END *)
			method  *  : LONGINT;
		      END;

(*************************************************************************
** Structures and Macros for creating custom classes.
*************************************************************************)


(*
** GENERAL NOTES:
**
** - Everything described in this header file is only valid within
**   MUI classes. You may never use any of these things out of
**   a class, e.g. in a traditional MUI application.
**
** - Except when otherwise stated, all structures are strictly read only.
*)


(* Instance data of notify class *)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  NotifyData * = RECORD [2]
(* <* ELSE *> $ELSE *)
  NotifyData * = STRUCT
(* <*END*> $END *)
		   globalInfo * : GlobalInfoPtr;
		   userData   * : LONGINT;
		   priv0      * : LONGINT;
		   priv1      * : LONGINT;
		   priv2      * : LONGINT;
		   priv3      * : LONGINT;
		   priv4      * : LONGINT;
		 END;


(* MUI_MinMax structure holds information about minimum, maximum
   and default dimensions of an object. *)

(* <*IF OberonA THEN*> $IF OberonA *)
  MinMax * = RECORD [2]
(* <* ELSE *> $ELSE *)
  MinMax * = STRUCT
(* <*END*> $END *)
	       minWidth  * : INTEGER;
	       minHeight * : INTEGER;
	       maxWidth  * : INTEGER;
	       maxHeight * : INTEGER;
	       defWidth  * : INTEGER;
	       defHeight * : INTEGER;
	     END;

CONST maxmax  * = 10000; (* use this if a dimension is not limited. *)


(* Hook message for custom layout *)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  WidthHeight *= RECORD [2]
(* <* ELSE *> $ELSE *)
  WidthHeight *= STRUCT;
(* <*END*> $END *)
		  width*,height* : INTEGER;
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  LayoutMsg  *= RECORD [2]
(* <* ELSE *> $ELSE *)
  LayoutMsg *= STRUCT
(* <*END*> $END *)
		  type        *: LONGINT;
		  children    *: Exec.MinListPtr;
		  minMax      *: MinMax;
		  widhtHeight *: WidthHeight;
		END;


(* (partial) instance data of area class *)

TYPE

(* <*IF OberonA THEN*> $IF OberonA *)
  AreaData * = RECORD [2]
(* <* ELSE *> $ELSE *)
  AreaData * = STRUCT
(* <*END*> $END *)
		renderInfo * : RenderInfoPtr;         (* RenderInfo for this object *)
		priv0        : Exec.APTR;             (* !!! private data !!! *)
		font       * : Graphics.TextFontPtr;  (* Font *)
		minMax     * : MinMax;             (* min/max/default sizes *)
		box        * : Intuition.IBox;        (* position and dimension *)
		addleft    * : SHORTINT;              (* frame & innerspacing left offset *)
		addtop     * : SHORTINT;              (* frame & innerspacing top offset  *)
		subwidth   * : SHORTINT;              (* frame & innerspacing add. width  *)
		subheight  * : SHORTINT;              (* frame & innerspacing add. height *)
		(* <*IF OberonA THEN*> $IF OberonA *)
		flags      * : Sets.SET32;               (* see definitions below *)
		(* <* ELSE *> $ELSE *)
		flags      * : LONGSET;
		(* <*END*> $END *)
		(* ... private data follows ... *)
	      END;

(* Definitions for AreaData.flags *)

CONST
  adfDrawobject * = 0; (* completely redraw yourself *)
  adfDrawupdate * = 1; (* only update yourself *)


(* Global information about parent application. *)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  GlobalInfo * = RECORD [2];
(* <* ELSE *> $ELSE *)
  GlobalInfo * = STRUCT;
(* <*END*> $END *)
		   priv0             : Exec.APTR; (* !!! private data !!! *)
		   applicationObject * : Object;

		   (* ... private data follows ... *)
		 END;

(* MUI's draw pens *)

CONST
  penShine      *= 0;
  penHalfshine  *= 1;
  penBackground *= 2;
  penHalfshadow *= 3;
  penShadow     *= 4;
  penText       *= 5;
  penFill       *= 6;
  penActiveObj  *= 7;
  penCount      *= 8;

TYPE

(* <*IF OberonA THEN*> $IF OberonA *)
  PenPtr * = POINTER [2] TO ARRAY penCount OF INTEGER;
(* <* ELSE *> $ELSE *)
  PenPtr * = UNTRACED POINTER TO ARRAY penCount OF INTEGER;
(* <*END*> $END *)

(* Information on display environment *)

(* <*IF OberonA THEN*> $IF OberonA *)
  RenderInfo * = RECORD [2]
(* <* ELSE *> $ELSE *)
  RenderInfo * = STRUCT
(* <*END*> $END *)         
		   windowObject  * : Object;              (* valid between MUIM_Setup/MUIM_Cleanup *)
		   screen        * : Intuition.ScreenPtr; (* valid between MUIM_Setup/MUIM_Cleanup *)
		   drawInfo      * : Intuition.DrawInfoPtr;  (* valid between MUIM_Setup/MUIM_Cleanup *)
		   pens          * : PenPtr;              (* valid between MUIM_Setup/MUIM_Cleanup *)
		   window        * : Intuition.WindowPtr; (* valid between MUIM_Show/MUIM_Hide *)
		   rastPort      * : Graphics.RastPortPtr;    (* valid between MUIM_Show/MUIM_Hide *)
		   (* ... private data follows ...*)
		 END;





(* User configurable keyboard events coming with MUIM_HandleInput *)

CONST
  keyRelease     *= -2; (* not a real key, faked when wenn keyPress is released *)
  keyNone        *= -1;
  keyPress       *= 0;
  keyToggle      *= 1;
  keyUp          *= 2;
  keyDown        *= 3;
  keyPageUp      *= 4;
  keyPageDown    *= 5;
  keyTop         *= 6;
  keyBottom      *= 7;
  keyLeft        *= 8;
  keyRight       *= 9;
  keyWordLeft    *= 10;
  keyWordRight   *= 11;
  keyLineStart   *= 12;
  keyLineEnd     *= 13;
  keyGadgetNext  *= 14;
  keyGadgetPrev  *= 15;
  keyGadgetOff   *= 16;
  keyWindowClose *= 17;
  keyWindowNext  *= 18;
  keyWindowPrev  *= 19;
  keyHelp        *= 20;
  keyPopup       *= 21;

(* Mui.CustomClass returned by Mui.CreateCustomClass() *)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  CustomClassPtr *= POINTER [2] TO CustomClass;
  CustomClass *= RECORD [2]
(* <* ELSE *> $ELSE *)
  CustomClassPtr *= UNTRACED POINTER TO CustomClass;
  CustomClass *= STRUCT
(* <*END*> $END *)

		  userData      *: Exec.APTR;           (* use for whatever you want *)
		  utilityBase   *: Exec.LibraryPtr;     (* MUI has opened these libraries *)
		  dosBase       *: Exec.LibraryPtr;     (* for you automatically. You can *)
		  gfxBase       *: Exec.LibraryPtr;     (* use them or decide to open     *)
		  intuitionBase *: Exec.LibraryPtr;     (* your libraries yourself.       *)
		  super         *: Intuition.IClassPtr; (* pointer to super class   *)
		  class         *: Intuition.IClassPtr; (* pointer to the new class *)
		  (* ... private data follows ... *)
		 END;

(***************************************************************************
**
** 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 mBoopsiQuery *= 80427157H;    (* this is send to the boopsi and *)
				    (* must be used as return value   *)

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  pBoopsiQuery  *= RECORD [2]( Intuition.MsgBase ); (* parameter structure *)
		  msg       * : Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pBoopsiQuery  *= STRUCT( msg *: Intuition.Msg ); (* parameter structure *)
(* <*END*> $END *)
		  screen    * : Intuition.ScreenPtr;  (* read only, display context *)
		  (* <*IF OberonA THEN*> $IF OberonA *)
		  flags     * : Sets.SET32;           (* read only, see below *)
		  (* <* ELSE *> $ELSE *)
		  flags     * : LONGSET;              (* read only, see below *)
		  (* <*END*> $END *)
		  minWidth  * : LONGINT;              (* write only, fill in min width  *)
		  minHeight * : LONGINT;              (* write only, fill in min height *)
		  maxWidth  * : LONGINT;              (* write only, fill in max width  *)
		  maxHeight * : LONGINT;              (* write only, fill in max height *)
		  renderInfo * : RenderInfoPtr;       (* read only, display context *)
		  (* ... may grow in future ... *)
		  END;

CONST bqfHoriz *= 0;             (* object used in a horizontal *)
				 (* context (else vertical)     *)

CONST bqMaxMax *= 10000;         (* use this for unlimited MaxWidth/Height *)



(***************************************************************************
** Method Parameter Structures
**
***************************************************************************)

TYPE

(* Empty

(* <*IF OberonA THEN*> $IF OberonA *)
  pPtr * = POINTER [2] TO p;
  p *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pPtr * = UNTRACED POINTER TO p;
  p *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;

*)

(*************)
(* Semaphore *)
(*************)

(* <*IF OberonA THEN*> $IF OberonA *)
  pSemaphoreAttemptPtr * = POINTER [2] TO pSemaphoreAttempt;
  pSemaphoreAttempt *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pSemaphoreAttemptPtr * = UNTRACED POINTER TO pSemaphoreAttempt;
  pSemaphoreAttempt *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSemaphoreAttemptSharedPtr * = POINTER [2] TO pSemaphoreAttemptShared;
  pSemaphoreAttemptShared *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pSemaphoreAttemptSharedPtr * = UNTRACED POINTER TO pSemaphoreAttemptShared;
  pSemaphoreAttemptShared *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;
(* <*IF OberonA THEN*> $IF OberonA *)
  pSemaphoreObtainPtr * = POINTER [2] TO pSemaphoreObtain;
  pSemaphoreObtain *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pSemaphoreObtainPtr * = UNTRACED POINTER TO pSemaphoreObtain;
  pSemaphoreObtain *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pSemaphoreObtainSharedPtr * = POINTER [2] TO pSemaphoreObtainShared;
  pSemaphoreObtainShared *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pSemaphoreObtainSharedPtr * = UNTRACED POINTER TO pSemaphoreObtainShared;
  pSemaphoreObtainShared *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSemaphoreReleasePtr* = POINTER [2] TO pSemaphoreRelease;
  pSemaphoreRelease *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pSemaphoreReleasePtr * = UNTRACED POINTER TO pSemaphoreRelease;
  pSemaphoreRelease *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;

(*************)
(* Dataspace *)
(*************)

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceAddPtr * = POINTER [2] TO pDataspaceAdd;
  pDataspaceAdd *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceAddPtr * = UNTRACED POINTER TO pDataspaceAdd;
  pDataspaceAdd *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       data *: Exec.APTR;
		       len  *: LONGINT;
		       id   *: LONGINT;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceClearPtr * = POINTER [2] TO pDataspaceClear;
  pDataspaceClear *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceClearPtr * = UNTRACED POINTER TO pDataspaceClear;
  pDataspaceClear *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceMergePtr * = POINTER [2] TO pDataspaceMerge;
  pDataspaceMerge *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceMergePtr * = UNTRACED POINTER TO pDataspaceMerge;
  pDataspaceMerge *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
		      dataspace*:Object;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceReadIFFPtr * = POINTER [2] TO pDataspaceReadIFF;
  pDataspaceReadIFF *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceReadIFFPtr * = UNTRACED POINTER TO pDataspaceReadIFF;
  pDataspaceReadIFF *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			 handle*: IFFParse.IFFHandlePtr;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceRemovePtr * = POINTER [2] TO pDataspaceRemove;
  pDataspaceRemove *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceRemovePtr * = UNTRACED POINTER TO pDataspaceRemove;
  pDataspaceRemove *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			id*:LONGINT;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDataspaceWriteIFFPtr * = POINTER [2] TO pDataspaceWriteIFF;
  pDataspaceWriteIFF *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pDataspaceWriteIFFPtr * = UNTRACED POINTER TO pDataspaceWriteIFF;
  pDataspaceWriteIFF *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			handle *: IFFParse.IFFHandlePtr;
			type *:  LONGINT;
			id *: LONGINT;

		       END;

(**********)
(* Notify *)
(**********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pCallHookPtr * = POINTER [2] TO pCallHook;
  pCallHook * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pCallHookPtr * = UNTRACED POINTER TO pCallHook;
  pCallHook * = STRUCT( msg*:Intuition.Msg );
(* <*END*> $END *)
		  hook * : Utility.HookPtr;
		  (* following hookparams *)
		END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFindUDataPtr * = POINTER [2] TO pFindUData;
  pFindUData * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFindUDataPtr * = UNTRACED POINTER TO pFindUData;
  pFindUData * = STRUCT( msg*:Intuition.Msg );
(* <*END*> $END *)
		  udata * : LONGINT;
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pGetConfigItemPtr * = POINTER [2] TO pGetConfigItem;
  pGetConfigItem * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGetConfigItemPtr * = UNTRACED POINTER TO pGetConfigItemPtr;
  pGetConfigItem * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   id    * : LONGINT;
		   storage * : SYSTEM.ADDRESS;
		 END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pGetUDataPtr * = POINTER [2] TO pGetUData;
  pGetUData * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGetUDataPtr * = UNTRACED POINTER TO pGetUData;
  pGetUData * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   udata   * : LONGINT;
		   attr    * : LONGINT;
		   storage * : SYSTEM.ADDRESS;
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pKillNotifyPtr * = POINTER [2] TO pKillNotify;
  pKillNotify * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pKillNotifyPtr * = UNTRACED POINTER TO pKillNotify;
  pKillNotify * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   trigAttr * : LONGINT;
		 END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pMultiSetPtr * = POINTER [2] TO pMultiSet;
  pMultiSet * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pMultiSetPtr * = UNTRACED POINTER TO pMultiSet;
  pMultiSet * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       attr * : LONGINT;
		       val  * : LONGINT;
		       obj  * : Object;
		       (* ... *)
		     END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pNoNotifySetPtr * = POINTER [2] TO pNoNotifySet;
  pNoNotifySet * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pNoNotifySetPtr * = UNTRACED POINTER TO pNoNotifySet;
  pNoNotifySet * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      attr   * : LONGINT;
		      format * : Exec.STRPTR;
		      val    * : LONGINT;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pNotifyPtr * = POINTER [2] TO pNotify;
  pNotify * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pNotifyPtr * = UNTRACED POINTER TO pNotify;
  pNotify * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		trigAttr * : LONGINT;
		trigVal  * : LONGINT;
		destObj  * : Object;
		(* FollowingParams *)
	      END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSetPtr * = POINTER [2] TO pSet;
  pSet * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pSetPtr * = UNTRACED POINTER TO pSet;
  pSet * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  attr * : LONGINT;
		  val  * : LONGINT;
		END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSetAsStringPtr * = POINTER [2] TO pSetAsString;
  pSetAsString * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pSetAsStringPtr * = UNTRACED POINTER TO pSetAsString;
  pSetAsString * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		     attr   * : LONGINT;
		     format * : Exec.STRPTR;
		     val    * : LONGINT;
		     (* ... *)
		   END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSetUDataPtr * = POINTER [2] TO pSetUData;
  pSetUData * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pSetUDataPtr * = UNTRACED POINTER TO pSetUData;
  pSetUData * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   udata   * : LONGINT;
		   attr    * : LONGINT;
		   val     * : SYSTEM.ADDRESS;
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWriteLongPtr * = POINTER [2] TO pWriteLong;
  pWriteLong * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pWriteLongPtr * = UNTRACED POINTER TO pWriteLong;
  pWriteLong * = STRUCT( msg * : Intuition.Msg );
(* <*END*> $END *)
		   val     * : LONGINT;
		   (* <*IF OberonA THEN*> $IF OberonA *)
		   memory  * : POINTER [2] TO LONGINTARRAY;
		   (* <* ELSE *> $ELSE *)
		   memory  * : UNTRACED POINTER TO LONGINT;
		   (* <*END*> $END *)
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWriteStringPtr * = POINTER [2] TO pWriteString;
  pWriteString * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pWriteStringPtr * = UNTRACED POINTER TO pWriteString;
  pWriteString * = STRUCT( msg * : Intuition.Msg );
(* <*END*> $END *)
		     str     * : Exec.STRPTR;
		     memory  * : Exec.STRPTR;
		   END;

(**********)
(* Family *)
(**********)


(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilyAddHeadPtr * = POINTER [2] TO pFamilyAddHead;
  pFamilyAddHead * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilyAddHeadPtr * = UNTRACED POINTER TO pFamilyAddHead;
  pFamilyAddHead * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       obj *: Object;
		     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilyAddTailPtr * = POINTER [2] TO pFamilyAddTail;
  pFamilyAddTail * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilyAddTailPtr * = UNTRACED POINTER TO pFamilyAddTail;
  pFamilyAddTail * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       obj *: Object;
		     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilyInsertPtr * = POINTER [2] TO pFamilyInsert;
  pFamilyInsert * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilyInsertPtr * = UNTRACED POINTER TO pFamilyInsert;
  pFamilyInsert * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       obj  *: Object;
		       pred *: Object;
		     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilyRemovePtr * = POINTER [2] TO pFamilyRemove;
  pFamilyRemove * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilyRemovePtr * = UNTRACED POINTER TO pFamilyRemove;
  pFamilyRemove * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       obj *: Object;
		     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilySortPtr * = POINTER [2] TO pFamilySort;
  pFamilySort * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilySortPtr * = UNTRACED POINTER TO pFamilySort;
  pFamilySort * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       obj *: Object;
		     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pFamilyTransferPtr * = POINTER [2] TO pFamilyTransfer;
  pFamilyTransfer * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pFamilyTransferPtr * = UNTRACED POINTER TO pFamilyTransfer;
  pFamilyTransfer * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       family *: Object;
		     END;


(***************)
(* Application *)
(***************)

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationPtr * = POINTER [2] TO pApplication;
  pApplication * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationPtr * = UNTRACED POINTER TO pApplication;
  pApplication * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationAddInputHandlerPtr * = POINTER [2] TO pApplicationAddInputHandler;
  pApplicationAddInputHandler * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationAddInputHandlerPtr * = UNTRACED POINTER TO pApplicationAddInputHandler;
  pApplicationAddInputHandler * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    ihNode * : InputHandlerNodePtr;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationCheckRefreshPtr * = POINTER [2] TO pApplicationCheckRefresh;
  pApplicationCheckRefresh * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationCheckRefreshPtr * = UNTRACED POINTER TO pApplicationCheckRefresh;
  pApplicationCheckRefresh * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    END;
(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationCloseConfigWindowPtr * = POINTER [2] TO pApplicationCloseConfigWindow;
  pApplicationCloseConfigWindow * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
		  flags     * : Sets.SET32;
(* <*ELSE*> $ELSE *)
  pApplicationCloseConfigWindowPtr * = UNTRACED POINTER TO pApplicationCloseConfigWindow;
  pApplicationCloseConfigWindow * = STRUCT (msg*:Intuition.Msg)
		  flags *: LONGSET;
(* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationConfigNotifyPtr * = POINTER [2] TO pApplicationConfigNotify;
  pApplicationConfigNotify * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationConfigNotifyPtr * = UNTRACED POINTER TO pApplicationConfigNotify;
  pApplicationConfigNotify * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationGetMenuCheckPtr * = POINTER [2] TO pApplicationGetMenuCheck;
  pApplicationGetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationGetMenuCheckPtr * = UNTRACED POINTER TO pApplicationGetMenuCheck;
  pApplicationGetMenuCheck * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      menuID * : LONGINT;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationGetMenuStatePtr * = POINTER [2] TO pApplicationGetMenuState;
  pApplicationGetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationGetMenuStatePtr * = UNTRACED POINTER TO pApplicationGetMenuState;
  pApplicationGetMenuState * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      menuID * : LONGINT;
		    END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationInputPtr * = POINTER [2] TO pApplicationInput;
  pApplicationInput * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationInputPtr * = UNTRACED POINTER TO pApplicationInput;
  pApplicationInput * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  (* <*IF OberonA THEN*> $IF OberonA *)
			  signal * : POINTER [2] TO SET32ARRAY;
			  (* <* ELSE *> $ELSE *)
			  signal * : UNTRACED POINTER TO LONGSET;
			  (* <*END*> $END *)
			END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationInputBufferedPtr * = POINTER [2] TO pApplicationInputBuffered;
  pApplicationInputBuffered * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationInputBufferedPtr * = UNTRACED POINTER TO pApplicationInputBuffered;
  pApplicationInputBuffered * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  (* <*IF OberonA THEN*> $IF OberonA *)
			  signal * : POINTER [2] TO SET32ARRAY;
			  (* <* ELSE *> $ELSE *)
			  signal * : UNTRACED POINTER TO LONGSET;
			  (* <*END*> $END *)
			END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationLoadPtr * = POINTER [2] TO pApplicationLoad;
  pApplicationLoad * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationLoadPtr * = UNTRACED POINTER TO pApplicationLoad;
  pApplicationLoad * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			 name * : Exec.STRPTR;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationLoadConfigPtr * = POINTER [2] TO pApplicationLoadConfig;
  pApplicationLoadConfig * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationLoadConfigPtr * = UNTRACED POINTER TO pApplicationLoadConfig;
  pApplicationLoadConfig * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      name *: Exec.STRPTR;
		      (* <*IF OberonA THEN*> $IF OberonA *)
		      flags *: Sets.SET32;
		      (* <* ELSE *> $ELSE *)
		      flags *: LONGSET;
		      (* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationNewInputPtr * = POINTER [2] TO pApplicationNewInput;
  pApplicationNewInput * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationNewInputPtr * = UNTRACED POINTER TO pApplicationNewInput;
  pApplicationNewInput * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      (* <*IF OberonA THEN*> $IF OberonA *)
		      signal *: Sets.SET32;
		      (* <* ELSE *> $ELSE *)
		      signal *: LONGSET;
		      (* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationOpenConfigWindowPtr * = POINTER [2] TO pApplicationOpenConfigWindow;
  pApplicationOpenConfigWindow * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
		  flags     * : Sets.SET32;
(* <*ELSE*> $ELSE *)
  pApplicationOpenConfigWindowPtr * = UNTRACED POINTER TO pApplicationOpenConfigWindow;
  pApplicationOpenConfigWindow * = STRUCT (msg*:Intuition.Msg)
		      flags * : LONGSET;
(* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationPushMethodPtr * = POINTER [2] TO pApplicationPushMethod;
  pApplicationPushMethod * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationPushMethodPtr * = UNTRACED POINTER TO pApplicationPushMethod;
  pApplicationPushMethod * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			       dest * : Object;
			       (* following Method *)
			     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationRemInputHandlerPtr * = POINTER [2] TO pApplicationRemInputHandler;
  pApplicationRemInputHandler * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationRemInputHandlerPtr * = UNTRACED POINTER TO pApplicationRemInputHandler;
  pApplicationRemInputHandler * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      ihNode *: InputHandlerNodePtr;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationReturnIDPtr * = POINTER [2] TO pApplicationReturnID;
  pApplicationReturnID * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationReturnIDPtr * = UNTRACED POINTER TO pApplicationReturnID;
  pApplicationReturnID * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			     retid * : LONGINT;
			   END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationSavePtr * = POINTER [2] TO pApplicationSave;
  pApplicationSave * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationSavePtr * = UNTRACED POINTER TO pApplicationSave;
  pApplicationSave * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			 name * : Exec.STRPTR;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationSaveConfigPtr * = POINTER [2] TO pApplicationSaveConfig;
  pApplicationSaveConfig * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationSaveConfigPtr * = UNTRACED POINTER TO pApplicationSaveConfig;
  pApplicationSaveConfig * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      name *: Exec.STRPTR;
		      (* <*IF OberonA THEN*> $IF OberonA *)
		      flags *: Sets.SET32;
		      (* <* ELSE *> $ELSE *)
		      flags *: LONGSET;
		      (* <*END*> $END *)
		    END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationSetConfigItemPtr * = POINTER [2] TO pApplicationSetConfigItem;
  pApplicationSetConfigItem * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationSetConfigItemPtr * = UNTRACED POINTER TO pApplicationSetConfigItem;
  pApplicationSetConfigItem * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			 item * : LONGINT;
			 data * : Exec.APTR;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationSetMenuCheckPtr * = POINTER [2] TO pApplicationSetMenuCheck;
  pApplicationSetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationSetMenuCheckPtr * = UNTRACED POINTER TO pApplicationSetMenuCheck;
  pApplicationSetMenuCheck * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      menuID * : LONGINT;
		      set    * : LONGINT;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationSetMenuStatePtr * = POINTER [2] TO pApplicationSetMenuState;
  pApplicationSetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationSetMenuStatePtr * = UNTRACED POINTER TO pApplicationSetMenuState;
  pApplicationSetMenuState * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      menuID * : LONGINT;
		      set    * : LONGINT;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pApplicationShowHelpPtr * = POINTER [2] TO pApplicationShowHelp;
  pApplicationShowHelp * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pApplicationShowHelpPtr * = UNTRACED POINTER TO pApplicationShowHelp;
  pApplicationShowHelp * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			     window * : Object;
			     name   * : Exec.STRPTR;
			     node   * : Exec.STRPTR;
			     line   * : LONGINT;
			   END;

(***********)
(* Dirlist *)
(***********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pDirlistReReadPtr * = POINTER [2] TO pDirlistReRead;
  pDirlistReRead * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDirlistReReadPtr * = UNTRACED POINTER TO pDirlistReRead;
  pDirlistReRead * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(*********)
(* Group *)
(*********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pGroupExitChangePtr * = POINTER [2] TO pGroupExitChange;
  pGroupExitChange * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGroupExitChangePtr * = UNTRACED POINTER TO pGroupExitChange;
  pGroupExitChange * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pGroupInitChangePtr * = POINTER [2] TO pGroupInitChange;
  pGroupInitChange * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGroupInitChangePtr * = UNTRACED POINTER TO pGroupInitChange;
  pGroupInitChange * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pGroupBackfillPtr * = POINTER [2] TO pGroupBackfill;
  pGroupBackfill * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGroupBackfillPtr * = UNTRACED POINTER TO pGroupBackfill;
  pGroupBackfill * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	      left*,top*,right*,bottom* : INTEGER;
	    END;

(**********)
(* Window *)
(**********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowGetMenuCheckPtr * = POINTER [2] TO pWindowGetMenuCheck;
  pWindowGetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowGetMenuCheckPtr * = UNTRACED POINTER TO pWindowGetMenuCheck;
  pWindowGetMenuCheck * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			    menuID * : LONGINT;
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowGetMenuStatePtr * = POINTER [2] TO pWindowGetMenuState;
  pWindowGetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowGetMenuStatePtr * = UNTRACED POINTER TO pWindowGetMenuState;
  pWindowGetMenuState * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			    menuID * : LONGINT;
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowScreenToBackPtr * = POINTER [2] TO pWindowScreenToBack;
  pWindowScreenToBack * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowScreenToBackPtr * = UNTRACED POINTER TO pWindowScreenToBack;
  pWindowScreenToBack * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowScreenToFrontPtr * = POINTER [2] TO pWindowScreenToFront;
  pWindowScreenToFront * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowScreenToFrontPtr * = UNTRACED POINTER TO pWindowScreenToFront;
  pWindowScreenToFront * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowSetCycleChainPtr * = POINTER [2] TO pWindowSetCycleChain;
  pWindowSetCycleChain * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowSetCycleChainPtr * = UNTRACED POINTER TO pWindowSetCycleChain;
  pWindowSetCycleChain * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			     (* following objects *)
			   END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowSetMenuCheckPtr * = POINTER [2] TO pWindowSetMenuCheck;
  pWindowSetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowSetMenuCheckPtr * = UNTRACED POINTER TO pWindowSetMenuCheck;
  pWindowSetMenuCheck * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			    menuID * : LONGINT;
			    set    * : LONGINT;
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowSetMenuStatePtr * = POINTER [2] TO pWindowSetMenuState;
  pWindowSetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *)
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowSetMenuStatePtr * = UNTRACED POINTER TO pWindowSetMenuState;
  pWindowSetMenuState * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			    menuID * : LONGINT;
			    set    * : LONGINT;
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowToBackPtr * = POINTER [2] TO pWindowToBack;
  pWindowToBack * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowToBackPtr * = UNTRACED POINTER TO pWindowToBack;
  pWindowToBack * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWindowToFrontPtr * = POINTER [2] TO pWindowToFront;
  pWindowToFront * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWindowToFrontPtr * = UNTRACED POINTER TO pWindowToFront;
  pWindowToFront * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  END;


(********)
(* Area *)
(********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pAddToCycleChainPtr * = POINTER [2] TO pAddToCycleChain;
  pAddToCycleChain * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pAddToCycleChainPtr * = UNTRACED POINTER TO pAddToCycleChain;
  pAddToCycleChain * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pAskMinMaxPtr * = POINTER [2] TO pAskMinMax;
  pAskMinMax * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pAskMinMaxPtr * = UNTRACED POINTER TO pAskMinMax;
  pAskMinMax * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   minMax * : MinMaxPtr;
		 END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pCleanupPtr * = POINTER [2] TO pCleanup;
  pCleanup * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pCleanupPtr * = UNTRACED POINTER TO pCleanup;
  pCleanup * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pContextMenuBuildPtr * = POINTER [2] TO pContextMenuBuild;
  pContextMenuBuild* = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pContextMenuBuildPtr * = UNTRACED POINTER TO pContextMenuBuild;
  pContextMenuBuild * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		mx*,my* : LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pContextMenuChoicePtr * = POINTER [2] TO pContextMenuChoice;
  pContextMenuChoice* = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pContextMenuChoicePtr * = UNTRACED POINTER TO pContextMenuChoice;
  pContextMenuChoice * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		choice *: LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDisablePtr * = POINTER [2] TO pDisable;
  pDisable * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDisablePtr * = UNTRACED POINTER TO pDisable;
  pDisable * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDragBeginPtr * = POINTER [2] TO pDragBegin;
  pDragBegin * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDragBeginPtr * = UNTRACED POINTER TO pDragBegin;
  pDragBegin * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  obj *: Object;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDragDropPtr * = POINTER [2] TO pDragDrop;
  pDragDrop * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDragDropPtr * = UNTRACED POINTER TO pDragDrop;
  pDragDrop * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  obj *: Object;
		  x*,y*: LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDragFinishPtr * = POINTER [2] TO pDragFinish;
  pDragFinish * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDragFinishPtr * = UNTRACED POINTER TO pDragFinish;
  pDragFinish * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  obj *: Object;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDragQueryPtr * = POINTER [2] TO pDragQuery;
  pDragQuery * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDragQueryPtr * = UNTRACED POINTER TO pDragQuery;
  pDragQuery * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  obj *: Object;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDragReportPtr * = POINTER [2] TO pDragReport;
  pDragReport * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDragReportPtr * = UNTRACED POINTER TO pDragReport;
  pDragReport * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		  obj *: Object;
		  x*,y*: LONGINT;
		  update*:LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pDrawPtr * = POINTER [2] TO pDraw;
  pDraw * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pDrawPtr * = UNTRACED POINTER TO pDraw;
  pDraw * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	      (* <*IF OberonA THEN*> $IF OberonA *)
	      flags * : Sets.SET32
	      (* <* ELSE *> $ELSE *)
	      flags * : LONGSET;
	      (* <*END*> $END *)
	    END;



(* <*IF OberonA THEN*> $IF OberonA *)
  pEnablePtr * = POINTER [2] TO pEnable;
  pEnable * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pEnablePtr * = UNTRACED POINTER TO pEnable;
  pEnable * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pHandleInputPtr * = POINTER [2] TO pHandleInput;
  pHandleInput * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pHandleInputPtr * = UNTRACED POINTER TO pHandleInput;
  pHandleInput * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		     imsg   * : Intuition.IntuiMessagePtr;
		     muikey * : LONGINT;
		   END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pHidePtr * = POINTER [2] TO pHide;
  pHide * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pHidePtr * = UNTRACED POINTER TO pHide;
  pHide * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pHittestPtr * = POINTER [2] TO pHittest;
  pHittest * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pHittestPtr * = UNTRACED POINTER TO pHittest;
  pHittest * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		x*,y*:LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pSetupPtr * = POINTER [2] TO pSetup;
  pSetup * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pSetupPtr * = UNTRACED POINTER TO pSetup;
  pSetup * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	       renderInfo * : RenderInfoPtr;
	     END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pShowPtr * = POINTER [2] TO pShow;
  pShow * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pShowPtr * = UNTRACED POINTER TO pShow;
  pShow * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pWhichObjectPtr * = POINTER [2] TO pWhichObject;
  pWhichObject * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pWhichObjectPtr * = UNTRACED POINTER TO pWhichObject;
  pWhichObject * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	      x *, y*: LONGINT;
	    END;

(********)
(* List *)
(********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pListClearPtr * = POINTER [2] TO pListClear;
  pListClear * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListClearPtr * = UNTRACED POINTER TO pListClear;
  pListClear * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListCreateImagePtr * = POINTER [2] TO pListCreateImage;
  pListCreateImage * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListCreateImagePtr * = UNTRACED POINTER TO pListCreateImage;
  pListCreateImage * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			obj *: Object;
			(* <*IF OberonA THEN*> $IF OberonA *)
			flags * : Sets.SET32
			(* <* ELSE *> $ELSE *)
			flags * : LONGSET;
			(* <*END*> $END *)

		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListDeleteImagePtr * = POINTER [2] TO pListDeleteImage;
  pListDeleteImage * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListDeleteImagePtr * = UNTRACED POINTER TO pListDeleteImage;
  pListDeleteImage * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      listimg *: Exec.APTR;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListExchangePtr * = POINTER [2] TO pListExchange;
  pListExchange * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListExchangePtr * = UNTRACED POINTER TO pListExchange;
  pListExchange * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      pos1 * : LONGINT;
		      pos2 * : LONGINT;
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListGetEntryPtr * = POINTER [2] TO pListGetEntry;
  pListGetEntry * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListGetEntryPtr * = UNTRACED POINTER TO pListGetEntry;
  pListGetEntry * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      pos * : LONGINT;
		      entry * : Exec.APTR
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListInsertPtr * = POINTER [2] TO pListInsert;
  pListInsert * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListInsertPtr * = UNTRACED POINTER TO pListInsert;
  pListInsert * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    entries * : Exec.APTR;
		    count   * : LONGINT;
		    pos     * : LONGINT;
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListInsertSinglePtr * = POINTER [2] TO pListInsertSingle;
  pListInsertSingle * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListInsertSinglePtr * = UNTRACED POINTER TO pListInsertSingle;
  pListInsertSingle * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  entry * : Exec.APTR;
			  pos   * : LONGINT;
			END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListJumpPtr * = POINTER [2] TO pListJump;
  pListJump * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListJumpPtr * = UNTRACED POINTER TO pListJump;
  pListJump * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    pos * : LONGINT;
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListMovePtr * = POINTER [2] TO pListMove;
  pListMove * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListMovePtr * = UNTRACED POINTER TO pListMove;
  pListMove * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    from * : LONGINT;
		    to   * : LONGINT;
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListNextSelectedPtr * = POINTER [2] TO pListNextSelected;
  pListNextSelected * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListNextSelectedPtr * = UNTRACED POINTER TO pListNextSelected;
  pListNextSelected * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
			  (* <*IF OberonA THEN*> $IF OberonA *)
			  pos * : POINTER [2] TO LONGINTARRAY;
			  (* <* ELSE *> $ELSE *)
			  pos * : UNTRACED POINTER TO LONGINT;
			  (* <*END*> $END *)
		       END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pListRedrawPtr * = POINTER [2] TO pListRedraw;
  pListRedraw * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListRedrawPtr * = UNTRACED POINTER TO pListRedraw;
  pListRedraw * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    pos * : LONGINT;
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListRemovePtr * = POINTER [2] TO pListRemove;
  pListRemove * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListRemovePtr * = UNTRACED POINTER TO pListRemove;
  pListRemove * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    pos * : LONGINT;
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListSelectPtr * = POINTER [2] TO pListSelect;
  pListSelect * = RECORD [2]( Intuition.Msg );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListSelectPtr * = UNTRACED POINTER TO pListSelect;
  pListSelect * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    pos     * : LONGINT;
		    selType * : LONGINT;
		    (* <*IF OberonA THEN*> $IF OberonA *)
		    state   * : POINTER [2] TO LONGINTARRAY;
		    (* <* ELSE *> $ELSE *)
		    state   * : UNTRACED POINTER TO LONGINT;
		    (* <*END*> $END *)
		  END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListSortPtr * = POINTER [2] TO pListSort;
  pListSort * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListSortPtr * = UNTRACED POINTER TO pListSort;
  pListSort * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pListTestPosPtr * = POINTER [2] TO pListTestPos;
  pListTestPos * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pListTestPosPtr * = UNTRACED POINTER TO pListTestPos;
  pListTestPos * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		      x*,y*:LONGINT;
		      res *:Exec.APTR;
		    END;

(*************)
(* Popstring *)
(*************)

(* <*IF OberonA THEN*> $IF OberonA *)
  pPopstringClosePtr * = POINTER [2] TO pPopstringClose;
  pPopstringClose *= RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pPopstringClosePtr * = UNTRACED POINTER TO pPopstringClose;
  pPopstringClose *= STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		       result : LONGINT;
		     END;

(***********)
(* Numeric *)
(***********)
(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericDecreasePtr * = POINTER [2] TO pNumericDecrease;
  pNumericDecrease *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericDecreasePtr * = UNTRACED POINTER TO pNumericDecrease;
  pNumericDecrease *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			amount *:LONGINT;
		       END;
(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericIncreasePtr * = POINTER [2] TO pNumericIncrease;
  pNumericIncrease *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericIncreasePtr * = UNTRACED POINTER TO pNumericIncrease;
  pNumericIncrease *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			amount *:LONGINT;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericScaleToValuePtr * = POINTER [2] TO pNumericScaleToValue;
  pNumericScaleToValue *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericScaleToValuePtr * = UNTRACED POINTER TO pNumericScaleToValue;
  pNumericScaleToValue *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			  scalemin*:LONGINT;
			  scalemax*:LONGINT;
			  scae*:LONGINT
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericSetDefaultPtr * = POINTER [2] TO pNumericSetDefault;
  pNumericSetDefault *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericSetDefaultPtr * = UNTRACED POINTER TO pNumericSetDefault;
  pNumericSetDefault *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)      
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericStringifyPtr * = POINTER [2] TO pNumericStringify;
  pNumericStringify *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericStringifyPtr * = UNTRACED POINTER TO pNumericStringify;
  pNumericStringify *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			value *: LONGINT;
		       END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pNumericValueToScalePtr * = POINTER [2] TO pNumericValueToScale;
  pNumericValueToScale *= RECORD [2] ( Intuition.MsgBase );
			 msg *: Intuition.Msg;
(* <* ELSE *> $ELSE *)
  pNumericValueToScalePtr * = UNTRACED POINTER TO pNumericValueToScale;
  pNumericValueToScale *= STRUCT( msg*:Intuition.Msg);
(* <*END*> $END *)
			scalemin*:LONGINT;
			scalemax*:LONGINT;
		       END;

(**********)
(* Slider *)
(**********)

(* <*IF OberonA THEN*> $IF OberonA *)
  pSliderDisplayPtr * = POINTER [2] TO pSliderDisplay;
  pSliderDisplay * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pSliderDisplayPtr * = UNTRACED POINTER TO pSliderDisplay;
  pSliderDisplay * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	      level *: LONGINT;
	      mri   * : RenderInfoPtr;
	      left*,top* : LONGINT;
	      width*,height*: LONGINT;
	    END;

(* <*IF OberonA THEN*> $IF OberonA *)
  pPopstringOpenPtr * = POINTER [2] TO pPopstringOpen;
  pPopstringOpen *= RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pPopstringOpenPtr * = UNTRACED POINTER TO pPopstringOpen;
  pPopstringOpen *= STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
		   END;


(* <*IF OberonA THEN*> $IF OberonA *)
  pGroupPtr * = POINTER [2] TO pGroup;
  pGroup * = RECORD [2]( Intuition.MsgBase );
		  msg       * : Intuition.Msg;
(* <*ELSE*> $ELSE *)
  pGroupPtr * = UNTRACED POINTER TO pGroup;
  pGroup * = STRUCT (msg*:Intuition.Msg)
(* <*END*> $END *)
	    END;

(* the following macros can be used to get pointers to an objects
   GlobalInfo and RenderInfo structures. *)

(* <*IF OberonA THEN*> $IF OberonA *)
  dummyXFC2 =  POINTER [2] TO  RECORD [2]
(* <* ELSE *> $ELSE *)
  dummyXFC2 =  POINTER TO STRUCT
(* <*END*> $END *)
			    mnd : NotifyData;
			    mad : AreaData;
			  END;

TYPE
(* <*IF OberonA THEN*> $IF OberonA *)
  ClipHandle *= POINTER [2] TO ClipHandleDesc;
  ClipHandleDesc = RECORD [2] END;
(* <* ELSE *> $ELSE *)
  ClipHandle *= UNTRACED POINTER TO ClipHandleDesc;
  ClipHandleDesc = STRUCT END;
(* <*END*> $END *)

VAR
  base * : Exec.LibraryPtr;

  PROCEDURE GetNotifyData*( obj : Object ):NotifyDataPtr;
    VAR d : dummyXFC2;
    BEGIN
      d:= SYSTEM.VAL( dummyXFC2, obj );
      RETURN SYSTEM.VAL( NotifyDataPtr,SYSTEM.ADR( d.mnd  ) );
    END GetNotifyData;

  PROCEDURE GetAreaData*( obj : Object ):AreaDataPtr;
    VAR d : dummyXFC2;
    BEGIN
      d:= SYSTEM.VAL( dummyXFC2, obj );
      RETURN SYSTEM.VAL( AreaDataPtr,SYSTEM.ADR( d.mad  ) );
    END GetAreaData;

  PROCEDURE GetGlobalInfo*( obj : Object ):GlobalInfoPtr;
    VAR d : dummyXFC2;
    BEGIN
      d:= SYSTEM.VAL( dummyXFC2, obj );
      RETURN d.mnd.globalInfo;
    END GetGlobalInfo;

  PROCEDURE GetRenderInfo*( obj : Object ):RenderInfoPtr;
    VAR d : dummyXFC2;
    BEGIN
      d:= SYSTEM.VAL( dummyXFC2, obj );
      RETURN d.mad.renderInfo;
    END GetRenderInfo;

(****************************************************************************)
(** Special values for WindowObjects                                       **)
(****************************************************************************)


  PROCEDURE  vWindowAltHeightMinMax      * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowAltHeightMinMax;
  PROCEDURE  vWindowAltHeightVisible     * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowAltHeightVisible;
  PROCEDURE  vWindowAltHeightScreen      * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowAltHeightScreen;

  PROCEDURE  vWindowAltTopEdgeDelta      * (p:LONGINT): LONGINT; BEGIN RETURN (-3-(p)) END vWindowAltTopEdgeDelta;
  PROCEDURE  vWindowAltWidthMinMax       * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowAltWidthMinMax;
  PROCEDURE  vWindowAltWidthVisible      * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowAltWidthVisible;
  PROCEDURE  vWindowAltWidthScreen       * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowAltWidthScreen;
  PROCEDURE  vWindowHeightMinMax         * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowHeightMinMax;
  PROCEDURE  vWindowHeightVisible        * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowHeightVisible;
  PROCEDURE  vWindowHeightScreen         * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowHeightScreen;
  PROCEDURE  vWindowTopEdgeDelta         * (p:LONGINT): LONGINT; BEGIN RETURN (-3-(p)) END vWindowTopEdgeDelta;
  PROCEDURE  vWindowWidthMinMax          * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowWidthMinMax;
  PROCEDURE  vWindowWidthVisible         * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowWidthVisible;
  PROCEDURE  vWindowWidthScreen          * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowWidthScreen;


(* Some useful shortcuts. define MUI_NOSHORTCUTS to get rid of them *)

  PROCEDURE app*( obj : Object ):Object;
    VAR gi : GlobalInfoPtr;
    BEGIN
      gi := GetGlobalInfo( obj );
      RETURN gi.applicationObject;
    END app;

  PROCEDURE win*( obj : Object ):Object;
    VAR ri : RenderInfoPtr;
    BEGIN
      ri := GetRenderInfo( obj );
      RETURN ri.windowObject;
    END win;

  PROCEDURE dri*( obj : Object ):Intuition.DrawInfoPtr;
    VAR ri : RenderInfoPtr;
    BEGIN
      ri := GetRenderInfo( obj );
      RETURN ri.drawInfo;
    END dri;

  PROCEDURE window*( obj : Object ):Intuition.WindowPtr;
    VAR ri : RenderInfoPtr;
    BEGIN
      ri := GetRenderInfo( obj );
      RETURN ri.window;
    END window;

  PROCEDURE screen*( obj : Object ):Intuition.ScreenPtr;
    VAR ri : RenderInfoPtr;
    BEGIN
      ri := GetRenderInfo( obj );
      RETURN ri.screen;
    END screen;

  PROCEDURE rp*( obj : Object ):Graphics.RastPortPtr;
    VAR ri : RenderInfoPtr;
    BEGIN
      ri := GetRenderInfo( obj );
      RETURN ri.rastPort;
    END rp;

  PROCEDURE left*( obj : Object ):INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.box.left
    END left;

  PROCEDURE top*( obj : Object ):INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.box.top
    END top;

  PROCEDURE width*( obj : Object ):INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.box.width
    END width;

  PROCEDURE height*( obj : Object ):INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.box.height
    END height;

  PROCEDURE  right*( obj : Object ):INTEGER;
    BEGIN RETURN  left(obj)+width(obj)-1 END right;

  PROCEDURE  bottom*( obj : Object ):INTEGER;
    BEGIN RETURN top(obj)+height(obj)-1 END bottom;

  PROCEDURE  addleft*( obj : Object ):SHORTINT;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.addleft
    END addleft;

  PROCEDURE  addtop*( obj : Object ):SHORTINT;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.addtop
    END addtop;

  PROCEDURE  subwidth*( obj : Object ):SHORTINT;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.subwidth
    END subwidth;

  PROCEDURE  subheight*( obj : Object ):SHORTINT;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.subheight
    END subheight;

  PROCEDURE  mleft*( obj : Object ):INTEGER;
    BEGIN RETURN ( left(obj)+addleft(obj) ) END mleft;

  PROCEDURE  mtop*( obj : Object ):INTEGER;
    BEGIN RETURN ( top(obj)+addtop(obj) ) END mtop;

  PROCEDURE  mwidth*( obj : Object ):INTEGER;
    BEGIN RETURN ( width(obj)-subwidth(obj) ) END mwidth;

  PROCEDURE  mheight*( obj : Object ):INTEGER;
    BEGIN RETURN ( height(obj)-subheight(obj) ) END mheight;

  PROCEDURE  mright*( obj : Object ):INTEGER;
    BEGIN RETURN ( mleft(obj)+mwidth(obj)-1 ) END mright;

  PROCEDURE  mbottom*( obj : Object ):INTEGER;
    BEGIN RETURN ( mtop(obj)+mheight(obj)-1 ) END mbottom;

  PROCEDURE  font*( obj : Object ):Graphics.TextFontPtr;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.font
    END font;

  PROCEDURE  minwidth*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.minWidth;
    END minwidth;

  PROCEDURE  minheight*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.minHeight;
    END minheight;

  PROCEDURE  maxwidth*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.maxWidth;
    END maxwidth;

  PROCEDURE  maxheight*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.maxHeight;
    END maxheight;

  PROCEDURE  defwidth*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.defWidth;
    END defwidth;

  PROCEDURE  defheight*( obj : Object ): INTEGER;
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.minMax.defHeight;
    END defheight;


(* <*IF OberonA THEN*> $IF OberonA *)
  PROCEDURE  flags*( obj : Object ):Sets.SET32;
(* <* ELSE *> $ELSE *)
  PROCEDURE  flags*( obj : Object ):LONGSET;
(* <*END*> $END *)
    VAR ad : AreaDataPtr;
    BEGIN
      ad := GetAreaData( obj );
      RETURN ad.flags
    END flags;

(***************************************************************************
** Functions in muimaster.library
***************************************************************************)

(* <*IF OberonA THEN*> $IF OberonA *)
PROCEDURE [4] NewObjectA           * [base,-30]( class[8]      : ARRAY OF CHAR;
					     tags[9]       : ARRAY OF Utility.TagItem): Object;

PROCEDURE [4] NewObject            * [base,-30]( class[8]      : ARRAY OF CHAR;
					     tags[9]..     : Utility.Tag): Object;

PROCEDURE [4] DisposeObject        * [base,-36]( obj[8]        : Object);


PROCEDURE [4] RequestA             * [base,-42]( app[0]        : Object;
					     win[1]        : Object;
					     flags[2]      : LONGINT;
					     title[8]      : ARRAY OF CHAR;
					     gadgets[9]    : ARRAY OF CHAR;
					     format[10]    : ARRAY OF CHAR;
					     params[11]    : ARRAY OF Utility.TagItem) : LONGINT;

PROCEDURE [4] Request              * [base,-42]( app[0]        : Object;
					     win[1]        : Object;
					     flags[2]      : LONGINT;
					     title[8]      : ARRAY OF CHAR;
					     gadgets[9]    : ARRAY OF CHAR;
					     format[10]    : ARRAY OF CHAR;
					     params[11]..  : Utility.Tag) : LONGINT;

PROCEDURE [4] AllocAslRequest      * [base,-48]( typ[0]  : LONGINT;
					     tags[8] : ARRAY OF Utility.TagItem) : ASL.ASLRequesterPtr;

PROCEDURE [4] AllocAslRequestTags  * [base,-48]( typ[0]    : LONGINT;
					     tags[8].. : Utility.Tag) : ASL.ASLRequesterPtr;

PROCEDURE [4] AslRequest           * [base,-54]( req[8]  : ASL.ASLRequesterPtr;
					     tags[9] : ARRAY OF Utility.TagItem) : BOOLEAN;

PROCEDURE [4] AslRequestTags       * [base,-54]( req[8]    : ASL.ASLRequesterPtr;
					     tags[9].. : Utility.Tag) : BOOLEAN;

PROCEDURE [4] FreeAslRequest       * [base,-60]( req[8]  : ASL.ASLRequesterPtr );

PROCEDURE [4] Error                * [base,-66]() : LONGINT;

(* functions to be used with custom classes *)

PROCEDURE [4] SetError             * [base,-72]( num[0] : LONGINT ):LONGINT;

PROCEDURE [4] GetClass             * [base,-78]( classname[8] : ARRAY OF CHAR ):Intuition.IClassPtr;

PROCEDURE [4] FreeClass            * [base,-84]( classptr[8]: Intuition.IClassPtr );

PROCEDURE [4] RequestIDCMP         * [base,-90]( obj[8]:Object; flags[0]:Sets.SET32 );

PROCEDURE [4] RejectIDCMP          * [base,-96]( obj[8]:Object; flags[0]:Sets.SET32 );

PROCEDURE [4] Redraw               * [base,-102]( obj[8]:Object; flags[0]:Sets.SET32 );


PROCEDURE [4] CreateCustomClass    * [base,-108]( base[8]     : Exec.LibraryPtr;
					      supername[9]: ARRAY OF CHAR;
					      supermcc[10]: CustomClassPtr;
					      datasize[0] : LONGINT;
					      dispfunc[11]: dispatcher ):CustomClassPtr;


PROCEDURE [4] DeleteCustomClass    * [base,-114]( mcc[8] : CustomClassPtr ):BOOLEAN;


PROCEDURE [4] MakeObject           * [base,-120](objtype[0]  : LONGINT;
					     params[8].. : SYSTEM.ADDRESS ):Object;

PROCEDURE [4] MakeObjectA          * [base,-120](objtype[0]  : LONGINT;
					     params[8]   : Exec.APTR ):Object;

PROCEDURE [4] AddClipping          * {base,-150}(mri{8} : RenderInfoPtr;
					     left{0},top{1},width{2},height{3} : LONGINT): ClipHandle;

PROCEDURE [4] RemoveClipping       * {base,-156}(mri{8} : RenderInfoPtr; handle{9}:ClipHandle);

(*************************************************************)
(* layout function, use only in custom layout callback hook! *)
(*************************************************************)

PROCEDURE [4] Layout               * {base,-162}(obj{8}:Object;
					     left{0},top{1},width{2},height{3} : LONGINT;
					     flags{4}: Sets.SET32):BOOLEAN;


PROCEDURE [4] DoMethod * ["Classface_Domethod"] ( obj[10]: Object; msg[9]..: Utility.Tag );
PROCEDURE [4] DOMethod * ["Classface_DoMethod"] ( obj[10]: Object; msg[9]..: Utility.Tag ) : LONGINT;

(* <* ELSE *> $ELSE *)

(****************************************)
(* functions to be used in applications *)
(****************************************)

PROCEDURE NewObjectA           * {base,-30}( class{8}      : ARRAY OF CHAR;
					     tags{9}       : ARRAY OF Utility.TagItem): Object;

PROCEDURE NewObject            * {base,-30}( class{8}      : ARRAY OF CHAR;
					     tags{9}..     : Utility.Tag): Object;

PROCEDURE DisposeObject        * {base,-36}( obj{8}        : Object);


PROCEDURE RequestA             * {base,-42}( app{0}        : Object;
					     win{1}        : Object;
					     flags{2}      : LONGINT;
					     title{8}      : ARRAY OF CHAR;
					     gadgets{9}    : ARRAY OF CHAR;
					     format{10}    : ARRAY OF CHAR;
					     params{11}    : ARRAY OF Utility.TagItem) : LONGINT;

PROCEDURE Request              * {base,-42}( app{0}        : Object;
					     win{1}        : Object;
					     flags{2}      : LONGINT;
					     title{8}      : ARRAY OF CHAR;
					     gadgets{9}    : ARRAY OF CHAR;
					     format{10}    : ARRAY OF CHAR;
					     params{11}..  : Utility.Tag) : LONGINT;

PROCEDURE AllocAslRequest      * {base,-48}( typ{0}  : LONGINT;
					     tags{8} : ARRAY OF Utility.TagItem) : ASL.ASLRequesterPtr;

PROCEDURE AllocAslRequestTags  * {base,-48}( typ{0}    : LONGINT;
					     tags{8}.. : Utility.Tag) : ASL.ASLRequesterPtr;

PROCEDURE AslRequest           * {base,-54}( req{8}  : ASL.ASLRequesterPtr;
					     tags{9} : ARRAY OF Utility.TagItem) : BOOLEAN;

PROCEDURE AslRequestTags       * {base,-54}( req{8}    : ASL.ASLRequesterPtr;
					     tags{9}.. : Utility.Tag) : BOOLEAN;

PROCEDURE FreeAslRequest       * {base,-60}( req{8}  : ASL.ASLRequesterPtr );

PROCEDURE Error                * {base,-66}() : LONGINT;

(******************************************)
(* functions to be used in custom classes *)
(******************************************)

PROCEDURE SetError             * {base,-72}( num{0} : LONGINT ):LONGINT;

PROCEDURE GetClass             * {base,-78}( classname{8} : ARRAY OF CHAR ):Intuition.IClassPtr;

PROCEDURE FreeClass            * {base,-84}( classptr{8}: Intuition.IClassPtr );

PROCEDURE RequestIDCMP         * {base,-90}( obj{8}:Object; flags{0}:LONGSET );

PROCEDURE RejectIDCMP          * {base,-96}( obj{8}:Object; flags{0}:LONGSET );

PROCEDURE Redraw               * {base,-102}( obj{8}:Object; flags{0}:LONGSET );


PROCEDURE CreateCustomClass    * {base,-108}( base{8}     : Exec.LibraryPtr;
					      supername{9}: ARRAY OF CHAR;
					      supermcc{10}: CustomClassPtr;
					      datasize{0} : LONGINT;
					      dispfunc{11}: dispatcher ):CustomClassPtr;

PROCEDURE DeleteCustomClass    * {base,-114}( mcc{8} : CustomClassPtr ):BOOLEAN;


PROCEDURE MakeObject           * {base,-120}(objtype{0}  : LONGINT;
					     params{8}.. : SYSTEM.ADDRESS ):Object;

PROCEDURE MakeObjectA          * {base,-120}(objtype{0}  : LONGINT;
					     params{8}   : Exec.APTR ):Object;

PROCEDURE AddClipping          * {base,-150}(mri{8} : RenderInfoPtr;
					     left{0},top{1},width{2},height{3} : LONGINT): ClipHandle;

PROCEDURE RemoveClipping       * {base,-156}(mri{8} : RenderInfoPtr; handle{9}:ClipHandle);

(*************************************************************)
(* layout function, use only in custom layout callback hook! *)
(*************************************************************)

PROCEDURE Layout               * {base,-162}(obj{8}:Object;
					     left{0},top{1},width{2},height{3} : LONGINT;
					     flags{4}: LONGSET):BOOLEAN;


PROCEDURE DoMethod * {"_a_DoMethodA"} ( obj{10}: Object; msg{9}..: Utility.Tag );
PROCEDURE DOMethod * {"_a_DoMethodA"} ( obj{10}: Object; msg{9}..: Utility.Tag ) : LONGINT;
(* <*END*> $END *)

(*--- Library Base variable --------------------------------------------*)

(* <*IF OberonA THEN*> $IF OberonA *)
(* <*$LongVars-*> *)

(*------------------------------------*)
PROCEDURE* CloseLib (VAR rc : LONGINT);

BEGIN (* CloseLib *)
  IF base # NIL THEN Exec.CloseLibrary (base) END
END CloseLib;

BEGIN
  base := Exec.OpenLibrary (name, minVersion);
  IF base # NIL THEN Kernel.SetCleanup (CloseLib) END;

(* <* ELSE *> $ELSE *)
BEGIN
  base := Exec.OpenLibrary( name, minVersion);
  IF base=NIL THEN
    IF Intuition.DisplayAlert(0,"\x00\x64\x14missing muimaster.library V8\o\o",50) THEN END;
    HALT(0)
  END;
CLOSE
  IF base#NIL THEN Exec.CloseLibrary(base) END;             
(* <*END*> $END *)
END Mui.