mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-13 11:29:15 +00:00
89 lines
2.3 KiB
OpenEdge ABL
89 lines
2.3 KiB
OpenEdge ABL
{
|
|
File: ConnectionsExtensions.p
|
|
|
|
Contains: Internal interfaces to new Conn Mgr calls
|
|
|
|
Written by: Byron Han
|
|
|
|
Copyright: © 1988-1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<6> 8/27/91 JSM Cleanup header.
|
|
<5> 8/20/91 BH remove CMSetupCleanup from public interfaces
|
|
<4> 6/18/91 BH remove 1.1 stuff and moved to ConnectionTools.p and
|
|
Connections.p
|
|
<3> 1/14/91 CP ;Removed CMConnectPrep and added CMListenPrep and CMOpenPrep.
|
|
;Renamed CMFreeIORec to CMDisposeIOPB.
|
|
;Renamed CMAllocateIORec to CMNewIOPB.
|
|
;Removed param block from CMPBAccept, CMPBListen, CMPBClose,
|
|
CMPBOpen, and CMConnectCleanup.
|
|
;Changed reserved0 (long) in CMIORec to asyncEOM (long). It
|
|
already was called this in the .a file.
|
|
;Changed reserved2 (long) in CMIORec to reserved2 (short) and
|
|
version (short).
|
|
;Added async, completor, and timeout parameters to CMListenPrep
|
|
and CMOpenPrep.
|
|
;Renamed CMIORec to CMIOPB <BBH>
|
|
<2> 11/27/90 kaz Moving CMExtensions tool messages to Internal; Renamed CMHCalls
|
|
to CMPBCalls; added new calls for CMPBOpen, etc <jng>
|
|
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT ConnectionsExtensions;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingConnectionsExtensions}
|
|
{$SETC UsingConnectionsExtensions := 1}
|
|
|
|
{$I+}
|
|
{$SETC ConnectionsExtensionsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingDialogs}
|
|
{$I Dialogs.p}
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingCTBUtilities}
|
|
{$I CTBUtilities.p}
|
|
{$ENDC}
|
|
|
|
{$SETC UsingIncludes := ConnectionsExtensionsIncludes}
|
|
|
|
CONST
|
|
{ CMChooseRec messages }
|
|
cmChooseNoChangeHandle = 1;
|
|
cmChooseNoDialog = 2;
|
|
cmChooseNoChangeTool = 4;
|
|
|
|
TYPE
|
|
{ CMChoose data structures }
|
|
CMChooseRecPtr = ^CMChooseRec;
|
|
CMChooseRec = RECORD
|
|
reserved : LONGINT;
|
|
msg : LONGINT;
|
|
idleProc : ProcPtr;
|
|
filterProc : ProcPtr;
|
|
newTool : Str63;
|
|
newConfig : Ptr;
|
|
eventProc : ProcPtr;
|
|
END;
|
|
|
|
{ New Calls }
|
|
FUNCTION CMPChoose(VAR hConn:ConnHandle; where: Point; VAR cRec: CMChooseRec) : INTEGER;
|
|
|
|
PROCEDURE CMSetupCleanup(procID: INTEGER;theConfig: Ptr;count: INTEGER;
|
|
theDialog: DialogPtr;VAR magicCookie: LONGINT);
|
|
|
|
{$ENDC} {UsingConnectionsExtensions}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|