home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Intuition / IntuitionBase.i < prev    next >
Text File  |  1991-08-13  |  11KB  |  357 lines
  1. {
  2.     IntuitionBase.i for PCQ Pascal
  3.  
  4.     the IntuitionBase structure and supporting structures
  5. }
  6.  
  7. {$I "Include:Exec/Libraries.i"}
  8. {$I "Include:Intuition/Intuition.i"}
  9. {$I "Include:Exec/Interrupts.i"}
  10. {$I "Include:Graphics/GFX.i"}
  11.  
  12. { these types and constants are used in the forbidden part of IntuitionBase.
  13.  * see below for an explanation that these are NOT supported for your use.
  14.  * They will certainly change in subsequent releases, and are provided
  15.  * for education, debugging, and information.
  16.  }
  17.  
  18. Const
  19.  
  20. { these are the display modes for which we have corresponding parameter
  21.  *  settings in the config arrays
  22.  }
  23.  
  24.     DMODECOUNT        = $0002;    { how many modes there are }
  25.     HIRESPICK        = $0000;
  26.     LOWRESPICK        = $0001;
  27.  
  28.     EVENTMAX         = 10;        { size of event array }
  29.  
  30. { these are the system Gadget defines }
  31.  
  32.     RESCOUNT        = 2;
  33.     HIRESGADGET        = 0;
  34.     LOWRESGADGET    = 1;
  35.  
  36.     GADGETCOUNT        = 8;
  37.     UPFRONTGADGET    = 0;
  38.     DOWNBACKGADGET    = 1;
  39.     SIZEGADGET        = 2;
  40.     CLOSEGADGET        = 3;
  41.     DRAGGADGET        = 4;
  42.     SUPFRONTGADGET    = 5;
  43.     SDOWNBACKGADGET     = 6;
  44.     SDRAGGADGET        = 7;
  45.  
  46. { jimm: 1/10/86: Intuition Locking }
  47. { Let me say it again: don't even think about using this information
  48.  * in a program.
  49.  }
  50.  
  51.     ISTATELOCK        = 0;    { Intuition() not re-entrant        }
  52.     LAYERINFOLOCK    = 1;    { dummy lock used to check protocol    }
  53.     GADGETSLOCK        = 2;    { gadget lists, refresh, flags        }
  54.     LAYERROMLOCK    = 3;    { (dummy) for lock layerrom        }
  55.     VIEWLOCK        = 4;    { access to ViewLord            }
  56.     IBASELOCK        = 5;    { protexts IBase pointers and lists    }
  57.     RPLOCK        = 6;    { use of IBase->RP            }
  58.     NUMILOCKS        = 7;
  59.  
  60. { ======================================================================== }
  61. { === Intuition Geometric Primitives ===================================== }
  62. { ======================================================================== }
  63.  
  64. Type
  65.  
  66.     FatIntuiMessage = record
  67.     IM        : IntuiMessage;
  68.     PrevKeys    : Integer;
  69.     end;
  70.     FatIntuiMessagePtr = ^FatIntuiMessage;
  71.  
  72.     IBox = record
  73.     Left    : Short;
  74.     Top    : Short;
  75.     Width    : Short;
  76.     Height    : Short;
  77.     end;
  78.     IBoxPtr = ^IBox;
  79.  
  80.     PenPair = record
  81.     DetailPen    : Byte;
  82.     BlockPen    : Byte;
  83.     end;
  84.     PenPairPtr = ^PenPair;
  85.  
  86. { ======================================================================== }
  87. { === Gadget Environments ================================================ }
  88. { ======================================================================== }
  89.  
  90. { environment for a whole list of gadgets. note that information for both
  91.  * layers of a G00 window are included.
  92.  }
  93.  
  94.     GListEnv = record
  95.     ge_Screen    : ScreenPtr;
  96.     ge_Window    : WindowPtr;
  97.     ge_Requester    : RequesterPtr;
  98.     ge_RastPort    : RastPortPtr;    { rastport used to render gadget   }
  99.     ge_Layer    : LayerPtr;    { layer for gadget (border, if G00)}
  100.     ge_GZZLayer    : LayerPtr;    { interior layer for G00 windows   }
  101.     ge_Pens        : PenPair;    { pens for rendering gadget        }
  102.     ge_Domain    : IBox;
  103.             { window, screen, requester, rel. to window/screen }
  104.     ge_GZZdims    : IBox;    { interior window area            }
  105.     end;
  106.     GListEnvPtr = ^GListEnv;
  107.  
  108. { information for a gadget in its environment. includes relatively
  109.  * correct size, container for propgadgets, correct layer for this gadget,
  110.  * and back pointers to the environment and gadget itself
  111.  }
  112.  
  113.     GadgetInfo = record
  114.     gi_Environ    : GListEnvPtr;    { environment for this gadget        }
  115.     gi_Gadget    : GadgetPtr;    { gadget this info is for        }
  116.     gi_Box        : IBox;        { actual dimensions of gadget        }
  117.     gi_Container    : IBox;        { inner container dimensions        }
  118.     gi_Layer    : LayerPtr;    { correct layer for this gadget    }
  119.     gi_NewKnob    : IBox;        { place to draw new slider knob    }
  120.     end;
  121.     GadgetInfoPtr = ^GadgetInfo;
  122.  
  123. Const
  124.     NUM_IEVENTS        = 4;
  125.  
  126. { ======================================================================== }
  127. { === IntuitionBase ====================================================== }
  128. { ======================================================================== }
  129. {
  130.  * Be sure to protect yourself against someone modifying these data as
  131.  * you look at them.  This is done by calling:
  132.  *
  133.  * lock = LockIBase(0), which returns an Integer.  When done call
  134.  * UnlockIBase(lock) where lock is what LockIBase() returned.
  135.  }
  136.  
  137. Type
  138.  
  139.     IntuitionBase = record
  140. { IntuitionBase should never be directly modified by programs    }
  141. { even a little bit, guys/gals; do you hear me?    }
  142.  
  143.     LibNode        : Library;
  144.  
  145.     ViewLord    : View;
  146.  
  147.     ActiveWindow    : WindowPtr;
  148.     ActiveScreen    : ScreenPtr;
  149.  
  150.     { the FirstScreen variable points to the frontmost Screen.     Screens are
  151.      * then maintained in a front to back order using Screen.NextScreen
  152.      }
  153.  
  154.     FirstScreen    : ScreenPtr;    { for linked list of all screens }
  155.  
  156.     Flags        : Integer;    { see definitions below }
  157.     MouseY,
  158.     MouseX        : Short;    { mouse position relative to View }
  159.  
  160.     Seconds        : Integer;    { timestamp of most current input event }
  161.     Micros        : Integer;    { timestamp of most current input event }
  162.  
  163.     { The following is a snapshot of the "private" part of 
  164.      * Intuition's library data.  It is included for educational
  165.      * use and your debugging only.  It is absolutely guaranteed
  166.      * that this structure will change from release to release.
  167.      *
  168.      * So: don't count on any of the values you find here
  169.      *       don't even think about changing any of these fields
  170.      *         (that goes for the "supported" fields above, too).
  171.      *
  172.      * Some work has been done to find the include files
  173.      * that these fields depend on.
  174.      *
  175.      *            jimm: 9/10/86.
  176.      }
  177.  
  178.     MinXMouse,
  179.     MaxXMouse    : Short;    { bounded X position for the mouse }
  180.     MinYMouse,
  181.     MaxYMouse    : Short;    { bounded Y position for the mouse }
  182.  
  183.     StartSecs,
  184.     StartMicros    : Integer;    { measure double clicks }
  185.  
  186.     { --------------- base vectors ----------------------------------- }
  187.     { DO MOVE THESE OFFSETS WITHOUT ADJUSTING EQUATES IN IWORK.ASM 
  188.      * this is automatically handled by standalone program offsets.c
  189.      }
  190.  
  191.     SysBase        : LibraryPtr;
  192.     GfxBase        : LibraryPtr;
  193.     LayersBase    : LibraryPtr;
  194.     ConsoleDevice    : LibraryPtr;
  195.  
  196.     { --------------- Sprite Pointer --------------------------------- }
  197.     APointer    : Address;  { the ActiveGroup pointer sprite definition    }
  198.     APtrHeight    : Byte;    { height of the pointer }
  199.     APtrWidth    : Byte;    { width in pixels of the pointer (<= 16!)    }
  200.     AXOffset,
  201.     AYOffset    : Byte; { sprite offsets }
  202.  
  203.  
  204.     { ---------------- Menu Rendering and Operation ------------------ }
  205.     MenuDrawn    : Short; { menu/item/sub number of current display }
  206.     MenuSelected    : Short; { menu/item/sub number of selected (and highlights)}
  207.     OptionList    : Short; { menu selection    }
  208.  
  209.     { this is the work RastPort used for building item and subitem displays
  210.      *    you can never count on it being stable, other than that it is
  211.      *    mostly a copy of the active screen's RastPort.
  212.      }
  213.  
  214.     MenuRPort    : RastPort;
  215.     MenuTmpRas    : TmpRas;
  216.     ItemCRect    : ClipRect;    { for the item's screen display }
  217.     SubCRect    : ClipRect;    { for the subitem's screen display }
  218.     IBitMap        : BitMap;    { for the item's planes }
  219.     SBitMap        : BitMap;    { for the subitem's planes }
  220.  
  221.     { ---------------- Input Device Interface ------------------------ }
  222.     InputRequest    : IOStdReq;
  223.     InputInterrupt    : Interrupt;
  224.  
  225.     { for dynamically allocated input events }
  226.     EventKey    : RememberPtr;
  227.     IEvents        : InputEventPtr;
  228.  
  229.     { for statically "allocated" input events }
  230.     EventCount    : Short;
  231.     IEBuffer    : Array [0..NUM_IEVENTS-1] of InputEvent;
  232.  
  233.     { ---------------- Active Gadget Information --------------------- }
  234.     ActiveGadget    : GadgetPtr;
  235.     ActivePInfo    : PropInfoPtr;
  236.     ActiveImage    : ImagePtr;
  237.     GadgetEnv    : GListEnv;    { environment of the active gadget    }
  238.     Gadget_Info    : GadgetInfo;    { specific information for active gadget}
  239.     KnobOffset    : Point;    { position in knob of mouse when selected}
  240.  
  241.     { ---------------- Verify Functions Support ---------------------- }
  242.     { hold information about getOK wait(), used for breakVerify() }
  243.     getOKWindow    : WindowPtr;
  244.     getOKMessage    : IntuiMessagePtr;
  245.  
  246.     { ---------------- State Machine --------------------------------- }
  247.     setWExcept,
  248.     GadgetReturn,
  249.     StateReturn    : Short;
  250.  
  251.     { ----------- Intuition's Rendering for Gadgets, Titles, ... ----- }
  252.     { This will be allocated on init }
  253.     RP        : RastPortPtr;
  254.     ITmpRas        : TmpRas;
  255.     OldClipRegion    : Address;    { (RegionPtr) locks with RPort }
  256.     OldScroll    : Point;    { user's Scroll_X/Y}
  257.  
  258.     { ----------- Frame Rendering for Window Size/Drag --------------- }
  259.     IFrame        : IBox; { window frame for sizing/dragging    }
  260.     hthick,
  261.     vthick        : Short;    { IFrame thickness        }
  262.     frameChange    : Address;    { function to change IFrame    }
  263.     sizeDrag    : Address;    { either ISizeWindow or IMoveWindow }
  264.     FirstPt        : Point;    { point from which s/d started }
  265.     OldPt        : Point;    { previous point for s/d    }
  266.  
  267.     { ---------------- System Gadget Templates ------------------------ }
  268.     SysGadgets    : Array [0..RESCOUNT-1,0..GADGETCOUNT-1] of GadgetPtr;
  269.     CheckImage,
  270.     AmigaIcon    : Array [0..RESCOUNT-1] of ImagePtr;
  271.  
  272.     { ---------------- Window Drag Rendering ------------------------- }
  273.     apattern    : Array [0..7] of Short;
  274.     bpattern    : Array [0..3] of Short;
  275.  
  276.     { --- Preferences Section ---------------------------------------------- }
  277.     IPointer    : Address;    { the INTUITION pointer default sprite definition }
  278.     IPtrHeight    : Byte;        { height of the pointer }
  279.     IPtrWidth    : Byte;        { width in pixels of the pointer (<= 16!) }
  280.     IXOffset,
  281.     IYOffset    : Byte;        { sprite offsets }
  282.  
  283.     DoubleSeconds,
  284.     DoubleMicros    : Integer;    { for testing double-click timeout }
  285.  
  286.     { ---------------- Border Widths --------------------------------- }
  287.     WBorLeft    : Array [0..DMODECOUNT-1] of Byte;
  288.     WBorTop        : Array [0..DMODECOUNT-1] of Byte;
  289.     WBorRight    : Array [0..DMODECOUNT-1] of Byte;
  290.     WBorBottom    : Array [0..DMODECOUNT-1] of Byte;
  291.  
  292.     BarVBorder    : Array [0..DMODECOUNT-1] of Byte;
  293.     BarHBorder    : Array [0..DMODECOUNT-1] of Byte;
  294.     MenuVBorder    : Array [0..DMODECOUNT-1] of Byte;
  295.     MenuHBorder    : Array [0..DMODECOUNT-1] of Byte;
  296.  
  297.     color0        : Short;
  298.     color1        : Short;
  299.     color2        : Short;
  300.     color3        : Short;
  301.     color17        : Short;
  302.     color18        : Short;
  303.     color19        : Short;
  304.  
  305.     SysFont        : TextAttr;
  306.  
  307.     { WARNING:     you can easily wipe out Intuition by modifying this pointer 
  308.      * or the Preference data pointed to by this!
  309.      }
  310.  
  311.     Preferences    : PreferencesPtr;
  312.  
  313.     { ----------------- Deferred action queue ---------------------- }
  314.     Echoes        : Address;
  315.  
  316.     ViewInitX,
  317.     ViewInitY    : Short;    { View initial offsets at startup   }
  318.  
  319.     CursorDX,
  320.     CursorDY    : Short;    { for accelerating pointer movement }
  321.  
  322.     KeyMap        : Address;    { for the active String Gadget }
  323.     
  324.     MouseYMinimum    : Short;    { magic    }
  325.  
  326.     ErrorX,
  327.     ErrorY        : Short;    { for retaining mouse movement round-off }
  328.     
  329.     IOExcess    : timerequest;
  330.  
  331.     HoldMinYMouse    : Short;
  332.  
  333.     WBPort        : MsgPortPtr;
  334.     iqd_FNKUHDPort    : MsgPortPtr;
  335.  
  336.     WBMessage    : IntuiMessage;
  337.     HitScreen    : ScreenPtr;    { set by hitUpfront() routine }
  338.  
  339.     {* jimm:dale: 11/25/85, thought we'd take a chance for glory *}
  340.     SimpleSprite    : Address;
  341.     AttachedSSprite    : Address;
  342.     GotSprite1    : Boolean;
  343.  
  344.     {* jimm: 1/6/86: Intuition contention *}
  345.     SemaphoreList    : List;    { chain of the below }
  346.     ISemaphore    : Array [0..NUMILOCKS-1] of SignalSemaphore;
  347.  
  348.     MaxDisplayHeight : Short;    { in interlaced mode: 400 or 512 }
  349.     MaxDisplayRow    : Short;    { MaxDisplayHeight - 1          }
  350.     MaxDisplayWidth    : Short;    { copy of GfxBase's NormalDisplayCol }
  351.  
  352.     Reserved    : Array [0..6] of Integer;
  353.                     { cause one never know, do one? }
  354.     end;
  355.     IntuitionBasePtr = ^IntuitionBase;
  356.  
  357.