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