DEFINITION MODULE IntuitionL{"intuition.library",33};
(* 17-Apr-1992/cn *)

FROM SYSTEM IMPORT ADDRESS,BITSET,LONGSET;

FROM ExecD IMPORT
 MsgPortPtr,MemReqSet,ListPtr;

FROM GraphicsD IMPORT
 BitMapPtr,LayerPtr,RastPortPtr,RectanglePtr,RegionPtr,TextAttrPtr,
 TextFontPtr,ViewPortPtr,ViewPtr;

FROM InputEvent IMPORT
 InputEventPtr;

FROM UtilityD IMPORT
 HookPtr,TagItemPtr;

IMPORT
 d:IntuitionD,R;

VAR
 intuitionVersion:INTEGER;
 intuitionBase:d.IntuitionBasePtr;

CONST
 intuitionMinVersion=33;
 intuitionName="intuition.library";

PROCEDURE ActivateGadget(
           gadget{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr):BOOLEAN; CODE -462;

PROCEDURE ActivateWindow(window{R.A0}:d.WindowPtr); CODE -450;

PROCEDURE(*36*) AddClass(
                 class{R.A0}:ADDRESS); CODE -684;

PROCEDURE AddGadget(
           window{R.A0}:d.WindowPtr;
           gadget{R.A1}:d.GadgetPtr;
           position{R.D0}:INTEGER):INTEGER; CODE -42;

PROCEDURE AddGList(
           window{R.A0}:d.WindowPtr;
           gadget{R.A1}:d.GadgetPtr;
           position{R.D0}:INTEGER;
           numGad{R.D1}:INTEGER;
           requester{R.A2}:d.RequesterPtr):INTEGER; CODE -438;

PROCEDURE AllocRemember(
           VAR rememberKey{R.A0}:ADDRESS;
           size{R.D0}:LONGCARD;
           flags{R.D1}:MemReqSet):ADDRESS; CODE -396;

PROCEDURE AlohaWorkbench(wbPort{R.A0}:MsgPortPtr); CODE -402;

PROCEDURE AutoRequest(
           window{R.A0}:d.WindowPtr;
           bodyText{R.A1}:d.IntuiTextPtr;
           positiveText{R.A2}:d.IntuiTextPtr;
           negativeText{R.A3}:d.IntuiTextPtr;
           positiveFlags{R.D0}:d.IDCMPFlagSet;
           negativeFlags{R.D1}:d.IDCMPFlagSet;
           width{R.D2}:INTEGER;
           height{R.D3}:INTEGER):BOOLEAN; CODE -348;

PROCEDURE BeginRefresh(window{R.A0}:d.WindowPtr); CODE -354;

PROCEDURE(*36*) BuildEasyRequestArgs(
                 window{R.A0}:d.WindowPtr;
                 VAR easyStruct{R.A1}:d.EasyStruct;
                 idcmp{R.D0}:d.IDCMPFlagSet;
                 args{R.A3}:ADDRESS):d.WindowPtr; CODE -594;

PROCEDURE BuildSysRequest(
           window{R.A0}:d.WindowPtr;
           bodyText{R.A1}:d.IntuiTextPtr;
           positiveText{R.A2}:d.IntuiTextPtr;
           negativeText{R.A3}:d.IntuiTextPtr;
           idcmpFlags{R.D0}:d.IDCMPFlagSet;
           width{R.D1}:INTEGER;
           height{R.D2}:INTEGER):d.WindowPtr; CODE -360;

PROCEDURE(*36*) ChangeWindowBox(
                 window{R.A0}:d.WindowPtr;
                 left{R.D0}:INTEGER;
                 top{R.D1}:INTEGER;
                 width{R.D2}:INTEGER;
                 height{R.D3}:INTEGER); CODE -486;

PROCEDURE ClearDMRequest(
           window{R.A0}:d.WindowPtr):BOOLEAN; CODE -48;

PROCEDURE ClearMenuStrip(window{R.A0}:d.WindowPtr); CODE -54;

PROCEDURE ClearPointer(window{R.A0}:d.WindowPtr); CODE -60;

PROCEDURE CloseScreen(screen{R.A0}:d.ScreenPtr); CODE -66;

PROCEDURE CloseWindow(window{R.A0}:d.WindowPtr); CODE -72;

PROCEDURE CloseWorkBench():BOOLEAN; CODE -78;

PROCEDURE CurrentTime(
           seconds{R.A0}:ADDRESS;
           micros{R.A1}:ADDRESS); CODE -84;

PROCEDURE DisplayAlert(
           alertNumber{R.D0}:LONGCARD;
           string{R.A0}:ADDRESS;
           height{R.D1}:LONGCARD):BOOLEAN; CODE -90;

PROCEDURE DisplayBeep(screen{R.A0}:d.ScreenPtr); CODE -96;

PROCEDURE(*36*) DisposeObject(
                 object{R.A0}:ADDRESS); CODE -642;

PROCEDURE DoubleClick(
           startSecs{R.D0}:LONGCARD;
           startMicros{R.D1}:LONGCARD;
           currentSecs{R.D2}:LONGCARD;
           currentMicros{R.D3}:LONGCARD):BOOLEAN; CODE -102;

PROCEDURE DrawBorder(
           rastPort{R.A0}:RastPortPtr;
           border{R.A1}:d.BorderPtr;
           leftOffset{R.D0}:INTEGER;
           topOffset{R.D1}:INTEGER); CODE -108;

PROCEDURE DrawImage(
           rastPort{R.A0}:RastPortPtr;
           image{R.A1}:d.ImagePtr;
           leftOffset{R.D0}:INTEGER;
           topOffset{R.D1}:INTEGER); CODE -114;

PROCEDURE(*36*) DrawImageState(
                 rp{R.A0}:RastPortPtr;
                 image{R.A1}:d.ImagePtr;
                 leftOffset{R.D0}:INTEGER;
                 topOffset{R.D1}:INTEGER;
                 state{R.D2}:LONGCARD;
                 VAR drawInfo{R.A2}:d.DrawInfo); CODE -618;

PROCEDURE(*36*) EasyRequestArgs(
                 window{R.A0}:d.WindowPtr;
                 VAR easyStruct{R.A1}:d.EasyStruct;
                 VAR idcmpPtr{R.A2}:d.IDCMPFlagSet;
                 args{R.A3}:ADDRESS):LONGINT; CODE -588;

PROCEDURE EndRefresh(
           window{R.A0}:d.WindowPtr;
           complete{R.D0}:BOOLEAN); CODE -366;

PROCEDURE EndRequest(
           requester{R.A0}:d.RequesterPtr;
           window{R.A1}:d.WindowPtr); CODE -120;

PROCEDURE(*36*) EraseImage(
                 rp{R.A0}:RastPortPtr;
                 image{R.A1}:d.ImagePtr;
                 leftOffset{R.D0}:LONGCARD;
                 topOffset{R.D1}:LONGCARD); CODE -630;

PROCEDURE(*36*) FreeClass(
                 classPtr{R.A0}:ADDRESS):BOOLEAN; CODE -714;

PROCEDURE FreeRemember(
           rememberKey{R.A0}:ADDRESS;
           reallyForget{R.D0}:BOOLEAN); CODE -408;

PROCEDURE(*36*) FreeScreenDrawInfo(
                 screen{R.A0}:d.ScreenPtr;
                 drawInfo{R.A1}:d.DrawInfoPtr); CODE -696;

PROCEDURE FreeSysRequest(window{R.A0}:d.WindowPtr); CODE -372;

PROCEDURE(*36*) GadgetMouse(
                 gadget{R.A0}:d.GadgetPtr;
                 gInfo{R.A1}:d.GadgetInfoPtr;
                 VAR mousePoint{R.A2}:LONGCARD); CODE -570;

PROCEDURE(*36*) GetAttr(
                 attrID{R.D0}:LONGCARD;
                 object{R.A0}:ADDRESS;
                 VAR storagePtr{R.A1}:LONGCARD):ADDRESS; CODE -654;

PROCEDURE(*36*) GetDefaultPubScreen(
                 nameBuffer{R.A0}:ADDRESS); CODE -582;

PROCEDURE GetDefPrefs(
           prefBuffer{R.A0}:d.PreferencesPtr;
           size{R.D0}:INTEGER); CODE -126;

PROCEDURE GetPrefs(
           prefBuffer{R.A0}:d.PreferencesPtr;
           size{R.D0}:INTEGER); CODE -132;

PROCEDURE GetScreenData(
           buffer{R.A0}:ADDRESS;
           size{R.D0}:CARDINAL;
           type{R.D1}:d.ScreenFlagSet;
           screen{R.A1}:d.ScreenPtr):BOOLEAN; CODE -426;

PROCEDURE(*36*) GetScreenDrawInfo(
                 screen{R.A0}:d.ScreenPtr):d.DrawInfoPtr; CODE -690;

PROCEDURE InitRequester(requester{R.A0}:d.RequesterPtr); CODE -138;

PROCEDURE IntuiTextLength(
           iText{R.A0}:d.IntuiTextPtr):LONGINT; CODE -330;

PROCEDURE Intuition(inputEvent{R.A0}:InputEventPtr); CODE -36;

PROCEDURE ItemAddress(
           menuStrip{R.A0}:d.MenuPtr;
           menuNumber{R.D0}:CARDINAL):d.MenuItemPtr; CODE -144;

PROCEDURE LockIBase(
           lockNumber{R.D0}:LONGCARD):LONGCARD; CODE -414;

PROCEDURE(*36*) LockPubScreen(
                 name{R.A0}:ADDRESS):d.ScreenPtr; CODE -510;

PROCEDURE(*36*) LockPubScreenList():ListPtr; CODE -522;

PROCEDURE(*36*) MakeClass(
                 classID{R.A0}:ADDRESS;
                 superClassID{R.A1}:ADDRESS;
                 superClassPtr{R.A2}:d.IClassPtr;
                 instanceSize{R.D0}:CARDINAL;
                 flags{R.D1}:LONGSET):d.IClassPtr; CODE -678;

PROCEDURE MakeScreen(screen{R.A0}:d.ScreenPtr); CODE -378;

PROCEDURE ModifyIDCMP(
           window{R.A0}:d.WindowPtr;
           idcmpFlags{R.D0}:d.IDCMPFlagSet); CODE -150;

PROCEDURE ModifyProp(
           gadget{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr;
           flags{R.D0}:d.PropInfoFlagSet;
           horizPot{R.D1}:CARDINAL;
           vertPot{R.D2}:CARDINAL;
           horizBody{R.D3}:CARDINAL;
           vertBody{R.D4}:CARDINAL); CODE -156;

PROCEDURE MoveScreen(
           screen{R.A0}:d.ScreenPtr;
           deltaX{R.D0}:INTEGER;
           deltaY{R.D1}:INTEGER); CODE -162;

PROCEDURE MoveWindow(
           window{R.A0}:d.WindowPtr;
           deltaX{R.D0}:INTEGER;
           deltaY{R.D1}:INTEGER); CODE -168;

PROCEDURE(*36*) MoveWindowInFrontOf(
                 window{R.A0}:d.WindowPtr;
                 behindWindow{R.A1}:d.WindowPtr); CODE -480;

PROCEDURE NewModifyProp(
           gadget{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr;
           flags{R.D0}:d.PropInfoFlagSet;
           horizPot{R.D1}:CARDINAL;
           vertPot{R.D2}:CARDINAL;
           horizBody{R.D3}:CARDINAL;
           vertBody{R.D4}:CARDINAL;
           numGad{R.D5}:INTEGER); CODE -468;

PROCEDURE(*36*) NewObjectA(
                 class{R.A0}:ADDRESS;
                 classID{R.A1}:ADDRESS;
                 tagList{R.A2}:TagItemPtr):ADDRESS; CODE -636;

PROCEDURE(*36*) NextObject(
                 VAR objectPtrPtr{R.A0}:ADDRESS):ADDRESS; CODE -666;

PROCEDURE(*36*) NextPubScreen(
                 screen{R.A0}:d.ScreenPtr;
                 namebuf{R.A1}:ADDRESS):ADDRESS; CODE -534;

PROCEDURE(*36*) ObtainGIRPort(
                 gInfo{R.A0}:d.GadgetInfoPtr):RastPortPtr; CODE -558;

PROCEDURE OffGadget(
           gadget{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr); CODE -174;

PROCEDURE OffMenu(
           window{R.A0}:d.WindowPtr;
           menuNumber{R.D0}:CARDINAL); CODE -180;

PROCEDURE OnGadget(
           gadget{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr); CODE -186;

PROCEDURE OnMenu(
           window{R.A0}:d.WindowPtr;
           menuNumber{R.D0}:CARDINAL); CODE -192;

PROCEDURE OpenScreen(
           VAR newScreen{R.A0}:d.NewScreen):d.ScreenPtr; CODE -198;

PROCEDURE(*36*) OpenScreenTagList(
                 newScreen{R.A0}:d.NewScreenPtr;
                 tagList{R.A1}:TagItemPtr):d.ScreenPtr; CODE -612;

PROCEDURE OpenWindow(
           VAR newWindow{R.A0}:d.NewWindow):d.WindowPtr; CODE -204;

PROCEDURE(*36*) OpenWindowTagList(
                 newWindow{R.A0}:d.NewWindowPtr;
                 tagList{R.A1}:TagItemPtr):d.WindowPtr; CODE -606;

PROCEDURE OpenWorkBench():d.ScreenPtr; CODE -210;

PROCEDURE(*36*) PointInImage(
                 point{R.D0}:LONGCARD;
                 image{R.A0}:d.ImagePtr):BOOLEAN; CODE -624;

PROCEDURE PrintIText(
           rastPort{R.A0}:RastPortPtr;
           iText{R.A1}:d.IntuiTextPtr;
           leftOffset{R.D0}:INTEGER;
           topOffset{R.D1}:INTEGER); CODE -216;

PROCEDURE(*36*) PubScreenStatus(
                 screen{R.A0}:d.ScreenPtr;
                 statusFlags{R.D0}:BITSET):BITSET; CODE -552;

PROCEDURE(*36*) QueryOverscan(
                 displayID{R.A0}:LONGCARD;
                 rect{R.A1}:RectanglePtr;
                 oScanType{R.D0}:INTEGER):BOOLEAN; CODE -474;

PROCEDURE RefreshGadgets(
           gadgets{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr); CODE -222;

PROCEDURE RefreshGList(
           gadgets{R.A0}:d.GadgetPtr;
           window{R.A1}:d.WindowPtr;
           requester{R.A2}:d.RequesterPtr;
           numGad{R.D0}:INTEGER); CODE -432;

PROCEDURE RefreshWindowFrame(window{R.A0}:d.WindowPtr); CODE -456;

PROCEDURE(*36*) ReleaseGIRPort(
                 rp{R.A0}:RastPortPtr); CODE -564;

PROCEDURE RemakeDisplay(); CODE -384;

PROCEDURE(*36*) RemoveClass(
                 classPtr{R.A0}:ADDRESS); CODE -708;

PROCEDURE RemoveGadget(
           window{R.A0}:d.WindowPtr;
           gadget{R.A1}:d.GadgetPtr):INTEGER; CODE -228;

PROCEDURE RemoveGList(
           window{R.A0}:d.WindowPtr;
           gadget{R.A1}:d.GadgetPtr;
           numgad{R.D0}:INTEGER):INTEGER; CODE -444;

PROCEDURE ReportMouse(
           window{R.A0}:d.WindowPtr;
           boolean{R.D0}:BOOLEAN); CODE -234;

PROCEDURE Request(
           requester{R.A0}:d.RequesterPtr;
           window{R.A1}:d.WindowPtr):BOOLEAN; CODE -240;

PROCEDURE(*36*) ResetMenuStrip(
                 window{R.A0}:d.WindowPtr;
                 menu{R.A1}:d.MenuPtr):BOOLEAN; CODE -702;

PROCEDURE RethinkDisplay(); CODE -390;

PROCEDURE ScreenToBack(screen{R.A0}:d.ScreenPtr); CODE -246;

PROCEDURE ScreenToFront(screen{R.A0}:d.ScreenPtr); CODE -252;

PROCEDURE(*36*) SetAttrsA(
                 object{R.A0}:ADDRESS;
                 tagList{R.A1}:TagItemPtr):ADDRESS; CODE -648;

PROCEDURE(*36*) SetDefaultPubScreen(
                 name{R.A0}:ADDRESS); CODE -540;

PROCEDURE SetDMRequest(
           window{R.A0}:d.WindowPtr;
           dmRequester{R.A1}:d.RequesterPtr):BOOLEAN; CODE -258;

PROCEDURE(*36*) SetEditHook(
                 hook{R.A0}:HookPtr):HookPtr; CODE -492;

PROCEDURE(*36*) SetGadgetAttrsA(
                 gadget{R.A0}:d.GadgetPtr;
                 window{R.A1}:d.WindowPtr;
                 requester{R.A2}:d.RequesterPtr;
                 tagList{R.A3}:TagItemPtr):ADDRESS; CODE -660;

PROCEDURE SetMenuStrip(
           window{R.A0}:d.WindowPtr;
           menu{R.A1}:d.MenuPtr):BOOLEAN; CODE -264;

PROCEDURE(*36*) SetMouseQueue(
                 window{R.A0}:d.WindowPtr;
                 queueLength{R.D0}:CARDINAL):LONGINT; CODE -498;

PROCEDURE SetPointer(
           window{R.A0}:d.WindowPtr;
           pointer{R.A1}:ADDRESS;
           height{R.D0}:INTEGER;
           width{R.D1}:INTEGER;
           xOffset{R.D2}:INTEGER;
           yOffset{R.D3}:INTEGER); CODE -270;

PROCEDURE SetPrefs(
           prefBuffer{R.A0}:d.PreferencesPtr;
           Size{R.D0}:LONGINT;
           Inform{R.D1}:BOOLEAN); CODE -324;

PROCEDURE(*36*) SetPubScreenModes(
                 modes{R.D0}:BITSET):BITSET; CODE -546;

PROCEDURE SetWindowTitles(
           window{R.A0}:d.WindowPtr;
           windowTitle{R.A1}:ADDRESS;
           screenTitle{R.A2}:ADDRESS); CODE -276;

PROCEDURE ShowTitle(
           screen{R.A0}:d.ScreenPtr;
           showIt{R.D0}:BOOLEAN); CODE -282;

PROCEDURE SizeWindow(
           window{R.A0}:d.WindowPtr;
           deltaX{R.D0}:INTEGER;
           deltaY{R.D1}:INTEGER); CODE -288;

PROCEDURE(*36*) SysReqHandler(
                 window{R.A0}:d.WindowPtr;
                 VAR idcmpPtr{R.A1}:d.IDCMPFlagSet;
                 waitInput{R.D0}:BOOLEAN):LONGINT; CODE -600;

PROCEDURE UnlockIBase(lock{R.A0}:LONGCARD); CODE -420;

PROCEDURE(*36*) UnlockPubScreen(
                 name{R.A0}:ADDRESS;
                 screen{R.A1}:d.ScreenPtr); CODE -516;

PROCEDURE(*36*) UnlockPubScreenList(); CODE -528;

PROCEDURE ViewAddress():ViewPtr; CODE -294;

PROCEDURE ViewPortAddress(
           window{R.A0}:d.WindowPtr):ViewPortPtr; CODE -300;

PROCEDURE WBenchToBack():BOOLEAN; CODE -336;

PROCEDURE WBenchToFront():BOOLEAN; CODE -342;
(*
 * Den Paramentern maxWidth und maxHeight darf man auch den
 * Wert -1 zuweisen, falls man die Window Grösse nicht
 * beschränken will. Damit dies nicht zu einem Laufzeitfehler
 * führt wurden diese Parameter im Gegensatz zu den
 * C Deklarationen als INTEGER und nicht als CARDINAL
 * deklariert.
 *)

PROCEDURE WindowLimits(
           window{R.A0}:d.WindowPtr;
           minWidth{R.D0}:INTEGER;
           minHeight{R.D1}:INTEGER;
           maxWidth{R.D2}:INTEGER;
           maxHeight{R.D3}:INTEGER):BOOLEAN; CODE -318;

PROCEDURE WindowToBack(window{R.A0}:d.WindowPtr); CODE -306;

PROCEDURE WindowToFront(window{R.A0}:d.WindowPtr); CODE -312;

PROCEDURE(*36*) ZipWindow(
                 window{R.A0}:d.WindowPtr); CODE -504;

END IntuitionL.lib33