;
;	File:		TerminalMgrGlue.a
;
;	Contains:	xxx put contents here xxx
;
;	Written by:	xxx put writers here xxx
;
;	Copyright:	© 1990 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <1>	 3/14/90	BBH		first checked in
;
;	To Do:
;

; ~@~Projector~@~ Copyright © 1987, 1988, 1989 Apple Computer, Inc.  All rights reserved.   
; ~@~Projector~@~ File: TMgrGlue.a,21+  (3/27/89 9:47:07 AM)   
; File : TMGRGlue.a
;--------------------------------
;
;	Application Glue for Terminal Manager
;
;	Written by Dean Wong  May 1988
;	Modified by Byron Han for Terminal Manager 7.july.1988
;
;	Copyright (c) 1988 by Apple Computer, Inc. All rights reserved.
;
;
;	MODIFICATION HISTORY :
;		8/1/88				1.0D1
;		4/6/89		BBH		renamed TMGetTermName to TMGetToolName
;		4/11/89		JNG		Changed TMGetRefCon, TMSetRefCon, TMGetUserData, 
;								TMSetUserData, TMGetVersion	to trap into the CTBCore 
;								version of the call.
;		4/12/89		JNG		Changed TMGetToolName to trab into CTBCore
;		4/17/89		JNG		TMValidate and TMDefault to Core
;		4/20/89		BBH		Added MgrSel to CTBVersion
;							Moved Setup, Config, Intl, and Choose into core
;				PM			Ooops - forgot to change local variable allocation.
;		4/24/89		JNG		Moved TMResume TMMenu TMEvent TMActivate TMReset
;							TMIdle to CTBCore
;					BBH		Changed TMGetTermEnvirons to return short
;							Added environsProc to TMNew
;		5/3/89		BBH		Changed TMGetSelect to pass back length as function result
;		5/9/89		BBH		Changed TMStream to take flags parameter
;		6/2/89		JNG		New Glue/Entry interface
;		6/7/89		kaz		Made TMGetLine a procedure instead of a Function.
;		6/26/89		BBH		Aded TMPeekLine and TMPChoose routines
;
;	Minor Selector Table
;
;				BRA		@InitTM			;	minor selector 1
;				BRA		@TMNew			;	2
;				BRA		@TMDispose		;	3
;				BRA		@TMKey			;	4
;				BRA		@TMUpdate		;	5
;				BRA		@TMPaint		;	6
;				BRA		@TMActivate		;	7
;				BRA		@TMResume		;	8
;				BRA		@TMClick		;	9
;				BRA		@TMStream		;	A
;				BRA		@TMMenu			;	B
;				BRA		@TMReset		;	C
;				BRA		@TMClear		;	D
;				BRA		@TMResize		;	E
;				BRA		@TMGetSelect	;	F
;				BRA		@TMGetLine		;	10
;				BRA		@TMSetSelection	;	11
;				BRA		@TMScroll		;	12
;				BRA		@TMIdle			;	13
;				BRA		@TMValidate		;	14
;				BRA		@TMDefault		;	15
;				BRA		@TMSetupPreflight	;	16
;				BRA		@TMSetupSetup	;	17
;				BRA		@TMSetupFilter	;	18
;				BRA		@TMSetupItem	;	19
;				BRA		@TMSetupCleanup	;	1A
;				BRA		@TMGetConfig	;	1B
;				BRA		@TMSetConfig	;	1C
;				BRA		@TMIntlToEnglish	;	1D
;				BRA		@TMEnglishToIntl	;	1E
;				BRA		@TMGetProcID	;	1F
;				BRA		@TMGetToolName	;	20
;				BRA		@TMSetRefCon	;	21
;				BRA		@TMGetRefCon	;	22
;				BRA		@TMSetUserData	;	23
;				BRA		@TMGetUserData	;	24
;				BRA		@TMGetVersion	;	25
;				BRA		@TMGetTMVersion	;	26
;				BRA		@TMAddSearch	;	27
;				BRA		@TMRemoveSearch	;	28
;				BRA		@TMClearSearch	;	29
;				BRA		@TMGetCursor	;	2A
;				BRA		@TMGetTermEnvirons	;	2B
;				BRA		@TMChoose		;	2C
;				BRA		@TMEvent		;	2D
;				BRA		@TMDoTermKey		;	2E
;				BRA		@TMCountTermKeys		;	2F
;				BRA		@TMGetIndTermKey		;	30
;				BRA		@TMSetupPostflight	;	31
;				BRA		@TMPeekLine		;	32
;				BRA		@TMPChoose		;	33
;				BRA		@TMPSetupXCleanup	;	34



				INCLUDE 	'Traps.a'
				INCLUDE		'CommToolboxPriv.a'
				
				
		; Function InitTM : TMErr;
		;	Major Selector -> 3;
		;	Minor Selector -> 1;
		;
