mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-01 11:29:27 +00:00
56 lines
957 B
OpenEdge ABL
56 lines
957 B
OpenEdge ABL
|
{
|
|||
|
File: TerminalsPriv.p
|
|||
|
|
|||
|
Contains: xxx put contents here xxx
|
|||
|
|
|||
|
Written by: xxx put writers here xxx
|
|||
|
|
|||
|
Copyright: <EFBFBD> 1990 by Apple Computer, Inc., all rights reserved.
|
|||
|
|
|||
|
Change History (most recent first):
|
|||
|
|
|||
|
<1> 3/14/90 BBH first checked in
|
|||
|
|
|||
|
To Do:
|
|||
|
}
|
|||
|
|
|||
|
{$IFC UNDEFINED UsingIncludes}
|
|||
|
{$SETC UsingIncludes := 0}
|
|||
|
{$ENDC}
|
|||
|
|
|||
|
{$IFC NOT UsingIncludes}
|
|||
|
UNIT TerminalsPriv;
|
|||
|
INTERFACE
|
|||
|
{$ENDC}
|
|||
|
|
|||
|
{$IFC UNDEFINED TerminalsPriv}
|
|||
|
{$SETC TerminalsPriv := 1}
|
|||
|
|
|||
|
{$I+}
|
|||
|
{$SETC TerminalsPrivIncludes := UsingIncludes}
|
|||
|
{$SETC UsingIncludes := 1}
|
|||
|
{$IFC UNDEFINED Terminals}
|
|||
|
{$I Terminals.p}
|
|||
|
{$ENDC}
|
|||
|
{$SETC UsingIncludes := TerminalsPrivIncludes}
|
|||
|
|
|||
|
TYPE
|
|||
|
LineDataBlock = RECORD
|
|||
|
dataPtr : Ptr;
|
|||
|
dataSize : LONGINT;
|
|||
|
attrPtr : Ptr;
|
|||
|
attrSize : LONGINT;
|
|||
|
|
|||
|
reserved : LONGINT;
|
|||
|
END;
|
|||
|
|
|||
|
PROCEDURE TMPeekLine(hTerm: TermHandle; lineNo: INTEGER;
|
|||
|
VAR theLineData: LineDataBlock);
|
|||
|
|
|||
|
{$ENDC} { TerminalsPriv }
|
|||
|
|
|||
|
{$IFC NOT UsingIncludes}
|
|||
|
END.
|
|||
|
{$ENDC}
|
|||
|
|