mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-12 04:29:09 +00:00
56 lines
996 B
Plaintext
56 lines
996 B
Plaintext
|
;
|
||
|
|
; File: TerminalsExtensions.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 move TMSetupCleanup from public interfaces
|
||
|
|
; <1> 6/18/91 BH first checked in
|
||
|
|
;
|
||
|
|
; To Do:
|
||
|
|
;
|
||
|
|
|
||
|
|
IF (&TYPE('TERMINALSEXTENSIONS') = 'UNDEFINED') THEN
|
||
|
|
TERMINALSEXTENSIONS EQU 1
|
||
|
|
|
||
|
|
IF (&TYPE('TERMINALS') = 'UNDEFINED') THEN
|
||
|
|
INCLUDE 'Terminals.a'
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF (&TYPE('CTBUTILITIES') = 'UNDEFINED') THEN
|
||
|
|
INCLUDE 'CTBUtilities.a'
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
tmChooseNoChangeHandle EQU 1
|
||
|
|
tmChooseNoDialog EQU 2
|
||
|
|
tmChooseNoChangeTool EQU 4
|
||
|
|
|
||
|
|
TMChooseRec 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
|
||
|
|
TMChooseRecSize EQU *
|
||
|
|
Endr
|
||
|
|
|
||
|
|
TMPChoose EQU $333
|
||
|
|
TMSetupItem EQU $31A
|
||
|
|
MACRO
|
||
|
|
_TMPChoose
|
||
|
|
_CTBCall #TMPChoose
|
||
|
|
ENDM
|
||
|
|
|
||
|
|
MACRO
|
||
|
|
_TMSetupCleanup
|
||
|
|
_CTBCall #TMSetupCleanup
|
||
|
|
ENDM
|
||
|
|
|
||
|
|
ENDIF
|