(**************************************************************************)
(*                                                                        *)
(* Definition Module IntuitionL.def by Marcel Timmermans.                 *)
(* Date     : 21 Feb 1994                                                 *)
(* Language : Modula-2                                                    *)
(*                                                                        *)
(**************************************************************************)

DEFINITION MODULE IntuitionL {"intuition.library",33};

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 IntuitionD,Reg;
(* 
   Automatic variable must be declared when there is a library 
   open code
 *)

VAR 
  (* Automatic filled in when using module *)    
  intuitionBase : IntuitionD.IntuitionBasePtr; 


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

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

PROCEDURE ActivateWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -450;

PROCEDURE AddClass(class{Reg.A0}:ADDRESS); CODE -684;

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

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

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

PROCEDURE AllocScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
                 bm{Reg.A1}:BitMapPtr;
                 flags{Reg.D0}:LONGSET
                 ):IntuitionD.ScreenBufferPtr; CODE -768;

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

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

PROCEDURE BeginRefresh(window{Reg.A0}:IntuitionD.WindowPtr); CODE -354;

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

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

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

PROCEDURE ChangeScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
                 sb{Reg.A1}:IntuitionD.ScreenBufferPtr
                 ):BOOLEAN; CODE -780;

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

PROCEDURE ClearMenuStrip(window{Reg.A0}:IntuitionD.WindowPtr); CODE -54;

PROCEDURE ClearPointer(window{Reg.A0}:IntuitionD.WindowPtr); CODE -60;

