mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
135 lines
3.5 KiB
Plaintext
135 lines
3.5 KiB
Plaintext
;
|
|
; 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 |