mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-12 04:29:09 +00:00
62 lines
1.0 KiB
Plaintext
62 lines
1.0 KiB
Plaintext
;
|
|
; 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 |