InitTM		FUNC	EXPORT
			_CTBTrap	#$0301		; major selector = 3, minor selector = 1
			EndCTBTrap		#$2,W
			ENDFUNC
			
			
		;	FUNCTION  TMNew(termRect:Rect; viewRect:Rect; flags:LONGINT;
		;	procID:INTEGER; owner:WindowPtr; sendProc:ProcPtr; cacheProc:ProcPtr;
		;	breakProc:ProcPtr; clikLoop:ProcPtr; environsProc: ProcPtr;
		;	refCon:LONGINT; userData:LONGINT) : TermHandle;
		;
		;	Major Selector -> 3;
		;	Minor Selector -> 2;
		;
TMNew		FUNC	EXPORT
			_CTBTrap	#$0302		; major selector = 3, minor selector = 2
			EndCTBTrap		#$30,L
			ENDFUNC
			
			
		; Procedure TMDispose( hTerm : TermHandle );
		;	Major Selector -> 3;
		;	Minor Selector -> 3;
TMDispose	PROC	EXPORT
			_CTBTrap	#$0303		; major selector = 3, minor selector = 9
			EndCTBTrap		#$6
			ENDPROC
			
			
		; Procedure TMKey( hTerm : TermHandle; theEvent : EventRecord );
		;	Major Selector -> 3;
		;	Minor Selector -> 4;
		;
TMKey		PROC	EXPORT
			_CTBTrap	#$0304		; major selector = 3, minor selector = 4
			EndCTBTrap		#$A
			ENDPROC
			
		; Procedure TMUpdate( hTerm : TermHandle; visRgn : RgnHandle );
		;	Major Selector -> 3;
		;	Minor Selector -> 5;
		;
TMUpdate	PROC	EXPORT
			_CTBTrap	#$0305		; major selector = 3, minor selector = 5
			EndCTBTrap		#$A
			ENDPROC
			
			
		; PROCEDURE TMPaint(hTerm : TermHandle; theData : TermDataBlock; theRect : Rect);
		;	Major Selector -> 3;
		;	Minor Selector -> 6;
TMPaint		PROC	EXPORT
			_CTBTrap	#$0306		; major selector = 3, minor selector = 6
			EndCTBTrap	#$E
			ENDPROC
			
			
		; Procedure TMActivate( hTerm : TermHandle; activate : Boolean );
		;	Major Selector -> 3;
		;	Minor Selector -> 7;
		;
TMActivate	PROC	EXPORT
			_CTBTrap	#$0307
			EndCTBTrap	#$8
			ENDPROC


		; Procedure TMResume( hTerm : TermHandle; resume : Boolean );
		;	Major Selector -> 3;
		;	Minor Selector -> 8;
		;
TMResume	PROC	EXPORT
			_CTBTrap	#$0308
			EndCTBTrap	#$8
			ENDPROC

		; Procedure TMClick( hTerm : TermHandle; theEvent : EventRecord );
		;	Major Selector -> 3;
		;	Minor Selector -> 9;
		;
TMClick		PROC	EXPORT
			_CTBTrap	#$0309		; major selector = 3, minor selector = 9
			EndCTBTrap		#$A
			ENDPROC
			

		; FUNCTION TMStream(hTerm : TermHandle; theBuffer : Ptr; length : LONGINT; 
		;						flags: INTEGER) : LONGINT;
		;	Major Selector -> 3;
		;	Minor Selector -> A hex;
		;
TMStream	FUNC	EXPORT
			_CTBTrap	#$030A		; major selector = 3, minor selector = A hex
			EndCTBTrap		#$10,L
			ENDFUNC


		; FUNCTION TMMenu( hTerm : TermHandle; menuID : integer; item : integer ); BOOLEAN;
		;	Major Selector -> 3;
		;	Minor Selector -> B hex;
		;
TMMenu		FUNC	EXPORT
			_CTBTrap	#$030B
			EndCTBTrap	#$A,B
			ENDFUNC


		; Procedure TMReset( hTerm : TermHandle );
		;	Major Selector -> 3;
		;	Minor Selector -> C hex;
		;
TMReset		PROC	EXPORT
			_CTBTrap	#$030C
			EndCTBTrap	#$6
			ENDPROC
			
			
		; Procedure TMClear( hTerm : TermHandle );
		;	Major Selector -> 3;
		;	Minor Selector -> D hex;
		;
