home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Graphics / GFXNodes.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  741 b   |  40 lines
  1. { GFXNodes.i }
  2.  
  3. {$I   "Include:Exec/Nodes.i"}
  4.  
  5. Type
  6.  ExtendedNode = Record
  7.   xln_Succ,
  8.   xln_Pred  : NodePtr;
  9.   xln_Type  : Byte;
  10.   xln_Pri   : Byte;
  11.   xln_Name  : String;
  12.   xln_Subsystem : Byte;
  13.   xln_Subtype   : Byte;
  14.   xln_Library : Address;
  15.   xln_Init : Address;
  16.  END;
  17.  ExtendedNodePtr = ^ExtendedNode;
  18.  
  19. CONST
  20.  SS_GRAPHICS   =  $02;
  21.  
  22.  VIEW_EXTRA_TYPE       =  1;
  23.  VIEWPORT_EXTRA_TYPE   =  2;
  24.  SPECIAL_MONITOR_TYPE  =  3;
  25.  MONITOR_SPEC_TYPE     =  4;
  26.  
  27. PROCEDURE GfxAssociate(Pointer : Address; ENode : ExtendedNodePtr);
  28.     External;
  29.  
  30. PROCEDURE GfxFree(ENode : ExtendedNodePtr);
  31.     External;
  32.  
  33. FUNCTION GfxLookUp(Pointer : Address) : ExtendedNodePtr;
  34.     External;
  35.  
  36. FUNCTION GfxNew(Node_Type : Integer) : ExtendedNodePtr;
  37.     External;
  38.  
  39.  
  40.