PROCEDURE CloseScreen(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -66;
PROCEDURE CloseScreenB(screen{Reg.A0}:IntuitionD.ScreenPtr):BOOLEAN; CODE -66;

PROCEDURE CloseWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -72;

PROCEDURE CloseWorkBench():BOOLEAN; CODE -78;

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

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

PROCEDURE DisplayBeep(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -96;

PROCEDURE DisposeObject(object{Reg.A0}:ADDRESS); CODE -642;

PROCEDURE DoGadgetMethodA(gad{Reg.A0}:IntuitionD.GadgetPtr;
                 win{Reg.A1}:IntuitionD.WindowPtr;
                 req{Reg.A2}:IntuitionD.RequesterPtr;
                 message{Reg.A3}:ADDRESS):ADDRESS; CODE -810;

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

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

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

PROCEDURE DrawImageState(rp{Reg.A0}:RastPortPtr;
                 image{Reg.A1}:IntuitionD.ImagePtr;
                 leftOffset{Reg.D0}:INTEGER;
                 topOffset{Reg.D1}:INTEGER;
                 state{Reg.D2}:LONGCARD;
                 drawInfo{Reg.A2}:IntuitionD.DrawInfoPtr); CODE -618;

PROCEDURE EasyRequestArgs(window{Reg.A0}:IntuitionD.WindowPtr;
                 easyStruct{Reg.A1}:IntuitionD.EasyStructPtr;
                 idcmpPtr{Reg.A2}:ADDRESS;
                 args{Reg.A3}:ADDRESS):LONGINT; CODE -588;

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

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

PROCEDURE EraseImage(rp{Reg.A0}:RastPortPtr;
                 image{Reg.A1}:IntuitionD.ImagePtr;
                 leftOffset{Reg.D0}:LONGCARD;
                 topOffset{Reg.D1}:LONGCARD); CODE -630;

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

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

PROCEDURE FreeScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
                 sb{Reg.A1}:IntuitionD.ScreenBufferPtr); CODE -774;

PROCEDURE FreeScreenDrawInfo(screen{Reg.A0}:IntuitionD.ScreenPtr;
                 drawInfo{Reg.A1}:IntuitionD.DrawInfoPtr); CODE -696;

PROCEDURE FreeSysRequest(window{Reg.A0}:IntuitionD.WindowPtr); CODE -372;

PROCEDURE GadgetMouse(gadget{Reg.A0}:IntuitionD.GadgetPtr;
                 gInfo{Reg.A1}:IntuitionD.GadgetInfoPtr;
                 VAR mousePoint{Reg.A2}:LONGCARD); CODE -570;

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

PROCEDURE GetDefaultPubScreen(nameBuffer{Reg.A0}:ADDRESS); CODE -582;

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

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

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

PROCEDURE GetScreenDrawInfo(screen{Reg.A0}:IntuitionD.ScreenPtr):IntuitionD.DrawInfoPtr; CODE -690;

PROCEDURE HelpControl(win{Reg.A0}:IntuitionD.WindowPtr;
                 flags{Reg.D0}:LONGSET); CODE -828;

PROCEDURE InitRequester(requester{Reg.A0}:IntuitionD.RequesterPtr); CODE -138;

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

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

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

PROCEDURE LendMenus(fromwindow{Reg.A0}:IntuitionD.WindowPtr;
                 towindow{Reg.A1}:IntuitionD.WindowPtr); CODE -804;

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

PROCEDURE LockPubScreen(name{Reg.A0}:ADDRESS):IntuitionD.ScreenPtr; CODE -510;

PROCEDURE LockPubScreenList():ListPtr; CODE -522;

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

PROCEDURE MakeScreen(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -378;

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

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

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

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

PROCEDURE MoveWindowInFrontOf(window{Reg.A0}:IntuitionD.WindowPtr;
                 behindWindow{Reg.A1}:IntuitionD.WindowPtr); CODE -480;

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

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

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

PROCEDURE NextPubScreen(screen{Reg.A0}:IntuitionD.ScreenPtr;
                 namebuf{Reg.A1}:ADDRESS):ADDRESS; CODE -534;

PROCEDURE ObtainGIRPort(gInfo{Reg.A0}:IntuitionD.GadgetInfoPtr):RastPortPtr; CODE -558;

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

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

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

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

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

PROCEDURE OpenScreenTagList(newScreen{Reg.A0}:IntuitionD.NewScreenPtr;
                 tagList{Reg.A1}:TagItemPtr):IntuitionD.ScreenPtr; CODE -612;

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

PROCEDURE OpenWindowTagList(newWindow{Reg.A0}:IntuitionD.NewWindowPtr;
                 tagList{Reg.A1}:TagItemPtr):IntuitionD.WindowPtr; CODE -606;

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

PROCEDURE PointInImage(point{Reg.D0}:LONGCARD;
                 image{Reg.A0}:IntuitionD.ImagePtr):BOOLEAN; CODE -624;

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

PROCEDURE PubScreenStatus(screen{Reg.A0}:IntuitionD.ScreenPtr;
                 statusFlags{Reg.D0}:BITSET):BITSET; CODE -552;

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

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

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

PROCEDURE RefreshWindowFrame(window{Reg.A0}:IntuitionD.WindowPtr); CODE -456;

PROCEDURE ReleaseGIRPort(rp{Reg.A0}:RastPortPtr); CODE -564;

PROCEDURE RemakeDisplay(); CODE -384;

PROCEDURE RemoveClass(classPtr{Reg.A0}:ADDRESS); CODE -708;

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

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

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

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

PROCEDURE ResetMenuStrip(window{Reg.A0}:IntuitionD.WindowPtr;
                 menu{Reg.A1}:IntuitionD.MenuPtr):BOOLEAN; CODE -702;

PROCEDURE RethinkDisplay(); CODE -390;

PROCEDURE ScreenDepth(screen{Reg.A0}:IntuitionD.ScreenPtr;
                 flags{Reg.D0}:LONGSET;
                 reserved{Reg.A1}:ADDRESS); CODE -786;

PROCEDURE ScreenPosition(screen{Reg.A0}:IntuitionD.ScreenPtr;
                 flags{Reg.D0}:LONGSET;
                 x1{Reg.D1}:LONGINT;
                 y1{Reg.D2}:LONGINT;
                 x2{Reg.D3}:LONGINT;
                 y2{Reg.D4}:LONGINT); CODE -792;

PROCEDURE ScreenToBack(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -246;

PROCEDURE ScreenToFront(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -252;


PROCEDURE ScrollWindowRaster(win{Reg.A1}:IntuitionD.WindowPtr;
                 dx{Reg.D0}:INTEGER;dy{Reg.D1}:INTEGER;
                 xMin{Reg.D2}:INTEGER;yMin{Reg.D3}:INTEGER;
                 xMax{Reg.D4}:INTEGER;yMax{Reg.D5}:INTEGER); CODE -798;

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

PROCEDURE SetDefaultPubScreen(name{Reg.A0}:ADDRESS); CODE -540;

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

PROCEDURE SetEditHook(hook{Reg.A0}:HookPtr):HookPtr; CODE -492;

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

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

PROCEDURE SetMouseQueue(window{Reg.A0}:IntuitionD.WindowPtr;
                 queueLength{Reg.D0}:CARDINAL):LONGINT; CODE -498;

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

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

PROCEDURE SetPubScreenModes(modes{Reg.D0}:BITSET):BITSET; CODE -546;

PROCEDURE SetWindowPointerA(win{Reg.A0}:IntuitionD.WindowPtr;
                 taglist{Reg.A1}:ADDRESS); CODE -816;

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

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

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

PROCEDURE SysReqHandler(window{Reg.A0}:IntuitionD.WindowPtr;
                 VAR idcmpPtr{Reg.A1}:IntuitionD.IDCMPFlagSet;
                 waitInput{Reg.D0}:BOOLEAN):LONGINT; CODE -600;

PROCEDURE TimedDisplayAlert(alertNumber{Reg.D0}:LONGCARD;
                 string{Reg.A0}:ADDRESS;
                 height{Reg.D1}:LONGCARD;
                 time{Reg.A1}:LONGCARD):BOOLEAN; CODE -822;

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

PROCEDURE UnlockPubScreen(name{Reg.A0}:ADDRESS;
                 screen{Reg.A1}:IntuitionD.ScreenPtr); CODE -516;

PROCEDURE UnlockPubScreenList(); CODE -528;

PROCEDURE ViewAddress():ViewPtr; CODE -294;

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

PROCEDURE WBenchToBack():BOOLEAN; CODE -336;

PROCEDURE WBenchToFront():BOOLEAN; CODE -342;

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

PROCEDURE WindowToBack(window{Reg.A0}:IntuitionD.WindowPtr); CODE -306;

PROCEDURE WindowToFront(window{Reg.A0}:IntuitionD.WindowPtr); CODE -312;

PROCEDURE ZipWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -504;

END IntuitionL.