TMClear		PROC	EXPORT
			_CTBTrap	#$030D		; major selector = 3, minor selector = D
			EndCTBTrap	#$6
			ENDPROC
			
			
		; Procedure TMResize( hTerm : TermHandle; newViewRect : Rect );
		;	Major Selector -> 3;
		;	Minor Selector -> E hex;
		;
TMResize	PROC	EXPORT
			_CTBTrap	#$030E		; major selector = 3, minor selector = E
			EndCTBTrap		#$A
			ENDPROC
			
			
		; FUNCTION TMGetSelect(hTerm : TermHandle; theData : Handle; VAR theType : ResType) : LONGINT;
		;	Major Selector -> 3;
		;	Minor Selector -> F hex;
		;
TMGetSelect	FUNC	EXPORT
			_CTBTrap	#$030F		; major selector = 3, minor selector = F
			EndCTBTrap		#$E,L
			ENDFUNC
			

		; PROCEDURE TMGetLine(hTerm : TermHandle; lineNo : INTEGER; 
		;					VAR theTermData : TermDataBlock);
		;	Major Selector -> 3;
		;	Minor Selector -> 10 hex;
		;
TMGetLine	PROC	EXPORT
			_CTBTrap	#$0310		; major selector = 3, minor selector = 10
			EndCTBTrap		#$C
			ENDFUNC
			
			
		; PROCEDURE TMPeekLine(hTerm : TermHandle; lineNo : INTEGER; 
		;					VAR theLineData : LineDataBlock);
		;	Major Selector -> 3;
		;	Minor Selector -> 10 hex;
		;
TMPeekLine	PROC	EXPORT
			_CTBTrap	#$0332		; major selector = 3, minor selector = 32
			EndCTBTrap		#$C
			ENDFUNC
			
			
		; Procedure TMSetSelection( hTerm : TermHandle; theRect : Rect; selType : INTEGER );
		;	Major Selector -> 3;
		;	Minor Selector -> 11 hex;
		;
TMSetSelection	PROC	EXPORT
			_CTBTrap	#$0311		; major selector = 3, minor selector = 11
			EndCTBTrap		#$C
			ENDPROC
			
			
		; Procedure TMScroll( hTerm : TermHandle; dH,dV : INTEGER );
		;	Major Selector -> 3;
		;	Minor Selector -> 12 hex;
		;
TMScroll	PROC	EXPORT
			_CTBTrap	#$0312		; major selector = 3, minor selector = 12 hex
			EndCTBTrap		#$A
			ENDPROC
			
			
		; Procedure TMIdle( hTerm : TermHandle );
		;	Major Selector -> 3;
		;	Minor Selector -> 13 hex;
		;
TMIdle		PROC	EXPORT
			_CTBTrap	#$0313
			EndCTBTrap	#$6
			ENDPROC
			
			
			
		; Function TMValidate( hTerm : TermHandle ) : Boolean;
		;	Major Selector -> 3;
		;	Minor Selector -> 14 hex;
		;
TMValidate	FUNC	EXPORT
			_CTBTrap	#$0314
			EndCTBTrap	#$6,B
			ENDFUNC


		; Procedure TMDefault( Var theConfig : Ptr; procID : integer; allocate : Boolean );
		;	Major Selector -> 3;
		;	Minor Selector -> 15 hex;
TMDefault	PROC	EXPORT
			_CTBTrap	#$0315
			EndCTBTrap	#$A
			ENDPROC
			
		; FUNCTION TMSetupPreflight(procID : INTEGER; VAR magicCookie:LONGINT) : Handle;
		;	Major Selector -> 3;
		;	Minor Selector -> 16 hex;
		;
TMSetupPreflight	FUNC	EXPORT
			_CTBTrap	#$0316
			EndCTBTrap	#$8,L
			ENDFUNC


		; PROCEDURE TMSetupSetup( theProcID : integer; theConfig : Ptr; count : INTEGER;
		;									theDialog : DialogPtr; VAR magicCookie:LONGINT);
		;	Major Selector -> 3;
		;	Minor Selector -> 17 hex;
		;
TMSetupSetup	PROC	EXPORT
			_CTBTrap	#$0317
			EndCTBTrap	#$12
			ENDPROC


		; Function TMSetupFilter(procID : INTEGER; theConfig : Ptr; count : INTEGER;
		;							theDialog : DialogPtr; VAR theEvent : EventRecord
		;							VAR theItem : INTEGER; VAR magicCookie:LONGINT) : Boolean;
		;	Major Selector -> 3;
		;	Minor Selector -> 18 hex;
		;
