fpc/rtl/morphos/intuition.pas

{
    This file is part of the Free Pascal run time library.
    Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>

    intuition.library interface unit for MorphOS/PowerPC

    Based on work of Nils Sjoholm member of the Amiga RTL
    development team.

    MorphOS port was done on a free Pegasos II/G4 machine
    provided by Genesi S.a.r.l. <www.genesi.lu>

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}
{$PACKRECORDS 2}

unit intuition;

interface

uses
  exec, graphics, utility, inputevent, timer, layers;


{
 * NOTE:  intuition/iobsolete.h is included at the END of this file!
 }

{ ======================================================================== }
{ === IntuiText ========================================================== }
{ ================================= ======================================= }
{ IntuiText is a series of strings that start with a screen location
 *  (always relative to the upper-left corner of something) and then the
 *  text of the string.  The text is null-terminated.
 }
Type
    pIntuiText = ^tIntuiText;
    tIntuiText = record
        FrontPen,
        BackPen         : Byte;         { the pen numbers for the rendering }
        DrawMode        : Byte;         { the mode for rendering the text }
        LeftEdge        : smallint;        { relative start location for the text }
        TopEdge         : smallint;        { relative start location for the text }
        ITextFont       : pTextAttr;  { if NULL, you accept the default }
        IText           : PChar;       { pointer to null-terminated text }
        NextText        : pIntuiText;   { continuation to TxWrite another text }
    end;



{ ======================================================================== }
{ === Border ============================================================= }
{ ======================================================================== }
{ Data type Border, used for drawing a series of lines which is intended for
 *  use as a border drawing, but which may, in fact, be used to render any
 *  arbitrary vector shape.
 *  The routine DrawBorder sets up the RastPort with the appropriate
 *  variables, then does a Move to the first coordinate, then does Draws
 *  to the subsequent coordinates.
 *  After all the Draws are done, if NextBorder is non-zero we call DrawBorder
 *  recursively
 }
Type
    pBorder = ^tBorder;
    tBorder = record
        LeftEdge,
        TopEdge         : smallint;        { initial offsets from the origin }
        FrontPen,
        BackPen         : Byte;         { pens numbers for rendering }
        DrawMode        : Byte;         { mode for rendering }
        Count           : Shortint;         { number of XY pairs }
        XY              : Pointer;      { vector coordinate pairs rel to LeftTop}
        NextBorder      : pBorder;      { pointer to any other Border too }
    end;

{ ======================================================================== }
{ === MenuItem =========================================================== }
{ ======================================================================== }

Type

    pMenuItem = ^tMenuItem;
    tMenuItem = record
        NextItem        : pMenuItem;    { pointer to next in chained list }
        LeftEdge,
        TopEdge         : smallint;        { position of the select box }
        Width,
        Height          : smallint;        { dimensions of the select box }
        Flags           : Word;        { see the defines below }

        MutualExclude   : Longint;      { set bits mean this item excludes that }

        ItemFill        : Pointer;      { points to Image, IntuiText, or NULL }

    { when this item is pointed to by the cursor and the items highlight
     *  mode HIGHIMAGE is selected, this alternate image will be displayed
     }

        SelectFill      : Pointer;      { points to Image, IntuiText, or NULL }

        Command         : Char;         { only if appliprog sets the COMMSEQ flag }

        SubItem         : pMenuItem;    { if non-zero, DrawMenu shows "->" }

    { The NextSelect field represents the menu number of next selected
     *  item (when user has drag-selected several items)
     }

        NextSelect      : Word;
    end;


Const

