home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / m2mdemopakdisk3.dms / m2mdemopakdisk3.adf / Text / Intuition.zoo / IntuiUtils.def < prev    next >
Text File  |  1989-10-09  |  6KB  |  128 lines
  1. DEFINITION MODULE IntuiUtils;
  2.  
  3. (*
  4.  
  5. Das Modul »IntuiUtils« stellt Prozeduren zur einfachen Initialisierung der 
  6. Intuition-Records zur Verfügung. 
  7.  
  8. Intuition Report Version 1.3    10-Apr-89
  9.  
  10. *)
  11.     
  12.                                                 
  13. FROM SYSTEM IMPORT 
  14.        ADDRESS;
  15. FROM Intuition IMPORT 
  16.        ScreenPtr, NewScreen ,NewWindow, IDCMPFlagSet, WindowFlagSet, 
  17.        BorderPtr, IntuiTextPtr, GadgetPtr, GadgetFlagSet, ActivationFlagSet,
  18.        StringInfoPtr, PropInfoPtr, PropInfoFlagSet, RequesterPtr, ImagePtr;
  19. FROM Graphics IMPORT 
  20.        ViewModeSet,DrawModeSet;
  21.  
  22.  
  23. TYPE
  24.   Set = SET OF [0..7];
  25.   
  26.  
  27.  
  28. PROCEDURE InitNewWindow (VAR NewWin: NewWindow;  VAR Title: ARRAY OF CHAR;
  29.                          Left, Top, Width, Height: INTEGER;
  30.                          Idcmp: IDCMPFlagSet;  Flags: WindowFlagSet;
  31.                          ScnPtr: ScreenPtr);
  32. PROCEDURE InitNewScreen (VAR NewScn: NewScreen; VAR Title : ARRAY OF CHAR;
  33.                          Left, Top, Width, Height, Depth: INTEGER;
  34.                          Mode: ViewModeSet);
  35. PROCEDURE InitRequester (Left, Top, Width, Height, color: INTEGER)
  36.                                                              : RequesterPtr;
  37. PROCEDURE DisposeRequester (req: RequesterPtr);
  38. PROCEDURE InitGadget (prevGad: GadgetPtr;  
  39.                       Left, Top, Width, Height: INTEGER;
  40.                       Flags: GadgetFlagSet;  Activ: ActivationFlagSet;
  41.                       type: CARDINAL;  textPtr: IntuiTextPtr; 
  42.                       special: ADDRESS;  id: INTEGER) : GadgetPtr;
  43. PROCEDURE DisposeGadget (VAR gadgetPtr: GadgetPtr; list: BOOLEAN);
  44. PROCEDURE InitBorder (prevBorder: BorderPtr; 
  45.                       Left,Top: INTEGER; Pen: CARDINAL;
  46.                       Mode: DrawModeSet;  Numb: CARDINAL; 
  47.                       arrayPtr: ADDRESS): BorderPtr;
  48. PROCEDURE DisposeBorder (VAR borderPtr: BorderPtr; list: BOOLEAN);
  49. PROCEDURE InitBorderArray (rightPos, botPos: INTEGER): ADDRESS;
  50. PROCEDURE DisposeBorderArray (array: ADDRESS);
  51. PROCEDURE InitImage (prevImage: ImagePtr; 
  52.                      Left, Top, Width, Height, Depth : INTEGER;
  53.                      image: ADDRESS; plane, onOff: Set): ImagePtr;      
  54. PROCEDURE DisposeImage (imagePtr: ImagePtr; list: BOOLEAN);
  55. PROCEDURE InitIntuiText (prevIText: IntuiTextPtr; Left, Top: INTEGER;
  56.                          aPen, bPen: CARDINAL; Mode: DrawModeSet;
  57.                          text: ADDRESS): IntuiTextPtr;
  58. PROCEDURE DisposeIntuiText (VAR iTPtr: IntuiTextPtr; list: BOOLEAN);
  59. PROCEDURE InitStringInfo (bufferPtr: ADDRESS; maxCh: INTEGER): StringInfoPtr;
  60. PROCEDURE DisposeStringInfo (strInfo: StringInfoPtr);
  61. PROCEDURE InitPropInfo (left, top, width, height, pot, body: CARDINAL;
  62.                                    Flags: PropInfoFlagSet): PropInfoPtr;
  63. PROCEDURE DisposePropInfo (propPtr: PropInfoPtr);
  64.  
  65.  
  66. END IntuiUtils.
  67.  
  68.  
  69.  
  70.   
  71. »InitNewWindow«  initialisiert  einen NewWindow-Record mit  den übergebenen 
  72. Parametern. Die Variable »NewWin« vom Type »Intuition.NewWindow« kann local 
  73. in einer Prozedur  erzeugt werden.  Der  Record  muß  exestieren,  bis  das
  74. Fenster geöffnet ist. Danach kann er gelöscht werden. 
  75.                
  76. »InitNewScreen«  initialisiert  einen  NewScreen-Record mit den übergebenen 
  77. Parametern. Die Variable »NewScn«  vom  Type Intuition.NewScreen kann local 
  78. in einer Prozedur erzeugt werden. Der Record muß exestieren, bis der Screen
  79. geöffnet ist. Er kann danach gelöscht werden. 
  80.  
  81. »InitRequester« initialisiert einen Intuition.Requester-Record. 
  82. »DisposeRequester« löscht einen Requester-Record und gibt den reservierten 
  83. Speicher an das System zurück.
  84.                               
  85. »InitGadget« initialisiert einen Intuition.Gadget-Record. 
  86. Wenn »prevGadget« # NIL ist, wird der neue Record an »prevGadget« angefügt.
  87. »DisposeGadget« löscht Intuition.Gadget-Records und gibt  den  reservierten
  88. Speicher an das  System  zurück.  »list« = FALSE => löscht  einen einzelnen
  89. Record.   »list = TRUE« löscht auch alle folgenden Gadgets in einer verket-
  90. teten Liste.  
  91.  
  92. »InitBorder« initialisiert einen Intuition.Border-Record. 
  93. Wenn »prevBorder« # NIL ist, wird der neue Record an »prevBorder« angefügt. 
  94. »DisposeBorder«  löscht Intuition.Border-Records und gibt den reservierten
  95. Speicher an  das  System  zurück.   »list« = FALSE  löscht einen einzelnen
  96. Record. »list« = TRUE löscht auch alle  folgenden  Border-Records in einer 
  97. verketteten Liste.  
  98.  
  99. »InitBorderArray«  initialisiert  ein Koordinaten-Feld mit den Koordinaten 
  100. eines Rechtecks. Die Position oben/links wird auf NULL gesetzt. »rightPos«
  101. und »botPos« bestimmen die Position unten/rechts. 
  102.  
  103. »DisposeBorderArray«  löscht  ein  mit  »InitBorderArray«   eingerichtetes 
  104. Koordinatenfeld und gibt den resevierten Speicher an das System zurück.
  105.  
  106. »InitImage« initialisiert einen Intuition.Image-Record. 
  107. Wenn »prevImage« # NIL, wird der  neue  Record  an  »prevImage«  angefügt. 
  108. »DisposeImage« löscht  Intuition.  Image-Records und gibt den reservierten 
  109. Speicher an das  System  zurück.  »list« = FALSE  löscht  einen  einzelnen
  110. Record.  »list« = TRUE  löscht  auch alle folgenden Image-Records in einer 
  111. verketteten Liste.  
  112.  
  113. »InitIntuiText«  initialisiert  einen  Intuition.IntuiText-Record.    Wenn 
  114. »prevIText« # NIL ist, wird der neue Record an  »prevIText«  angefügt. Die 
  115. Adresse TextStrings wird in  »text«  übergeben.  »DisposeIntuiText« löscht 
  116. Intuition.IntuiText-Records  und  gibt  den  reservierten  Speicher an das
  117. System  zurück. »list« = FALSE,  löscht  einen  einzelnen Record. »list« =
  118. TRUE löscht auch  alle  folgenden  IntuiText-Records  in einer verketteten
  119. Liste.  
  120.  
  121. »InitStringInfo« initialisiert einen Intuition.StringInfo-Record.
  122. »DisposeStringInfo«  löscht einen Intuition.StringInfo-Record und gibt den 
  123. reservierten Speicher an das System zurück.
  124.   
  125. »InitPropInfo« initialisiert einen Intuition.PropInfo-Record.
  126. »DisposePropInfo«  löscht  einen  Intuition.PropInfo-Record  und  gibt den 
  127. reservierten Speicher an das System zurück.
  128.