TMSetupFilter	FUNC	EXPORT
			_CTBTrap	#$0318
			EndCTBTrap	#$1A,B
			ENDFUNC


		; Procedure TMSetupItem( procID : integer; theConfig : Ptr; count : INTEGER;
		;						theDialog : DialogPtr; Var theItem : integer;
		;						VAR magicCookie:LONGINT);
		;	Major Selector -> 3;
		;	Minor Selector -> 19 hex;
		;
TMSetupItem	PROC	EXPORT
			_CTBTrap	#$0319
			EndCTBTrap	#$16
			ENDPROC
			

		; Procedure TMSetupCleanup( procID : integer; theConfig : Ptr; count : integer 
		;							theDialog : DialogPtr; VAR magicCookie:LONGINT);
		;	Major Selector -> 3;
		;	Minor Selector -> 1A hex;
		;
TMSetupCleanup	PROC	EXPORT
			_CTBTrap	#$031A
			EndCTBTrap	#$12
			ENDPROC

		; Procedure TMSetupCleanup( procID : integer; theConfig : Ptr; count : integer 
		;							theDialog : DialogPtr; OKed: BOOLEAN; VAR magicCookie:LONGINT);
		;	Major Selector -> 3;
		;	Minor Selector -> 1A hex;
		;
TMSetupXCleanup	PROC	EXPORT
			_CTBTrap	#$0334
			EndCTBTrap	#$14
			ENDPROC

			
		; Function TMGetConfig( hTerm : TermHandle ) : Ptr;
		;	Major Selector -> 3;
		;	Minor Selector -> 1B hex;
		;
TMGetConfig	FUNC	EXPORT
			_CTBTrap	#$031B
			EndCTBTrap	#$6,L
			ENDFUNC


		; Function TMSetConfig( hTerm : TermHandle; thePtr : Ptr ) : INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 1C;
		;
TMSetConfig	FUNC	EXPORT
			_CTBTrap	#$031C
			EndCTBTrap	#$A,W
			ENDFUNC


		; Function TMIntlToEnglish( hTerm : TermHandle; inputPtr : Ptr; outputPtr : Ptr;
		;							language : integer ) : integer;
		;	Major Selector -> 3;
		;	Minor Selector -> 1D hex;
		;
TMIntlToEnglish	FUNC	EXPORT
			_CTBTrap	#$031D
			EndCTBTrap	#$10,W
			ENDFUNC


		; Function TMEnglishToIntl( hTerm : TermHandle; inputPtr : Ptr; outputPtr : Ptr;
		;							language : integer ) : integer;
		;	Major Selector -> 3;
		;	Minor Selector -> 1E hex;
		;
TMEnglishToIntl	FUNC	EXPORT
			_CTBTrap	#$031E
			EndCTBTrap	#$A,W
			ENDFUNC


		; Function TMGetProcID( name : Str255 ) : Integer;
		;	Major Selector -> 3;
		;	Minor Selector -> 1F hex;
		;
TMGetProcID	FUNC	EXPORT
			_CTBTrap	#$031F
			EndCTBTrap	#$6,W
			ENDFUNC
			
			
			
		; Procedure TMGetToolName( procID : Integer; VAR name : Str255 );
		;	Major Selector -> 3;
		;	Minor Selector -> 20 hex;
		;
TMGetToolName	PROC	EXPORT
			_CTBTrap	#$0320
			EndCTBTrap	#$8
			ENDPROC


		; Procedure TMSetRefCon( hTerm : TermHandle; rC : Longint );
		;	Major Selector -> 3;
		;	Minor Selector -> 21 (hex);
		;
TMSetRefCon	PROC	EXPORT
			_CTBTrap	#$0321
			EndCTBTrap	#$A
			ENDPROC
			

		; Function TMGetRefCon( hTerm : TermHandle ) : Longint;
		;	Major Selector -> 3;
		;	Minor Selector -> 22 hex;
		;
TMGetRefCon	FUNC	EXPORT
			_CTBTrap	#$0322
			EndCTBTrap	#$6,L
			ENDFUNC
			

		; 	Procedure TMSetUserData( hTerm : TermHandle; uD : Longint );
		;	Major Selector -> 3;
		;	Minor Selector -> 23 hex;
		;
TMSetUserData	PROC	EXPORT
			_CTBTrap	#$0323
			EndCTBTrap	#$A
			ENDPROC

			
		; Function TMGetUserData( hTerm : TermHandle ) : Longint;
		;	Major Selector -> 3;
		;	Minor Selector -> 24 hex;
		;
