;
;	File:		FileTransfersExtensions.a
;
;	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:
;


	IF (&TYPE('FILETRANSFERSEXTENSIONS') = 'UNDEFINED') THEN
FILETRANSFERSEXTENSIONS	EQU	1


	IF (&TYPE('CTBUTILITIES') = 'UNDEFINED') THEN
		INCLUDE		'CTBUtilities.a'
	ENDIF

	IF (&TYPE('FILETRANSFERS') = 'UNDEFINED') THEN
		INCLUDE		'FileTransfers.a'
	ENDIF



ftChooseNoChangeHandle	EQU		1
ftChooseNoDialog		EQU		2
ftChooseNoChangeTool	EQU		4

FTChooseRec	RECORD	0
reserved		ds.l	1
msg				ds.l	1
idleProc		ds.l	1
filterProc		ds.l	1
newTool			ds.b	64
newConfig		ds.l	1
eventProc		ds.l	1
FTChooseRecSize		EQU		*
	Endr
	

FTSetupCleanup		EQU		$215
FTPChoose			EQU	$221

	MACRO
	_FTPChoose
	_CTBCall	#FTPChoose
	ENDM
	
	MACRO
	_FTSetupCleanup
	_CTBCall	#FTSetupCleanup
	ENDM

	ENDIF ; FTINTF