mac-rom/Toolbox/TextEdit/TextEditPatch.a

;
;	File:		TextEditPatch.a (formerly TE_Patches.a)
;
;	Contains:	This is the 'ptch' resource which loads TextEdit into the Plus/SE/MacII/Portable
;
;	Written by:	Russ Wetmore <RWW112487>, Sue Bartalo (most recently)
;
;	Copyright:	<09> 1987-1992 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <8>	 4/27/92	DTY		Get rid of hasSplineFonts conditionals.
;		 <7>	 8/30/91	DTY		Define hasCQD here since it<69>s no longer an available feature in
;									BBSStartup. This keeps TextEdit.a happy.
;		 <6>	 1/14/91	SMB		(jdt) Added include file, fontPrivate.a.
;		 <5>	 8/14/90	DTY		Changed into a linked patch.
;		 <4>	 6/22/90	SMB		NEEDED FOR SIXPACK & 7.0: Adding more code to be cutback by
;									including new file, TextEditInit.a
;		 <3>	 1/16/90	SMB		Including new TextEditPriv.a file.
;		 <2>	  1/4/90	PKE		Changed conditionals from SysVers >= $700 to SysVers >= $605.
;									Updated header to BBS format.
;		<1>		12/18/89	CCH		Adding for the first time into BBS.
; BBS versions above:
;___________________________________________________________________________________________________
; EASE versions below:
;	   <1.6>	 8/30/89	smb		NEEDED FOR Scripts604 and 7.0: added ptchVersions for each build.
;	   <1.5>	 8/25/89	SMB		NEEDED FOR Scripts604 and 7.0: removed load of nEqu.d.
;	   <1.4>	 7/20/89	smb		NEEDED FOR 604!!! added 'Scripts604' in order to do 604 script
;									system builds using the new TE.
;	   <1.3>	  7/9/89	smb		Moved include of ScriptPriv.a from TextEdit.a to here for 7.0.
;	   <1.2>	  7/8/89	smb		Added call to TEGlobalInit to initialize Big Bang vectors for TE.
;	   <1.1>	 2/22/89	CCH		<enter comment here>
;	   <1.0>	11/16/88	CCH		Added to EASE.
;___________________________________________________________________________________________________
;	To Do:
;
;___________________________________________________________________________________________________

			LOAD		'StandardEqu.d'
			INCLUDE		'LinkedPatchMacros.a'
			
; added <20July89smb>	
  			IF  		(&TYPE('Scripts604') = 'UNDEFINED') THEN 
Scripts604 	EQU 		0
  			ENDIF
			
	IF Scripts604 | SysVers>= $605 THEN			; added Scripts604 <20July89smb>
			INCLUDE		'ScriptPriv.a'			; <8July89smb>
	ENDIF
			INCLUDE		'TextEditPriv.a'		; <1/9/90smb>
			INCLUDE		'fontPrivate.a'			; <20>

;
; <7>	When hasCQD was defined in {AvailableFeatures} in BBSStartup, it was defined
;	to be 0 for System builds, it<69>s kept that way for future System builds.  This
;	file probably won<6F>t be used in ROM builds, but in case it ever is, hasCQD
;	is defined to be true for those builds.
;

	if (&type('hasCQD') = 'UNDEFINED') then		; <7>
		if forROM then							; <7>
			hasCQD:	equ	1						; <7>
		else									; <7>
			hasCQD:	equ	0						; <7>
		endif									; <7>
	endif										; <7>
	
			
InsideTEPatch	equ		1						; signal in patch <S383>

ptchID		Equ			0						; <=== Whatever this resource ID is
;;ptchVersion	Equ			1					; <=== Whatever the version number is

; defined versions <30Aug89smb>
	IF SysVers>= $605 THEN
ptchVersion	Equ			4						; 6.0.5 & Big Bang (gestaltTE4)
	ELSEIF Scripts604 THEN
ptchVersion	Equ			3						; 604 Script Systems ptch0 (gestaltTE3)
	ELSE
ptchVersion	Equ			0						; styled TE (pre-TextEdit 3.0)	
	ENDIF
	
		Macro
			InstVector	&entryPt, &addr
			Import		&entryPt
			Lea			&entryPt,A0
			Move.L		A0,&addr
		EndM
		
	IF Scripts604 | SysVers>= $605 THEN			; added Scripts604 <20July89smb>
			Include		'TextEdit.a'			; for 6.0.4 Script Systems and Big Bang <6July89smb>		
	ELSE
			Include		'StyledTextEdit.a'
	ENDIF

; ***************************************************************************

			ROMS		Plus,SE,II,Portable
			
			MakePatch	TEActivate,$A9D8
			MakePatch	TEAutoView,$A813
			MakePatch	TECalText,$A9D0
			MakePatch	TEClick,$A9D4
			MakePatch	TECopy,$A9D5
			MakePatch	TECut,$A9D6
			MakePatch	TEDeactivate,$A9D9
			MakePatch	TEDelete,$A9D7
  			MakePatch	TEDispatch,$A83D
			MakePatch	TEDispose,$A9CD
  			MakePatch	TEGetOffset,$A83C
			MakePatch	TEGetText,$A9CB
			MakePatch	TEIdle,$A9DA
			MakePatch	TEInit,$A9CC
			MakePatch	TEInsert,$A9DE
			MakePatch	TEKey,$A9DC
			MakePatch	TENew,$A9D2
			MakePatch	TEPaste,$A9DB
			MakePatch	TEPinScroll,$A812
			MakePatch	TEScroll,$A9DD
			MakePatch	TESelView,$A811
			MakePatch	TESetJust,$A9DF
			MakePatch	TESetSelect,$A9D1
			MakePatch	TESetText,$A9CF
  			MakePatch	TEStylNew,$A83E
			MakePatch	TEUpdate,$A9D3
			MakePatch	TextBox,$A9CE
			MakePatch	xTrimMeasure,$07F4
			MakePatch	xFindWord,$07F8
			MakePatch	xFindLine,$07FC
			MakePatch	vPixel2Char,$0798
			MakePatch	vChar2Pixel,$079C

; ***************************************************************************		<4>
	IF SysVers>= $606 THEN						; 									<4>
			Include		'TextEditInit.a'		; more code	to be cutback			<4>
	ENDIF										; 									<4>
; ***************************************************************************
;	Your boot-time initialization code, if any, goes here.

InstallTextEditPatches	InstallProc	(Plus,SE,II,Portable)
	IF Scripts604 | SysVers>= $605 THEN			; added Scripts604 <20July89smb>
			Import		TEGlobalInit			; <6July89smb>
			Bsr			TEGlobalInit			; init TE vectors <6July89smb>
	ENDIF
			rts
			EndProc
			End