TMGetUserData	FUNC	EXPORT
			_CTBTrap	#$0324
			EndCTBTrap	#$6,L
			ENDFUNC
			
		; FUNCTION TMGetVersion( hTerm : TermHandle ) : Handle;
		;	Major Selector -> 3;
		;	Minor Selector -> 25 hex;
		;
TMGetVersion	FUNC	EXPORT
			_CTBTrap	#$0325
			EndCTBTrap	#$6,L
			ENDFUNC
			
		; FUNCTION TMGetTMVersion : INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 26 hex;

TMGetTMVersion		FUNC		EXPORT
			_CTBTrap	#$0326	; major selector 3, minor 26 hex
			EndCTBTrap		#$2,W
			ENDFUNC
			
			
					
		; FUNCTION TMAddSearch : INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 27 hex;
		;
TMAddSearch		FUNC		EXPORT
			_CTBTrap	#$0327	; major selector 3, minor 27 hex
			EndCTBTrap		#$14,W
			ENDFUNC
			
		; PROCEDURE TMRemoveSearch;
		;	Major Selector -> 3;
		;	Minor Selector -> 28 hex;
		;
			
TMRemoveSearch		PROC		EXPORT
			_CTBTrap	#$0328	; major selector 3, minor 28 hex
			EndCTBTrap		#$8
			ENDPROC
			
			
		; PROCEDURE TMClearSearch;
		;	Major Selector -> 3;
		;	Minor Selector -> 29 hex;
		;
			
TMClearSearch	PROC		EXPORT
			_CTBTrap	#$0329	; major selector 3, minor 29 hex
			EndCTBTrap		#$6
			ENDPROC
			
			
		; Function TMGetCursor( hTerm : TermHandle; cursType:INTEGER) : Point;
		;	Major Selector -> 3;
		;	Minor Selector -> 2A hex;
		;
TMGetCursor	FUNC	EXPORT
			_CTBTrap	#$032A		; major selector = 3, minor selector = 2A
			EndCTBTrap		#$8,L
			ENDFUNC
			
		; FUNCTION TMGetTermEnvirons(hTerm:TermHandle; VAR theEnvirons:TermEnvironsRec): INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 2B hex;
TMGetTermEnvirons	PROC		EXPORT
			_CTBTrap	#$032B		; major selector 3, minor 2B hex
			EndCTBTrap		#$A,W
			ENDPROC
			
			
		; Function TMChoose( VAR hTerm : TermHandle; where: Point; idleProc:ProcPtr) : INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 2C hex;
		;
TMChoose	FUNC	EXPORT
			_CTBTrap	#$032C
			EndCTBTrap	#$E,W
			ENDFUNC
			
					
		; Function TMPChoose( VAR hTerm : TermHandle; where: Point; VAR cRec: ChooseRec) : INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 33 hex;
		;
TMPChoose	FUNC	EXPORT
			_CTBTrap	#$0333
			EndCTBTrap	#$E,W
			ENDFUNC
			
					
		; Procedure TMEvent( hTerm : TermHandle; theEvent: EventRecord );
		;	Major Selector -> 3;
		;	Minor Selector -> 2D (hex);
		;
TMEvent	PROC	EXPORT
			_CTBTrap	#$032D
			EndCTBTrap	#$A
			ENDPROC
			
		; FUNCTION TMDoTermKey( hTerm : TermHandle; theKey: STR255 ): BOOLEAN;
		;	Major Selector -> 3;
		;	Minor Selector -> 2E (hex);
		;
TMDoTermKey	FUNC	EXPORT
			_CTBTrap	#$032E	; major selector = 3, minor selector = 2E
			EndCTBTrap		#$A,W
			ENDFUNC
			
		; FUNCTION TMCountTermKeys( hTerm : TermHandle ): INTEGER;
		;	Major Selector -> 3;
		;	Minor Selector -> 2F (hex);
		;
TMCountTermKeys	FUNC	EXPORT
			_CTBTrap	#$032F		; major selector = 3, minor selector = 2F
			EndCTBTrap		#$6,W
			ENDFUNC
			
		; Procedure TMGetIndTermKey( hTerm : TermHandle; id: INTEGER; VAR theKey:STR255 );
		;	Major Selector -> 3;
		;	Minor Selector -> 30 (hex);
TMGetIndTermKey	PROC	EXPORT
			_CTBTrap	#$0330	; major selector = 3, minor selector = 30
			EndCTBTrap	#$C
			ENDPROC

		; Procedure TMSetupPostflight( procID: INTEGER );
		;	Major Selector -> $03;
		;	Minor Selector -> $31;
		;
TMSetupPostflight	PROC	EXPORT
			_CTBTrap	#$0331
			EndCTBTrap	#$4
			ENDPROC
			
						
			END