home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / intuition.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  8.2 KB  |  159 lines
  1. {$if not def INTUITION_LIB} CONST INTUITION_LIB=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "intuition.lib" zu Kickstart 3.0 **
  5.   *************************************************************** }
  6.  
  7. {$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}
  8. {$if not def INTUITION_CLASSES_H;incl "intuition/classes.h";endif}
  9. {$if not def INTUITION_GADGETCLASS_H;incl "intuition/gadgetclass.h";endif}
  10. {$if not def INTUITION_INTUITIONBASE_H;incl "intuition/gadgetclass.h";endif}
  11.  
  12. VAR IntuitionBase : Ptr;
  13.  
  14. LIBRARY IntuitionBase :
  15.  
  16.  -30 : PROCEDURE OpenIntuition;
  17.  -36 : PROCEDURE _Intuition(A0:p_InputEvent);
  18.  -42 : FUNCTION  AddGadget(A0:p_Window; A1:p_Gadget; D0:Long): Word;
  19.  -48 : FUNCTION  ClearDMRequest(A0:p_Window): Boolean;
  20.  -54 : PROCEDURE ClearMenuStrip(A0:p_Window);
  21.  -60 : PROCEDURE ClearPointer(A0:p_Window);
  22.  -66 : FUNCTION  CloseScreen(A0:p_Screen): Boolean;
  23.  -72 : PROCEDURE CloseWindow(A0:p_Window);
  24.  -78 : FUNCTION  CloseWorkBench: LongInt;
  25.  -84 : PROCEDURE CurrentTime(A0,A1:Ptr);
  26.  -90 : FUNCTION  DisplayAlert(D0:Long; A0:Str; D1:Long): Boolean;
  27.  -96 : PROCEDURE DisplayBeep(A0:p_Screen);
  28. -102 : FUNCTION  DoubleClick(D0,D1,D2,D3: Long): Boolean;
  29. -108 : PROCEDURE DrawBorder(A0:p_RastPort; A1:p_Border; D0,D1:LongInt);
  30. -114 : PROCEDURE DrawImage(A0:p_RastPort; A1:p_Image; D0,D1:LongInt);
  31. -120 : PROCEDURE EndRequest(A0:p_Requester; A1:p_Window);
  32. -126 : FUNCTION  GetDefPrefs(A0:p_Preferences; D0:LongInt): p_Preferences;
  33. -132 : FUNCTION  GetPrefs(A0:p_Preferences; D0:LongInt): p_Preferences;
  34. -138 : PROCEDURE InitRequester(A0:p_Requester);
  35. -144 : FUNCTION  ItemAddress(A0:p_Menu; D0:Long): p_MenuItem;
  36. -150 : FUNCTION  ModifyIDCMP(A0:p_Window; D0:Long): Boolean;
  37. -156 : PROCEDURE ModifyProp(A0:p_Gadget; A1:p_Window; A2:Requester; D0,D1,D2,D3,D4:Long)
  38. -162 : PROCEDURE MoveScreen(A0:p_Screen; D0,d1:LongInt);
  39. -168 : PROCEDURE MoveWindow(A0:p_Window; D0,d1:LongInt);
  40. -174 : PROCEDURE OffGadget(A0:p_Gadget; A1:p_Window; A2:p_Requester);
  41. -180 : PROCEDURE OffMenu(A0:p_Window; D0:Long);
  42. -186 : PROCEDURE OnGadget(A0:p_Gadget; A1:p_Window; A2:p_Requester);
  43. -192 : PROCEDURE OnMenu(A0:p_Window; D0:Long);
  44. -198 : FUNCTION  OpenScreen(A0:p_NewScreen): p_Screen;
  45. -204 : FUNCTION  OpenWindow(A0:p_NewWindow): p_Window;
  46. -210 : FUNCTION  OpenWorkBench : Boolean;
  47. -216 : PROCEDURE PrintIText(A0:p_RastPort; A1:p_IntuiText; D0,D1:LongInt);
  48. -222 : PROCEDURE RefreshGadgets(A0:p_Gadget; A1:p_Window; A2:p_Requester);
  49. -228 : FUNCTION  RemoveGadget(A0:p_Window, A1:p_Gadget): Word;
  50. -234 : PROCEDURE ReportMouse(D0:LongInt; A0:p_Window);
  51. -234 : PROCEDURE ReportMouse1(A0:p_Window; D0:LongInt);
  52. -240 : FUNCTION  Request(A0:p_Requester; A1:p_Window): Boolean;
  53. -246 : PROCEDURE ScreenToBack(A0:p_Screen);
  54. -252 : PROCEDURE ScreenToFront(A0:p_Screen);
  55. -258 : FUNCTION  SetDMRequest(A0:p_Window; A1:p_Requester): Boolean;
  56. -264 : FUNCTION  SetMenuStrip(A0:p_Window; A1:p_Menu): Boolean;
  57. -270 : PROCEDURE SetPointer(A0:p_Window; A1:Ptr; D0,D1,D2,D3:LongInt);
  58. -276 : PROCEDURE SetWindowTitles(A0:p_Window; A1,A2:Str);
  59. -282 : PROCEDURE ShowTitle(A0:p_Screen; D0:LongInt);
  60. -288 : PROCEDURE SizeWindow(A0:p_Window; D0,D1:LongInt);
  61. -294 : FUNCTION  ViewAddress: p_View;
  62. -300 : FUNCTION  ViewPortAddress(A0:p_Window): p_ViewPort;
  63. -306 : PROCEDURE WindowToBack(A0:p_Window);
  64. -312 : PROCEDURE WindowToFront(A0:p_Window);
  65. -318 : FUNCTION  WindowLimits(A0:p_Window; D0,D1:Long; D2,D3:Long): Boolean;
  66. -324 : FUNCTION  SetPrefs(A0:p_Preferences; D0,D1:LongInt): p_Preferences;
  67. -330 : FUNCTION  IntuiTextLength(A0:p_IntuiText): LongInt;
  68. -336 : FUNCTION  WBenchToBack: Boolean;
  69. -342 : FUNCTION  WBenchToFront: Boolean;
  70. -348 : FUNCTION  AutoRequest(A0:p_Window; A1,A2,A3:p_IntuiText; D0,D1,D2,D3:Long): Boolean;
  71. -354 : PROCEDURE BeginRefresh(A0:p_Window);
  72. -360 : FUNCTION  BuildSysRequest(A0:p_Window; A1,A2,A3:p_IntuiText; D0,D1,D2:Long): p_Window;
  73. -366 : PROCEDURE EndRefresh(A0:p_Window; D0:LongInt);
  74. -372 : PROCEDURE FreeSysRequest(A0:p_Window);
  75. -378 : PROCEDURE MakeScreen(A0:p_Screen);
  76. -384 : PROCEDURE RemakeDisplay;
  77. -390 : PROCEDURE RethinkDisplay;
  78. -396 : FUNCTION  AllocRemember(A0:Ptr; D0,D1:Long): Ptr;
  79. -402 : PROCEDURE AlohaWorkbench(D0:LongInt);
  80. -408 : PROCEDURE FreeRemember(A0:Ptr; D0:LongInt);
  81. -414 : FUNCTION  LockIBase(D0:LongInt): Long;
  82. -420 : PROCEDURE UnlockIBase(A0:LongInt);
  83.  
  84. { --- Routinen ab V33 / Kickstart 1.2 --- }
  85.  
  86. -426 : FUNCTION  GetScreenData(A0:Ptr; D0,D1:Long; A1:p_Screen): LongInt;
  87. -432 : PROCEDURE RefreshGList(A0:p_Gadget; A1:p_Window; A2:p_Requester; D0:LongInt);
  88. -438 : FUNCTION  AddGList(A0:p_Window, A1:p_Gadget; D0:Long; D1:LongInt; A2:p_Requester): Word;
  89. -444 : FUNCTION  RemoveGList(A0:p_Window; A1:p_Gadget; D0:LongInt): Word;
  90. -450 : FUNCTION  ActivateWindow(A0:p_Window): LongInt;
  91. -456 : PROCEDURE RefreshWindowFrame(A0:p_Window);
  92. -462 : FUNCTION  ActivateGadget(A0:p_Gadget; A1:p_Window; A2:p_Requester): Boolean;
  93. -468 : PROCEDURE NewModifyProp(A0:p_Gadget; A1:p_Window; A2:p_Requester; D0,D1,D2,D3,D4: Long; D5:LongInt)
  94.  
  95. { --- Routinen ab V36 / Kickstart 2.0 --- }
  96.  
  97. -474 : FUNCTION  QueryOverscan(A0:Long; A1:p_Rectangle; D0:LongInt): LongInt;
  98. -480 : PROCEDURE MoveWindowInFrontOf(A0,A1:p_Window);
  99. -486 : PROCEDURE ChangeWindowBox(A0:p_Window; D0,D1,D2,D3: LongInt);
  100. -492 : FUNCTION  SetEditHook(A0:p_Hook): p_Hook;
  101. -498 : FUNCTION  SetMouseQueue(A0:p_Window; D0:Long): LongInt;
  102. -504 : PROCEDURE ZipWindow(A0:p_Window);
  103. -510 : FUNCTION  LockPubScreen(A0:Str): p_Screen;
  104. -516 : PROCEDURE UnlockPubScreen(A0:Str; A1:p_Screen);
  105. -522 : FUNCTION  LockPubScreenList: p_List;
  106. -528 : PROCEDURE UnlockPubScreenList;
  107. -534 : FUNCTION  NextPubScreen(A0:p_Screen; A1:Str): Str;
  108. -540 : PROCEDURE SetDefaultPubScreen(A0:Str);
  109. -546 : FUNCTION  SetPubScreenModes(D0:Long): Word;
  110. -552 : FUNCTION  PubScreenStatus(A0:p_Screen; D0:Long): Word;
  111. -558 : FUNCTION  ObtainGIRPort(A0:p_GadgetInfo): p_RastPort;
  112. -564 : PROCEDURE ReleaseGIRPort(A0:p_RastPort);
  113. -570 : PROCEDURE GadgetMouse(A0:P_Gadget; A1:P_GadgetInfo; a2:Ptr);
  114. { ** private Routine ** }
  115. -582 : PROCEDURE GetDefaultPubScreen(A0:Str);
  116. -588 : FUNCTION  EasyRequestArgs(A0:p_Window; A1:p_EasyStruct; A2:Ptr; A3:Ptr): LongInt;
  117. -594 : FUNCTION  BuildEasyRequestArgs(A0:p_Window; A1:p_EasyStruct; D0:Long; A3:Ptr): p_Window;
  118. -600 : FUNCTION  SysReqHandler(A0:p_Window; A1:Ptr; D0:LongInt): LongInt;
  119. -606 : FUNCTION  OpenWindowTagList(A0:p_NewWindow; A1:p_TagItem): p_Window;
  120. -612 : FUNCTION  OpenScreenTagList(A0:p_NewScreen; A1:p_TagItem): p_Screen;
  121. -618 : PROCEDURE DrawImageState(A0:p_RastPort; A1:p_Image; D0,D1:LongInt; D2:Long; A2:p_DrawInfo);
  122. -624 : FUNCTION  PointInImage(D0:Long; A0:p_Image): Boolean;
  123. -630 : PROCEDURE EraseImage(A0:p_RastPort; A1:p_Image; D0,D1:LongInt);
  124. -636 : FUNCTION  NewObjectA(A0:p_IClass; A1:Ptr; A2:p_TagItem): Ptr;
  125. -642 : PROCEDURE DisposeObject(A0:Ptr);
  126. -648 : FUNCTION  SetAttrsA(A0:Ptr; A1:p_TagItem): Long;
  127. -654 : FUNCTION  GetAttr(D0:Long; A0,A1: Ptr): Long;
  128. -660 : FUNCTION  SetGadgetAttrsA(A0:p_Gadget; A1:p_Window; A2:p_Requester; A3:p_TagItem) : Long;
  129. -666 : FUNCTION  NextObject(A0:Ptr): Ptr;
  130. { ** private Routine ** }
  131. -678 : FUNCTION  MakeClass(A0,A1:Ptr; A2:IClass; D0,D1:Long): p_IClass;
  132. -684 : PROCEDURE AddClass(A0:p_IClass);
  133. -690 : FUNCTION  GetScreenDrawInfo(A0:p_Screen): p_DrawInfo;
  134. -696 : PROCEDURE FreeScreenDrawInfo(A0:p_Screen; A1:p_DrawInfo);
  135. -702 : FUNCTION  ResetMenuStrip(A0:p_Window; A1: p_Menu): Boolean;
  136. -708 : PROCEDURE RemoveClass(A0:p_IClass);
  137. -714 : FUNCTION  FreeClass(A0:p_IClass): Boolean;
  138. { *** 2 private Routinen *** }
  139.  
  140. { *** weitere 6 private Routinen *** }
  141.  
  142. { *** Routinen ab V39 / Kickstart 3.0 *** }
  143.  
  144. -768 : FUNCTION  AllocScreenBuffer(A0:p_Screen; A1:p_BitMap; D0:Long): p_ScreenBuffer;
  145. -774 : PROCEDURE FreeScreenBuffer(A0:p_Screen; A1:p_ScreenBuffer);
  146. -780 : FUNCTION  ChangeScreenBuffer(A0:p_Screen; A1:p_ScreenBuffer): Long;
  147. -786 : PROCEDURE ScreenDepth(A0:p_Screen; D0:Long; A1:Ptr);
  148. -792 : PROCEDURE ScreenPosition(A0:p_Screen; D0:Long; D1,D2,D3,D4:LongInt);
  149. -798 : PROCEDURE ScrollWindowRaster(A1:p_Window; D0,D1,D2,D3,D4,D5:LongInt);
  150. -804 : PROCEDURE LendMenus(A0:p_Window; A1:p_Window);
  151. -810 : FUNCTION  DoGadgetMethodA(A0:p_Gadget; A1:p_Window; A2:p_Requester; A3:LongInt): Long;
  152. -816 : PROCEDURE SetWindowPointerA(A0:p_Window; A1:p_TagItem);
  153. -822 : FUNCTION  TimedDisplayAlert(D0:Long; A0:Str; D1:Long; A1:Long): Boolean;
  154. -828 : PROCEDURE HelpControl(A0:p_Window; D0:Long);
  155.  
  156. END;
  157.  
  158. {$endif}
  159.