mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-08 11:30:47 +00:00
0ba83392d4
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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 |