mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-13 10:29:34 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
75 lines
1.6 KiB
OpenEdge ABL
75 lines
1.6 KiB
OpenEdge ABL
{
|
|
File: FileTransfersExtensions.p
|
|
|
|
Contains: xxx put contents here xxx
|
|
|
|
Written by: xxx put writers here xxx
|
|
|
|
Copyright: © 1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<2> 8/20/91 BH remove FTSetupCleanup from public interfaces
|
|
<1> 6/18/91 BH first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT FileTransfersExtensions;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingFileTransfersExtensions}
|
|
{$SETC UsingFileTransfersExtensions := 1}
|
|
|
|
{$I+}
|
|
{$SETC FileTransfersExtensionsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingPackages}
|
|
{$I $$Shell(PInterfaces)Packages.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingCTBUtilities}
|
|
{$I $$Shell(PInterfaces)CTBUtilities.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingFileTransfers}
|
|
{$I $$Shell(PInterfaces)FileTransfers.p}
|
|
{$ENDC}
|
|
|
|
{$SETC UsingIncludes := FileTransfersExtensionsIncludes}
|
|
|
|
CONST
|
|
{ FTChooseRec messages }
|
|
ftChooseNoChangeHandle = 1;
|
|
ftChooseNoDialog = 2;
|
|
ftChooseNoChangeTool = 4;
|
|
|
|
TYPE
|
|
{ FTChoose data structures }
|
|
FTChooseRecPtr = ^FTChooseRec;
|
|
FTChooseRec = RECORD
|
|
reserved : LONGINT;
|
|
msg : LONGINT;
|
|
idleProc : ProcPtr;
|
|
filterProc : ProcPtr;
|
|
newTool : Str63;
|
|
newConfig : Ptr;
|
|
eventProc : ProcPtr;
|
|
END;
|
|
|
|
|
|
FUNCTION FTPChoose(VAR hFT:FTHandle; where: Point; VAR cRec: FTChooseRec) : INTEGER;
|
|
PROCEDURE FTSetupCleanup(procID: INTEGER;theConfig: Ptr;count: INTEGER;
|
|
theDialog: DialogPtr;VAR magicCookie: LONGINT);
|
|
|
|
{$ENDC} {UsingFileTransfersExtensions}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|