{ FLAGS SET BY THE APPLIPROG }
    CHECKIT     = $0001;        { whether to check this item if selected }
    ITEMTEXT    = $0002;        { set if textual, clear if graphical item }
    COMMSEQ     = $0004;        { set if there's an command sequence }
    MENUTOGGLE  = $0008;        { set to toggle the check of a menu item }
    ITEMENABLED = $0010;        { set if this item is enabled }

{ these are the SPECIAL HIGHLIGHT FLAG state meanings }
    HIGHFLAGS   = $00C0;        { see definitions below for these bits }
    HIGHIMAGE   = $0000;        { use the user's "select image" }
    HIGHCOMP    = $0040;        { highlight by complementing the selectbox }
    HIGHBOX     = $0080;        { highlight by "boxing" the selectbox }
    HIGHNONE    = $00C0;        { don't highlight }

{ FLAGS SET BY BOTH APPLIPROG AND INTUITION }
    CHECKED     = $0100;        { if CHECKIT, then set this when selected }

{ FLAGS SET BY INTUITION }
    ISDRAWN     = $1000;        { this item's subs are currently drawn }
    HIGHITEM    = $2000;        { this item is currently highlighted }
    MENUTOGGLED = $4000;        { this item was already toggled }


{ ======================================================================== }
{ === Menu =============================================================== }
{ ======================================================================== }
Type

    pMenu = ^tMenu;
    tMenu = record
        NextMenu        : pMenu;        { same level }
        LeftEdge,
        TopEdge         : smallint;        { position of the select box }
        Width,
        Height          : smallint;        { dimensions of the select box }
        Flags           : Word;        { see flag definitions below }
        MenuName        : PChar;       { text for this Menu Header }
        FirstItem       : pMenuItem;  { pointer to first in chain }

    { these mysteriously-named variables are for internal use only }

        JazzX,
        JazzY,
        BeatX,
        BeatY           : smallint;
    end;

CONST
{ FLAGS SET BY BOTH THE APPLIPROG AND INTUITION }
    MENUENABLED = $0001;        { whether or not this menu is enabled }

{ FLAGS SET BY INTUITION }
    MIDRAWN     = $0100;        { this menu's items are currently drawn }




{ ======================================================================== }
{ === Gadget ============================================================= }
{ ======================================================================== }

Type

    pGadget = ^tGadget;
    tGadget = record
        NextGadget      : pGadget;      { next gadget in the list }

        LeftEdge,
        TopEdge         : smallint;        { "hit box" of gadget }
        Width,
        Height          : smallint;        { "hit box" of gadget }

        Flags           : Word;        { see below for list of defines }

        Activation      : Word;        { see below for list of defines }

        GadgetType      : Word;        { see below for defines }

    { appliprog can specify that the Gadget be rendered as either as Border
     * or an Image.  This variable points to which (or equals NULL if there's
     * nothing to be rendered about this Gadget)
     }

        GadgetRender    : Pointer;

    { appliprog can specify "highlighted" imagery rather than algorithmic
     * this can point to either Border or Image data
     }

        SelectRender    : Pointer;

        GadgetText      : pIntuiText; { text for this gadget }

    { by using the MutualExclude word, the appliprog can describe
     * which gadgets mutually-exclude which other ones.  The bits
     * in MutualExclude correspond to the gadgets in object containing
     * the gadget list.  If this gadget is selected and a bit is set
     * in this gadget's MutualExclude and the gadget corresponding to
     * that bit is currently selected (e.g. bit 2 set and gadget 2
     * is currently selected) that gadget must be unselected.
     * Intuition does the visual unselecting (with checkmarks) and
     * leaves it up to the program to unselect internally
     }

        MutualExclude   : Longint;      { set bits mean this gadget excludes that gadget }

    { pointer to a structure of special data required by Proportional,
     * String and Longint Gadgets
     }

        SpecialInfo     : Pointer;

        GadgetID        : Word;        { user-definable ID field }
        UserData        : Pointer;      { ptr to general purpose User data (ignored by In) }
    end;

 pExtGadget = ^tExtGadget;
 tExtGadget = record
    { The first fields match struct Gadget exactly }
    NextGadget     : pExtGadget;  { Matches struct Gadget }
    LeftEdge, TopEdge,            { Matches struct Gadget }
    Width, Height  : smallint;     { Matches struct Gadget }
    Flags,                        { Matches struct Gadget }
    Activation,                   { Matches struct Gadget }
    GadgetType     : WORD;        { Matches struct Gadget }
    GadgetRender,                 { Matches struct Gadget }
    SelectRender   : Pointer;     { Matches struct Gadget }
    GadgetText     : pIntuiText;  { Matches struct Gadget }
    MutualExclude  : Longint;     { Matches struct Gadget }
    SpecialInfo    : Pointer;     { Matches struct Gadget }
    GadgetID       : WORD;        { Matches struct Gadget }
    UserData       : Pointer;     { Matches struct Gadget }

    { These fields only exist under V39 and only if GFLG_EXTENDED is set }
    MoreFlags      : Cardinal;     { see GMORE_ flags below }
    BoundsLeftEdge,             { Bounding extent for gadget, valid   }
    BoundsTopEdge,              { only if GMORE_BOUNDS is set.  The   }
    BoundsWidth,                { GFLG_RELxxx flags affect these      }
    BoundsHeight   : smallint;      { coordinates as well.        }
 end;


CONST
{ --- Gadget.Flags values      --- }
{ combinations in these bits describe the highlight technique to be used }
 GFLG_GADGHIGHBITS  = $0003;
 GFLG_GADGHCOMP     = $0000;  { Complement the select box }
 GFLG_GADGHBOX      = $0001;  { Draw a box around the image }
 GFLG_GADGHIMAGE    = $0002;  { Blast in this alternate image }
 GFLG_GADGHNONE     = $0003;  { don't highlight }

 GFLG_GADGIMAGE     = $0004;  { set IF GadgetRender AND SelectRender
                                   * point to an Image structure, clear
                                   * if they point to Border structures
                                   }

{ combinations in these next two bits specify to which corner the gadget's
 *  Left & Top coordinates are relative.  If relative to Top/Left,
 *  these are "normal" coordinates (everything is relative to something in
 *  this universe).
 *
 * Gadget positions and dimensions are relative to the window or
 * requester which contains the gadget
 }
 GFLG_RELBOTTOM   = $0008;  { vert. pos. is relative to bottom edge }
 GFLG_RELRIGHT    = $0010;  { horiz. pos. is relative to right edge }
 GFLG_RELWIDTH    = $0020;  { width is relative to req/window    }
 GFLG_RELHEIGHT   = $0040;  { height is relative to req/window   }

{ New for V39: GFLG_RELSPECIAL allows custom gadget implementors to
 * make gadgets whose position and size depend in an arbitrary way
 * on their window's dimensions.  The GM_LAYOUT method will be invoked
 * for such a gadget (or any other GREL_xxx gadget) at suitable times,
 * such as when the window opens or the window's size changes.
 }
 GFLG_RELSPECIAL  = $4000;  { custom gadget has special relativity.
                                   * Gadget box values are absolutes, but
                                   * can be changed via the GM_LAYOUT method.
                                   }

 GFLG_SELECTED    = $0080;  { you may initialize AND look at this        }

{ the GFLG_DISABLED flag is initialized by you and later set by Intuition
 * according to your calls to On/OffGadget().  It specifies whether or not
 * this Gadget is currently disabled from being selected
 }
 GFLG_DISABLED    = $0100;

{ These flags specify the type of text field that Gadget.GadgetText
 * points to.  In all normal (pre-V36) gadgets which you initialize
 * this field should always be zero.  Some types of gadget objects
 * created from classes will use these fields to keep track of
 * types of labels/contents that different from IntuiText, but are
 * stashed in GadgetText.
 }

 GFLG_LABELMASK   = $3000;
 GFLG_LABELITEXT  = $0000;  { GadgetText points to IntuiText     }
 GFLG_LABELSTRING = $1000;  { GadgetText points to (UBYTE *)     }
 GFLG_LABELIMAGE  = $2000;  { GadgetText points to Image (object)        }

{ New for V37: GFLG_TABCYCLE }
 GFLG_TABCYCLE    = $0200;  { (string OR custom) gadget participates in
                                   * cycling activation with Tab or Shift-Tab
                                   }
{ New for V37: GFLG_STRINGEXTEND.  We discovered that V34 doesn't properly
 * ignore the value we had chosen for the Gadget->Activation flag
 * GACT_STRINGEXTEND.  NEVER SET THAT FLAG WHEN RUNNING UNDER V34.
 * The Gadget->Flags bit GFLG_STRINGEXTEND is provided as a synonym which is
 * safe under V34, and equivalent to GACT_STRINGEXTEND under V37.
 * (Note that the two flags are not numerically equal)
 }
 GFLG_STRINGEXTEND = $0400;  { this String Gadget has StringExtend        }

{ New for V39: GFLG_IMAGEDISABLE.  This flag is automatically set if
 * the custom image of this gadget knows how to do disabled rendering
 * (more specifically, if its IA_SupportsDisable attribute is TRUE).
 * Intuition uses this to defer the ghosting to the image-class,
 * instead of doing it itself (the old compatible way).
 * Do not set this flag yourself - Intuition will do it for you.
 }

 GFLG_IMAGEDISABLE = $0800;  { Gadget's image knows how to do disabled
                                   * rendering
                                   }

{ New for V39:  If set, this bit means that the Gadget is actually
 * a struct ExtGadget, with new fields and flags.  All V39 boopsi
 * gadgets are ExtGadgets.  Never ever attempt to read the extended
 * fields of a gadget if this flag is not set.
 }
 GFLG_EXTENDED    = $8000;  { Gadget is extended }

{ ---  Gadget.Activation flag values   --- }
{ Set GACT_RELVERIFY if you want to verify that the pointer was still over
 * the gadget when the select button was released.  Will cause
 * an IDCMP_GADGETUP message to be sent if so.
 }
 GACT_RELVERIFY    = $0001;

{ the flag GACT_IMMEDIATE, when set, informs the caller that the gadget
 *  was activated when it was activated.  This flag works in conjunction with
 *  the GACT_RELVERIFY flag
 }
 GACT_IMMEDIATE    = $0002;

{ the flag GACT_ENDGADGET, when set, tells the system that this gadget,
 * when selected, causes the Requester to be ended.  Requesters
 * that are ended are erased and unlinked from the system.
 }
 GACT_ENDGADGET    = $0004;

{ the GACT_FOLLOWMOUSE flag, when set, specifies that you want to receive
 * reports on mouse movements while this gadget is active.
 * You probably want to set the GACT_IMMEDIATE flag when using
 * GACT_FOLLOWMOUSE, since that's the only reasonable way you have of
 * learning why Intuition is suddenly sending you a stream of mouse
 * movement events.  If you don't set GACT_RELVERIFY, you'll get at
 * least one Mouse Position event.
 }
 GACT_FOLLOWMOUSE = $0008;

{ if any of the BORDER flags are set in a Gadget that's included in the
 * Gadget list when a Window is opened, the corresponding Border will
 * be adjusted to make room for the Gadget
 }
 GACT_RIGHTBORDER = $0010;
 GACT_LEFTBORDER  = $0020;
 GACT_TOPBORDER   = $0040;
 GACT_BOTTOMBORDER= $0080;
 GACT_BORDERSNIFF = $8000;  { neither set nor rely on this bit   }

 GACT_TOGGLESELECT= $0100;  { this bit for toggle-select mode }
 GACT_BOOLEXTEND  = $2000;  { this Boolean Gadget has a BoolInfo }

{ should properly be in StringInfo, but aren't }
 GACT_STRINGLEFT  = $0000;  { NOTE WELL: that this has value zero        }
 GACT_STRINGCENTER= $0200;
 GACT_STRINGRIGHT = $0400;
 GACT_LONGINT     = $0800;  { this String Gadget is for Long Ints        }
 GACT_ALTKEYMAP   = $1000;  { this String has an alternate keymap        }
 GACT_STRINGEXTEND= $2000;  { this String Gadget has StringExtend        }
                                  { NOTE: NEVER SET GACT_STRINGEXTEND IF YOU
                                   * ARE RUNNING ON LESS THAN V36!  SEE
                                   * GFLG_STRINGEXTEND (ABOVE) INSTEAD
                                   }

 GACT_ACTIVEGADGET = $4000;  { this gadget is "active".  This flag
                                   * is maintained by Intuition, and you
                                   * cannot count on its value persisting
                                   * while you do something on your program's
                                   * task.  It can only be trusted by
                                   * people implementing custom gadgets
                                   }

{ note $8000 is used above (GACT_BORDERSNIFF);
 * all Activation flags defined }

{ --- GADGET TYPES ------------------------------------------------------- }
{ These are the Gadget Type definitions for the variable GadgetType
 * gadget number type MUST start from one.  NO TYPES OF ZERO ALLOWED.
 * first comes the mask for Gadget flags reserved for Gadget typing
 }
 GTYP_GADGETTYPE = $FC00;  { all Gadget Global Type flags (padded) }
 GTYP_SYSGADGET  = $8000;  { 1 = Allocated by the system, 0 = by app. }
 GTYP_SCRGADGET  = $4000;  { 1 = ScreenGadget, 0 = WindowGadget }
 GTYP_GZZGADGET  = $2000;  { 1 = for WFLG_GIMMEZEROZERO borders }
 GTYP_REQGADGET  = $1000;  { 1 = this is a Requester Gadget }
{ system gadgets }
 GTYP_SIZING     = $0010;
 GTYP_WDRAGGING  = $0020;
 GTYP_SDRAGGING  = $0030;
 GTYP_WUPFRONT   = $0040;
 GTYP_SUPFRONT   = $0050;
 GTYP_WDOWNBACK  = $0060;
 GTYP_SDOWNBACK  = $0070;
 GTYP_CLOSE      = $0080;
{ application gadgets }
 GTYP_BOOLGADGET = $0001;
 GTYP_GADGET0002 = $0002;
 GTYP_PROPGADGET = $0003;
 GTYP_STRGADGET  = $0004;
 GTYP_CUSTOMGADGET    =   $0005;


{* GTYP_GTYPEMASK is a mask you can apply to tell what class
 * of gadget this is.  The possible classes follow.
 *}
 GTYP_GTYPEMASK        =  $0007;

{ This bit in GadgetType is reserved for undocumented internal use
 * by the Gadget Toolkit, and cannot be used nor relied on by
 * applications:        $0100;
 }

{ New for V39.  Gadgets which have the GFLG_EXTENDED flag set are
 * actually ExtGadgets, which have more flags.  The GMORE_xxx
 * identifiers describe those flags.  For GMORE_SCROLLRASTER, see
 * important information in the ScrollWindowRaster() autodoc.
 * NB: GMORE_SCROLLRASTER must be set before the gadget is
 * added to a window.
 }
 GMORE_BOUNDS       = $00000001; { ExtGadget has valid Bounds }
 GMORE_GADGETHELP   = $00000002; { This gadget responds to gadget help }
 GMORE_SCROLLRASTER = $00000004; { This (custom) gadget uses ScrollRaster }

{ ======================================================================== }
{ === BoolInfo======================================================= }
{ ======================================================================== }
{ This is the special data needed by an Extended Boolean Gadget
 * Typically this structure will be pointed to by the Gadget field SpecialInfo
 }
Type
    pBoolInfo = ^tBoolInfo;
    tBoolInfo = record
        Flags   : Word;        { defined below }
        Mask    : Pointer; { bit mask for highlighting and selecting
                         * mask must follow the same rules as an Image
                         * plane.  It's width and height are determined
                         * by the width and height of the gadget's
                         * select box. (i.e. Gadget.Width and .Height).
                         }
        Reserved : Cardinal;     { set to 0      }
    end;

Const

{ set BoolInfo.Flags to this flag bit.
 * in the future, additional bits might mean more stuff hanging
 * off of BoolInfo.Reserved.
}
    BOOLMASK    = $0001;        { extension is for masked gadget }

{ ======================================================================== }
{ === PropInfo =========================================================== }
{ ======================================================================== }
{ this is the special data required by the proportional Gadget
 * typically, this data will be pointed to by the Gadget variable SpecialInfo
 }

Type

    pPropInfo = ^tPropInfo;
    tPropInfo = record
        Flags   : Word;        { general purpose flag bits (see defines below) }

    { You initialize the Pot variables before the Gadget is added to
     * the system.  Then you can look here for the current settings
     * any time, even while User is playing with this Gadget.  To
     * adjust these after the Gadget is added to the System, use
     * ModifyProp();  The Pots are the actual proportional settings,
     * where a value of zero means zero and a value of MAXPOT means
     * that the Gadget is set to its maximum setting.
     }

        HorizPot        : WORD; { 16-bit FixedPoint horizontal quantity percentage }
        VertPot         : WORD; { 16-bit FixedPoint vertical quantity percentage }

    { the 16-bit FixedPoint Body variables describe what percentage of
     * the entire body of stuff referred to by this Gadget is actually
     * shown at one time.  This is used with the AUTOKNOB routines,
     * to adjust the size of the AUTOKNOB according to how much of
     * the data can be seen.  This is also used to decide how far
     * to advance the Pots when User hits the Container of the Gadget.
     * For instance, if you were controlling the display of a 5-line
     * Window of text with this Gadget, and there was a total of 15
     * lines that could be displayed, you would set the VertBody value to
     *     (MAXBODY / (TotalLines / DisplayLines)) = MAXBODY / 3.
     * Therefore, the AUTOKNOB would fill 1/3 of the container, and
     * if User hits the Cotainer outside of the knob, the pot would
     * advance 1/3 (plus or minus) If there's no body to show, or
     * the total amount of displayable info is less than the display area,
     * set the Body variables to the MAX.  To adjust these after the
     * Gadget is added to the System, use ModifyProp();
     }

        HorizBody       : Word;        { horizontal Body }
        VertBody        : Word;        { vertical Body }

    { these are the variables that Intuition sets and maintains }

        CWidth          : Word;        { Container width (with any relativity absoluted) }
        CHeight         : Word;        { Container height (with any relativity absoluted) }
        HPotRes,
        VPotRes         : Word;        { pot increments }
        LeftBorder      : Word;        { Container borders }
        TopBorder       : Word;        { Container borders }
    end;

CONST
{ --- FLAG BITS ---------------------------------------------------------- }
 AUTOKNOB     =   $0001;  { this flag sez:  gimme that old auto-knob }
{ NOTE: if you do not use an AUTOKNOB for a proportional gadget,
 * you are currently limited to using a single Image of your own
 * design: Intuition won't handle a linked list of images as
 * a proportional gadget knob.
 }

 FREEHORIZ     =  $0002;  { IF set, the knob can move horizontally }
 FREEVERT      =  $0004;  { IF set, the knob can move vertically }
 PROPBORDERLESS =  $0008;  { IF set, no border will be rendered }
 KNOBHIT       =  $0100;  { set when this Knob is hit }
 PROPNEWLOOK   =  $0010;  { set this IF you want to get the new
                                 * V36 look
                                 }

 KNOBHMIN      =  6;       { minimum horizontal size of the Knob }
 KNOBVMIN      =  4;       { minimum vertical size of the Knob }
 MAXBODY       =  $FFFF;  { maximum body value }
 MAXPOT        =  $FFFF;  { maximum pot value }

{ ======================================================================== }
{ === StringInfo ========================================================= }
{ ======================================================================== }
{ this is the special data required by the string Gadget
 * typically, this data will be pointed to by the Gadget variable SpecialInfo
 }

Type

    pStringInfo = ^tStringInfo;
    tStringInfo = record
    { you initialize these variables, and then Intuition maintains them }
        Buffer          : PChar;       { the buffer containing the start and final string }
        UndoBuffer      : PChar;       { optional buffer for undoing current entry }
        BufferPos       : smallint;        { character position in Buffer }
        MaxChars        : smallint;        { max number of chars in Buffer (including NULL) }
        DispPos         : smallint;        { Buffer position of first displayed character }

    { Intuition initializes and maintains these variables for you }

        UndoPos         : smallint;        { character position in the undo buffer }
        NumChars        : smallint;        { number of characters currently in Buffer }
        DispCount       : smallint;        { number of whole characters visible in Container }
        CLeft,
        CTop            : smallint;        { topleft offset of the container }

    { you can initialize this variable before the gadget is submitted to
     * Intuition, and then examine it later to discover what Longint
     * the user has entered (if the user never plays with the gadget,
     * the value will be unchanged from your initial setting)
     }
        Extension       : Pointer;
        _LongInt         : Longint;

    { If you want this Gadget to use your own Console keymapping, you
     * set the ALTKEYMAP bit in the Activation flags of the Gadget, and then
     * set this variable to point to your keymap.  If you don't set the
     * ALTKEYMAP, you'll get the standard ASCII keymapping.
     }

        AltKeyMap       : Pointer;
    end;


{ ======================================================================== }
{ === Requester ========================================================== }
{ ======================================================================== }

Type

    pRequester = ^tRequester;
    tRequester = record
    { the ClipRect and BitMap and used for rendering the requester }
        OlderRequest    : pRequester;
        LeftEdge,
        TopEdge         : smallint;        { dimensions of the entire box }
        Width,
        Height          : smallint;        { dimensions of the entire box }
        RelLeft,
        RelTop          : smallint;        { for Pointer relativity offsets }

        ReqGadget       : pGadget;    { pointer to a list of Gadgets }
        ReqBorder       : pBorder;    { the box's border }
        ReqText         : pIntuiText; { the box's text }
        Flags           : Word;        { see definitions below }

    { pen number for back-plane fill before draws }

        BackFill        : Byte;

    { Layer in place of clip rect       }

        ReqLayer        : pLayer;

        ReqPad1         : Array [0..31] of Byte;

    { If the BitMap plane pointers are non-zero, this tells the system
     * that the image comes pre-drawn (if the appliprog wants to define
     * it's own box, in any shape or size it wants!);  this is OK by
     * Intuition as long as there's a good correspondence between
     * the image and the specified Gadgets
     }

        ImageBMap       : pBitMap;    { points to the BitMap of PREDRAWN imagery }
        RWindow         : Pointer;      { added.  points back to Window }
        ReqImage        : Pointer;
        ReqPad2         : Array [0..31] of Shortint;
    end;


Const

{ FLAGS SET BY THE APPLIPROG }
    POINTREL            = $0001;    { if POINTREL set, TopLeft is relative to pointer}
    PREDRAWN            = $0002;    { if ReqBMap points to predrawn Requester imagery }
    NOISYREQ            = $0004;    { if you don't want requester to filter input          }

    SIMPLEREQ           = $0010;
        { to use SIMPLEREFRESH layer (recommended)     }

    { New for V36          }
    USEREQIMAGE         = $0020;
         {  render linked list ReqImage after BackFill
         * but before gadgets and text
         }
    NOREQBACKFILL       = $0040;
        { don't bother filling requester with Requester.BackFill pen   }


{ FLAGS SET BY INTUITION }
    REQOFFWINDOW        = $1000;        { part of one of the Gadgets was offwindow }
    REQACTIVE           = $2000;        { this requester is active }
    SYSREQUEST          = $4000;        { this requester caused by system }
    DEFERREFRESH        = $8000;        { this Requester stops a Refresh broadcast }




{ ======================================================================== }
{ === Image ============================================================== }
{ ======================================================================== }
{ This is a brief image structure for very simple transfers of
 * image data to a RastPort
 }

Type
    pImage = ^tImage;
    tImage = record
        LeftEdge        : smallint;        { starting offset relative to some origin }
        TopEdge         : smallint;        { starting offsets relative to some origin }
        Width           : smallint;        { pixel size (though data is word-aligned) }
        Height,
        Depth           : smallint;        { pixel sizes }
        ImageData       : Pointer;      { pointer to the actual word-aligned bits }

    { the PlanePick and PlaneOnOff variables work much the same way as the
     * equivalent GELS Bob variables.  It's a space-saving
     * mechanism for image data.  Rather than defining the image data
     * for every plane of the RastPort, you need define data only
     * for the planes that are not entirely zero or one.  As you
     * define your Imagery, you will often find that most of the planes
     * ARE just as color selectors.  For instance, if you're designing
     * a two-color Gadget to use colors two and three, and the Gadget
     * will reside in a five-plane display, bit plane zero of your
     * imagery would be all ones, bit plane one would have data that
     * describes the imagery, and bit planes two through four would be
     * all zeroes.  Using these flags allows you to avoid wasting all
     * that memory in this way:  first, you specify which planes you
     * want your data to appear in using the PlanePick variable.  For
     * each bit set in the variable, the next "plane" of your image
     * data is blitted to the display.  For each bit clear in this
     * variable, the corresponding bit in PlaneOnOff is examined.
     * If that bit is clear, a "plane" of zeroes will be used.
     * If the bit is set, ones will go out instead.  So, for our example:
     *   Gadget.PlanePick = $02;
     *   Gadget.PlaneOnOff = $01;
     * Note that this also allows for generic Gadgets, like the
     * System Gadgets, which will work in any number of bit planes.
     * Note also that if you want an Image that is only a filled
     * rectangle, you can get this by setting PlanePick to zero
     * (pick no planes of data) and set PlaneOnOff to describe the pen
     * color of the rectangle.
     }

        PlanePick,
        PlaneOnOff      : Byte;

    { if the NextImage variable is not NULL, Intuition presumes that
     * it points to another Image structure with another Image to be
     * rendered
     }

        NextImage       : pImage;
    end;


{ New for V39, Intuition supports the IESUBCLASS_NEWTABLET subclass
 * of the IECLASS_NEWPOINTERPOS event.  The ie_EventAddress of such
 * an event points to a TabletData structure (see below).
 *
 * The TabletData structure contains certain elements including a taglist.
 * The taglist can be used for special tablet parameters.  A tablet driver
 * should include only those tag-items the tablet supports.  An application
 * can listen for any tag-items that interest it.  Note: an application
 * must set the WA_TabletMessages attribute to TRUE to receive this
 * extended information in its IntuiMessages.
 *
 * The definitions given here MUST be followed.  Pay careful attention
 * to normalization and the interpretation of signs.
 *
 * TABLETA_TabletZ:  the current value of the tablet in the Z direction.
 * This unsigned value should typically be in the natural units of the
 * tablet.  You should also provide TABLETA_RangeZ.
 *
 * TABLETA_RangeZ:  the maximum value of the tablet in the Z direction.
 * Normally specified along with TABLETA_TabletZ, this allows the
 * application to scale the actual Z value across its range.
 *
 * TABLETA_AngleX:  the angle of rotation or tilt about the X-axis.  This
 * number should be normalized to fill a signed long Longint.  Positive
 * values imply a clockwise rotation about the X-axis when viewing
 * from +X towards the origin.
 *
 * TABLETA_AngleY:  the angle of rotation or tilt about the Y-axis.  This
 * number should be normalized to fill a signed long Longint.  Positive
 * values imply a clockwise rotation about the Y-axis when viewing
 * from +Y towards the origin.
 *
 * TABLETA_AngleZ:  the angle of rotation or tilt about the Z axis.  This
 * number should be normalized to fill a signed long Longint.  Positive
 * values imply a clockwise rotation about the Z-axis when viewing
 * from +Z towards the origin.
 *
 *      Note: a stylus that supports tilt should use the TABLETA_AngleX
 *      and TABLETA_AngleY attributes.  Tilting the stylus so the tip
 *      points towards increasing or decreasing X is actually a rotation
 *      around the Y-axis.  Thus, if the stylus tip points towards
 *      positive X, then that tilt is represented as a negative
 *      TABLETA_AngleY.  Likewise, if the stylus tip points towards
 *      positive Y, that tilt is represented by positive TABLETA_AngleX.
 *
 * TABLETA_Pressure:  the pressure reading of the stylus.  The pressure
 * should be normalized to fill a signed long Longint.  Typical devices
 * won't generate negative pressure, but the possibility is not precluded.
 * The pressure threshold which is considered to cause a button-click is
 * expected to be set in a Preferences program supplied by the tablet
 * vendor.  The tablet driver would send IECODE_LBUTTON-type events as
 * the pressure crossed that threshold.
 *
 * TABLETA_ButtonBits:  ti_Data is a long Longint whose bits are to
 * be interpreted at the state of the first 32 buttons of the tablet.
 *
 * TABLETA_InProximity:  ti_Data is a boolean.  For tablets that support
 * proximity, they should send the (TABLETA_InProximity,FALSE) tag item
 * when the stylus is out of proximity.  One possible use we can forsee
 * is a mouse-blanking commodity which keys off this to blank the
 * mouse.  When this tag is absent, the stylus is assumed to be
 * in proximity.
 *
 * TABLETA_ResolutionX:  ti_Data is an unsigned long Longint which
 * is the x-axis resolution in dots per inch.
 *
 * TABLETA_ResolutionY:  ti_Data is an unsigned long Longint which
 * is the y-axis resolution in dots per inch.
 }

const
 TABLETA_Dummy          = (TAG_USER + $3A000)  ;
 TABLETA_TabletZ        = (TABLETA_Dummy + $01);
 TABLETA_RangeZ         = (TABLETA_Dummy + $02);
 TABLETA_AngleX         = (TABLETA_Dummy + $03);
 TABLETA_AngleY         = (TABLETA_Dummy + $04);
 TABLETA_AngleZ         = (TABLETA_Dummy + $05);
 TABLETA_Pressure       = (TABLETA_Dummy + $06);
 TABLETA_ButtonBits     = (TABLETA_Dummy + $07);
 TABLETA_InProximity    = (TABLETA_Dummy + $08);
 TABLETA_ResolutionX    = (TABLETA_Dummy + $09);
 TABLETA_ResolutionY    = (TABLETA_Dummy + $0A);

{ If your window sets WA_TabletMessages to TRUE, then it will receive
 * extended IntuiMessages (struct ExtIntuiMessage) whose eim_TabletData
 * field points at a TabletData structure.  This structure contains
 * additional information about the input event.
 }

Type
 pTabletData = ^tTabletData;
 tTabletData = record
    { Sub-pixel position of tablet, in screen coordinates,
     * scaled to fill a UWORD fraction:
     }
    td_XFraction, td_YFraction  : WORD;

    { Current tablet coordinates along each axis: }
    td_TabletX, td_TabletY      : Cardinal;

    { Tablet range along each axis.  For example, if td_TabletX
     * can take values 0-999, td_RangeX should be 1000.
     }
    td_RangeX, td_RangeY        : Cardinal;

    { Pointer to tag-list of additional tablet attributes.
     * See <intuition/intuition.h> for the tag values.
     }
    td_TagList                  : pTagItem;
 end;

{ If a tablet driver supplies a hook for ient_CallBack, it will be
 * invoked in the standard hook manner.  A0 will point to the Hook
 * itself, A2 will point to the InputEvent that was sent, and
 * A1 will point to a TabletHookData structure.  The InputEvent's
 * ie_EventAddress field points at the IENewTablet structure that
 * the driver supplied.
 *
 * Based on the thd_Screen, thd_Width, and thd_Height fields, the driver
 * should scale the ient_TabletX and ient_TabletY fields and store the
 * result in ient_ScaledX, ient_ScaledY, ient_ScaledXFraction, and
 * ient_ScaledYFraction.
 *
 * The tablet hook must currently return NULL.  This is the only
 * acceptable return-value under V39.
 }

 pTabletHookData = ^tTabletHookData;
 tTabletHookData = record
    { Pointer to the active screen:
     * Note: if there are no open screens, thd_Screen will be NULL.
     * thd_Width and thd_Height will then describe an NTSC 64$400
     * screen.  Please scale accordingly.
     }
    thd_Screen      : Pointer;

    { The width and height (measured in pixels of the active screen)
     * that your are to scale to:
     }
    thd_Width,
    thd_Height      : Cardinal;

    { Non-zero if the screen or something about the screen
     * changed since the last time you were invoked:
     }
    thd_ScreenChanged   : Longint;
 end;


{ ======================================================================== }
{ === IntuiMessage ======================================================= }
{ ======================================================================== }

Type

    pIntuiMessage = ^tIntuiMessage;
    tIntuiMessage = record
        ExecMessage     : tMessage;

    { the Class bits correspond directly with the IDCMP Flags, except for the
     * special bit LONELYMESSAGE (defined below)
     }

        IClass           : Cardinal;

    { the Code field is for special values like MENU number }

        Code            : Word;

    { the Qualifier field is a copy of the current InputEvent's Qualifier }

        Qualifier       : Word;

    { IAddress contains particular addresses for Intuition functions, like
     * the pointer to the Gadget or the Screen
     }

        IAddress        : Pointer;

    { when getting mouse movement reports, any event you get will have the
     * the mouse coordinates in these variables.  the coordinates are relative
     * to the upper-left corner of your Window (GIMMEZEROZERO notwithstanding)
     }

        MouseX,
        MouseY          : smallint;

    { the time values are copies of the current system clock time.  Micros
     * are in units of microseconds, Seconds in seconds.
     }

        Seconds,
        Micros          : Cardinal;

    { the IDCMPWindow variable will always have the Pointer of the Window of
     * this IDCMP
     }

        IDCMPWindow     : Pointer;

    { system-use variable }

        SpecialLink     : pIntuiMessage;
    end;

{ New for V39:
 * All IntuiMessages are now slightly extended.  The ExtIntuiMessage
 * structure has an additional field for tablet data, which is usually
 * NULL.  If a tablet driver which is sending IESUBCLASS_NEWTABLET
 * events is installed in the system, windows with the WA_TabletMessages
 * property set will find that eim_TabletData points to the TabletData
 * structure.  Applications must first check that this field is non-NULL;
 * it will be NULL for certain kinds of message, including mouse activity
 * generated from other than the tablet (i.e. the keyboard equivalents
 * or the mouse itself).
 *
 * NEVER EVER examine any extended fields when running under pre-V39!
 *
 * NOTE: This structure is subject to grow in the future.  Making
 * assumptions about its size is A BAD IDEA.
 }

 pExtIntuiMessage = ^tExtIntuiMessage;
 tExtIntuiMessage = record
    eim_IntuiMessage  : tIntuiMessage;
    eim_TabletData    : pTabletData;
 end;


CONST

{ --- IDCMP Classes ------------------------------------------------------ }
{ Please refer to the Autodoc for OpenWindow() and to the Rom Kernel
 * Manual for full details on the IDCMP classes.
 }
 IDCMP_SIZEVERIFY      =  $00000001;
 IDCMP_NEWSIZE         =  $00000002;
 IDCMP_REFRESHWINDOW   =  $00000004;
 IDCMP_MOUSEBUTTONS    =  $00000008;
 IDCMP_MOUSEMOVE       =  $00000010;
 IDCMP_GADGETDOWN      =  $00000020;
 IDCMP_GADGETUP        =  $00000040;
 IDCMP_REQSET          =  $00000080;
 IDCMP_MENUPICK        =  $00000100;
 IDCMP_CLOSEWINDOW     =  $00000200;
 IDCMP_RAWKEY          =  $00000400;
 IDCMP_REQVERIFY       =  $00000800;
 IDCMP_REQCLEAR        =  $00001000;
 IDCMP_MENUVERIFY      =  $00002000;
 IDCMP_NEWPREFS        =  $00004000;
 IDCMP_DISKINSERTED    =  $00008000;
 IDCMP_DISKREMOVED     =  $00010000;
 IDCMP_WBENCHMESSAGE   =  $00020000;  {  System use only         }
 IDCMP_ACTIVEWINDOW    =  $00040000;
 IDCMP_INACTIVEWINDOW  =  $00080000;
 IDCMP_DELTAMOVE       =  $00100000;
 IDCMP_VANILLAKEY      =  $00200000;
 IDCMP_INTUITICKS      =  $00400000;
{  for notifications from "boopsi" gadgets               }
 IDCMP_IDCMPUPDATE     =  $00800000;  { new for V36      }
{ for getting help key report during menu session        }
 IDCMP_MENUHELP        =  $01000000;  { new for V36      }
{ for notification of any move/size/zoom/change window   }
 IDCMP_CHANGEWINDOW    =  $02000000;  { new for V36      }
 IDCMP_GADGETHELP      =  $04000000;  { new for V39      }

{ NOTEZ-BIEN:                          $80000000 is reserved for internal use   }

{ the IDCMP Flags do not use this special bit, which is cleared when
 * Intuition sends its special message to the Task, and set when Intuition
 * gets its Message back from the Task.  Therefore, I can check here to
 * find out fast whether or not this Message is available for me to send
 }
 IDCMP_LONELYMESSAGE   =  $80000000;


{ --- IDCMP Codes -------------------------------------------------------- }
{ This group of codes is for the IDCMP_CHANGEWINDOW message }
 CWCODE_MOVESIZE = $0000;  { Window was moved and/or sized }
 CWCODE_DEPTH    = $0001;  { Window was depth-arranged (new for V39) }

{ This group of codes is for the IDCMP_MENUVERIFY function }
 MENUHOT       =  $0001;  { IntuiWants verification OR MENUCANCEL    }
 MENUCANCEL    =  $0002;  { HOT Reply of this cancels Menu operation }
 MENUWAITING   =  $0003;  { Intuition simply wants a ReplyMsg() ASAP }

{ These are internal tokens to represent state of verification attempts
 * shown here as a clue.
 }
 OKOK          =  MENUHOT; { guy didn't care                      }
 OKABORT       =  $0004;  { window rendered question moot        }
 OKCANCEL      =  MENUCANCEL; { window sent cancel reply          }

{ This group of codes is for the IDCMP_WBENCHMESSAGE messages }
 WBENCHOPEN    =  $0001;
 WBENCHCLOSE   =  $0002;


{ A data structure common in V36 Intuition processing  }
Type
   pIBox = ^tIBox;
   tIBox = record
    Left,
    Top,
    Width,
    Height : smallint;
   END;


{ ======================================================================== }
{ === Window ============================================================= }
{ ======================================================================== }

Type

    pWindow = ^tWindow;
    tWindow = record
        NextWindow      : pWindow;      { for the linked list in a screen }

        LeftEdge,
        TopEdge         : smallint;        { screen dimensions of window }
        Width,
        Height          : smallint;        { screen dimensions of window }

        MouseY,
        MouseX          : smallint;        { relative to upper-left of window }

        MinWidth,
        MinHeight       : smallint;        { minimum sizes }
        MaxWidth,
        MaxHeight       : smallint;        { maximum sizes }

        Flags           : Cardinal;      { see below for defines }

        MenuStrip       : pMenu;      { the strip of Menu headers }

        Title           : PChar;       { the title text for this window }

        FirstRequest    : pRequester; { all active Requesters }

        DMRequest       : pRequester; { double-click Requester }

        ReqCount        : smallint;        { count of reqs blocking Window }

        WScreen         : Pointer;      { this Window's Screen }
        RPort           : pRastPort;  { this Window's very own RastPort }

    { the border variables describe the window border.   If you specify
     * GIMMEZEROZERO when you open the window, then the upper-left of the
     * ClipRect for this window will be upper-left of the BitMap (with correct
     * offsets when in SuperBitMap mode; you MUST select GIMMEZEROZERO when
     * using SuperBitMap).  If you don't specify ZeroZero, then you save
     * memory (no allocation of RastPort, Layer, ClipRect and associated
     * Bitmaps), but you also must offset all your writes by BorderTop,
     * BorderLeft and do your own mini-clipping to prevent writing over the
     * system gadgets
     }

        BorderLeft,
        BorderTop,
        BorderRight,
        BorderBottom    : Shortint;
        BorderRPort     : pRastPort;


    { You supply a linked-list of Gadgets for your Window.
     * This list DOES NOT include system gadgets.  You get the standard
     * window system gadgets by setting flag-bits in the variable Flags (see
     * the bit definitions below)
     }

        FirstGadget     : pGadget;

    { these are for opening/closing the windows }

        Parent,
        Descendant      : pWindow;

    { sprite data information for your own Pointer
     * set these AFTER you Open the Window by calling SetPointer()
     }

        _Pointer         : Pointer;      { sprite data }
        PtrHeight       : Shortint;         { sprite height (not including sprite padding) }
        PtrWidth        : Shortint;         { sprite width (must be less than or equal to 16) }
        XOffset,
        YOffset         : Shortint;         { sprite offsets }

    { the IDCMP Flags and User's and Intuition's Message Ports }
        IDCMPFlags      : Cardinal;      { User-selected flags }
        UserPort,
        WindowPort      : pMsgPort;
        MessageKey      : pIntuiMessage;

        DetailPen,
        BlockPen        : Byte; { for bar/border/gadget rendering }

    { the CheckMark is a pointer to the imagery that will be used when
     * rendering MenuItems of this Window that want to be checkmarked
     * if this is equal to NULL, you'll get the default imagery
     }

        CheckMark       : pImage;

        ScreenTitle     : PChar; { if non-null, Screen title when Window is active }

    { These variables have the mouse coordinates relative to the
     * inner-Window of GIMMEZEROZERO Windows.  This is compared with the
     * MouseX and MouseY variables, which contain the mouse coordinates
     * relative to the upper-left corner of the Window, GIMMEZEROZERO
     * notwithstanding
     }

        GZZMouseX       : smallint;
        GZZMouseY       : smallint;

    { these variables contain the width and height of the inner-Window of
     * GIMMEZEROZERO Windows
     }

        GZZWidth        : smallint;
        GZZHeight       : smallint;

        ExtData         : Pointer;

        UserData        : Pointer;      { general-purpose pointer to User data extension }

    {* jimm: NEW: 11/18/85: this pointer keeps a duplicate of what
     * Window.RPort->Layer is _supposed_ to be pointing at
     }

        WLayer          : pLayer;

    { jimm: NEW 1.2: need to keep track of the font that
     * OpenWindow opened, in case user SetFont's into RastPort
     }

        IFont           : pTextFont;
    {* (V36) another flag word (the Flags field is used up).
     * At present, all flag values are system private.
     * Until further notice, you may not change nor use this field.
     *}
        MoreFlags       : Cardinal;

    {**** Data beyond this point are Intuition Private.  DO NOT USE ****}

    end;

CONST
{ --- Flags requested at OpenWindow() time by the application --------- }
 WFLG_SIZEGADGET   =  $00000001;  { include sizing system-gadget? }
 WFLG_DRAGBAR      =  $00000002;  { include dragging system-gadget? }
 WFLG_DEPTHGADGET  =  $00000004;  { include depth arrangement gadget? }
 WFLG_CLOSEGADGET  =  $00000008;  { include close-box system-gadget? }

 WFLG_SIZEBRIGHT   =  $00000010;  { size gadget uses right border }
 WFLG_SIZEBBOTTOM  =  $00000020;  { size gadget uses bottom border }

{ --- refresh modes ------------------------------------------------------ }
{ combinations of the WFLG_REFRESHBITS select the refresh type }
 WFLG_REFRESHBITS   = $000000C0;
 WFLG_SMART_REFRESH = $00000000;
 WFLG_SIMPLE_REFRESH= $00000040;
 WFLG_SUPER_BITMAP  = $00000080;
 WFLG_OTHER_REFRESH = $000000C0;

 WFLG_BACKDROP      = $00000100;  { this is a backdrop window }

 WFLG_REPORTMOUSE   = $00000200;  { to hear about every mouse move }

 WFLG_GIMMEZEROZERO = $00000400;  { a GimmeZeroZero window       }

 WFLG_BORDERLESS    = $00000800;  { to get a Window sans border }

 WFLG_ACTIVATE      = $00001000;  { when Window opens, it's Active }


{ --- Other User Flags --------------------------------------------------- }
 WFLG_RMBTRAP       = $00010000;  { Catch RMB events for your own }
 WFLG_NOCAREREFRESH = $00020000;  { not to be bothered with REFRESH }

{ - V36 new Flags which the programmer may specify in NewWindow.Flags  }
 WFLG_NW_EXTENDED   = $00040000;  { extension data provided      }
                                        { see struct ExtNewWindow      }

{ - V39 new Flags which the programmer may specify in NewWindow.Flags  }
 WFLG_NEWLOOKMENUS  = $00200000;  { window has NewLook menus     }

{ These flags are set only by Intuition.  YOU MAY NOT SET THEM YOURSELF! }
 WFLG_WINDOWACTIVE  = $00002000;  { this window is the active one }
 WFLG_INREQUEST     = $00004000;  { this window is in request mode }
 WFLG_MENUSTATE     = $00008000;  { Window is active with Menus on }
 WFLG_WINDOWREFRESH = $01000000;  { Window is currently refreshing }
 WFLG_WBENCHWINDOW  = $02000000;  { WorkBench tool ONLY Window }
 WFLG_WINDOWTICKED  = $04000000;  { only one timer tick at a time }

{ --- V36 Flags to be set only by Intuition -------------------------  }
 WFLG_VISITOR       = $08000000;  { visitor window               }
 WFLG_ZOOMED        = $10000000;  { identifies "zoom state"      }
 WFLG_HASZOOM       = $20000000;  { windowhas a zoom gadget      }

{ --- Other Window Values ---------------------------------------------- }
 DEFAULTMOUSEQUEUE  =     (5);     { no more mouse messages       }

{ --- see struct IntuiMessage for the IDCMP Flag definitions ------------- }


{ ======================================================================== }
{ === NewWindow ========================================================== }
{ ======================================================================== }

Type

    pNewWindow = ^tNewWindow;
    tNewWindow = record
        LeftEdge,
        TopEdge         : smallint;        { screen dimensions of window }
        Width,
        Height          : smallint;        { screen dimensions of window }

        DetailPen,
        BlockPen        : Byte;         { for bar/border/gadget rendering }

        IDCMPFlags      : Cardinal;      { User-selected IDCMP flags }

        Flags           : Cardinal;      { see Window struct for defines }

    { You supply a linked-list of Gadgets for your Window.
     *  This list DOES NOT include system Gadgets.  You get the standard
     *  system Window Gadgets by setting flag-bits in the variable Flags (see
     *  the bit definitions under the Window structure definition)
     }

        FirstGadget     : pGadget;

    { the CheckMark is a pointer to the imagery that will be used when
     * rendering MenuItems of this Window that want to be checkmarked
     * if this is equal to NULL, you'll get the default imagery
     }

        CheckMark       : pImage;

        Title           : PChar;  { the title text for this window }

    { the Screen pointer is used only if you've defined a CUSTOMSCREEN and
     * want this Window to open in it.  If so, you pass the Pointer of the
     * Custom Screen structure in this variable.  Otherwise, this variable
     * is ignored and doesn't have to be initialized.
     }

        Screen          : Pointer;

    { SUPER_BITMAP Window?  If so, put the Pointer of your BitMap structure
     * in this variable.  If not, this variable is ignored and doesn't have
     * to be initialized
     }

        BitMap          : pBitMap;

    { the values describe the minimum and maximum sizes of your Windows.
     * these matter only if you've chosen the WINDOWSIZING Gadget option,
     * which means that you want to let the User to change the size of
     * this Window.  You describe the minimum and maximum sizes that the
     * Window can grow by setting these variables.  You can initialize
     * any one these to zero, which will mean that you want to duplicate
     * the setting for that dimension (if MinWidth == 0, MinWidth will be
     * set to the opening Width of the Window).
     * You can change these settings later using SetWindowLimits().
     * If you haven't asked for a SIZING Gadget, you don't have to
     * initialize any of these variables.
     }

        MinWidth,
        MinHeight       : smallint;        { minimums }
        MaxWidth,
        MaxHeight       : smallint;        { maximums }

    { the type variable describes the Screen in which you want this Window to
     * open.  The type value can either be CUSTOMSCREEN or one of the
     * system standard Screen Types such as WBENCHSCREEN.  See the
     * type definitions under the Screen structure
     }

        WType           : Word;        { is "Type" in C includes }
    end;


{ The following structure is the future NewWindow.  Compatibility
 * issues require that the size of NewWindow not change.
 * Data in the common part (NewWindow) indicates the the extension
 * fields are being used.
 * NOTE WELL: This structure may be subject to future extension.
 * Writing code depending on its size is not allowed.
 }
   pExtNewWindow = ^tExtNewWindow;
   tExtNewWindow = record
    LeftEdge, TopEdge : smallint;
    Width, Height : smallint;

    DetailPen, BlockPen : Byte;
    IDCMPFlags    : Cardinal;
    Flags         : Cardinal;
    FirstGadget   : pGadget;

    CheckMark     : pImage;

    Title         : PChar;
    WScreen       : Pointer;
    WBitMap       : pBitMap;

    MinWidth, MinHeight : smallint;
    MaxWidth, MaxHeight : Word;

    { the type variable describes the Screen in which you want this Window to
     * open.  The type value can either be CUSTOMSCREEN or one of the
     * system standard Screen Types such as WBENCHSCREEN.  See the
     * type definitions under the Screen structure.
     * A new possible value for this field is PUBLICSCREEN, which
     * defines the window as a 'visitor' window.  See below for
     * additional information provided.
     }
    WType  : Word;

    { ------------------------------------------------------- *
     * extensions for V36
     * if the NewWindow Flag value WFLG_NW_EXTENDED is set, then
     * this field is assumed to point to an array ( or chain of arrays)
     * of TagItem structures.  See also ExtNewScreen for another
     * use of TagItems to pass optional data.
     *
     * see below for tag values and the corresponding data.
     }
    Extension : pTagItem;
  END;

{
 * The TagItem ID's (ti_Tag values) for OpenWindowTagList() follow.
 * They are values in a TagItem array passed as extension/replacement
 * values for the data in NewWindow.  OpenWindowTagList() can actually
 * work well with a NULL NewWindow pointer.
 }
CONST
 WA_Dummy     =   (TAG_USER + 99); { $80000063   }

{ these tags simply override NewWindow parameters }
 WA_Left               =  (WA_Dummy + $01);
 WA_Top                =  (WA_Dummy + $02);
 WA_Width              =  (WA_Dummy + $03);
 WA_Height             =  (WA_Dummy + $04);
 WA_DetailPen          =  (WA_Dummy + $05);
 WA_BlockPen           =  (WA_Dummy + $06);
 WA_IDCMP              =  (WA_Dummy + $07);
                        { "bulk" initialization of NewWindow.Flags }
 WA_Flags              =  (WA_Dummy + $08);
 WA_Gadgets            =  (WA_Dummy + $09);
 WA_Checkmark          =  (WA_Dummy + $0A);
 WA_Title              =  (WA_Dummy + $0B);
                        { means you don't have to call SetWindowTitles
                         * after you open your window
                         }
 WA_ScreenTitle        =  (WA_Dummy + $0C);
 WA_CustomScreen       =  (WA_Dummy + $0D);
 WA_SuperBitMap        =  (WA_Dummy + $0E);
                        { also implies WFLG_SUPER_BITMAP property      }
 WA_MinWidth           =  (WA_Dummy + $0F);
 WA_MinHeight          =  (WA_Dummy + $10);
 WA_MaxWidth           =  (WA_Dummy + $11);
 WA_MaxHeight          =  (WA_Dummy + $12);

{ The following are specifications for new features    }

 WA_InnerWidth         =  (WA_Dummy + $13);
 WA_InnerHeight        =  (WA_Dummy + $14);
                        { You can specify the dimensions of the interior
                         * region of your window, independent of what
                         * the border widths will be.  You probably want
                         * to also specify WA_AutoAdjust to allow
                         * Intuition to move your window or even
                         * shrink it so that it is completely on screen.
                         }

 WA_PubScreenName      =  (WA_Dummy + $15);
                        { declares that you want the window to open as
                         * a visitor on the public screen whose name is
                         * pointed to by (UBYTE *) ti_Data
                         }
 WA_PubScreen          =  (WA_Dummy + $16);
                        { open as a visitor window on the public screen
                         * whose Pointer is in (struct Screen *) ti_Data.
                         * To ensure that this screen remains open, you
                         * should either be the screen's owner, have a
                         * window open on the screen, or use LockPubScreen().
                         }
 WA_PubScreenFallBack  =  (WA_Dummy + $17);
                        { A Boolean, specifies whether a visitor window
                         * should "fall back" to the default public screen
                         * (or Workbench) if the named public screen isn't
                         * available
                         }
 WA_WindowName         =  (WA_Dummy + $18);
                        { not implemented      }
 WA_Colors             =  (WA_Dummy + $19);
                        { a ColorSpec array for colors to be set
                         * when this window is active.  This is not
                         * implemented, and may not be, since the default
                         * values to restore would be hard to track.
                         * We'd like to at least support per-window colors
                         * for the mouse pointer sprite.
                         }
 WA_Zoom       =  (WA_Dummy + $1A);
                        { ti_Data points to an array of four WORD's,
                         * the initial Left/Top/Width/Height values of
                         * the "alternate" zoom position/dimensions.
                         * It also specifies that you want a Zoom gadget
                         * for your window, whether or not you have a
                         * sizing gadget.
                         }
 WA_MouseQueue         =  (WA_Dummy + $1B);
                        { ti_Data contains initial value for the mouse
                         * message backlog limit for this window.
                         }
 WA_BackFill           =  (WA_Dummy + $1C);
                        { unimplemented at present: provides a "backfill
                         * hook" for your window's layer.
                         }
 WA_RptQueue           =  (WA_Dummy + $1D);
                        { initial value of repeat key backlog limit    }

    { These Boolean tag items are alternatives to the NewWindow.Flags
     * boolean flags with similar names.
     }
 WA_SizeGadget         =  (WA_Dummy + $1E);
 WA_DragBar            =  (WA_Dummy + $1F);
 WA_DepthGadget        =  (WA_Dummy + $20);
 WA_CloseGadget        =  (WA_Dummy + $21);
 WA_Backdrop           =  (WA_Dummy + $22);
 WA_ReportMouse        =  (WA_Dummy + $23);
 WA_NoCareRefresh      =  (WA_Dummy + $24);
 WA_Borderless         =  (WA_Dummy + $25);
 WA_Activate           =  (WA_Dummy + $26);
 WA_RMBTrap            =  (WA_Dummy + $27);
 WA_WBenchWindow       =  (WA_Dummy + $28);       { PRIVATE!! }
 WA_SimpleRefresh      =  (WA_Dummy + $29);
                        { only specify if TRUE }
 WA_SmartRefresh       =  (WA_Dummy + $2A);
                        { only specify if TRUE }
 WA_SizeBRight         =  (WA_Dummy + $2B);
 WA_SizeBBottom        =  (WA_Dummy + $2C);

    { New Boolean properties   }
 WA_AutoAdjust         =  (WA_Dummy + $2D);
                        { shift or squeeze the window's position and
                         * dimensions to fit it on screen.
                         }

 WA_GimmeZeroZero      =  (WA_Dummy + $2E);
                        { equiv. to NewWindow.Flags WFLG_GIMMEZEROZERO }

{ New for V37: WA_MenuHelp (ignored by V36) }
 WA_MenuHelp           =  (WA_Dummy + $2F);
                        { Enables IDCMP_MENUHELP:  Pressing HELP during menus
                         * will return IDCMP_MENUHELP message.
                         }

{ New for V39:  (ignored by V37 and earlier) }
 WA_NewLookMenus       =  (WA_Dummy + $30);
                        { Set to TRUE if you want NewLook menus }
 WA_AmigaKey           =  (WA_Dummy + $31);
                        { Pointer to image for Amiga-key equiv in menus }
 WA_NotifyDepth        =  (WA_Dummy + $32);
                        { Requests IDCMP_CHANGEWINDOW message when
                         * window is depth arranged
                         * (imsg->Code = CWCODE_DEPTH)
                         }

{ WA_Dummy + $33 is obsolete }

 WA_Pointer            =  (WA_Dummy + $34);
                        { Allows you to specify a custom pointer
                         * for your window.  ti_Data points to a
                         * pointer object you obtained via
                         * "pointerclass". NULL signifies the
                         * default pointer.
                         * This tag may be passed to OpenWindowTags()
                         * or SetWindowPointer().
                         }

 WA_BusyPointer        =  (WA_Dummy + $35);
                        { ti_Data is boolean.  Set to TRUE to
                         * request the standard busy pointer.
                         * This tag may be passed to OpenWindowTags()
                         * or SetWindowPointer().
                         }

 WA_PointerDelay       =  (WA_Dummy + $36);
                        { ti_Data is boolean.  Set to TRUE to
                         * request that the changing of the
                         * pointer be slightly delayed.  The change
                         * will be called off if you call NewSetPointer()
                         * before the delay expires.  This allows
                         * you to post a busy-pointer even if you think
                         * the busy-time may be very Word, without
                         * fear of a flashing pointer.
                         * This tag may be passed to OpenWindowTags()
                         * or SetWindowPointer().
                         }

 WA_TabletMessages     =  (WA_Dummy + $37);
                        { ti_Data is a boolean.  Set to TRUE to
                         * request that tablet information be included
                         * in IntuiMessages sent to your window.
                         * Requires that something (i.e. a tablet driver)
                         * feed IESUBCLASS_NEWTABLET InputEvents into
                         * the system.  For a pointer to the TabletData,
                         * examine the ExtIntuiMessage->eim_TabletData
                         * field.  It is UNSAFE to check this field
                         * when running on pre-V39 systems.  It's always
                         * safe to check this field under V39 and up,
                         * though it may be NULL.
                         }

 WA_HelpGroup          =  (WA_Dummy + $38);
                        { When the active window has gadget help enabled,
                         * other windows of the same HelpGroup number
                         * will also get GadgetHelp.  This allows GadgetHelp
                         * to work for multi-windowed applications.
                         * Use GetGroupID() to get an ID number.  Pass
                         * this number as ti_Data to all your windows.
                         * See also the HelpControl() function.
                         }

 WA_HelpGroupWindow    =  (WA_Dummy + $39);
                        { When the active window has gadget help enabled,
                         * other windows of the same HelpGroup will also get
                         * GadgetHelp.  This allows GadgetHelp to work
                         * for multi-windowed applications.  As an alternative
                         * to WA_HelpGroup, you can pass a pointer to any
                         * other window of the same group to join its help
                         * group.  Defaults to NULL, which has no effect.
                         * See also the HelpControl() function.
                         }


{ HelpControl() flags:
 *
 * HC_GADGETHELP - Set this flag to enable Gadget-Help for one or more
 * windows.
 }

 HC_GADGETHELP  = 1;


{ ======================================================================== }
{ === Remember =========================================================== }
{ ======================================================================== }
{ this structure is used for remembering what memory has been allocated to
 * date by a given routine, so that a premature abort or systematic exit
 * can deallocate memory cleanly, easily, and completely
 }

Type

    pRemember = ^tRemember;
    tRemember = record
        NextRemember    : pRemember;
        RememberSize    : Cardinal;
        Memory          : Pointer;
    end;


{ === Color Spec ====================================================== }
{ How to tell Intuition about RGB values for a color table entry. }

  pColorSpec = ^tColorSpec;
  tColorSpec = record
    ColorIndex  : smallint;     { -1 terminates an array of ColorSpec  }
    Red         : Word;     { only the _bottom_ 4 bits recognized }
    Green       : Word;     { only the _bottom_ 4 bits recognized }
    Blue        : Word;     { only the _bottom_ 4 bits recognized }
  END;

{ === Easy Requester Specification ======================================= }
{ see also autodocs for EasyRequest and BuildEasyRequest       }
{ NOTE: This structure may grow in size in the future          }

   pEasyStruct = ^tEasyStruct;
   tEasyStruct = record
    es_StructSize   : Cardinal;  { should be sizeof (struct EasyStruct )}
    es_Flags        : Cardinal;  { should be 0 for now                  }
    es_Title        : PChar;   { title of requester window            }
    es_TextFormat   : PChar;   { 'printf' style formatting string     }
    es_GadgetFormat : PChar;   { 'printf' style formatting string   }
   END;



{ ======================================================================== }
{ === Miscellaneous ====================================================== }
{ ======================================================================== }
CONST
{ = MENU STUFF =========================================================== }
    NOMENU      = $001F;
    NOITEM      = $003F;
    NOSUB       = $001F;
    MENUNULL    = -1;


{ = =RJ='s peculiarities ================================================= }

{ these defines are for the COMMSEQ and CHECKIT menu stuff.  If CHECKIT,
 * I'll use a generic Width (for all resolutions) for the CheckMark.
 * If COMMSEQ, likewise I'll use this generic stuff
 }

    CHECKWIDTH          = 19;
    COMMWIDTH           = 27;
    LOWCHECKWIDTH       = 13;
    LOWCOMMWIDTH        = 16;

{ these are the AlertNumber defines.  if you are calling DisplayAlert()
 * the AlertNumber you supply must have the ALERT_TYPE bits set to one
 * of these patterns
 }

    ALERT_TYPE          = $80000000;
    RECOVERY_ALERT      = $00000000;    { the system can recover from this }
    DEADEND_ALERT       = $80000000;    { no recovery possible, this is it }


{ When you're defining IntuiText for the Positive and Negative Gadgets
 * created by a call to AutoRequest(), these defines will get you
 * reasonable-looking text.  The only field without a define is the IText
 * field; you decide what text goes with the Gadget
 }

    AUTOFRONTPEN        = 0;
    AUTOBACKPEN         = 1;
    AUTODRAWMODE        = JAM2;
    AUTOLEFTEDGE        = 6;
    AUTOTOPEDGE         = 3;

{ -
    AUTOITEXTFONT       = Nil;
    AUTONEXTTEXT        = Nil;
- }


{ --- RAWMOUSE Codes and Qualifiers (Console OR IDCMP) ------------------- }


    SELECTUP            = IECODE_LBUTTON + IECODE_UP_PREFIX;
    SELECTDOWN          = IECODE_LBUTTON;
    MENUUP              = IECODE_RBUTTON + IECODE_UP_PREFIX;
    MENUDOWN            = IECODE_RBUTTON;
    ALTLEFT             = IEQUALIFIER_LALT;
    ALTRIGHT            = IEQUALIFIER_RALT;
    AMIGALEFT           = IEQUALIFIER_LCOMMAND;
    AMIGARIGHT          = IEQUALIFIER_RCOMMAND;
    AMIGAKEYS           = AMIGALEFT + AMIGARIGHT;

    CURSORUP            = $4C;
    CURSORLEFT          = $4F;
    CURSORRIGHT         = $4E;
    CURSORDOWN          = $4D;
    KEYCODE_Q           = $10;
    KEYCODE_X           = $32;
    KEYCODE_N           = $36;
    KEYCODE_M           = $37;
    KEYCODE_V           = $34;
    KEYCODE_B           = $35;
    KEYCODE_LESS        = $38;
    KEYCODE_GREATER     = $39;

{ these are the display modes for which we have corresponding parameter
 *  settings in the config arrays
 }
CONST
 DMODECOUNT    =  $0002;  { how many modes there are }
 HIRESPICK     =  $0000;
 LOWRESPICK    =  $0001;

 EVENTMAX = 10;             { size of event array }

{ these are the system Gadget defines }
 RESCOUNT       = 2;
 HIRESGADGET    = 0;
 LOWRESGADGET   = 1;

 GADGETCOUNT    = 8;
 UPFRONTGADGET  = 0;
 DOWNBACKGADGET = 1;
 SIZEGADGET     = 2;
 CLOSEGADGET    = 3;
 DRAGGADGET     = 4;
 SUPFRONTGADGET = 5;
 SDOWNBACKGADGET= 6;
 SDRAGGADGET    = 7;


{ ======================================================================== }
{ === DrawInfo ========================================================= }
{ ======================================================================== }

{ This is a packet of information for graphics rendering.  It originates
 * with a Screen, and is gotten using GetScreenDrawInfo( screen );
 }

{ If you find dri_Version >= DRI_VERSION, you know this structure
 * has at least the fields defined in this version of the include file
 }
CONST
 RI_VERSION  =    (1);     { obsolete, will be removed            }
 DRI_VERSION =    (1);

Type

 pDrawInfo = ^tDrawInfo;
 tDrawInfo = record
    dri_Version : Word;    { will be  DRI_VERSION                 }
    dri_NumPens : Word;    { guaranteed to be >= numDrIPens       }
    dri_Pens    : Pointer;  { pointer to pen array                 }

    dri_Font    : pTextFont;      { screen default font          }
    dri_Depth   : Word;            { (initial) depth of screen bitmap     }

    dri_Resolution : record      { from DisplayInfo database for initial display mode }
                   x : word;
                   y : word;
                   end;

    dri_Flags : Cardinal;              { defined below                }
{ New for V39: dri_CheckMark, dri_AmigaKey. }
    dri_CheckMark : pImage; { ImagePtr }         { pointer to scaled checkmark image
                                                  * Will be NULL if DRI_VERSION < 2
                                                  }
    dri_AmigaKey  : pImage; { ImagePtr }    { pointer to scaled Amiga-key image
                                             * Will be NULL if DRI_VERSION < 2
                                             }

    dri_Reserved : Array[0..4] of Cardinal;        { avoid recompilation ;^)      }
 END;

CONST
 DRIF_NEWLOOK =   $00000001;      { specified SA_Pens, full treatment }

{ rendering pen number indexes into DrawInfo.dri_Pens[]        }
 DETAILPEN    =    ($0000);       { compatible Intuition rendering pens  }
 BLOCKPEN     =    ($0001);       { compatible Intuition rendering pens  }
 TEXTPEN      =    ($0002);       { text on background                   }
 SHINEPEN     =    ($0003);       { bright edge on 3D objects            }
 SHADOWPEN    =    ($0004);       { dark edge on 3D objects              }
 FILLPEN      =    ($0005);       { active-window/selected-gadget fill   }
 FILLTEXTPEN  =    ($0006);       { text over FILLPEN                    }
 BACKGROUNDPEN =   ($0007);       { always color 0                       }
 HIGHLIGHTTEXTPEN = ($0008);       { special color text, on background    }
{ New for V39, only present if DRI_VERSION >= 2: }
 BARDETAILPEN   =  ($0009);       { text/detail in screen-bar/menus }
 BARBLOCKPEN    =  ($000A);       { screen-bar/menus fill }
 BARTRIMPEN     =  ($000B);       { trim under screen-bar }

 NUMDRIPENS   =    ($0009);

{ New for V39:  It is sometimes useful to specify that a pen value
 * is to be the complement of color zero to three.  The "magic" numbers
 * serve that purpose:
 }
 PEN_C3        =  $FEFC;          { Complement of color 3 }
 PEN_C2        =  $FEFD;          { Complement of color 2 }
 PEN_C1        =  $FEFE;          { Complement of color 1 }
 PEN_C0        =  $FEFF;          { Complement of color 0 }

{ ======================================================================== }
{ === Screen ============================================================= }
{ ======================================================================== }

Type

    pScreen = ^tScreen;
    tScreen = record
        NextScreen      : pScreen;      { linked list of screens }
        FirstWindow     : pWindow;      { linked list Screen's Windows }

        LeftEdge,
        TopEdge         : smallint;        { parameters of the screen }
        Width,
        Height          : smallint;        { parameters of the screen }

        MouseY,
        MouseX          : smallint;        { position relative to upper-left }

        Flags           : Word;        { see definitions below }

        Title           : PChar;       { null-terminated Title text }
        DefaultTitle    : PChar;       { for Windows without ScreenTitle }

    { Bar sizes for this Screen and all Window's in this Screen }
        BarHeight,
        BarVBorder,
        BarHBorder,
        MenuVBorder,
        MenuHBorder     : Shortint;
        WBorTop,
        WBorLeft,
        WBorRight,
        WBorBottom      : Shortint;

        Font            : pTextAttr;  { this screen's default font       }

    { the display data structures for this Screen (note the prefix S)}
        ViewPort        : tViewPort;     { describing the Screen's display }
        RastPort        : tRastPort;     { describing Screen rendering      }
        BitMap          : tBitMap;       { extra copy of RastPort BitMap   }
        LayerInfo       : tLayer_Info;   { each screen gets a LayerInfo     }

    { You supply a linked-list of Gadgets for your Screen.
     *  This list DOES NOT include system Gadgets.  You get the standard
     *  system Screen Gadgets by default
     }

        FirstGadget     : pGadget;

        DetailPen,
        BlockPen        : Byte;         { for bar/border/gadget rendering }

    { the following variable(s) are maintained by Intuition to support the
     * DisplayBeep() color flashing technique
     }
        SaveColor0      : Word;

    { This layer is for the Screen and Menu bars }
        BarLayer        : pLayer;

        ExtData         : Pointer;
        UserData        : Pointer;
                        { general-purpose pointer to User data extension }
    {**** Data below this point are SYSTEM PRIVATE ****}

    end;

Const

{ The screen flags have the suffix "_f" added to avoid conflicts with
  routine names. }

{ --- FLAGS SET BY INTUITION --------------------------------------------- }
{ The SCREENTYPE bits are reserved for describing various Screen types
 * available under Intuition.
 }
    SCREENTYPE_f        = $000F;        { all the screens types available       }
{ --- the definitions for the Screen Type ------------------------------- }
    WBENCHSCREEN_f      = $0001;        { Ta Da!  The Workbench         }
    CUSTOMSCREEN_f      = $000F;        { for that special look         }

    SHOWTITLE_f         = $0010;        { this gets set by a call to ShowTitle() }

    BEEPING_f           = $0020;        { set when Screen is beeping            }

    CUSTOMBITMAP_f      = $0040;        { if you are supplying your own BitMap }

    SCREENBEHIND_f      = $0080;        { if you want your screen to open behind
                                         * already open screens
                                         }
    SCREENQUIET_f       = $0100;        { if you do not want Intuition to render
                                         * into your screen (gadgets, title)     }
    SCREENHIRES         = $0200;        { do no use lowres gadgets (private)       }

    NS_EXTENDED         = $1000;          { ExtNewScreen.Extension is valid      }
    { V36 applications can use OpenScreenTagList() instead of NS_EXTENDED  }

{ New for V39: }
    PENSHARED           = $0400;  { Screen opener set (SA_SharePens,TRUE) }


    AUTOSCROLL          = $4000;  { screen is to autoscoll               }

    STDSCREENHEIGHT     = -1;           { supply in NewScreen.Height            }
    STDSCREENWIDTH      = -1;           { supply in NewScreen.Width             }



{
 * Screen attribute tag ID's.  These are used in the ti_Tag field of
 * TagItem arrays passed to OpenScreenTagList() (or in the
 * ExtNewScreen.Extension field).
 }

{ Screen attribute tags.  Please use these versions, not those in
 * iobsolete.h.
 }
CONST
  SA_Dummy    =    (TAG_USER + 32);
{
 * these items specify items equivalent to fields in NewScreen
 }
 SA_Left     =    (SA_Dummy + $0001);
 SA_Top      =    (SA_Dummy + $0002);
 SA_Width    =    (SA_Dummy + $0003);
 SA_Height   =    (SA_Dummy + $0004);
                        { traditional screen positions and dimensions  }
 SA_Depth    =    (SA_Dummy + $0005);
                        { screen bitmap depth                          }
 SA_DetailPen=    (SA_Dummy + $0006);
                        { serves as default for windows, too           }
 SA_BlockPen =    (SA_Dummy + $0007);
 SA_Title    =    (SA_Dummy + $0008);
                        { default screen title                         }
 SA_Colors   =    (SA_Dummy + $0009);
                        { ti_Data is an array of struct ColorSpec,
                         * terminated by ColorIndex = -1.  Specifies
                         * initial screen palette colors.
                         }
 SA_ErrorCode=    (SA_Dummy + $000A);
                        { ti_Data points to LONG error code (values below)}
 SA_Font     =    (SA_Dummy + $000B);
                        { equiv. to NewScreen.Font                     }
 SA_SysFont  =    (SA_Dummy + $000C);
                        { Selects one of the preferences system fonts:
                         *      0 - old DefaultFont, fixed-width
                         *      1 - WB Screen preferred font
                         }
 SA_Type     =    (SA_Dummy + $000D);
                        { equiv. to NewScreen.Type                     }
 SA_BitMap   =    (SA_Dummy + $000E);
                        { ti_Data is pointer to custom BitMap.  This
                         * implies type of CUSTOMBITMAP
                         }
 SA_PubName  =    (SA_Dummy + $000F);
                        { presence of this tag means that the screen
                         * is to be a public screen.  Please specify
                         * BEFORE the two tags below
                         }
 SA_PubSig   =    (SA_Dummy + $0010);
 SA_PubTask  =    (SA_Dummy + $0011);
                        { Task ID and signal for being notified that
                         * the last window has closed on a public screen.
                         }
 SA_DisplayID=    (SA_Dummy + $0012);
                        { ti_Data is new extended display ID from
                         * <graphics/displayinfo.h>.
                         }
 SA_DClip    =    (SA_Dummy + $0013);
                        { ti_Data points to a rectangle which defines
                         * screen display clip region
                         }
 SA_Overscan =    (SA_Dummy + $0014);
                        { was S_STDDCLIP.  Set to one of the OSCAN_
                         * specifiers below to get a system standard
                         * overscan region for your display clip,
                         * screen dimensions (unless otherwise specified),
                         * and automatically centered position (partial
                         * support only so far).
                         * If you use this, you shouldn't specify
                         * SA_DClip.  SA_Overscan is for "standard"
                         * overscan dimensions, SA_DClip is for
                         * your custom numeric specifications.
                         }
 SA_Obsolete1=    (SA_Dummy + $0015);
                        { obsolete S_MONITORNAME                       }

{* booleans *}
 SA_ShowTitle  =  (SA_Dummy + $0016);
                        { boolean equivalent to flag SHOWTITLE         }
 SA_Behind     =  (SA_Dummy + $0017);
                        { boolean equivalent to flag SCREENBEHIND      }
 SA_Quiet      =  (SA_Dummy + $0018);
                        { boolean equivalent to flag SCREENQUIET       }
 SA_AutoScroll =  (SA_Dummy + $0019);
                        { boolean equivalent to flag AUTOSCROLL        }
 SA_Pens       =  (SA_Dummy + $001A);
                        { pointer to ~0 terminated UWORD array, as
                         * found in struct DrawInfo
                         }
 SA_FullPalette=  (SA_Dummy + $001B);
                        { boolean: initialize color table to entire
                         *  preferences palette (32 for V36), rather
                         * than compatible pens 0-3, 17-19, with
                         * remaining palette as returned by GetColorMap()
                         }

 SA_ColorMapEntries = (SA_Dummy + $001C);
                        { New for V39:
                         * Allows you to override the number of entries
                         * in the ColorMap for your screen.  Intuition
                         * normally allocates (1<<depth) or 32, whichever
                         * is more, but you may require even more if you
                         * use certain V39 graphics.library features
                         * (eg. palette-banking).
                         }

 SA_Parent      = (SA_Dummy + $001D);
                        { New for V39:
                         * ti_Data is a pointer to a "parent" screen to
                         * attach this one to.  Attached screens slide
                         * and depth-arrange together.
                         }

 SA_Draggable   = (SA_Dummy + $001E);
                        { New for V39:
                         * Boolean tag allowing non-draggable screens.
                         * Do not use without good reason!
                         * (Defaults to TRUE).
                         }

 SA_Exclusive   = (SA_Dummy + $001F);
                        { New for V39:
                         * Boolean tag allowing screens that won't share
                         * the display.  Use sparingly!  Starting with 3.01,
                         * attached screens may be SA_Exclusive.  Setting
                         * SA_Exclusive for each screen will produce an
                         * exclusive family.   (Defaults to FALSE).
                         }

 SA_SharePens   = (SA_Dummy + $0020);
                        { New for V39:
                         * For those pens in the screen's DrawInfo->dri_Pens,
                         * Intuition obtains them in shared mode (see
                         * graphics.library/ObtainPen()).  For compatibility,
                         * Intuition obtains the other pens of a public
                         * screen as PEN_EXCLUSIVE.  Screens that wish to
                         * manage the pens themselves should generally set
                         * this tag to TRUE.  This instructs Intuition to
                         * leave the other pens unallocated.
                         }

 SA_BackFill    = (SA_Dummy + $0021);
                        { New for V39:
                         * provides a "backfill hook" for your screen's
                         * Layer_Info.
                         * See layers.library/InstallLayerInfoHook()
                         }

 SA_Interleaved = (SA_Dummy + $0022);
                        { New for V39:
                         * Boolean tag requesting that the bitmap
                         * allocated for you be interleaved.
                         * (Defaults to FALSE).
                         }

 SA_Colors32    = (SA_Dummy + $0023);
                        { New for V39:
                         * Tag to set the screen's initial palette colors
                         * at 32 bits-per-gun.  ti_Data is a pointer
                         * to a table to be passed to the
                         * graphics.library/LoadRGB32() function.
                         * This format supports both runs of color
                         * registers and sparse registers.  See the
                         * autodoc for that function for full details.
                         * Any color set here has precedence over
                         * the same register set by SA_Colors.
                         }

 SA_VideoControl = (SA_Dummy + $0024);
                        { New for V39:
                         * ti_Data is a pointer to a taglist that Intuition
                         * will pass to graphics.library/VideoControl(),
                         * upon opening the screen.
                         }

 SA_FrontChild  = (SA_Dummy + $0025);
                        { New for V39:
                         * ti_Data is a pointer to an already open screen
                         * that is to be the child of the screen being
                         * opened.  The child screen will be moved to the
                         * front of its family.
                         }

 SA_BackChild   = (SA_Dummy + $0026);
                        { New for V39:
                         * ti_Data is a pointer to an already open screen
                         * that is to be the child of the screen being
                         * opened.  The child screen will be moved to the
                         * back of its family.
                         }

 SA_LikeWorkbench     =   (SA_Dummy + $0027);
                        { New for V39:
                         * Set ti_Data to 1 to request a screen which
                         * is just like the Workbench.  This gives
                         * you the same screen mode, depth, size,
                         * colors, etc., as the Workbench screen.
                         }

 SA_Reserved          =   (SA_Dummy + $0028);
                        { Reserved for private Intuition use }

 SA_MinimizeISG       =   (SA_Dummy + $0029);
                        { New for V40:
                         * For compatibility, Intuition always ensures
                         * that the inter-screen gap is at least three
                         * non-interlaced lines.  If your application
                         * would look best with the smallest possible
                         * inter-screen gap, set ti_Data to TRUE.
                         * If you use the new graphics VideoControl()
                         * VC_NoColorPaletteLoad tag for your screen's
                         * ViewPort, you should also set this tag.
                          }


{ this is an obsolete tag included only for compatibility with V35
 * interim release for the A2024 and Viking monitors
 }
 NSTAG_EXT_VPMODE = (TAG_USER + 1);


{ OpenScreen error codes, which are returned in the (optional) LONG
 * pointed to by ti_Data for the SA_ErrorCode tag item
 }
 OSERR_NOMONITOR   = (1);     { named monitor spec not available     }
 OSERR_NOCHIPS     = (2);     { you need newer custom chips          }
 OSERR_NOMEM       = (3);     { couldn't get normal memory           }
 OSERR_NOCHIPMEM   = (4);     { couldn't get chipmem                 }
 OSERR_PUBNOTUNIQUE= (5);     { public screen name already used      }
 OSERR_UNKNOWNMODE = (6);     { don't recognize mode asked for       }

{ ======================================================================== }
{ === NewScreen ========================================================== }
{ ======================================================================== }

Type

    pNewScreen = ^tNewScreen;
    tNewScreen = record
        LeftEdge,
        TopEdge,
        Width,
        Height,
        Depth           : smallint;        { screen dimensions }

        DetailPen,
        BlockPen        : Byte;         { for bar/border/gadget rendering }

        ViewModes       : Word;        { the Modes for the ViewPort (and View) }

        SType           : Word;        { the Screen type (see defines above) }

        Font            : pTextAttr;  { this Screen's default text attributes }

        DefaultTitle    : PChar;       { the default title for this Screen }

        Gadgets         : pGadget;      { your own Gadgets for this Screen }

    { if you are opening a CUSTOMSCREEN and already have a BitMap
     * that you want used for your Screen, you set the flags CUSTOMBITMAP in
     * the Type field and you set this variable to point to your BitMap
     * structure.  The structure will be copied into your Screen structure,
     * after which you may discard your own BitMap if you want
     }

        CustomBitMap    : pBitMap;
    end;


type

 pExtNewScreen = ^tExtNewScreen;
 tExtNewScreen = record
  LeftEdge, TopEdge, Width, Height, Depth : smallint;
  DetailPen, BlockPen : Byte;
  ViewModes : Word;
  ens_Type : Word;     { Type in C-Includes }
  Font : pTextAttr;
  DefaultTitle : PChar;
  Gadgets : pGadget;
  CustomBitMap : pBitMap;
  Extension : pTagItem;
 END;


CONST
{ === Overscan Types ===       }
 OSCAN_TEXT     = (1);     { entirely visible     }
 OSCAN_STANDARD = (2);     { just past edges      }
 OSCAN_MAX      = (3);     { as much as possible  }
 OSCAN_VIDEO    = (4);     { even more than is possible   }


{ === Public Shared Screen Node ===    }

{ This is the representative of a public shared screen.
 * This is an internal data structure, but some functions may
 * present a copy of it to the calling application.  In that case,
 * be aware that the screen pointer of the structure can NOT be
 * used safely, since there is no guarantee that the referenced
 * screen will remain open and a valid data structure.
 *
 * Never change one of these.
 }

Type
   pPubScreenNode = ^tPubScreenNode;
   tPubScreenNode = record
    psn_Node    : tNode;       { ln_Name is screen name }
    psn_Screen  : pScreen;
    psn_Flags   : Word;      { below                }
    psn_Size    : smallint;      { includes name buffer }
    psn_VisitorCount  : smallint; { how many visitor windows }
    psn_SigTask : pTask;    { who to signal when visitors gone }
    psn_SigBit  : Byte;     { which signal }
   END;

CONST
 PSNF_PRIVATE  =  ($0001);

 MAXPUBSCREENNAME  =      (139);   { names no longer, please      }

{ pub screen modes     }
 SHANGHAI      =  $0001;  { put workbench windows on pub screen }
 POPPUBSCREEN  =  $0002;  { pop pub screen to front when visitor opens }

{ New for V39:  Intuition has new screen depth-arrangement and movement
 * functions called ScreenDepth() and ScreenPosition() respectively.
 * These functions permit the old behavior of ScreenToFront(),
 * ScreenToBack(), and MoveScreen().  ScreenDepth() also allows
 * independent depth control of attached screens.  ScreenPosition()
 * optionally allows positioning screens even though they were opened
 * (SA_Draggable,FALSE).
 }

{ For ScreenDepth(), specify one of SDEPTH_TOFRONT or SDEPTH_TOBACK,
 * and optionally also SDEPTH_INFAMILY.
 *
 * NOTE: ONLY THE OWNER OF THE SCREEN should ever specify
 * SDEPTH_INFAMILY.  Commodities, "input helper" programs,
 * or any other program that did not open a screen should never
 * use that flag.  (Note that this is a style-behavior
 * requirement;  there is no technical requirement that the
 * task calling this function need be the task which opened
 * the screen).
 }

 SDEPTH_TOFRONT        =  (0);     { Bring screen to front }
 SDEPTH_TOBACK         =  (1);     { Send screen to back }
 SDEPTH_INFAMILY       =  (2);     { Move an attached screen with
                                         * respect to other screens of
                                         * its family
                                         }

{ Here's an obsolete name equivalent to SDEPTH_INFAMILY: }
 SDEPTH_CHILDONLY      =  SDEPTH_INFAMILY;


{ For ScreenPosition(), specify one of SPOS_RELATIVE, SPOS_ABSOLUTE,
 * or SPOS_MAKEVISIBLE to describe the kind of screen positioning you
 * wish to perform:
 *
 * SPOS_RELATIVE: The x1 and y1 parameters to ScreenPosition() describe
 *      the offset in coordinates you wish to move the screen by.
 * SPOS_ABSOLUTE: The x1 and y1 parameters to ScreenPosition() describe
 *      the absolute coordinates you wish to move the screen to.
 * SPOS_MAKEVISIBLE: (x1,y1)-(x2,y2) describes a rectangle on the
 *      screen which you would like autoscrolled into view.
 *
 * You may additionally set SPOS_FORCEDRAG along with any of the
 * above.  Set this if you wish to reposition an (SA_Draggable,FALSE)
 * screen that you opened.
 *
 * NOTE: ONLY THE OWNER OF THE SCREEN should ever specify
 * SPOS_FORCEDRAG.  Commodities, "input helper" programs,
 * or any other program that did not open a screen should never
 * use that flag.
 }

 SPOS_RELATIVE         =  (0);     { Coordinates are relative }

 SPOS_ABSOLUTE         =  (1);     { Coordinates are expressed as
                                         * absolutes, not relatives.
                                         }

 SPOS_MAKEVISIBLE      =  (2);     { Coordinates describe a box on
                                         * the screen you wish to be
                                         * made visible by autoscrolling
                                         }

 SPOS_FORCEDRAG        =  (4);     { Move non-draggable screen }

{ New for V39: Intuition supports double-buffering in screens,
 * with friendly interaction with menus and certain gadgets.
 * For each buffer, you need to get one of these structures
 * from the AllocScreenBuffer() call.  Never allocate your
 * own ScreenBuffer structures!
 *
 * The sb_DBufInfo field is for your use.  See the graphics.library
 * AllocDBufInfo() autodoc for details.
 }
Type

 pScreenBuffer = ^tScreenBuffer;
 tScreenBuffer = record
    sb_BitMap  : pBitMap;           { BitMap of this buffer }
    sb_DBufInfo : pDBufInfo;       { DBufInfo for this buffer }
 end;

const
{ These are the flags that may be passed to AllocScreenBuffer().
 }
 SB_SCREEN_BITMAP      =  1;
 SB_COPY_BITMAP        =  2;


{ ======================================================================== }
{ === Preferences ======================================================== }
{ ======================================================================== }

Const

{ these are the definitions for the printer configurations }
    FILENAME_SIZE       = 30;           { Filename size }

    POINTERSIZE         = (1 + 16 + 1) * 2;     { Size of Pointer data buffer }

{ These defines are for the default font size.   These actually describe the
 * height of the defaults fonts.  The default font type is the topaz
 * font, which is a fixed width font that can be used in either
 * eighty-column or sixty-column mode.  The Preferences structure reflects
 * which is currently selected by the value found in the variable FontSize,
 * which may have either of the values defined below.  These values actually
 * are used to select the height of the default font.  By changing the
 * height, the resolution of the font changes as well.
 }
    TOPAZ_EIGHTY        = 8;
    TOPAZ_SIXTY         = 9;

Type

    pPreferences = ^tPreferences;
    tPreferences = record
    { the default font height }
        FontHeight      : Shortint;         { height for system default font  }

    { constant describing what's hooked up to the port }
        PrinterPort     : Byte;         { printer port connection     }

    { the baud rate of the port }
        BaudRate        : Word;        { baud rate for the serial port   }

    { various timing rates }
        KeyRptSpeed     : ttimeval;      { repeat speed for keyboard       }
        KeyRptDelay     : ttimeval;      { Delay before keys repeat             }
        DoubleClick     : ttimeval;      { Interval allowed between clicks }

    { Intuition Pointer data }
        PointerMatrix   : Array [0..POINTERSIZE-1] of Word;
                                        { Definition of pointer sprite     }
        XOffset         : Shortint;         { X-Offset for active 'bit'       }
        YOffset         : Shortint;         { Y-Offset for active 'bit'       }
        color17         : Word;        {*********************************}
        color18         : Word;        { Colours for sprite pointer      }
        color19         : Word;        {*********************************}
        PointerTicks    : Word;        { Sensitivity of the pointer       }

    { Workbench Screen colors }
        color0          : Word;        {*********************************}
        color1          : Word;        {   Standard default colours      }
        color2          : Word;        {   Used in the Workbench         }
        color3          : Word;        {*********************************}

    { positioning data for the Intuition View }
        ViewXOffset     : Shortint;         { Offset for top lefthand corner  }
        ViewYOffset     : Shortint;         { X and Y dimensions           }
        ViewInitX,
        ViewInitY       : smallint;        { View initial offset values      }

        EnableCLI       : Boolean;      { CLI availability switch }

    { printer configurations }
        PrinterType     : Word;        { printer type                     }
        PrinterFilename : Array [0..FILENAME_SIZE-1] of Char;
                                        { file for printer         }

    { print format and quality configurations }
        PrintPitch      : Word;        { print pitch              }
        PrintQuality    : Word;        { print quality    }
        PrintSpacing    : Word;        { number of lines per inch    }
        PrintLeftMargin : Word;        { left margin in characters        }
        PrintRightMargin : Word;       { right margin in characters       }
        PrintImage      : Word;        { positive or negative         }
        PrintAspect     : Word;        { horizontal or vertical      }
        PrintShade      : Word;        { b&w, half-tone, or color    }
        PrintThreshold  : smallint;        { darkness ctrl for b/w dumps      }

    { print paper descriptors }
        PaperSize       : Word;        { paper size               }
        PaperLength     : Word;        { paper length in number of lines }
        PaperType       : Word;        { continuous or single sheet       }

    { Serial device settings: These are six nibble-fields in three bytes }
    { (these look a little strange so the defaults will map out to zero) }
        SerRWBits       : Byte;
                             { upper nibble = (8-number of read bits)     }
                             { lower nibble = (8-number of write bits)    }
        SerStopBuf      : Byte;
                             { upper nibble = (number of stop bits - 1)  }
                             { lower nibble = (table value for BufSize)  }
        SerParShk       : Byte;
                             { upper nibble = (value for Parity setting) }
                             { lower nibble = (value for Handshake mode) }
        LaceWB          : Byte;         { if workbench is to be interlaced      }

        WorkName        : Array [0..FILENAME_SIZE-1] of Char;
                                        { temp file for printer         }

        RowSizeChange   : Shortint;
        ColumnSizeChange : Shortint;

        PrintFlags      : Word;        { user preference flags }
        PrintMaxWidth   : Word;        { max width of printed picture in 10ths/inch }
        PrintMaxHeight  : Word;        { max height of printed picture in 10ths/inch }
        PrintDensity    : Byte;         { print density }
        PrintXOffset    : Byte;         { offset of printed picture in 10ths/inch }

        wb_Width        : Word;        { override default workbench width       }
        wb_Height       : Word;        { override default workbench height }
        wb_Depth        : Byte;         { override default workbench depth       }

        ext_size        : Byte;         { extension information -- do not touch! }
                            { extension size in blocks of 64 bytes }
    end;

Const

{ Workbench Interlace (use one bit) }
    LACEWB              = $01;
    LW_RESERVED         = 1;     { internal use only }

{ PrinterPort }
    PARALLEL_PRINTER    = $00;
    SERIAL_PRINTER      = $01;

{ BaudRate }
    BAUD_110            = $00;
    BAUD_300            = $01;
    BAUD_1200           = $02;
    BAUD_2400           = $03;
    BAUD_4800           = $04;
    BAUD_9600           = $05;
    BAUD_19200          = $06;
    BAUD_MIDI           = $07;

{ PaperType }
    FANFOLD             = $00;
    SINGLE              = $80;

{ PrintPitch }
    PICA                = $000;
    ELITE               = $400;
    FINE                = $800;

{ PrintQuality }
    DRAFT               = $000;
    LETTER              = $100;

{ PrintSpacing }
    SIX_LPI             = $000;
    EIGHT_LPI           = $200;

{ Print Image }
    IMAGE_POSITIVE      = $00;
    IMAGE_NEGATIVE      = $01;

{ PrintAspect }
    ASPECT_HORIZ        = $00;
    ASPECT_VERT         = $01;

{ PrintShade }
    SHADE_BW            = $00;
    SHADE_GREYSCALE     = $01;
    SHADE_COLOR         = $02;

{ PaperSize }
    US_LETTER           = $00;
    US_LEGAL            = $10;
    N_TRACTOR           = $20;
    W_TRACTOR           = $30;
    CUSTOM_PAPER        = $40;

{ New PaperSizes for V36: }
 EURO_A0 = $50;            { European size A0: 841 x 1189 }
 EURO_A1 = $60;            { European size A1: 594 x 841 }
 EURO_A2 = $70;            { European size A2: 420 x 594 }
 EURO_A3 = $80;            { European size A3: 297 x 420 }
 EURO_A4 = $90;            { European size A4: 210 x 297 }
 EURO_A5 = $A0;            { European size A5: 148 x 210 }
 EURO_A6 = $B0;            { European size A6: 105 x 148 }
 EURO_A7 = $C0;            { European size A7: 74 x 105 }
 EURO_A8 = $D0;            { European size A8: 52 x 74 }

{ PrinterType }
    CUSTOM_NAME         = $00;
    ALPHA_P_101         = $01;
    BROTHER_15XL        = $02;
    CBM_MPS1000         = $03;
    DIAB_630            = $04;
    DIAB_ADV_D25        = $05;
    DIAB_C_150          = $06;
    EPSON               = $07;
    EPSON_JX_80         = $08;
    OKIMATE_20          = $09;
    QUME_LP_20          = $0A;
{ new printer entries, 3 October 1985 }
    HP_LASERJET         = $0B;
    HP_LASERJET_PLUS    = $0C;

{ Serial Input Buffer Sizes }
    SBUF_512            = $00;
    SBUF_1024           = $01;
    SBUF_2048           = $02;
    SBUF_4096           = $03;
    SBUF_8000           = $04;
    SBUF_16000          = $05;

{ Serial Bit Masks }
    SREAD_BITS          = $F0;          { for SerRWBits   }
    SWRITE_BITS         = $0F;

    SSTOP_BITS          = $F0;          { for SerStopBuf  }
    SBUFSIZE_BITS       = $0F;

    SPARITY_BITS        = $F0;          { for SerParShk }
    SHSHAKE_BITS        = $0F;

{ Serial Parity (upper nibble, after being shifted by
 * macro SPARNUM() )
 }
    SPARITY_NONE        = 0;
    SPARITY_EVEN        = 1;
    SPARITY_ODD         = 2;

{ Serial Handshake Mode (lower nibble, after masking using
 * macro SHANKNUM() )
 }
    SHSHAKE_XON         = 0;
    SHSHAKE_RTS         = 1;
    SHSHAKE_NONE        = 2;

{ new defines for PrintFlags }

    CORRECT_RED         = $0001;        { color correct red shades }
    CORRECT_GREEN       = $0002;        { color correct green shades }
    CORRECT_BLUE        = $0004;        { color correct blue shades }

    CENTER_IMAGE        = $0008;        { center image on paper }

    IGNORE_DIMENSIONS   = $0000;        { ignore max width/height settings }
    BOUNDED_DIMENSIONS  = $0010;        { use max width/height as boundaries }
    ABSOLUTE_DIMENSIONS = $0020;        { use max width/height as absolutes }
    PIXEL_DIMENSIONS    = $0040;        { use max width/height as prt pixels }
    MULTIPLY_DIMENSIONS = $0080;        { use max width/height as multipliers }

    INTEGER_SCALING     = $0100;        { force integer scaling }

    ORDERED_DITHERING   = $0000;        { ordered dithering }
    HALFTONE_DITHERING  = $0200;        { halftone dithering }
    FLOYD_DITHERING     = $0400;        { Floyd-Steinberg dithering }

    ANTI_ALIAS          = $0800;        { anti-alias image }
    GREY_SCALE2         = $1000;        { for use with hi-res monitor }

{ masks used for checking bits }

    CORRECT_RGB_MASK    = CORRECT_RED + CORRECT_GREEN + CORRECT_BLUE;
    DIMENSIONS_MASK     = BOUNDED_DIMENSIONS + ABSOLUTE_DIMENSIONS +
                                PIXEL_DIMENSIONS + MULTIPLY_DIMENSIONS;
    DITHERING_MASK      = HALFTONE_DITHERING + FLOYD_DITHERING;






{ ======================================================================== }
{ === IntuitionBase ====================================================== }
{ ======================================================================== }
{
 * Be sure to protect yourself against someone modifying these data as
 * you look at them.  This is done by calling:
 *
 * lock = LockIBase(0), which returns an Integer.  When done call
 * UnlockIBase(lock) where lock is what LockIBase() returned.
 }

Type

    pIntuitionBase = ^tIntuitionBase;
    tIntuitionBase = record
{ IntuitionBase should never be directly modified by programs   }
{ even a little bit, guys/gals; do you hear me? }

        LibNode         : tLibrary;

        ViewLord        : tView;

        ActiveWindow    : pWindow;
        ActiveScreen    : pScreen;

    { the FirstScreen variable points to the frontmost Screen.   Screens are
     * then maintained in a front to back order using Screen.NextScreen
     }

        FirstScreen     : pScreen;    { for linked list of all screens }

        Flags           : Cardinal;      { see definitions below }
        MouseY,
        MouseX          : smallint;        { mouse position relative to View }

        Seconds         : Cardinal;      { timestamp of most current input event }
        Micros          : Cardinal;      { timestamp of most current input event }

    { I told you this was private.
     * The data beyond this point has changed, is changing, and
     * will continue to change.
     }

    end;


{
 * Package of information passed to custom and 'boopsi'
 * gadget 'hook' functions.  This structure is READ ONLY.
 }
Type

   pGadgetInfo = ^tGadgetInfo;
   tGadgetInfo = record
    gi_Screen                   : pScreen;       { ScreenPtr }
    gi_Window                   : pWindow;       { null for screen gadgets }    { WindowPtr }
    gi_Requester                : pRequester;    { null IF not GTYP_REQGADGET } { RequesterPtr }

    { rendering information:
     * don't use these without cloning/locking.
     * Official way is to call ObtainRPort()
     }
    gi_RastPort                 : pRastPort;     { RastPortPtr }
    gi_Layer                    : pLayer;        { LayerPtr }

    { copy of dimensions of screen/window/g00/req(/group)
     * that gadget resides in.  Left/Top of this box is
     * offset from window mouse coordinates to gadget coordinates
     *          screen gadgets:                 0,0 (from screen coords)
     *  window gadgets (no g00):        0,0
     *  GTYP_GZZGADGETs (borderlayer):          0,0
     *  GZZ innerlayer gadget:          borderleft, bordertop
     *  Requester gadgets:              reqleft, reqtop
     }
    gi_Domain                   : tIBox;

    gi_Pens                     : record
                      DetailPen : Byte;
                      BlockPen  : Byte;
                                  end;

    { the Detail and Block pens in gi_DrInfo->dri_Pens[] are
     * for the screen.  Use the above for window-sensitive
     * colors.
     }
    gi_DrInfo                   : pDrawInfo;  { DrawInfoPtr }

    { reserved space: this structure is extensible
     * anyway, but using these saves some recompilation
     }
    gi_Reserved                 : Array[0..5] of Cardinal;
   END;

{** system private data structure for now **}
{ prop gadget extra info       }

   pPGX = ^tPGX;
   tPGX = record
    pgx_Container : tIBox;
    pgx_NewKnob   : tIBox;
   END;

{ this casts MutualExclude for easy assignment of a hook
 * pointer to the unused MutualExclude field of a custom gadget
 }

{** User visible handles on objects, classes, messages **}
Type
 Object_ = Cardinal;
 pObject_ = ^Object_;
 ClassID = ^Byte;

{
 you can use this type to point to a 'generic' message,
 * in the object-oriented programming parlance.  Based on
 * the value of 'MethodID', you dispatch to processing
 * for the various message types.  The meaningful parameter
 * packet structure definitions are defined below.

typedef struct
    Cardinal MethodID;
     method-specific data follows, some examples below
               *Msg; }

  pMsg = ^tMsg;
  tMsg = record
     MethodID : Cardinal;
  end;

{
 * Class id strings for Intuition classes.
 * There's no real reason to use the uppercase constants
 * over the lowercase strings, but this makes a good place
 * to list the names of the built-in classes.
 }
CONST
 ROOTCLASS      : PChar = 'rootclass'    ;         { classusr.h   }
 IMAGECLASS     : PChar = 'imageclass'   ;         { imageclass.h }
 FRAMEICLASS    : PChar = 'frameiclass'  ;
 SYSICLASS      : PChar = 'sysiclass'    ;
 FILLRECTCLASS  : PChar = 'fillrectclass';
 GADGETCLASS    : PChar = 'gadgetclass'  ;         { gadgetclass.h }
 PROPGCLASS     : PChar = 'propgclass'   ;
 STRGCLASS      : PChar = 'strgclass'    ;
 BUTTONGCLASS   : PChar = 'buttongclass' ;
 FRBUTTONCLASS  : PChar = 'frbuttonclass';
 GROUPGCLASS    : PChar = 'groupgclass'  ;
 ICCLASS        : PChar = 'icclass'      ;         { icclass.h    }
 MODELCLASS     : PChar = 'modelclass'   ;
 ITEXTICLASS    : PChar = 'itexticlass'  ;
 POINTERCLASS   : PChar = 'pointerclass' ;         { pointerclass.h }


{ Dispatched method ID's
 * NOTE: Applications should use Intuition entry points, not direct
 * DoMethod() calls, for NewObject, DisposeObject, SetAttrs,
 * SetGadgetAttrs, and GetAttr.
 }

 OM_Dummy       = ($100);
 OM_NEW         = ($101); { 'object' parameter is 'true class'   }
 OM_DISPOSE     = ($102); { delete self (no parameters)          }
 OM_SET         = ($103); { set attributes (in tag list)         }
 OM_GET         = ($104); { return single attribute value        }
 OM_ADDTAIL     = ($105); { add self to a List (let root do it)  }
 OM_REMOVE      = ($106); { remove self from list                }
 OM_NOTIFY      = ($107); { send to self: notify dependents      }
 OM_UPDATE      = ($108); { notification message from somebody   }
 OM_ADDMEMBER   = ($109); { used by various classes with lists   }
 OM_REMMEMBER   = ($10A); { used by various classes with lists   }

{ Parameter 'Messages' passed to methods       }

{ OM_NEW and OM_SET    }
Type
   popSet = ^topSet;
   topSet = record
    MethodID            : Cardinal;
    ops_AttrList        : pTagItem;    { new attributes       }
    ops_GInfo           : pGadgetInfo; { always there for gadgets,
                                         * when SetGadgetAttrs() is used,
                                         * but will be NULL for OM_NEW
                                         }
   END;

{ OM_NOTIFY, and OM_UPDATE     }

  popUpdate = ^topUpdate;
  topUpdate = record
    MethodID            : Cardinal;
    opu_AttrList        : pTagItem;     { new attributes       }
    opu_GInfo           : pGadgetInfo;  { non-NULL when SetGadgetAttrs OR
                                         * notification resulting from gadget
                                         * input occurs.
                                         }
    opu_Flags           : Cardinal;        { defined below        }
  END;

{ this flag means that the update message is being issued from
 * something like an active gadget, a la GACT_FOLLOWMOUSE.  When
 * the gadget goes inactive, it will issue a final update
 * message with this bit cleared.  Examples of use are for
 * GACT_FOLLOWMOUSE equivalents for propgadclass, and repeat strobes
 * for buttons.
 }
CONST
 OPUF_INTERIM   = 1;

{ OM_GET       }
Type

  popGet = ^topGet;
  topGet = record
    MethodID,
    opg_AttrID          : Cardinal;
    opg_Storage         : Pointer;   { may be other types, but 'int'
                                         * types are all Cardinal
                                         }
  END;

{ OM_ADDTAIL   }

  popAddTail = ^topAddTail;
  topAddTail = record
    MethodID  : Cardinal;
    opat_List : pList;
  END;

{ OM_ADDMEMBER, OM_REMMEMBER   }
Type

   popMember = ^topMember;
   topMember = record
    MethodID   : Cardinal;
    opam_Object : pObject_;
   END;



{*****************************************}
{** 'White box' access to struct IClass **}
{*****************************************}

{ This structure is READ-ONLY, and allocated only by Intuition }
TYPE

   pIClass = ^tIClass;
   tIClass = record
    cl_Dispatcher       : tHook;
    cl_Reserved         : Cardinal;    { must be 0  }
    cl_Super            : pIClass;
    cl_ID               : ClassID;

    { where within an object is the instance data for this class? }
    cl_InstOffset       : Word;
    cl_InstSize         : Word;

    cl_UserData         : Cardinal;    { per-class data of your choice }
    cl_SubclassCount    : Cardinal;
                                        { how many direct subclasses?  }
    cl_ObjectCount      : Cardinal;
                                { how many objects created of this class? }
    cl_Flags            : Cardinal;
   END;

CONST
 CLF_INLIST    =  $00000001;      { class is in public class list }



{************************************************}
{** 'White box' access to struct _Object       **}
{************************************************}

{
 * We have this, the instance data of the root class, PRECEDING
 * the 'object'.  This is so that Gadget objects are Gadget pointers,
 * and so on.  If this structure grows, it will always have o_Class
 * at the end, so the macro OCLASS(o) will always have the same
 * offset back from the pointer returned from NewObject().
 *
 * This data structure is subject to change.  Do not use the o_Node
 * embedded structure.
 }
Type
  p_Object = ^t_Object;
  t_Object = record
    o_Node    : tMinNode;
    o_Class   : pIClass;
  END;

{ BOOPSI class libraries should use this structure as the base for their
 * library data.  This allows developers to obtain the class pointer for
 * performing object-less inquiries. }


       PClassLibrary = ^tClassLibrary;
       tClassLibrary = record
            cl_Lib : tLibrary;    { Embedded library }
            cl_Pad : Word;       { Align the structure }
            cl_Class : PIClass;   { Class pointer }
         end;

{
 * NOTE:  <intuition/iobsolete.h> is included at the END of this file!
 }

{ Gadget Class attributes      }
CONST
    GA_Dummy           =  (TAG_USER +$30000);

    { (LONG) Left edge of the gadget relative to the left edge of
     * the window }
    GA_Left            =  (GA_Dummy + $0001);

    { (LONG) Left edge of the gadget relative to the right edge of
     * the window }
    GA_RelRight        =  (GA_Dummy + $0002);

    { (LONG) Top edge of the gadget relative to the top edge of
     * the window }
    GA_Top             =  (GA_Dummy + $0003);

    { (LONG) Top edge of the gadget relative to the bottom edge
     * of the window }
    GA_RelBottom       =  (GA_Dummy + $0004);

    { (LONG) Width of the gadget }
    GA_Width           =  (GA_Dummy + $0005);

    { (LONG) Width of the gadget relative to the width of the
     * window }
    GA_RelWidth        =  (GA_Dummy + $0006);

    { (LONG) Height of the gadget }
    GA_Height          =  (GA_Dummy + $0007);

    { (LONG) Height of the gadget relative to the height of
     * the window }
    GA_RelHeight       =  (GA_Dummy + $0008);

    { (PChar) Gadget imagry is NULL terminated string }
    GA_Text            =  (GA_Dummy + $0009); { ti_Data is (UBYTE *) }

    { (struct Image *) Gadget imagry is an image }
    GA_Image           =  (GA_Dummy + $000A);

    { (struct Border *) Gadget imagry is a border }
    GA_Border          =  (GA_Dummy + $000B);

    { (struct Image *) Selected gadget imagry }
    GA_SelectRender    =  (GA_Dummy + $000C);

    { (UWORD) One of GFLG_GADGHNONE, GFLG_GADGHBOX, GFLG_GADGHCOMP,
     * or GFLG_GADGHIMAGE }
    GA_Highlight       =  (GA_Dummy + $000D);

    { (BOOL) Indicate whether gadget is disabled or not.
     * Defaults to FALSE. }
    GA_Disabled        =  (GA_Dummy + $000E);

    { (BOOL) Indicate whether the gadget is for
     * WFLG_GIMMEZEROZERO window borders or not.  Defaults
     * to FALSE. }
    GA_GZZGadget       =  (GA_Dummy + $000F);

    { (UWORD) Gadget ID assigned by the application }
    GA_ID              =  (GA_Dummy + $0010);

    { (APTR) Application specific data }
    GA_UserData        =  (GA_Dummy + $0011);

    { (APTR) Gadget specific data }
    GA_SpecialInfo     =  (GA_Dummy + $0012);

    { (BOOL) Indicate whether the gadget is selected or not.
     * Defaults to FALSE }
    GA_Selected        =  (GA_Dummy + $0013);

    { (BOOL) When set tells the system that when this gadget
     * is selected causes the requester that it is in to be
     * ended.  Defaults to FALSE. }
    GA_EndGadget       =  (GA_Dummy + $0014);

    { (BOOL) When set indicates that the gadget is to
     * notify the application when it becomes active.  Defaults
     * to FALSE. }
    GA_Immediate       =  (GA_Dummy + $0015);

    { (BOOL) When set indicates that the application wants to
     * verify that the pointer was still over the gadget when
     * the select button is released.  Defaults to FALSE. }
    GA_RelVerify       =  (GA_Dummy + $0016);

    { (BOOL) When set indicates that the application wants to
     * be notified of mouse movements while the gadget is active.
     * It is recommmended that GA_Immediate and GA_RelVerify are
     * also used so that the active gadget can be tracked by the
     * application.  Defaults to FALSE. }
    GA_FollowMouse     =  (GA_Dummy + $0017);

    { (BOOL) Indicate whether the gadget is in the right border
     * or not.  Defaults to FALSE. }
    GA_RightBorder     =  (GA_Dummy + $0018);

    { (BOOL) Indicate whether the gadget is in the left border
     * or not.  Defaults to FALSE. }
    GA_LeftBorder      =  (GA_Dummy + $0019);

    { (BOOL) Indicate whether the gadget is in the top border
     * or not.  Defaults to FALSE. }
    GA_TopBorder       =  (GA_Dummy + $001A);

    { (BOOL) Indicate whether the gadget is in the bottom border
     * or not.  Defaults to FALSE. }
    GA_BottomBorder    =  (GA_Dummy + $001B);

    { (BOOL) Indicate whether the gadget is toggle-selected
     * or not.  Defaults to FALSE. }
    GA_ToggleSelect    =  (GA_Dummy + $001C);

    { (BOOL) Reserved for system use to indicate that the
     * gadget belongs to the system.  Defaults to FALSE. }
    GA_SysGadget       =  (GA_Dummy + $001D);

    { (UWORD) Reserved for system use to indicate the
     * gadget type. }
    GA_SysGType        =  (GA_Dummy + $001E);

    { (struct Gadget *) Previous gadget in the linked list.
     * NOTE: This attribute CANNOT be used to link new gadgets
     * into the gadget list of an open window or requester.
     * You must use AddGList(). }
    GA_Previous        =  (GA_Dummy + $001F);

    { (struct Gadget *) Next gadget in the linked list. }
    GA_Next            =  (GA_Dummy + $0020);

    { (struct DrawInfo *) Some gadgets need a DrawInfo at creation time }
    GA_DrawInfo        =  (GA_Dummy + $0021);

    { You should use at most ONE of GA_Text, GA_IntuiText, and GA_LabelImage }
    { (struct IntuiText *) Label is an IntuiText. }
    GA_IntuiText          =  (GA_Dummy + $0022);

    { (Object *) Label is an image object. }
    GA_LabelImage         =  (GA_Dummy + $0023);

    { New for V37:
         * Boolean indicates that this gadget is to participate in
         * cycling activation with Tab or Shift-Tab.
    }
    GA_TabCycle           =  (GA_Dummy + $0024);

    { New for V39:
         * Boolean indicates that this gadget sends gadget-help
    }
    GA_GadgetHelp         =  (GA_Dummy + $0025);

    { New for V39:
         * ti_Data is a pointer to an IBox structure which is
         * to be copied into the extended gadget's bounds.
    }
    GA_Bounds             =  (GA_Dummy + $0026);

    { New for V39:
         * Boolean indicates that this gadget has the "special relativity"
         * property, which is useful for certain fancy relativity
         * operations through the GM_LAYOUT method.
    }
    GA_RelSpecial         =  (GA_Dummy + $0027);


     GA_TextAttr = GA_Dummy + 40;
  { (struct TextAttr  ) Indicate the font to use for the gadget.
         New for V42.  }

     GA_ReadOnly = GA_Dummy + 41;
  { (BOOL) Indicate that the gadget is read-only (non-selectable).
         Defaults to FALSE. New for V42.  }

     GA_Underscore = GA_Dummy + 42;
  { (UBYTE) Underscore/escape character for keyboard shortcuts.
         Defaults to '_' . New for V44.  }

     GA_ActivateKey = GA_Dummy + 43;
  { (PChar) Set/Get the gadgets shortcut/activation key(s)
         Defaults to NULL. New for V44.  }

     GA_BackFill = GA_Dummy + 44;
  { (struct Hook  ) Backfill pattern hook.
         Defaults to NULL. New for V44.  }

     GA_GadgetHelpText = GA_Dummy + 45;
  { (PChar)   RESERVERD/PRIVATE DO NOT USE
         Defaults to NULL. New for V44.  }

     GA_UserInput = GA_Dummy + 46;
  { (BOOL) Notification tag indicates this notification is from the activite
           gadget receiving user input - an attempt to make IDCMPUPDATE more efficient.
         Defaults to FALSE. New for V44.  }
{ PROPGCLASS attributes }

 PGA_Dummy      = (TAG_USER + $31000);
 PGA_Freedom    = (PGA_Dummy + $0001);
        { only one of FREEVERT or FREEHORIZ }
 PGA_Borderless = (PGA_Dummy + $0002);
 PGA_HorizPot   = (PGA_Dummy + $0003);
 PGA_HorizBody  = (PGA_Dummy + $0004);
 PGA_VertPot    = (PGA_Dummy + $0005);
 PGA_VertBody   = (PGA_Dummy + $0006);
 PGA_Total      = (PGA_Dummy + $0007);
 PGA_Visible    = (PGA_Dummy + $0008);
 PGA_Top        = (PGA_Dummy + $0009);
{ New for V37: }
 PGA_NewLook    = (PGA_Dummy + $000A);

{ STRGCLASS attributes }

 STRINGA_Dummy         =  (TAG_USER      +$32000);
 STRINGA_MaxChars      =  (STRINGA_Dummy + $0001);
 STRINGA_Buffer        =  (STRINGA_Dummy + $0002);
 STRINGA_UndoBuffer    =  (STRINGA_Dummy + $0003);
 STRINGA_WorkBuffer    =  (STRINGA_Dummy + $0004);
 STRINGA_BufferPos     =  (STRINGA_Dummy + $0005);
 STRINGA_DispPos       =  (STRINGA_Dummy + $0006);
 STRINGA_AltKeyMap     =  (STRINGA_Dummy + $0007);
 STRINGA_Font          =  (STRINGA_Dummy + $0008);
 STRINGA_Pens          =  (STRINGA_Dummy + $0009);
 STRINGA_ActivePens    =  (STRINGA_Dummy + $000A);
 STRINGA_EditHook      =  (STRINGA_Dummy + $000B);
 STRINGA_EditModes     =  (STRINGA_Dummy + $000C);

{ booleans }
 STRINGA_ReplaceMode    = (STRINGA_Dummy + $000D);
 STRINGA_FixedFieldMode = (STRINGA_Dummy + $000E);
 STRINGA_NoFilterMode   = (STRINGA_Dummy + $000F);

 STRINGA_Justification  = (STRINGA_Dummy + $0010);
        { GACT_STRINGCENTER, GACT_STRINGLEFT, GACT_STRINGRIGHT }
 STRINGA_LongVal        = (STRINGA_Dummy + $0011);
 STRINGA_TextVal        = (STRINGA_Dummy + $0012);

 STRINGA_ExitHelp       = (STRINGA_Dummy + $0013);
        { STRINGA_ExitHelp is new for V37, and ignored by V36.
         * Set this if you want the gadget to exit when Help is
         * pressed.  Look for a code of $5F, the rawkey code for Help
         }

 SG_DEFAULTMAXCHARS     = (128);

{ Gadget Layout related attributes     }

 LAYOUTA_Dummy          = (TAG_USER  + $38000);
 LAYOUTA_LayoutObj      = (LAYOUTA_Dummy + $0001);
 LAYOUTA_Spacing        = (LAYOUTA_Dummy + $0002);
 LAYOUTA_Orientation    = (LAYOUTA_Dummy + $0003);

 LAYOUTA_ChildMaxWidth = LAYOUTA_Dummy + $0004;
  { (BOOL) Child objects are of equal width.  Should default to TRUE for
         gadgets with a horizontal orientation.  New for V42.  }

 LAYOUTA_ChildMaxHeight = LAYOUTA_Dummy + $0005;
  { (BOOL) Child objects are of equal height.  Should default to TRUE for
         gadgets with a vertical orientation.  New for V42.  }

{ orientation values   }
 LORIENT_NONE   = 0;
 LORIENT_HORIZ  = 1;
 LORIENT_VERT   = 2;


{ Gadget Method ID's   }

 GM_Dummy      =  (-1);    { not used for anything                }
 GM_HITTEST    =  (0);     { return GMR_GADGETHIT IF you are clicked on
                                 * (whether or not you are disabled).
                                 }
 GM_RENDER      = (1);     { draw yourself, in the appropriate state }
 GM_GOACTIVE    = (2);     { you are now going to be fed input    }
 GM_HANDLEINPUT = (3);     { handle that input                    }
 GM_GOINACTIVE  = (4);     { whether or not by choice, you are done  }
 GM_HELPTEST    = (5);     { Will you send gadget help if the mouse is
                                 * at the specified coordinates?  See below
                                 * for possible GMR_ values.
                                 }
 GM_LAYOUT      = (6);     { re-evaluate your size based on the GadgetInfo
                                 * Domain.  Do NOT re-render yourself yet, you
                                 * will be called when it is time...
                                 }

{ Parameter "Messages" passed to gadget class methods  }

{ GM_HITTEST   }
type

  pgpHitTest = ^tgpHitTest;
  tgpHitTest = record
    MethodID  : Cardinal;
    gpht_GInfo : pGadgetInfo;
    gpht_Mouse : record
             x : smallint;
             y : smallint;
                 end;
  END;

const
{ For GM_HITTEST, return GMR_GADGETHIT if you were indeed hit,
 * otherwise return zero.
 *
 * For GM_HELPTEST, return GMR_NOHELPHIT (zero) if you were not hit.
 * Typically, return GMR_HELPHIT if you were hit.
 * It is possible to pass a UWORD to the application via the Code field
 * of the IDCMP_GADGETHELP message.  Return GMR_HELPCODE or'd with
 * the UWORD-sized result you wish to return.
 *
 * GMR_HELPHIT yields a Code value of ((UWORD) ~0), which should
 * mean "nothing particular" to the application.
 }

 GMR_GADGETHIT  = ($00000004);    { GM_HITTEST hit }

 GMR_NOHELPHIT  = ($00000000);    { GM_HELPTEST didn't hit }
 GMR_HELPHIT    = ($FFFFFFFF);    { GM_HELPTEST hit, return code = ~0 }
 GMR_HELPCODE   = ($00010000);    { GM_HELPTEST hit, return low word as code }


{ GM_RENDER    }
Type
   pgpRender = ^tgpRender;
   tgpRender = record
    MethodID  : Cardinal;
    gpr_GInfo : pGadgetInfo;      { gadget context               }
    gpr_RPort : pRastPort;        { all ready for use            }
    gpr_Redraw : Longint;           { might be a "highlight pass"  }
   END;

{ values of gpr_Redraw }
CONST
 GREDRAW_UPDATE = (2);     { incremental update, e.g. prop slider }
 GREDRAW_REDRAW = (1);     { redraw gadget        }
 GREDRAW_TOGGLE = (0);     { toggle highlight, IF applicable      }

{ GM_GOACTIVE, GM_HANDLEINPUT  }
Type

  pgpInput = ^tgpInput;
  tgpInput = record
    MethodID : Cardinal;
    gpi_GInfo : pGadgetInfo;
    gpi_IEvent : pInputEvent;
    gpi_Termination : Pointer;
    gpi_Mouse : record
            x : smallint;
            y : smallint;
                end;
    {* (V39) Pointer to TabletData structure, if this event originated
     * from a tablet which sends IESUBCLASS_NEWTABLET events, or NULL if
     * not.
     *
     * DO NOT ATTEMPT TO READ THIS FIELD UNDER INTUITION PRIOR TO V39!
     * IT WILL BE INVALID!
     *}
   gpi_TabletData  : pTabletData;
  END;

{ GM_HANDLEINPUT and GM_GOACTIVE  return code flags    }
{ return GMR_MEACTIVE (0) alone if you want more input.
 * Otherwise, return ONE of GMR_NOREUSE and GMR_REUSE, and optionally
 * GMR_VERIFY.
 }
CONST
 GMR_MEACTIVE  =  (0);
 GMR_NOREUSE   =  (2);
 GMR_REUSE     =  (4);
 GMR_VERIFY    =  (8);        { you MUST set cgp_Termination }

{ New for V37:
 * You can end activation with one of GMR_NEXTACTIVE and GMR_PREVACTIVE,
 * which instructs Intuition to activate the next or previous gadget
 * that has GFLG_TABCYCLE set.
 }
 GMR_NEXTACTIVE = (16);
 GMR_PREVACTIVE = (32);

{ GM_GOINACTIVE }
Type

   pgpGoInactive = ^tgpGoInactive;
   tgpGoInactive = record
    MethodID    : Cardinal;
    gpgi_GInfo  : pGadgetInfo;

    { V37 field only!  DO NOT attempt to read under V36! }
    gpgi_Abort  : Cardinal;               { gpgi_Abort=1 IF gadget was aborted
                                         * by Intuition and 0 if gadget went
                                         * inactive at its own request
                                         }
   END;

{* New for V39: Intuition sends GM_LAYOUT to any GREL_ gadget when
 * the gadget is added to the window (or when the window opens, if
 * the gadget was part of the NewWindow.FirstGadget or the WA_Gadgets
 * list), or when the window is resized.  Your gadget can set the
 * GA_RelSpecial property to get GM_LAYOUT events without Intuition
 * changing the interpretation of your gadget select box.  This
 * allows for completely arbitrary resizing/repositioning based on
 * window size.
 *}
{* GM_LAYOUT *}
Type

 pgpLayout = ^tgpLayout;
 tgpLayout = record
    MethodID            : Cardinal;
    gpl_GInfo           : pGadgetInfo;
    gpl_Initial         : Cardinal;      {* non-zero if this method was invoked
                                         * during AddGList() or OpenWindow()
                                         * time.  zero if this method was invoked
                                         * during window resizing.
                                         *}
 end;

{***************************************************************************}

{ The GM_DOMAIN method is used to obtain the sizing requirements of an
 * object for a class before ever creating an object. }

{ GM_DOMAIN }

    PgpDomain = ^tgpDomain;
     tgpDomain = record
          MethodID : Cardinal;
          gpd_GInfo : PGadgetInfo;
          gpd_RPort : PRastPort;    { RastPort to layout for }
          gpd_Which : LongInt;
          gpd_Domain : tIBox;       { Resulting domain }
          gpd_Attrs : PTagItem;     { Additional attributes }
       end;


  const
     GDOMAIN_MINIMUM = 0;
  { Minimum size  }

     GDOMAIN_NOMINAL = 1;
  { Nominal size  }

     GDOMAIN_MAXIMUM = 2;
  { Maximum size  }

{***************************************************************************}

{ The GM_KEYTEST method is used to determin if a key press matches an
 * object's activation key(s). }

{ GM_KEYTEST send this message.
 }

  type
     PgpKeyTest = ^tgpKeyTest;
     tgpKeyTest = record
          MethodID : Cardinal;
          gpkt_GInfo : PGadgetInfo;
          gpkt_IMsg : PIntuiMessage;   { The IntuiMessage that triggered this }
          gpkt_VanillaKey : Cardinal;
       end;

{***************************************************************************}

{ The GM_KEYGOACTIVE method is called to "simulate" a gadget going down.
 * A gadget should render itself in a selected state when receiving
 * this message. If the class supports this method, it must return
 * GMR_KEYACTIVE.
 *
 * If a gadget returns zero for this method, it will subsequently be
 * activated via ActivateGadget() with a NULL IEvent.
 }

     PgpKeyInput = ^tgpKeyInput;
     tgpKeyInput = record
          MethodID : Cardinal;        { GM_KEYGOACTIVE }
          gpk_GInfo : PGadgetInfo;
          gpk_IEvent : PInputEvent;
          gpk_Termination : ^LongInt;
       end;


  const
     GMR_KEYACTIVE = 1 shl 4;

  { you MUST set gpk_Termination  }
     GMR_KEYVERIFY = 1 shl 5;

{ The GM_KEYGOINACTIVE method is called to simulate the gadget release.
 * Upon receiving this message, the gadget should do everything a
 * normal gadget release would do.
 }

  type
     PgpKeyGoInactive = ^tgpKeyGoInactive;
     tgpKeyGoInactive = record
          MethodID : Cardinal;
          gpki_GInfo : PGadgetInfo;
          gpki_Abort : Cardinal;
       end;

CONST
 ICM_Dummy      = ($0401);       { used for nothing             }
 ICM_SETLOOP    = ($0402);       { set/increment loop counter   }
 ICM_CLEARLOOP  = ($0403);       { clear/decrement loop counter }
 ICM_CHECKLOOP  = ($0404);       { set/increment loop           }

{ no parameters for ICM_SETLOOP, ICM_CLEARLOOP, ICM_CHECKLOOP  }

{ interconnection attributes used by icclass, modelclass, and gadgetclass }
 ICA_Dummy      = (TAG_USER+$40000);
 ICA_TARGET     = (ICA_Dummy + 1);
        { interconnection target               }
 ICA_MAP        = (ICA_Dummy + 2);
        { interconnection map tagitem list     }
 ICSPECIAL_CODE = (ICA_Dummy + 3);
        { a "pseudo-attribute", see below.     }

{ Normally, the value for ICA_TARGET is some object pointer,
 * but if you specify the special value ICTARGET_IDCMP, notification
 * will be send as an IDCMP_IDCMPUPDATE message to the appropriate window's
 * IDCMP port.  See the definition of IDCMP_IDCMPUPDATE.
 *
 * When you specify ICTARGET_IDCMP for ICA_TARGET, the map you
 * specify will be applied to derive the attribute list that is
 * sent with the IDCMP_IDCMPUPDATE message.  If you specify a map list
 * which results in the attribute tag id ICSPECIAL_CODE, the
 * lower sixteen bits of the corresponding ti_Data value will
 * be copied into the Code field of the IDCMP_IDCMPUPDATE IntuiMessage.
 }
 ICTARGET_IDCMP = (NOT 0);


CONST
 CUSTOMIMAGEDEPTH     =   (-1);
{ if image.Depth is this, it's a new Image class object }


{****************************************************}
CONST
 IA_Dummy             =   (TAG_USER + $20000);
 IA_Left              =   (IA_Dummy + $01);
 IA_Top               =   (IA_Dummy + $02);
 IA_Width             =   (IA_Dummy + $03);
 IA_Height            =   (IA_Dummy + $04);
 IA_FGPen             =   (IA_Dummy + $05);
                    { IA_FGPen also means "PlanePick"  }
 IA_BGPen             =   (IA_Dummy + $06);
                    { IA_BGPen also means "PlaneOnOff" }
 IA_Data              =   (IA_Dummy + $07);
                    { bitplanes, for classic image,
                     * other image classes may use it for other things
                     }
 IA_LineWidth         =   (IA_Dummy + $08);
 IA_Pens              =   (IA_Dummy + $0E);
                    { pointer to UWORD pens[],
                     * ala DrawInfo.Pens, MUST be
                     * terminated by ~0.  Some classes can
                     * choose to have this, or SYSIA_DrawInfo,
                     * or both.
                     }
 IA_Resolution        =   (IA_Dummy + $0F);
                    { packed uwords for x/y resolution into a longword
                     * ala DrawInfo.Resolution
                     }

{*** see class documentation to learn which    ****}
{*** classes recognize these                   ****}
 IA_APattern           =  (IA_Dummy + $10);
 IA_APatSize           =  (IA_Dummy + $11);
 IA_Mode               =  (IA_Dummy + $12);
 IA_Font               =  (IA_Dummy + $13);
 IA_Outline            =  (IA_Dummy + $14);
 IA_Recessed           =  (IA_Dummy + $15);
 IA_DoubleEmboss       =  (IA_Dummy + $16);
 IA_EdgesOnly          =  (IA_Dummy + $17);

{*** "sysiclass" attributes                    ****}
 SYSIA_Size            =  (IA_Dummy + $0B);
                    { 's below          }
 SYSIA_Depth           =  (IA_Dummy + $0C);
                    { this is unused by Intuition.  SYSIA_DrawInfo
                     * is used instead for V36
                     }
 SYSIA_Which           =  (IA_Dummy + $0D);
                    { see 's below      }
 SYSIA_DrawInfo        =  (IA_Dummy + $18);
                    { pass to sysiclass, please }

{****  obsolete: don't use these, use IA_Pens  ****}
 SYSIA_Pens            =  IA_Pens;
 IA_ShadowPen          =  (IA_Dummy + $09);
 IA_HighlightPen       =  (IA_Dummy + $0A);

{ New for V39: }
 SYSIA_ReferenceFont   =  (IA_Dummy + $19);
                    { Font to use as reference for scaling
                     * certain sysiclass images
                     }
 IA_SupportsDisable    =  (IA_Dummy + $1a);
                    { By default, Intuition ghosts gadgets itself,
                     * instead of relying on IDS_DISABLED or
                     * IDS_SELECTEDDISABLED.  An imageclass that
                     * supports these states should return this attribute
                     * as TRUE.  You cannot set or clear this attribute,
                     * however.
                     }

 IA_FrameType          =  (IA_Dummy + $1b);
                    { Starting with V39, FrameIClass recognizes
                     * several standard types of frame.  Use one
                     * of the FRAME_ specifiers below.  Defaults
                     * to FRAME_DEFAULT.
                     }

     IA_Underscore = IA_Dummy + $1c;
  { V44, Indicate underscore keyboard shortcut for image labels.
                       (UBYTE) Defaults to '_'
                      }

     IA_Scalable = IA_Dummy + $1d;
  { V44, Attribute indicates this image is allowed
                           to/can scale its rendering.
                       (BOOL) Defaults to FALSE.
                      }

     IA_ActivateKey = IA_Dummy + $1e;
  { V44, Used to get an underscored label shortcut.
                       Useful for labels attached to string gadgets.
                       (UBYTE) Defaults to NULL.
                      }

     IA_Screen = IA_Dummy + $1f;
  { V44 Screen pointer, may be useful/required by certain classes.
                       (struct Screen  )
                      }

     IA_Precision = IA_Dummy + $20;
  { V44 Precision value, typically pen precision but may be
                       used for similar custom purposes.
                       (Cardinal)
                      }

{* next attribute: (IA_Dummy + $1c)   *}

{***********************************************}

{ data values for SYSIA_Size   }
 SYSISIZE_MEDRES = (0);
 SYSISIZE_LOWRES = (1);
 SYSISIZE_HIRES  = (2);

{
 * SYSIA_Which tag data values:
 * Specifies which system gadget you want an image for.
 * Some numbers correspond to internal Intuition s
 }
 DEPTHIMAGE     = ($00);
 ZOOMIMAGE      = ($01);
 SIZEIMAGE      = ($02);
 CLOSEIMAGE     = ($03);
 SDEPTHIMAGE    = ($05); { screen depth gadget }
 LEFTIMAGE      = ($0A);
 UPIMAGE        = ($0B);
 RIGHTIMAGE     = ($0C);
 DOWNIMAGE      = ($0D);
 CHECKIMAGE     = ($0E);
 MXIMAGE        = ($0F); { mutual exclude "button" }
{* New for V39: *}
 MENUCHECK      = ($10); { Menu checkmark image }
 AMIGAKEY       = ($11); { Menu Amiga-key image }

{ Data values for IA_FrameType (recognized by FrameIClass)
 *
 * FRAME_DEFAULT:  The standard V37-type frame, which has
 *      thin edges.
 * FRAME_BUTTON:  Standard button gadget frames, having thicker
 *      sides and nicely edged corners.
 * FRAME_RIDGE:  A ridge such as used by standard string gadgets.
 *      You can recess the ridge to get a groove image.
 * FRAME_ICONDROPBOX: A broad ridge which is the standard imagery
 *      for areas in AppWindows where icons may be dropped.
 }

     FRAME_DEFAULT = 0;
     FRAME_BUTTON = 1;
     FRAME_RIDGE = 2;
     FRAME_ICONDROPBOX = 3;

{ image message id's   }
    IM_DRAW     = $202;  { draw yourself, with "state"          }
    IM_HITTEST  = $203;  { return TRUE IF click hits image      }
    IM_ERASE    = $204;  { erase yourself                       }
    IM_MOVE     = $205;  { draw new AND erase old, smoothly     }

    IM_DRAWFRAME= $206;  { draw with specified dimensions       }
    IM_FRAMEBOX = $207;  { get recommended frame around some box}
    IM_HITFRAME = $208;  { hittest with dimensions              }
    IM_ERASEFRAME= $209; { hittest with dimensions              }
    IM_DOMAINFRAME = $20A;{ query image for its domain info (V44)  }

{ image draw states or styles, for IM_DRAW }
    IDS_NORMAL          = (0);
    IDS_SELECTED        = (1);    { for selected gadgets     }
    IDS_DISABLED        = (2);    { for disabled gadgets     }
    IDS_BUSY            = (3);    { for future functionality }
    IDS_INDETERMINATE   = (4);    { for future functionality }
    IDS_INACTIVENORMAL  = (5);    { normal, in inactive window border }
    IDS_INACTIVESELECTED= (6);    { selected, in inactive border }
    IDS_INACTIVEDISABLED= (7);    { disabled, in inactive border }
    IDS_SELECTEDDISABLED = 8;     { disabled and selected     }

{ oops, please forgive spelling error by jimm }
 IDS_INDETERMINANT = IDS_INDETERMINATE;

{ IM_FRAMEBOX  }
Type

  pimpFrameBox = ^timpFrameBox;
  timpFrameBox = record
    MethodID   : Cardinal;
    imp_ContentsBox  : pIBox;       { input: relative box of contents }
    imp_FrameBox     : pIBox;          { output: rel. box of encl frame  }
    imp_DrInfo       : pDrawInfo;
    imp_FrameFlags   : Cardinal;
  END;

CONST
 FRAMEF_SPECIFY = (1);  { Make do with the dimensions of FrameBox
                                 * provided.
                                 }

{ IM_DRAW, IM_DRAWFRAME        }
Type

   pimpDraw = ^timpDraw;
   timpDraw = record
    MethodID    : Cardinal;
    imp_RPort   : pRastPort;
    imp_Offset  : record
              x : Word;
              y : Word;
                  end;
    imp_State   : Cardinal;
    imp_DrInfo  : pDrawInfo;

    { these parameters only valid for IM_DRAWFRAME }
    imp_Dimensions : record
             Width : Word;
            Height : Word;
                     end;
   END;

{ IM_ERASE, IM_ERASEFRAME      }
{ NOTE: This is a subset of impDraw    }

   pimpErase = ^timpErase;
   timpErase = record
    MethodID       : Cardinal;
    imp_RPort      : pRastPort;
    imp_Offset     : record
                 x : Word;
                 y : Word;
                     end;

    { these parameters only valid for IM_ERASEFRAME }
    imp_Dimensions : record
             Width : Word;
            Height : Word;
                     end;
   END;

{ IM_HITTEST, IM_HITFRAME      }

   pimpHitTest = ^timpHitTest;
   timpHitTest = record
    MethodID   : Cardinal;
    imp_Point  : record
             x : Word;
             y : Word;
                 end;

    { these parameters only valid for IM_HITFRAME }
    imp_Dimensions : record
               Width : Word;
               Height : Word;
               end;
   END;


{ The IM_DOMAINFRAME method is used to obtain the sizing
 * requirements of an image object within a layout group.
 }

{ IM_DOMAINFRAME }
     PimpDomainFrame = ^timpDomainFrame;
     timpDomainFrame = record
          MethodID : Cardinal;
          imp_DrInfo : PDrawInfo;
          imp_RPort : PRastPort;
          imp_Which : LongInt;
          imp_Domain : tIBox;
          imp_Attrs : PTagItem;
       end;

  { Accepted vales for imp_Which.
    }

  const
     IDOMAIN_MINIMUM = 0;
     IDOMAIN_NOMINAL = 1;
     IDOMAIN_MAXIMUM = 2;

 { **  'boopsi' pointer class interface }

const
{ The following tags are recognized at NewObject() time by
 * pointerclass:
 *
 * POINTERA_BitMap (struct BitMap *) - Pointer to bitmap to
 *      get pointer imagery from.  Bitplane data need not be
 *      in chip RAM.
 * POINTERA_XOffset (LONG) - X-offset of the pointer hotspot.
 * POINTERA_YOffset (LONG) - Y-offset of the pointer hotspot.
 * POINTERA_WordWidth (Cardinal) - designed width of the pointer in words
 * POINTERA_XResolution (Cardinal) - one of the POINTERXRESN_ flags below
 * POINTERA_YResolution (Cardinal) - one of the POINTERYRESN_ flags below
 *
 }

 POINTERA_Dummy = (TAG_USER + $39000);

 POINTERA_BitMap        = (POINTERA_Dummy + $01);
 POINTERA_XOffset       = (POINTERA_Dummy + $02);
 POINTERA_YOffset       = (POINTERA_Dummy + $03);
 POINTERA_WordWidth     = (POINTERA_Dummy + $04);
 POINTERA_XResolution   = (POINTERA_Dummy + $05);
 POINTERA_YResolution   = (POINTERA_Dummy + $06);

{ These are the choices for the POINTERA_XResolution attribute which
 * will determine what resolution pixels are used for this pointer.
 *
 * POINTERXRESN_DEFAULT (ECS-compatible pointer width)
 *      = 70 ns if SUPERHIRES-type mode, 140 ns if not
 *
 * POINTERXRESN_SCREENRES
 *      = Same as pixel speed of screen
 *
 * POINTERXRESN_LORES (pointer always in lores-like pixels)
 *      = 140 ns in 15kHz modes, 70 ns in 31kHz modes
 *
 * POINTERXRESN_HIRES (pointer always in hires-like pixels)
 *      = 70 ns in 15kHz modes, 35 ns in 31kHz modes
 *
 * POINTERXRESN_140NS (pointer always in 140 ns pixels)
 *      = 140 ns always
 *
 * POINTERXRESN_70NS (pointer always in 70 ns pixels)
 *      = 70 ns always
 *
 * POINTERXRESN_35NS (pointer always in 35 ns pixels)
 *      = 35 ns always
 }

 POINTERXRESN_DEFAULT   = 0;
 POINTERXRESN_140NS     = 1;
 POINTERXRESN_70NS      = 2;
 POINTERXRESN_35NS      = 3;

 POINTERXRESN_SCREENRES = 4;
 POINTERXRESN_LORES     = 5;
 POINTERXRESN_HIRES     = 6;

{ These are the choices for the POINTERA_YResolution attribute which
 * will determine what vertical resolution is used for this pointer.
 *
 * POINTERYRESN_DEFAULT
 *      = In 15 kHz modes, the pointer resolution will be the same
 *        as a non-interlaced screen.  In 31 kHz modes, the pointer
 *        will be doubled vertically.  This means there will be about
 *        200-256 pointer lines per screen.
 *
 * POINTERYRESN_HIGH
 * POINTERYRESN_HIGHASPECT
 *      = Where the hardware/software supports it, the pointer resolution
 *        will be high.  This means there will be about 400-480 pointer
 *        lines per screen.  POINTERYRESN_HIGHASPECT also means that
 *        when the pointer comes out double-height due to hardware/software
 *        restrictions, its width would be doubled as well, if possible
 *        (to preserve aspect).
 *
 * POINTERYRESN_SCREENRES
 * POINTERYRESN_SCREENRESASPECT
 *      = Will attempt to match the vertical resolution of the pointer
 *        to the screen's vertical resolution.  POINTERYRESN_SCREENASPECT also
 *        means that when the pointer comes out double-height due to
 *        hardware/software restrictions, its width would be doubled as well,
 *        if possible (to preserve aspect).
 *
 }

 POINTERYRESN_DEFAULT          =  0;
 POINTERYRESN_HIGH             =  2;
 POINTERYRESN_HIGHASPECT       =  3;
 POINTERYRESN_SCREENRES        =  4;
 POINTERYRESN_SCREENRESASPECT  =  5;

{ Compatibility note:
 *
 * The AA chipset supports variable sprite width and resolution, but
 * the setting of width and resolution is global for all sprites.
 * When no other sprites are in use, Intuition controls the sprite
 * width and sprite resolution for correctness based on pointerclass
 * attributes specified by the creator of the pointer.  Intuition
 * controls sprite resolution with the VTAG_DEFSPRITERESN_SET tag
 * to VideoControl().  Applications can override this on a per-viewport
 * basis with the VTAG_SPRITERESN_SET tag to VideoControl().
 *
 * If an application uses a sprite other than the pointer sprite,
 * Intuition will automatically regenerate the pointer sprite's image in
 * a compatible width.  This might involve BitMap scaling of the imagery
 * you supply.
 *
 * If any sprites other than the pointer sprite were obtained with the
 * old GetSprite() call, Intuition assumes that the owner of those
 * sprites is unaware of sprite resolution, hence Intuition will set the
 * default sprite resolution (VTAG_DEFSPRITERESN_SET) to ECS-compatible,
 * instead of as requested by the various pointerclass attributes.
 *
 * No resolution fallback occurs when applications use ExtSprites.
 * Such applications are expected to use VTAG_SPRITERESN_SET tag if
 * necessary.
 *
 * NB:  Under release V39, only sprite width compatibility is implemented.
 * Sprite resolution compatibility was added for V40.
 }


Type

   pStringExtend = ^tStringExtend;
   tStringExtend = record
    { display specifications   }
    Font        : pTextFont;      { must be an open Font (not TextAttr)  }
    Pens        : Array[0..1] of Byte;        { color of text/backgroun              }
    ActivePens  : Array[0..1] of Byte;  { colors when gadget is active         }

    { edit specifications      }
    InitialModes : Cardinal;   { initial mode flags, below            }
    EditHook     : pHook;      { IF non-NULL, must supply WorkBuffer  }
    WorkBuffer   : PChar;    { must be as large as StringInfo.Buffer}

    Reserved     : Array[0..3] of Cardinal;    { set to 0                             }
   END;

   pSGWork = ^tSGWork;
   tSGWork = record
    { set up when gadget is first activated    }
    Gad       : pGadget;         { the contestant itself        }   { Gadget in C-Includes }
    StrInfo   : pStringInfo;     { easy access to sinfo         }   { StrInfo in C-Includes }
    WorkBuffer : PChar;           { intuition's planned result   }
    PrevBuffer : PChar;           { what was there before        }
    Modes      : Cardinal;          { current mode                 }

    { modified for each input event    }
    IEvent     : pInputEvent;    { actual event: do not change  }
    Code       : Word;            { character code, IF one byte  }
    BufferPos  : smallint;            { cursor position              }
    NumChars   : smallint;
    Actions    : Cardinal;          { what Intuition will do       }
    LongInt_   : Longint;          { temp storage for longint     }

    GInfo      : pGadgetInfo;    { see cghooks.h                }   { GadgetInfo in C-Includes }
    EditOp     : Word;            { from constants below         }
   END;

{ SGWork.EditOp -
 * These values indicate what basic type of operation the global
 * editing hook has performed on the string before your gadget's custom
 * editing hook gets called.  You do not have to be concerned with the
 * value your custom hook leaves in the EditOp field, only if you
 * write a global editing hook.
 *
 * For most of these general edit operations, you'll want to compare
 * the BufferPos and NumChars of the StringInfo (before global editing)
 * and SGWork (after global editing).
 }

CONST
 EO_NOOP       =  ($0001);
        { did nothing                                                  }
 EO_DELBACKWARD=  ($0002);
        { deleted some chars (maybe 0).                                }
 EO_DELFORWARD =  ($0003);
        { deleted some characters under and in front of the cursor     }
 EO_MOVECURSOR =  ($0004);
        { moved the cursor                                             }
 EO_ENTER      =  ($0005);
        { "enter" or "return" key, terminate                           }
 EO_RESET      =  ($0006);
        { current Intuition-style undo                                 }
 EO_REPLACECHAR=  ($0007);
        { replaced one character and (maybe) advanced cursor           }
 EO_INSERTCHAR =  ($0008);
        { inserted one char into string or added one at end            }
 EO_BADFORMAT  =  ($0009);
        { didn't like the text data, e.g., Bad LONGINT                 }
 EO_BIGCHANGE  =  ($000A);        { unused by Intuition  }
        { complete or major change to the text, e.g. new string        }
 EO_UNDO       =  ($000B);        { unused by Intuition  }
        { some other style of undo                                     }
 EO_CLEAR      =  ($000C);
        { clear the string                                             }
 EO_SPECIAL    =  ($000D);        { unused by Intuition  }
        { some operation that doesn't fit into the categories here     }


{ Mode Flags definitions (ONLY first group allowed as InitialModes)    }
 SGM_REPLACE   =  (1);       { replace mode                 }
{ please initialize StringInfo with in-range value of BufferPos
 * if you are using SGM_REPLACE mode.
 }

 SGM_FIXEDFIELD = (2);       { fixed length buffer          }
                                        { always set SGM_REPLACE, too  }
 SGM_NOFILTER   = (4);       { don't filter control chars   }

{ SGM_EXITHELP is new for V37, and ignored by V36: }
 SGM_EXITHELP   = (128);       { exit with code = $5F IF HELP hit }


{ These Mode Flags are for internal use only                           }
 SGM_NOCHANGE   = (8);       { no edit changes yet          }
 SGM_NOWORKB    = (16);       { Buffer == PrevBuffer         }
 SGM_CONTROL    = (32);       { control char escape mode     }
 SGM_LONGINT    = (64);       { an intuition longint gadget  }

{ String Gadget Action Flags (put in SGWork.Actions by EditHook)       }
 SGA_USE        = ($1);  { use contents of SGWork               }
 SGA_END        = ($2);  { terminate gadget, code in Code field }
 SGA_BEEP       = ($4);  { flash the screen for the user        }
 SGA_REUSE      = ($8);  { reuse input event                    }
 SGA_REDISPLAY  = ($10); { gadget visuals changed               }

{ New for V37: }
 SGA_NEXTACTIVE = ($20); { Make next possible gadget active.    }
 SGA_PREVACTIVE = ($40); { Make previous possible gadget active.}

{ function id for only existing custom string gadget edit hook }

 SGH_KEY        = (1);    { process editing keystroke            }
 SGH_CLICK      = (2);    { process mouse click cursor position  }

{ Here's a brief summary of how the custom string gadget edit hook works:
 *      You provide a hook in StringInfo.Extension.EditHook.
 *      The hook is called in the standard way with the 'object'
 *      a pointer to SGWork, and the 'message' a pointer to a command
 *      block, starting either with (longword) SGH_KEY, SGH_CLICK,
 *      or something new.
 *
 *      You return 0 if you don't understand the command (SGH_KEY is
 *      required and assumed).  Return non-zero if you implement the
 *      command.
 *
 *   SGH_KEY:
 *      There are no parameters following the command longword.
 *
 *      Intuition will put its idea of proper values in the SGWork
 *      before calling you, and if you leave SGA_USE set in the
 *      SGWork.Actions field, Intuition will use the values
 *      found in SGWork fields WorkBuffer, NumChars, BufferPos,
 *      and LongInt, copying the WorkBuffer back to the StringInfo
 *      Buffer.
 *
 *      NOTE WELL: You may NOT change other SGWork fields.
 *
 *      If you clear SGA_USE, the string gadget will be unchanged.
 *
 *      If you set SGA_END, Intuition will terminate the activation
 *      of the string gadget.  If you also set SGA_REUSE, Intuition
 *      will reuse the input event after it deactivates your gadget.
 *
 *      In this case, Intuition will put the value found in SGWork.Code
 *      into the IntuiMessage.Code field of the IDCMP_GADGETUP message it
 *      sends to the application.
 *
 *      If you set SGA_BEEP, Intuition will call DisplayBeep(); use
 *      this if the user has typed in error, or buffer is full.
 *
 *      Set SGA_REDISPLAY if the changes to the gadget warrant a
 *      gadget redisplay.  Note: cursor movement requires a redisplay.
 *
 *      Starting in V37, you may set SGA_PREVACTIVE or SGA_NEXTACTIVE
 *      when you set SGA_END.  This tells Intuition that you want
 *      the next or previous gadget with GFLG_TABCYCLE to be activated.
 *
 *   SGH_CLICK:
 *      This hook command is called when Intuition wants to position
 *      the cursor in response to a mouse click in the string gadget.
 *
 *      Again, here are no parameters following the command longword.
 *
 *      This time, Intuition has already calculated the mouse position
 *      character cell and put it in SGWork.BufferPos.  The previous
 *      BufferPos value remains in the SGWork.StringInfo.BufferPos.
 *
 *      Intuition will again use the SGWork fields listed above for
 *      SGH_KEY.  One restriction is that you are NOT allowed to set
 *      SGA_END or SGA_REUSE for this command.  Intuition will not
 *      stand for a gadget which goes inactive when you click in it.
 *
 *      You should always leave the SGA_REDISPLAY flag set, since Intuition
 *      uses this processing when activating a string gadget.
 }

const
  INTUITIONNAME : PChar = 'intuition.library';

var
  intuitionbase : PIntuitionBase;


procedure OpenIntuition;
SysCall IntuitionBase 030;

procedure Intuition(iEvent : pInputEvent location 'a0');
SysCall IntuitionBase 036;

function AddGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : CARDINAL location 'd0') : Word;
SysCall IntuitionBase 042;

function ClearDMRequest(window : pWindow location 'a0') : BOOLEAN;
SysCall IntuitionBase 048;

procedure ClearMenuStrip(window : pWindow location 'a0');
SysCall IntuitionBase 054;

procedure ClearPointer(window : pWindow location 'a0');
SysCall IntuitionBase 060;

function CloseScreen(screen : pScreen location 'a0') : BOOLEAN;
SysCall IntuitionBase 066;

procedure CloseWindow(window : pWindow location 'a0');
SysCall IntuitionBase 072;

function CloseWorkBench : LongInt;
SysCall IntuitionBase 078;

procedure CurrentTime(VAR seconds : CARDINAL location 'a0'; VAR micros : CARDINAL location 'a1');
SysCall IntuitionBase 084;

function DisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1') : BOOLEAN;
SysCall IntuitionBase 090;

procedure DisplayBeep(screen : pScreen location 'a0');
SysCall IntuitionBase 096;

function DoubleClick(sSeconds : CARDINAL location 'd0'; sMicros : CARDINAL location 'd1'; cSeconds : CARDINAL location 'd2'; cMicros : CARDINAL location 'd3') : BOOLEAN;
SysCall IntuitionBase 102;

procedure DrawBorder(rp : pRastPort location 'a0'; border : pBorder location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1');
SysCall IntuitionBase 108;

procedure DrawImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1');
SysCall IntuitionBase 114;

procedure EndRequest(requester : pRequester location 'a0'; window : pWindow location 'a1');
SysCall IntuitionBase 120;

function GetDefPrefs(preferences : pPreferences location 'a0'; size : LongInt location 'd0') : pPreferences;
SysCall IntuitionBase 126;

function GetPrefs(preferences : pPreferences location 'a0'; size : LongInt location 'd0') : pPreferences;
SysCall IntuitionBase 132;

procedure InitRequester(requester : pRequester location 'a0');
SysCall IntuitionBase 138;

function ItemAddress(menuStrip : pMenu location 'a0'; menuNumber : CARDINAL location 'd0') : pMenuItem;
SysCall IntuitionBase 144;

function ModifyIDCMP(window : pWindow location 'a0'; flags : CARDINAL location 'd0') : BOOLEAN;
SysCall IntuitionBase 150;

procedure ModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4');
SysCall IntuitionBase 156;

procedure MoveScreen(screen : pScreen location 'a0'; dx : LongInt location 'd0'; dy : LongInt location 'd1');
SysCall IntuitionBase 162;

procedure MoveWindow(window : pWindow location 'a0'; dx : LongInt location 'd0'; dy : LongInt location 'd1');
SysCall IntuitionBase 168;

procedure OffGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2');
SysCall IntuitionBase 174;

procedure OffMenu(window : pWindow location 'a0'; menuNumber : CARDINAL location 'd0');
SysCall IntuitionBase 180;

procedure OnGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2');
SysCall IntuitionBase 186;

procedure OnMenu(window : pWindow location 'a0'; menuNumber : CARDINAL location 'd0');
SysCall IntuitionBase 192;

function OpenScreen(newScreen : pNewScreen location 'a0') : pScreen;
SysCall IntuitionBase 198;

function OpenWindow(newWindow : pNewWindow location 'a0') : pWindow;
SysCall IntuitionBase 204;

function OpenWorkBench : CARDINAL;
SysCall IntuitionBase 210;

procedure PrintIText(rp : pRastPort location 'a0'; iText : pIntuiText location 'a1'; left : LongInt location 'd0'; top : LongInt location 'd1');
SysCall IntuitionBase 216;

procedure RefreshGadgets(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2');
SysCall IntuitionBase 222;

function RemoveGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1') : Word;
SysCall IntuitionBase 228;

procedure ReportMouse(flag : LongInt location 'd0'; window : pWindow location 'a0');
SysCall IntuitionBase 234;

function Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : BOOLEAN;
SysCall IntuitionBase 240;

procedure ScreenToBack(screen : pScreen location 'a0');
SysCall IntuitionBase 246;

procedure ScreenToFront(screen : pScreen location 'a0');
SysCall IntuitionBase 252;

function SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : BOOLEAN;
SysCall IntuitionBase 258;

function SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN;
SysCall IntuitionBase 264;

procedure SetPointer(window : pWindow location 'a0'; VAR pointer : Word location 'a1'; height : LongInt location 'd0'; width : LongInt location 'd1'; xOffset : LongInt location 'd2'; yOffset : LongInt location 'd3');
SysCall IntuitionBase 270;

procedure SetWindowTitles(window : pWindow location 'a0'; windowTitle : PChar location 'a1'; screenTitle : PChar location 'a2');
SysCall IntuitionBase 276;

procedure ShowTitle(screen : pScreen location 'a0'; showIt : LongInt location 'd0');
SysCall IntuitionBase 282;

procedure SizeWindow(window : pWindow location 'a0'; dx : LongInt location 'd0'; dy : LongInt location 'd1');
SysCall IntuitionBase 288;

function ViewAddress : pView;
SysCall IntuitionBase 294;

function ViewPortAddress(window : pWindow location 'a0') : pViewPort;
SysCall IntuitionBase 300;

procedure WindowToBack(window : pWindow location 'a0');
SysCall IntuitionBase 306;

procedure WindowToFront(window : pWindow location 'a0');
SysCall IntuitionBase 312;

function WindowLimits(window : pWindow location 'a0'; widthMin : LongInt location 'd0'; heightMin : LongInt location 'd1'; widthMax : CARDINAL location 'd2'; heightMax : CARDINAL location 'd3') : BOOLEAN;
SysCall IntuitionBase 318;

function SetPrefs(preferences : pPreferences location 'a0'; size : LongInt location 'd0'; inform : LongInt location 'd1') : pPreferences;
SysCall IntuitionBase 324;

function IntuiTextLength(iText : pIntuiText location 'a0') : LongInt;
SysCall IntuitionBase 330;

function WBenchToBack : BOOLEAN;
SysCall IntuitionBase 336;

function WBenchToFront : BOOLEAN;
SysCall IntuitionBase 342;

function AutoRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; pFlag : CARDINAL location 'd0'; nFlag : CARDINAL location 'd1'; width : CARDINAL location 'd2'; height : CARDINAL location 'd3') : BOOLEAN;
SysCall IntuitionBase 348;

procedure BeginRefresh(window : pWindow location 'a0');
SysCall IntuitionBase 354;

function BuildSysRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; flags : CARDINAL location 'd0'; width : CARDINAL location 'd1'; height : CARDINAL location 'd2') : pWindow;
SysCall IntuitionBase 360;

procedure EndRefresh(window : pWindow location 'a0'; complete : LongInt location 'd0');
SysCall IntuitionBase 366;

procedure FreeSysRequest(window : pWindow location 'a0');
SysCall IntuitionBase 372;

function MakeScreen(screen : pScreen location 'a0') : LongInt;
SysCall IntuitionBase 378;

function RemakeDisplay : LongInt;
SysCall IntuitionBase 384;

function RethinkDisplay : LongInt;
SysCall IntuitionBase 390;

function AllocRemember(var rememberKey : pRemember location 'a0'; size : CARDINAL location 'd0'; flags : CARDINAL location 'd1') : POINTER;
SysCall IntuitionBase 396;

procedure FreeRemember(var rememberKey : pRemember location 'a0'; reallyForget : LongInt location 'd0');
SysCall IntuitionBase 408;

function LockIBase(dontknow : CARDINAL location 'd0') : CARDINAL;
SysCall IntuitionBase 414;

procedure UnlockIBase(ibLock : CARDINAL location 'a0');
SysCall IntuitionBase 420;

function GetScreenData(buffer : POINTER location 'a0'; size : CARDINAL location 'd0'; type1 : CARDINAL location 'd1'; screen : pScreen location 'a1') : LongInt;
SysCall IntuitionBase 426;

procedure RefreshGList(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; numGad : LongInt location 'd0');
SysCall IntuitionBase 432;

function AddGList(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : CARDINAL location 'd0'; numGad : LongInt location 'd1'; requester : pRequester location 'a2') : Word;
SysCall IntuitionBase 438;

function RemoveGList(remPtr : pWindow location 'a0'; gadget : pGadget location 'a1'; numGad : LongInt location 'd0') : Word;
SysCall IntuitionBase 444;

procedure ActivateWindow(window : pWindow location 'a0');
SysCall IntuitionBase 450;

procedure RefreshWindowFrame(window : pWindow location 'a0');
SysCall IntuitionBase 456;

function ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : BOOLEAN;
SysCall IntuitionBase 462;

procedure NewModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4'; numGad : LongInt location 'd5');
SysCall IntuitionBase 468;

function QueryOverscan(displayID : CARDINAL location 'a0'; rect : pRectangle location 'a1'; oScanType : LongInt location 'd0') : LongInt;
SysCall IntuitionBase 474;

procedure MoveWindowInFrontOf(window : pWindow location 'a0'; behindWindow : pWindow location 'a1');
SysCall IntuitionBase 480;

procedure ChangeWindowBox(window : pWindow location 'a0'; left : LongInt location 'd0'; top : LongInt location 'd1'; width : LongInt location 'd2'; height : LongInt location 'd3');
SysCall IntuitionBase 486;

function SetEditHook(hook : pHook location 'a0') : pHook;
SysCall IntuitionBase 492;

function SetMouseQueue(window : pWindow location 'a0'; queueLength : CARDINAL location 'd0') : LongInt;
SysCall IntuitionBase 498;

procedure ZipWindow(window : pWindow location 'a0');
SysCall IntuitionBase 504;

function LockPubScreen(name : PChar location 'a0') : pScreen;
SysCall IntuitionBase 510;

procedure UnlockPubScreen(name : PChar location 'a0'; screen : pScreen location 'a1');
SysCall IntuitionBase 516;

function LockPubScreenList : pList;
SysCall IntuitionBase 522;

procedure UnlockPubScreenList;
SysCall IntuitionBase 528;

function NextPubScreen(screen : pScreen location 'a0'; namebuf : PChar location 'a1') : PChar;
SysCall IntuitionBase 534;

procedure SetDefaultPubScreen(name : PChar location 'a0');
SysCall IntuitionBase 540;

function SetPubScreenModes(modes : CARDINAL location 'd0') : Word;
SysCall IntuitionBase 546;

function PubScreenStatus(screen : pScreen location 'a0'; statusFlags : CARDINAL location 'd0') : Word;
SysCall IntuitionBase 552;

function ObtainGIRPort(gInfo : pGadgetInfo location 'a0') : pRastPort;
SysCall IntuitionBase 558;

procedure ReleaseGIRPort(rp : pRastPort location 'a0');
SysCall IntuitionBase 564;

procedure GadgetMouse(gadget : pGadget location 'a0'; gInfo : pGadgetInfo location 'a1'; VAR mousePoint : INTEGER location 'a2');
SysCall IntuitionBase 570;

procedure GetDefaultPubScreen(nameBuffer : PChar location 'a0');
SysCall IntuitionBase 582;

function EasyRequestArgs(window : pWindow location 'a0'; easyStruct : pEasyStruct location 'a1'; idcmpPtr : Pointer location 'a2'; args : POINTER location 'a3') : LongInt;
SysCall IntuitionBase 588;

function BuildEasyRequestArgs(window : pWindow location 'a0'; easyStruct : pEasyStruct location 'a1'; idcmp : CARDINAL location 'd0'; args : POINTER location 'a3') : pWindow;
SysCall IntuitionBase 594;

function SysReqHandler(window : pWindow location 'a0'; VAR idcmpPtr : CARDINAL location 'a1'; waitInput : LongInt location 'd0') : LongInt;
SysCall IntuitionBase 600;

function OpenWindowTagList(newWindow : pNewWindow location 'a0'; tagList : pTagItem location 'a1') : pWindow;
SysCall IntuitionBase 606;

function OpenWindowTags(newWindow : pNewWindow; tagList : array of DWord) : pWindow; Inline;

function OpenScreenTagList(newScreen : pNewScreen location 'a0'; tagList : pTagItem location 'a1') : pScreen;
SysCall IntuitionBase 612;

function OpenScreenTags(newScreen : pNewScreen; tagList : array of DWord) : pScreen; Inline;

procedure DrawImageState(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1'; state : CARDINAL location 'd2'; drawInfo : pDrawInfo location 'a2');
SysCall IntuitionBase 618;

function PointInImage(point : CARDINAL location 'd0'; image : pImage location 'a0') : BOOLEAN;
SysCall IntuitionBase 624;

procedure EraseImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1');
SysCall IntuitionBase 630;

function NewObjectA(classPtr : pIClass location 'a0'; classID : PChar location 'a1'; tagList : pTagItem location 'a2') : POINTER;
SysCall IntuitionBase 636;

function NewObject(classPtr : pIClass; classID : PChar; tags: array of LongWord) : POINTER;

procedure DisposeObject(object1 : POINTER location 'a0');
SysCall IntuitionBase 642;

function SetAttrsA(object1 : POINTER location 'a0'; tagList : pTagItem location 'a1') : CARDINAL;
SysCall IntuitionBase 648;

function GetAttr(attrID : CARDINAL location 'd0'; object1 : POINTER location 'a0'; VAR storagePtr : CARDINAL location 'a1') : CARDINAL;
SysCall IntuitionBase 654;

function SetGadgetAttrsA(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; tagList : pTagItem location 'a3') : CARDINAL;
SysCall IntuitionBase 660;

function NextObject(objectPtrPtr : POINTER location 'a0') : POINTER;
SysCall IntuitionBase 666;

function MakeClass(classID : PChar location 'a0'; superClassID : PChar location 'a1'; superClassPtr : pIClass location 'a2'; instanceSize : CARDINAL location 'd0'; flags : CARDINAL location 'd1') : pIClass;
SysCall IntuitionBase 678;

procedure AddClass(classPtr : pIClass location 'a0');
SysCall IntuitionBase 684;

function GetScreenDrawInfo(screen : pScreen location 'a0') : pDrawInfo;
SysCall IntuitionBase 690;

procedure FreeScreenDrawInfo(screen : pScreen location 'a0'; drawInfo : pDrawInfo location 'a1');
SysCall IntuitionBase 696;

function ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN;
SysCall IntuitionBase 702;

procedure RemoveClass(classPtr : pIClass location 'a0');
SysCall IntuitionBase 708;

function FreeClass(classPtr : pIClass location 'a0') : BOOLEAN;
SysCall IntuitionBase 714;

function AllocScreenBuffer(sc : pScreen location 'a0'; bm : pBitMap location 'a1'; flags : CARDINAL location 'd0') : pScreenBuffer;
SysCall IntuitionBase 768;

procedure FreeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1');
SysCall IntuitionBase 774;

function ChangeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1') : CARDINAL;
SysCall IntuitionBase 780;

procedure ScreenDepth(screen : pScreen location 'a0'; flags : CARDINAL location 'd0'; reserved : POINTER location 'a1');
SysCall IntuitionBase 786;

procedure ScreenPosition(screen : pScreen location 'a0'; flags : CARDINAL location 'd0'; x1 : LongInt location 'd1'; y1 : LongInt location 'd2'; x2 : LongInt location 'd3'; y2 : LongInt location 'd4');
SysCall IntuitionBase 792;

procedure ScrollWindowRaster(win : pWindow location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5');
SysCall IntuitionBase 798;

procedure LendMenus(fromwindow : pWindow location 'a0'; towindow : pWindow location 'a1');
SysCall IntuitionBase 804;

function DoGadgetMethodA(gad : pGadget location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; message : pLongInt location 'a3') : CARDINAL;
SysCall IntuitionBase 810;

procedure SetWindowPointerA(win : pWindow location 'a0'; taglist : pTagItem location 'a1');
SysCall IntuitionBase 816;

function TimedDisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1'; time : CARDINAL location 'a1') : BOOLEAN;
SysCall IntuitionBase 822;

procedure HelpControl(win : pWindow location 'a0'; flags : CARDINAL location 'd0');
SysCall IntuitionBase 828;

procedure ShowWindow(win : pWindow location 'a0');
SysCall IntuitionBase 840;

procedure HideWindow(win : pWindow location 'a0');
SysCall IntuitionBase 846;

function GetSkinInfoAttrA(drawinfo : pDrawInfo location 'a0'; attr : CARDINAL location 'd0'; taglist : pTagItem location 'a1') : CARDINAL;
SysCall IntuitionBase 918;

function GetDrawInfoAttr(drawinfo : pDrawInfo location 'a0'; attr : CARDINAL location 'd0'; VAR errorPtr : CARDINAL location 'a1') : CARDINAL;
SysCall IntuitionBase 936;

procedure WindowAction(window : pWindow location 'a0'; action : CARDINAL location 'd0'; tags : pTagItem location 'a1');
SysCall IntuitionBase 942;

function TransparencyControl(window : pWindow location 'a0'; method : CARDINAL location 'd0'; tags : pTagItem location 'a1') : BOOLEAN;
SysCall IntuitionBase 948;

procedure ScrollWindowRasterNoFill(win : pWindow location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5');
SysCall IntuitionBase 954;


{ Intuition macros }
function INST_DATA (cl: pIClass; o: p_Object): Pointer;
function SIZEOF_INSTANCE (cl: pIClass): Longint;
function BASEOBJECT (o: p_Object): Pointer;
function _OBJ(o: p_Object): p_Object;
function __OBJECT (o: Pointer): p_Object;
function OCLASS (o: Pointer): pIClass;
function SHIFTITEM (n: smallint): word;
function SHIFTMENU (n: smallint): word;
function SHIFTSUB (n: smallint): word;
function FULLMENUNUM (menu, item, sub: smallint): word;
function IM_BGPEN (im: pImage): byte;
function IM_BOX (im: pImage): pIBox;
function IM_FGPEN (im: pImage): byte;
function GADGET_BOX (g: pGadget): pIBox;
function CUSTOM_HOOK (gadget: pGadget): pHook;
function ITEMNUM( n : Word): Word;
function MENUNUM( n : Word): Word;
function SUBNUM( n : Word): Word;

{
FUNCTION DisplayAlert(alertNumber : Cardinal;string_ : string; height : Cardinal) : BOOLEAN;
FUNCTION LockPubScreen(name : string) : pScreen;
FUNCTION MakeClass(classID : string;superClassID : pCHAR;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
FUNCTION MakeClass(classID : pCHAR;superClassID : string;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
FUNCTION MakeClass(classID : string;superClassID : string;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
FUNCTION NewObjectA(classPtr : pIClass;classID : string;tagList : pTagItem) : POINTER;
PROCEDURE SetDefaultPubScreen(name : string);
PROCEDURE SetWindowTitles(window : pWindow;windowTitle : string;screenTitle : pCHAR);
PROCEDURE SetWindowTitles(window : pWindow;windowTitle : pCHAR;screenTitle : string);
PROCEDURE SetWindowTitles(window : pWindow;windowTitle : string;screenTitle : string);
FUNCTION TimedDisplayAlert(alertNumber : Cardinal;string_ : string; height : Cardinal; time : Cardinal) : BOOLEAN;
PROCEDURE UnlockPubScreen(name : string; screen : pScreen);
}

{ Helper calls }
function InitIntuitionLibrary : boolean;


implementation

{$WARNING Ugly workaround, this still needs support in the compiler}
function OpenScreenTags(newScreen : pNewScreen; tagList : array of DWord) : pScreen; Inline;
begin
  OpenScreenTags:=OpenScreenTagList(newScreen,@tagList);
end;

function OpenWindowTags(newWindow : pNewWindow; tagList : array of DWord) : pWindow; Inline;
begin
  OpenWindowTags:=OpenWindowTagList(newWindow,@tagList);
end;

function NewObject(classPtr : pIClass; classID : PChar; tags: array of LongWord) : POINTER; inline;
begin
  NewObject:=NewObjectA(classPtr, classID, @tags);
end;


function INST_DATA (cl: pIClass; o: p_Object): Pointer;
begin
    INST_DATA := Pointer(Longint(o) + cl^.cl_InstOffset);
end;

function SIZEOF_INSTANCE (cl: pIClass): Longint;
begin
    SIZEOF_INSTANCE := cl^.cl_InstOffset + cl^.cl_InstSize + sizeof(t_Object);
end;

function BASEOBJECT (o: p_Object): Pointer;
begin
    BASEOBJECT := Pointer(Longint(o) + sizeof(t_Object));
end;

function _OBJ(o: p_Object): p_Object;
begin
     _OBJ := p_Object(o);
END;

function __OBJECT (o: Pointer): p_Object;
begin
    __OBJECT := p_Object(Longint(o) - sizeof(t_Object))
end;

function OCLASS (o: Pointer): pIClass;
var
    obj: p_Object;
begin
    obj := p_Object(Longint(o) - sizeof(t_Object));
    OCLASS := obj^.o_Class;
end;

function SHIFTITEM (n: smallint): word;
begin
    SHIFTITEM := (n and $3f) shl 5
end;

function SHIFTMENU (n: smallint): word;
begin
    SHIFTMENU := n and $1f
end;

function SHIFTSUB (n: smallint): word;
begin
    SHIFTSUB := (n and $1f) shl 11
end;

function FULLMENUNUM (menu, item, sub: smallint): word;
begin
    FULLMENUNUM := ((sub and $1f) shl 11) or
                    ((item and $3f) shl 5) or
                      (menu and $1f)
end;


{ The next functons _BGPEN AND _FGPEN aren't a full replacement of the
  C macros because the C preprocessor makes it possible to set the
  A/BPen values of the image class objects as well. This can't work
  in pascal, of course! }

function IM_BGPEN (im: pImage): byte;
begin
    IM_BGPEN := im^.PlaneOnOff;
end;

function IM_BOX (im: pImage): pIBox;
begin
    IM_BOX := pIBox(@im^.LeftEdge);
END;

function IM_FGPEN (im: pImage): byte;
begin
    IM_FGPEN := im^.PlanePick;
end;

function GADGET_BOX (g: pGadget): pIBox;
begin
    GADGET_BOX := pIBox(@g^.LeftEdge);
end;

function CUSTOM_HOOK (gadget: pGadget): pHook;
begin
    CUSTOM_HOOK := pHook(gadget^.MutualExclude);
end;

function ITEMNUM( n : Word): Word;
begin
    ITEMNUM := (n shr 5) and $3F
end;

function MENUNUM( n : Word): Word;
begin
    MENUNUM := n and $1f
end;

function SUBNUM( n : Word): Word;
begin
    SUBNUM := (n shr 11) and $1f
end;

{
FUNCTION DisplayAlert(alertNumber : Cardinal;string_ : string; height : Cardinal) : BOOLEAN;
begin
      DisplayAlert := DisplayAlert(alertNumber,pas2c(string_),height);
end;

FUNCTION LockPubScreen(name : string) : pScreen;
begin
      LockPubScreen := LockPubScreen(pas2c(name));
end;

FUNCTION MakeClass(classID : string;superClassID : pCHAR;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
begin
      MakeClass := MakeClass(pas2c(classID),superClassID,superClassPtr,instanceSize,flags);
end;

FUNCTION MakeClass(classID : pCHAR;superClassID : string;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
begin
      MakeClass := MakeClass(classID,pas2c(superClassID),superClassPtr,instanceSize,flags);
end;

FUNCTION MakeClass(classID : string;superClassID : string;superClassPtr : pIClass; instanceSize : Cardinal; flags : Cardinal) : pIClass;
begin
      MakeClass := MakeClass(pas2c(classID),pas2c(superClassID),superClassPtr,instanceSize,flags);
end;

FUNCTION NewObjectA(classPtr : pIClass;classID : string;tagList : pTagItem) : POINTER;
begin
      NewObjectA := NewObjectA(classPtr,pas2c(classID),taglist);
end;

PROCEDURE SetDefaultPubScreen(name : string);
begin
      SetDefaultPubScreen(pas2c(name));
end;

PROCEDURE SetWindowTitles(window : pWindow;windowTitle : string;screenTitle : pCHAR);
begin
      SetWindowTitles(window,pas2c(windowTitle),screenTitle);
end;

PROCEDURE SetWindowTitles(window : pWindow;windowTitle : pCHAR;screenTitle : string);
begin
      SetWindowTitles(window,windowTitle,pas2c(screenTitle));
end;

PROCEDURE SetWindowTitles(window : pWindow;windowTitle : string;screenTitle : string);
begin
      SetWindowTitles(window,pas2c(windowTitle),pas2c(screenTitle));
end;

FUNCTION TimedDisplayAlert(alertNumber : Cardinal;string_ : string; height : Cardinal; time : Cardinal) : BOOLEAN;
begin
      TimedDisplayAlert := TimedDisplayAlert(alertNumber,pas2c(string_),height,time);
end;

PROCEDURE UnlockPubScreen(name : string; screen : pScreen);
begin
      UnlockPubScreen(pas2c(name),screen);
end;
}


const
  { Change VERSION and LIBVERSION to proper values }
  VERSION : string[2] = '50';
  LIBVERSION : longword = 50;

var
  intuition_exit : Pointer;

procedure CloseIntuitionLibrary;
begin
  ExitProc := intuition_exit;
  if IntuitionBase <> nil then begin
    CloseLibrary(PLibrary(IntuitionBase));
    IntuitionBase := nil;
  end;
end;

function InitIntuitionLibrary : boolean;
begin
  IntuitionBase := nil;
  IntuitionBase := OpenLibrary(INTUITIONNAME,LIBVERSION);
  if IntuitionBase <> nil then begin
    intuition_exit := ExitProc;
    ExitProc := @CloseIntuitionLibrary;
    InitIntuitionLibrary:=True;
  end else begin
    InitIntuitionLibrary:=False;
  end;
end;


end. (* UNIT INTUITION *)