;
;	File:		TextEditInit.a
;
;	Contains:	More cutback code for TextEdit. To be included in TextEditPatch.a
;
;	Written by:	Sue Bartalo
;
;	Copyright:	© 1990 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <5>	 8/14/90	DTY		Changed to linked patch.
;		 <4>	 7/10/90	SMB		NEEDED for 7.0 & SIXPACK: Must import GestaltTEVersion.
;		 <3>	 7/10/90	SMB		NEEDED for 7.0 & SIXPACK: Oops! Shouldn't cutback
;									GestaltTEVersion!
;		 <2>	 6/22/90	SMB		NEEDED FOR SIXPACK & 7.0! (only added this comment!)
;		 <1>	 6/22/90	SMB		New!  Added so that this code could also be cutback in 'ptch' 0.
;
;___________________________________________________________________________________________________
;	To Do:
;___________________________________________________________________________________________________

	IF SysVers>= $606 THEN
			
			INCLUDE		'SysPrivateEqu.a'
			INCLUDE		'GestaltEqu.a'						; <18Aug89smb>

			Blanks		On
			String		AsIs


TextEditInit	Proc		Export

			Export		TEGlobalInit
			Import		GestaltTEVersion					; <4>

;----------------------------------------------------------------------
;
;			PROCEDURE TEGlobalInit
;			<27June89smb>
;
;			To be called from StartInit, in order to assign vectors 
;			and clear expandMem globals only once.
;
;----------------------------------------------------------------------
TEGlobalInit
; when TextEdit 3.0 is ptch0, need this code			
			move.l	#gestaltTextEditVersion, d0	; <8Aug89smb>
			leaResident	GestaltTEVersion, a0
			_NewGestalt
			rts

			EndProc
			
			MakePatch	xDoErase,ExpandMemRec.vDoErase
			MakePatch	xCaretDisplay,ExpandMemRec.vCaretDisplay
			MakePatch	xGetLRPosition,ExpandMemRec.vGetLRPosition
			MakePatch	xGetRLPosition,ExpandMemRec.vGetRLPosition
			MakePatch	xOnLineEnd,ExpandMemRec.vOnLineEnd
			MakePatch	xCaretInsideRun,ExpandMemRec.vCaretInsideRun
			MakePatch	xSetDirection,ExpandMemRec.vSetDirection
			MakePatch	xGetDirection,ExpandMemRec.vGetDirection
			MakePatch	xGetStylesInOrder,ExpandMemRec.vGetStylesInOrder
			MakePatch	xteGetFormatOrder,ExpandMemRec.vteGetFormatOrder
			MakePatch	xGetWidth,ExpandMemRec.vGetWidth
			MakePatch	xGetCurScript,ExpandMemRec.vGetCurScript
			MakePatch	xOnSameLine,ExpandMemRec.vOnSameLine
			MakePatch	xMeasureWidth,ExpandMemRec.vMeasureWidth
			MakePatch	xMeasureWholeRun,ExpandMemRec.vMeasureWholeRun
			MakePatch	xHiliteLineEnds,ExpandMemRec.vHiliteLineEnds
			MakePatch	xInvrtRectangle,ExpandMemRec.vInvrtRectangle
			MakePatch	xPixelWidths,ExpandMemRec.vPixelWidths
			MakePatch	xTEBufferText,ExpandMemRec.vTEBufferText
			MakePatch	xDumpBuffer,ExpandMemRec.vDumpBuffer
			MakePatch	xCursorMovement,ExpandMemRec.vCursorMovement
			MakePatch	xTestRunDirection,ExpandMemRec.vTestRunDirection
			MakePatch	xBufferChar,ExpandMemRec.vBufferChar
			MakePatch	xSetFont2Keyboard,ExpandMemRec.vSetFont2Keyboard
			MakePatch	xSetKeyboard2Font,ExpandMemRec.vSetKeyboard2Font
			MakePatch	xStyleGuts,ExpandMemRec.vStyleGuts
			MakePatch	xConcatRuns,ExpandMemRec.vConcatRuns

			ENDIF						; IF SysVers>= $606