;
;	File:		CommToolboxUtilitiesGlue.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):
;
;		 <2>	 9/15/90	PWD		Added _StandardNBP in prep for renaming _NuLookup. <kaz> <crz>
;		 <1>	 3/14/90	BBH		first checked in
;
;	To Do:
;

; ~@~Projector~@~ Copyright © 1987, 1988, 1989 Apple Computer, Inc.  All rights reserved.   
; ~@~Projector~@~ File: ctbutils.a,19+  (3/27/89 9:13:06 AM)   
;
;	CTBUtils.a
;
;	Application glue to the Communications Toolbox utility functions
;
;	Written by Byron B. Han.  
;	Copyright © 1988-1990 by Apple Computer, Inc.
;
;	Modifications
;		1.0D1			-	1 August 1988

;		4/11/89		BBH		removed LocalToRealID 
;							removed RealToLocalID 
;		4/27/89		BBH		Added CTBKeystrokeFilter
;		5/5/89		BBH		Changed resource ID from -3992 to -10238
;		5/24/89		BBH		Changed baseID from -10240 to -10176 (my fault);


				INCLUDE	'Traps.a'
				INCLUDE 'CommToolboxPriv.a'
;
;
;	FUNCTION InitCTBUtilities : OSErr;
;
;	Major selector 4, minor selector 1
;
;	Record
;		selector 	: 	INTEGER;
;	
InitCTBUtilities	FUNC	EXPORT
				_CTBTrap 	#$0401			; major selector 4, minor selector 1
				EndCTBTrap	#$2,W
				ENDFUNC

;	PROCEDURE AppendDITL( theDialog:DialogPtr; theDITL:Handle; method:INTEGER);
;
;	Major selector 4, minor selector 2
;
AppendDITL		PROC	EXPORT
				_CTBTrap	#$0402			; major selector 4, minor selector 4
				EndCTBTrap	#$C
				ENDPROC
				
;
;	FUNCTION CountDITL( theDialog:DialogPtr ) : INTEGER;
;
;	Major selector 4, minor selector 3
;
CountDITL		FUNC	EXPORT
				_CTBTrap	#$0403			; major selector 4, minor selector 3
				EndCTBTrap	#$6,W
				ENDFUNC
				
;
;	PROCEDURE ShortenDITL( theDialog:DialogPtr; numberItems:INTEGER);
;
;	Major selector 4, minor selector 4
;
ShortenDITL		PROC	EXPORT
				_CTBTrap	#$0404			; major selector 4, minor selector 4
				EndCTBTrap	#$8
				ENDPROC
				
;
;	FUNCTION CTBGetCTBVersion:INTEGER;
;
;	Major selector 4, minor selector 5
;
CTBGetCTBVersion		PROC	EXPORT
				_CTBTrap	#$0405			; major selector 4, minor selector 5
				EndCTBTrap	#$2,W
				ENDPROC

NuLookup	FUNC	EXPORT
;
;	FUNCTION	NuLookup(where : point; prompt : Str255; numTypes : integer;
;						 typeList : NLType; objFilter : ProcPtr; zoneFilter : ProcPtr;
;						 hookProc : ProcPtr; Var theReply : LookupReply) : Integer;
;
;	Major Selector 4, minor selector 6
;
				_CTBTrap	#$406
				EndCTBTrap	#$20,W
				ENDFUNC
				
NuPLookup		FUNC	EXPORT
;	FUNCTION	NuPLookup(where : point; prompt : Str255; numTypes : integer;
;							typeList: NLType; nameFilter : ProcPtr; zoneFilter : ProcPtr; 
;							hookProc : ProcPtr; userData: LongInt; dialogID : INTEGER; 
;				  			filterProc : ProcPtr; VAR theReply : LookupReply) : Integer;
				_CTBTrap	#$407
				EndCTBTrap	#$2A,W
				ENDFUNC
					
StandardNBP		FUNC	EXPORT
;
;	FUNCTION	StandardNBP(where : point; prompt : Str255; numTypes : integer;
;						 typeList : NLType; objFilter : ProcPtr; zoneFilter : ProcPtr;
;						 hookProc : ProcPtr; Var theReply : LookupReply) : Integer;
;
;	Major Selector 4, minor selector 6
;
				_CTBTrap	#$406
				EndCTBTrap	#$20,W
				ENDFUNC
				
CustomNBP		FUNC	EXPORT
;	FUNCTION	CustomNBP(where : point; prompt : Str255; numTypes : integer;
;							typeList: NLType; nameFilter : ProcPtr; zoneFilter : ProcPtr; 
;							hookProc : ProcPtr; userData: LongInt; dialogID : INTEGER; 
;				  			filterProc : ProcPtr; VAR theReply : LookupReply) : Integer;
				_CTBTrap	#$407
				EndCTBTrap	#$2A,W
				ENDFUNC
					
				END