home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / IntuitionL.def < prev    next >
Text File  |  1996-12-18  |  18KB  |  456 lines
  1. (**************************************************************************)
  2. (*                                                                        *)
  3. (* Definition Module IntuitionL.def by Marcel Timmermans.                 *)
  4. (* Date     : 21 Feb 1994                                                 *)
  5. (* Language : Modula-2                                                    *)
  6. (*                                                                        *)
  7. (**************************************************************************)
  8.  
  9. DEFINITION MODULE IntuitionL {"intuition.library",33};
  10.  
  11. FROM SYSTEM IMPORT ADDRESS,BITSET,LONGSET;
  12.  
  13. FROM ExecD IMPORT
  14.  MsgPortPtr,MemReqSet,ListPtr;
  15.  
  16. FROM GraphicsD IMPORT
  17.  BitMapPtr,LayerPtr,RastPortPtr,RectanglePtr,RegionPtr,TextAttrPtr,
  18.  TextFontPtr,ViewPortPtr,ViewPtr;
  19.  
  20. FROM InputEvent IMPORT
  21.  InputEventPtr;
  22.  
  23. FROM UtilityD IMPORT
  24.  HookPtr,TagItemPtr;
  25.  
  26. IMPORT IntuitionD,Reg;
  27. (* 
  28.    Automatic variable must be declared when there is a library 
  29.    open code
  30.  *)
  31.  
  32. VAR 
  33.   (* Automatic filled in when using module *)    
  34.   intuitionBase : IntuitionD.IntuitionBasePtr; 
  35.  
  36.  
  37. CONST
  38.  intuitionMinVersion=33;
  39.  intuitionName="intuition.library";
  40.  
  41. PROCEDURE ActivateGadget(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  42.            window{Reg.A1}:IntuitionD.WindowPtr;
  43.            requester{Reg.A2}:IntuitionD.RequesterPtr):BOOLEAN; CODE -462;
  44.  
  45. PROCEDURE ActivateWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -450;
  46.  
  47. PROCEDURE AddClass(class{Reg.A0}:ADDRESS); CODE -684;
  48.  
  49. PROCEDURE AddGadget(window{Reg.A0}:IntuitionD.WindowPtr;
  50.            gadget{Reg.A1}:IntuitionD.GadgetPtr;
  51.            position{Reg.D0}:INTEGER):INTEGER; CODE -42;
  52.  
  53. PROCEDURE AddGList(window{Reg.A0}:IntuitionD.WindowPtr;
  54.            gadget{Reg.A1}:IntuitionD.GadgetPtr;
  55.            position{Reg.D0}:INTEGER;
  56.            numGad{Reg.D1}:INTEGER;
  57.            requester{Reg.A2}:IntuitionD.RequesterPtr):INTEGER; CODE -438;
  58.  
  59. PROCEDURE AllocRemember(VAR rememberKey{Reg.A0}:ADDRESS;
  60.            size{Reg.D0}:LONGCARD;
  61.            flags{Reg.D1}:MemReqSet):ADDRESS; CODE -396;
  62.  
  63. PROCEDURE AllocScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
  64.                  bm{Reg.A1}:BitMapPtr;
  65.                  flags{Reg.D0}:LONGSET
  66.                  ):IntuitionD.ScreenBufferPtr; CODE -768;
  67.  
  68. PROCEDURE AlohaWorkbench(wbPort{Reg.A0}:MsgPortPtr); CODE -402;
  69.  
  70. PROCEDURE AutoRequest(window{Reg.A0}:IntuitionD.WindowPtr;
  71.            bodyText{Reg.A1}:IntuitionD.IntuiTextPtr;
  72.            positiveText{Reg.A2}:IntuitionD.IntuiTextPtr;
  73.            negativeText{Reg.A3}:IntuitionD.IntuiTextPtr;
  74.            positiveFlags{Reg.D0}:IntuitionD.IDCMPFlagSet;
  75.            negativeFlags{Reg.D1}:IntuitionD.IDCMPFlagSet;
  76.            width{Reg.D2}:INTEGER;
  77.            height{Reg.D3}:INTEGER):BOOLEAN; CODE -348;
  78.  
  79. PROCEDURE BeginRefresh(window{Reg.A0}:IntuitionD.WindowPtr); CODE -354;
  80.  
  81. PROCEDURE BuildEasyRequestArgs(window{Reg.A0}:IntuitionD.WindowPtr;
  82.                  VAR easyStruct{Reg.A1}:IntuitionD.EasyStruct;
  83.                  idcmp{Reg.D0}:IntuitionD.IDCMPFlagSet;
  84.                  args{Reg.A3}:ADDRESS):IntuitionD.WindowPtr; CODE -594;
  85.  
  86. PROCEDURE BuildSysRequest(window{Reg.A0}:IntuitionD.WindowPtr;
  87.            bodyText{Reg.A1}:IntuitionD.IntuiTextPtr;
  88.            positiveText{Reg.A2}:IntuitionD.IntuiTextPtr;
  89.            negativeText{Reg.A3}:IntuitionD.IntuiTextPtr;
  90.            idcmpFlags{Reg.D0}:IntuitionD.IDCMPFlagSet;
  91.            width{Reg.D1}:INTEGER;
  92.            height{Reg.D2}:INTEGER):IntuitionD.WindowPtr; CODE -360;
  93.  
  94. PROCEDURE ChangeWindowBox(window{Reg.A0}:IntuitionD.WindowPtr;
  95.                  left{Reg.D0}:INTEGER;
  96.                  top{Reg.D1}:INTEGER;
  97.                  width{Reg.D2}:INTEGER;
  98.                  height{Reg.D3}:INTEGER); CODE -486;
  99.  
  100. PROCEDURE ChangeScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
  101.                  sb{Reg.A1}:IntuitionD.ScreenBufferPtr
  102.                  ):BOOLEAN; CODE -780;
  103.  
  104. PROCEDURE ClearDMRequest(window{Reg.A0}:IntuitionD.WindowPtr):BOOLEAN; CODE -48;
  105.  
  106. PROCEDURE ClearMenuStrip(window{Reg.A0}:IntuitionD.WindowPtr); CODE -54;
  107.  
  108. PROCEDURE ClearPointer(window{Reg.A0}:IntuitionD.WindowPtr); CODE -60;
  109.  
  110. PROCEDURE CloseScreen(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -66;
  111. PROCEDURE CloseScreenB(screen{Reg.A0}:IntuitionD.ScreenPtr):BOOLEAN; CODE -66;
  112.  
  113. PROCEDURE CloseWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -72;
  114.  
  115. PROCEDURE CloseWorkBench():BOOLEAN; CODE -78;
  116.  
  117. PROCEDURE CurrentTime(seconds{Reg.A0}:ADDRESS;micros{Reg.A1}:ADDRESS); CODE -84;
  118.  
  119. PROCEDURE DisplayAlert(alertNumber{Reg.D0}:LONGCARD;
  120.            string{Reg.A0}:ADDRESS;height{Reg.D1}:LONGCARD):BOOLEAN; CODE -90;
  121.  
  122. PROCEDURE DisplayBeep(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -96;
  123.  
  124. PROCEDURE DisposeObject(object{Reg.A0}:ADDRESS); CODE -642;
  125.  
  126. PROCEDURE DoGadgetMethodA(gad{Reg.A0}:IntuitionD.GadgetPtr;
  127.                  win{Reg.A1}:IntuitionD.WindowPtr;
  128.                  req{Reg.A2}:IntuitionD.RequesterPtr;
  129.                  message{Reg.A3}:ADDRESS):ADDRESS; CODE -810;
  130.  
  131. PROCEDURE DoubleClick(startSecs{Reg.D0}:LONGCARD;
  132.            startMicros{Reg.D1}:LONGCARD;
  133.            currentSecs{Reg.D2}:LONGCARD;
  134.            currentMicros{Reg.D3}:LONGCARD):BOOLEAN; CODE -102;
  135.  
  136. PROCEDURE DrawBorder(rastPort{Reg.A0}:RastPortPtr;
  137.            border{Reg.A1}:IntuitionD.BorderPtr;
  138.            leftOffset{Reg.D0}:INTEGER;
  139.            topOffset{Reg.D1}:INTEGER); CODE -108;
  140.  
  141. PROCEDURE DrawImage(rastPort{Reg.A0}:RastPortPtr;
  142.            image{Reg.A1}:IntuitionD.ImagePtr;
  143.            leftOffset{Reg.D0}:INTEGER;
  144.            topOffset{Reg.D1}:INTEGER); CODE -114;
  145.  
  146. PROCEDURE DrawImageState(rp{Reg.A0}:RastPortPtr;
  147.                  image{Reg.A1}:IntuitionD.ImagePtr;
  148.                  leftOffset{Reg.D0}:INTEGER;
  149.                  topOffset{Reg.D1}:INTEGER;
  150.                  state{Reg.D2}:LONGCARD;
  151.                  drawInfo{Reg.A2}:IntuitionD.DrawInfoPtr); CODE -618;
  152.  
  153. PROCEDURE EasyRequestArgs(window{Reg.A0}:IntuitionD.WindowPtr;
  154.                  easyStruct{Reg.A1}:IntuitionD.EasyStructPtr;
  155.                  idcmpPtr{Reg.A2}:ADDRESS;
  156.                  args{Reg.A3}:ADDRESS):LONGINT; CODE -588;
  157.  
  158. PROCEDURE EndRefresh(window{Reg.A0}:IntuitionD.WindowPtr;
  159.            complete{Reg.D0}:BOOLEAN); CODE -366;
  160.  
  161. PROCEDURE EndRequest(requester{Reg.A0}:IntuitionD.RequesterPtr;
  162.            window{Reg.A1}:IntuitionD.WindowPtr); CODE -120;
  163.  
  164. PROCEDURE EraseImage(rp{Reg.A0}:RastPortPtr;
  165.                  image{Reg.A1}:IntuitionD.ImagePtr;
  166.                  leftOffset{Reg.D0}:LONGCARD;
  167.                  topOffset{Reg.D1}:LONGCARD); CODE -630;
  168.  
  169. PROCEDURE FreeClass(classPtr{Reg.A0}:ADDRESS):BOOLEAN; CODE -714;
  170.  
  171. PROCEDURE FreeRemember(rememberKey{Reg.A0}:ADDRESS;
  172.            reallyForget{Reg.D0}:BOOLEAN); CODE -408;
  173.  
  174. PROCEDURE FreeScreenBuffer(sc{Reg.A0}:IntuitionD.ScreenPtr;
  175.                  sb{Reg.A1}:IntuitionD.ScreenBufferPtr); CODE -774;
  176.  
  177. PROCEDURE FreeScreenDrawInfo(screen{Reg.A0}:IntuitionD.ScreenPtr;
  178.                  drawInfo{Reg.A1}:IntuitionD.DrawInfoPtr); CODE -696;
  179.  
  180. PROCEDURE FreeSysRequest(window{Reg.A0}:IntuitionD.WindowPtr); CODE -372;
  181.  
  182. PROCEDURE GadgetMouse(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  183.                  gInfo{Reg.A1}:IntuitionD.GadgetInfoPtr;
  184.                  VAR mousePoint{Reg.A2}:LONGCARD); CODE -570;
  185.  
  186. PROCEDURE GetAttr(attrID{Reg.D0}:LONGCARD;
  187.                  object{Reg.A0}:ADDRESS;
  188.                  VAR storagePtr{Reg.A1}:LONGCARD):ADDRESS; CODE -654;
  189.  
  190. PROCEDURE GetDefaultPubScreen(nameBuffer{Reg.A0}:ADDRESS); CODE -582;
  191.  
  192. PROCEDURE GetDefPrefs(prefBuffer{Reg.A0}:IntuitionD.PreferencesPtr;
  193.            size{Reg.D0}:INTEGER); CODE -126;
  194.  
  195. PROCEDURE GetPrefs(prefBuffer{Reg.A0}:IntuitionD.PreferencesPtr;
  196.            size{Reg.D0}:INTEGER); CODE -132;
  197.  
  198. PROCEDURE GetScreenData(buffer{Reg.A0}:ADDRESS;
  199.            size{Reg.D0}:CARDINAL;
  200.            type{Reg.D1}:IntuitionD.ScreenFlagSet;
  201.            screen{Reg.A1}:IntuitionD.ScreenPtr):BOOLEAN; CODE -426;
  202.  
  203. PROCEDURE GetScreenDrawInfo(screen{Reg.A0}:IntuitionD.ScreenPtr):IntuitionD.DrawInfoPtr; CODE -690;
  204.  
  205. PROCEDURE HelpControl(win{Reg.A0}:IntuitionD.WindowPtr;
  206.                  flags{Reg.D0}:LONGSET); CODE -828;
  207.  
  208. PROCEDURE InitRequester(requester{Reg.A0}:IntuitionD.RequesterPtr); CODE -138;
  209.  
  210. PROCEDURE IntuiTextLength(iText{Reg.A0}:IntuitionD.IntuiTextPtr):LONGINT; CODE -330;
  211.  
  212. PROCEDURE Intuition(inputEvent{Reg.A0}:InputEventPtr); CODE -36;
  213.  
  214. PROCEDURE ItemAddress(menuStrip{Reg.A0}:IntuitionD.MenuPtr;
  215.            menuNumber{Reg.D0}:CARDINAL):IntuitionD.MenuItemPtr; CODE -144;
  216.  
  217. PROCEDURE LendMenus(fromwindow{Reg.A0}:IntuitionD.WindowPtr;
  218.                  towindow{Reg.A1}:IntuitionD.WindowPtr); CODE -804;
  219.  
  220. PROCEDURE LockIBase(lockNumber{Reg.D0}:LONGCARD):LONGCARD; CODE -414;
  221.  
  222. PROCEDURE LockPubScreen(name{Reg.A0}:ADDRESS):IntuitionD.ScreenPtr; CODE -510;
  223.  
  224. PROCEDURE LockPubScreenList():ListPtr; CODE -522;
  225.  
  226. PROCEDURE MakeClass(classID{Reg.A0}:ADDRESS;
  227.                  superClassID{Reg.A1}:ADDRESS;
  228.                  superClassPtr{Reg.A2}:IntuitionD.IClassPtr;
  229.                  instanceSize{Reg.D0}:CARDINAL;
  230.                  flags{Reg.D1}:LONGSET):IntuitionD.IClassPtr; CODE -678;
  231.  
  232. PROCEDURE MakeScreen(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -378;
  233.  
  234. PROCEDURE ModifyIDCMP(window{Reg.A0}:IntuitionD.WindowPtr;
  235.            idcmpFlags{Reg.D0}:IntuitionD.IDCMPFlagSet); CODE -150;
  236.  
  237. PROCEDURE ModifyProp(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  238.            window{Reg.A1}:IntuitionD.WindowPtr;
  239.            requester{Reg.A2}:IntuitionD.RequesterPtr;
  240.            flags{Reg.D0}:IntuitionD.PropInfoFlagSet;
  241.            horizPot{Reg.D1}:CARDINAL;
  242.            vertPot{Reg.D2}:CARDINAL;
  243.            horizBody{Reg.D3}:CARDINAL;
  244.            vertBody{Reg.D4}:CARDINAL); CODE -156;
  245.  
  246. PROCEDURE MoveScreen(screen{Reg.A0}:IntuitionD.ScreenPtr;
  247.            deltaX{Reg.D0}:INTEGER;deltaY{Reg.D1}:INTEGER); CODE -162;
  248.  
  249. PROCEDURE MoveWindow(window{Reg.A0}:IntuitionD.WindowPtr;
  250.            deltaX{Reg.D0}:INTEGER;deltaY{Reg.D1}:INTEGER); CODE -168;
  251.  
  252. PROCEDURE MoveWindowInFrontOf(window{Reg.A0}:IntuitionD.WindowPtr;
  253.                  behindWindow{Reg.A1}:IntuitionD.WindowPtr); CODE -480;
  254.  
  255. PROCEDURE NewModifyProp(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  256.            window{Reg.A1}:IntuitionD.WindowPtr;
  257.            requester{Reg.A2}:IntuitionD.RequesterPtr;
  258.            flags{Reg.D0}:IntuitionD.PropInfoFlagSet;
  259.            horizPot{Reg.D1}:CARDINAL;
  260.            vertPot{Reg.D2}:CARDINAL;
  261.            horizBody{Reg.D3}:CARDINAL;
  262.            vertBody{Reg.D4}:CARDINAL;
  263.            numGad{Reg.D5}:INTEGER); CODE -468;
  264.  
  265. PROCEDURE NewObjectA(class{Reg.A0}:ADDRESS;
  266.                  classID{Reg.A1}:ADDRESS;
  267.                  tagList{Reg.A2}:TagItemPtr):ADDRESS; CODE -636;
  268.  
  269. PROCEDURE NextObject(VAR objectPtrPtr{Reg.A0}:ADDRESS):ADDRESS; CODE -666;
  270.  
  271. PROCEDURE NextPubScreen(screen{Reg.A0}:IntuitionD.ScreenPtr;
  272.                  namebuf{Reg.A1}:ADDRESS):ADDRESS; CODE -534;
  273.  
  274. PROCEDURE ObtainGIRPort(gInfo{Reg.A0}:IntuitionD.GadgetInfoPtr):RastPortPtr; CODE -558;
  275.  
  276. PROCEDURE OffGadget(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  277.            window{Reg.A1}:IntuitionD.WindowPtr;
  278.            requester{Reg.A2}:IntuitionD.RequesterPtr); CODE -174;
  279.  
  280. PROCEDURE OffMenu(window{Reg.A0}:IntuitionD.WindowPtr;
  281.            menuNumber{Reg.D0}:CARDINAL); CODE -180;
  282.  
  283. PROCEDURE OnGadget(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  284.            window{Reg.A1}:IntuitionD.WindowPtr;
  285.            requester{Reg.A2}:IntuitionD.RequesterPtr); CODE -186;
  286.  
  287. PROCEDURE OnMenu(window{Reg.A0}:IntuitionD.WindowPtr;
  288.            menuNumber{Reg.D0}:CARDINAL); CODE -192;
  289.  
  290. PROCEDURE OpenScreen(VAR newScreen{Reg.A0}:IntuitionD.NewScreen):IntuitionD.ScreenPtr; CODE -198;
  291.  
  292. PROCEDURE OpenScreenTagList(newScreen{Reg.A0}:IntuitionD.NewScreenPtr;
  293.                  tagList{Reg.A1}:TagItemPtr):IntuitionD.ScreenPtr; CODE -612;
  294.  
  295. PROCEDURE OpenWindow(VAR newWindow{Reg.A0}:IntuitionD.NewWindow):IntuitionD.WindowPtr; CODE -204;
  296.  
  297. PROCEDURE OpenWindowTagList(newWindow{Reg.A0}:IntuitionD.NewWindowPtr;
  298.                  tagList{Reg.A1}:TagItemPtr):IntuitionD.WindowPtr; CODE -606;
  299.  
  300. PROCEDURE OpenWorkBench():IntuitionD.ScreenPtr; CODE -210;
  301.  
  302. PROCEDURE PointInImage(point{Reg.D0}:LONGCARD;
  303.                  image{Reg.A0}:IntuitionD.ImagePtr):BOOLEAN; CODE -624;
  304.  
  305. PROCEDURE PrintIText(rastPort{Reg.A0}:RastPortPtr;
  306.            iText{Reg.A1}:IntuitionD.IntuiTextPtr;
  307.            leftOffset{Reg.D0}:INTEGER;
  308.            topOffset{Reg.D1}:INTEGER); CODE -216;
  309.  
  310. PROCEDURE PubScreenStatus(screen{Reg.A0}:IntuitionD.ScreenPtr;
  311.                  statusFlags{Reg.D0}:BITSET):BITSET; CODE -552;
  312.  
  313. PROCEDURE QueryOverscan(displayID{Reg.A0}:LONGCARD;
  314.                  rect{Reg.A1}:RectanglePtr;
  315.                  oScanType{Reg.D0}:INTEGER):BOOLEAN; CODE -474;
  316.  
  317. PROCEDURE RefreshGadgets(gadgets{Reg.A0}:IntuitionD.GadgetPtr;
  318.            window{Reg.A1}:IntuitionD.WindowPtr;
  319.            requester{Reg.A2}:IntuitionD.RequesterPtr); CODE -222;
  320.  
  321. PROCEDURE RefreshGList(gadgets{Reg.A0}:IntuitionD.GadgetPtr;
  322.            window{Reg.A1}:IntuitionD.WindowPtr;
  323.            requester{Reg.A2}:IntuitionD.RequesterPtr;
  324.            numGad{Reg.D0}:INTEGER); CODE -432;
  325.  
  326. PROCEDURE RefreshWindowFrame(window{Reg.A0}:IntuitionD.WindowPtr); CODE -456;
  327.  
  328. PROCEDURE ReleaseGIRPort(rp{Reg.A0}:RastPortPtr); CODE -564;
  329.  
  330. PROCEDURE RemakeDisplay(); CODE -384;
  331.  
  332. PROCEDURE RemoveClass(classPtr{Reg.A0}:ADDRESS); CODE -708;
  333.  
  334. PROCEDURE RemoveGadget(window{Reg.A0}:IntuitionD.WindowPtr;
  335.            gadget{Reg.A1}:IntuitionD.GadgetPtr):INTEGER; CODE -228;
  336.  
  337. PROCEDURE RemoveGList(window{Reg.A0}:IntuitionD.WindowPtr;
  338.            gadget{Reg.A1}:IntuitionD.GadgetPtr;
  339.            numgad{Reg.D0}:INTEGER):INTEGER; CODE -444;
  340.  
  341. PROCEDURE ReportMouse(window{Reg.A0}:IntuitionD.WindowPtr;
  342.            boolean{Reg.D0}:BOOLEAN); CODE -234;
  343.  
  344. PROCEDURE Request(requester{Reg.A0}:IntuitionD.RequesterPtr;
  345.            window{Reg.A1}:IntuitionD.WindowPtr):BOOLEAN; CODE -240;
  346.  
  347. PROCEDURE ResetMenuStrip(window{Reg.A0}:IntuitionD.WindowPtr;
  348.                  menu{Reg.A1}:IntuitionD.MenuPtr):BOOLEAN; CODE -702;
  349.  
  350. PROCEDURE RethinkDisplay(); CODE -390;
  351.  
  352. PROCEDURE ScreenDepth(screen{Reg.A0}:IntuitionD.ScreenPtr;
  353.                  flags{Reg.D0}:LONGSET;
  354.                  reserved{Reg.A1}:ADDRESS); CODE -786;
  355.  
  356. PROCEDURE ScreenPosition(screen{Reg.A0}:IntuitionD.ScreenPtr;
  357.                  flags{Reg.D0}:LONGSET;
  358.                  x1{Reg.D1}:LONGINT;
  359.                  y1{Reg.D2}:LONGINT;
  360.                  x2{Reg.D3}:LONGINT;
  361.                  y2{Reg.D4}:LONGINT); CODE -792;
  362.  
  363. PROCEDURE ScreenToBack(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -246;
  364.  
  365. PROCEDURE ScreenToFront(screen{Reg.A0}:IntuitionD.ScreenPtr); CODE -252;
  366.  
  367.  
  368. PROCEDURE ScrollWindowRaster(win{Reg.A1}:IntuitionD.WindowPtr;
  369.                  dx{Reg.D0}:INTEGER;dy{Reg.D1}:INTEGER;
  370.                  xMin{Reg.D2}:INTEGER;yMin{Reg.D3}:INTEGER;
  371.                  xMax{Reg.D4}:INTEGER;yMax{Reg.D5}:INTEGER); CODE -798;
  372.  
  373. PROCEDURE SetAttrsA(object{Reg.A0}:ADDRESS;
  374.                  tagList{Reg.A1}:TagItemPtr):ADDRESS; CODE -648;
  375.  
  376. PROCEDURE SetDefaultPubScreen(name{Reg.A0}:ADDRESS); CODE -540;
  377.  
  378. PROCEDURE SetDMRequest(window{Reg.A0}:IntuitionD.WindowPtr;
  379.            dmRequester{Reg.A1}:IntuitionD.RequesterPtr):BOOLEAN; CODE -258;
  380.  
  381. PROCEDURE SetEditHook(hook{Reg.A0}:HookPtr):HookPtr; CODE -492;
  382.  
  383. PROCEDURE SetGadgetAttrsA(gadget{Reg.A0}:IntuitionD.GadgetPtr;
  384.                  window{Reg.A1}:IntuitionD.WindowPtr;
  385.                  requester{Reg.A2}:IntuitionD.RequesterPtr;
  386.                  tagList{Reg.A3}:TagItemPtr):ADDRESS; CODE -660;
  387.  
  388. PROCEDURE SetMenuStrip(window{Reg.A0}:IntuitionD.WindowPtr;
  389.            menu{Reg.A1}:IntuitionD.MenuPtr):BOOLEAN; CODE -264;
  390.  
  391. PROCEDURE SetMouseQueue(window{Reg.A0}:IntuitionD.WindowPtr;
  392.                  queueLength{Reg.D0}:CARDINAL):LONGINT; CODE -498;
  393.  
  394. PROCEDURE SetPointer(window{Reg.A0}:IntuitionD.WindowPtr;
  395.            pointer{Reg.A1}:ADDRESS;
  396.            height{Reg.D0}:INTEGER;
  397.            width{Reg.D1}:INTEGER;
  398.            xOffset{Reg.D2}:INTEGER;
  399.            yOffset{Reg.D3}:INTEGER); CODE -270;
  400.  
  401. PROCEDURE SetPrefs(prefBuffer{Reg.A0}:IntuitionD.PreferencesPtr;
  402.            Size{Reg.D0}:LONGINT;
  403.            Inform{Reg.D1}:BOOLEAN); CODE -324;
  404.  
  405. PROCEDURE SetPubScreenModes(modes{Reg.D0}:BITSET):BITSET; CODE -546;
  406.  
  407. PROCEDURE SetWindowPointerA(win{Reg.A0}:IntuitionD.WindowPtr;
  408.                  taglist{Reg.A1}:ADDRESS); CODE -816;
  409.  
  410. PROCEDURE SetWindowTitles(window{Reg.A0}:IntuitionD.WindowPtr;
  411.            windowTitle{Reg.A1}:ADDRESS;
  412.            screenTitle{Reg.A2}:ADDRESS); CODE -276;
  413.  
  414. PROCEDURE ShowTitle(screen{Reg.A0}:IntuitionD.ScreenPtr;
  415.            showIt{Reg.D0}:BOOLEAN); CODE -282;
  416.  
  417. PROCEDURE SizeWindow(window{Reg.A0}:IntuitionD.WindowPtr;
  418.            deltaX{Reg.D0}:INTEGER;
  419.            deltaY{Reg.D1}:INTEGER); CODE -288;
  420.  
  421. PROCEDURE SysReqHandler(window{Reg.A0}:IntuitionD.WindowPtr;
  422.                  VAR idcmpPtr{Reg.A1}:IntuitionD.IDCMPFlagSet;
  423.                  waitInput{Reg.D0}:BOOLEAN):LONGINT; CODE -600;
  424.  
  425. PROCEDURE TimedDisplayAlert(alertNumber{Reg.D0}:LONGCARD;
  426.                  string{Reg.A0}:ADDRESS;
  427.                  height{Reg.D1}:LONGCARD;
  428.                  time{Reg.A1}:LONGCARD):BOOLEAN; CODE -822;
  429.  
  430. PROCEDURE UnlockIBase(lock{Reg.A0}:LONGCARD); CODE -420;
  431.  
  432. PROCEDURE UnlockPubScreen(name{Reg.A0}:ADDRESS;
  433.                  screen{Reg.A1}:IntuitionD.ScreenPtr); CODE -516;
  434.  
  435. PROCEDURE UnlockPubScreenList(); CODE -528;
  436.  
  437. PROCEDURE ViewAddress():ViewPtr; CODE -294;
  438.  
  439. PROCEDURE ViewPortAddress(window{Reg.A0}:IntuitionD.WindowPtr):ViewPortPtr; CODE -300;
  440.  
  441. PROCEDURE WBenchToBack():BOOLEAN; CODE -336;
  442.  
  443. PROCEDURE WBenchToFront():BOOLEAN; CODE -342;
  444.  
  445. PROCEDURE WindowLimits(window{Reg.A0}:IntuitionD.WindowPtr;
  446.            minWidth{Reg.D0}:INTEGER;minHeight{Reg.D1}:INTEGER;
  447.            maxWidth{Reg.D2}:INTEGER;maxHeight{Reg.D3}:INTEGER):BOOLEAN; CODE -318;
  448.  
  449. PROCEDURE WindowToBack(window{Reg.A0}:IntuitionD.WindowPtr); CODE -306;
  450.  
  451. PROCEDURE WindowToFront(window{Reg.A0}:IntuitionD.WindowPtr); CODE -312;
  452.  
  453. PROCEDURE ZipWindow(window{Reg.A0}:IntuitionD.WindowPtr); CODE -504;
  454.  
  455. END IntuitionL.
  456.