mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-28 13:52:37 +00:00
8760 lines
353 KiB
Plaintext
8760 lines
353 KiB
Plaintext
|
;
|
||
|
|
; File: TextEditPatchIIciROM.a (formerly TextEdit67cFix.a)
|
||
|
|
;
|
||
|
|
; Contains: TextEdit patches for inclusion in PatchIIciROM.a
|
||
|
|
;
|
||
|
|
; Written by: SMB Sue Bartalo
|
||
|
|
; YS Yishai Steinhart
|
||
|
|
;
|
||
|
|
; Copyright: © Apple Computer, Inc. 1990-1992 all rights reserved.
|
||
|
|
;
|
||
|
|
; This file contains the patches for TextEdit on ROM version $7C of Machine type $06 (the IIci).
|
||
|
|
; This file is included in PatchIIciROM.a.
|
||
|
|
;
|
||
|
|
; Change History (most recent first):
|
||
|
|
;
|
||
|
|
; <51> 8/11/92 SMB #1036481 <gbm>: Removed font/keyboard synchronization for
|
||
|
|
; Roman-only systems. It's unnecessary and slows things down!
|
||
|
|
; <50> 7/15/92 SMB ## <ys>: Renamed DoText selectors: teMark is now teHighlight and
|
||
|
|
; teLoc is teCaret.
|
||
|
|
; <49> 7/8/92 PKE Fix up previous comment (I was too quick with the Return key).
|
||
|
|
; <48> 7/8/92 PKE #1035214 <csd>: We would like to fix DoSearch so that it always
|
||
|
|
; exits by calling FreeFmtOrderArray at exit, which will dispose
|
||
|
|
; of any fmtOrdering handle and clear ExpandMemRec.emFmtOrderHFlag
|
||
|
|
; which says that the handle is valid. This will prevent
|
||
|
|
; subsequent calls from thinking they have a valid handle before
|
||
|
|
; they actually allocate one. However, this fix is too risky; so
|
||
|
|
; instead we modify DoText to always clear the flag so that no
|
||
|
|
; routine thinks it has a valid handle when it doesn't. The more
|
||
|
|
; correct fix is in TextEdit.a.
|
||
|
|
; <47> 7/7/92 PKE #1030684 <yds>: TEGetPoint failed in unstyled multiline text if
|
||
|
|
; a R->L script was present because in this case DoMeasure
|
||
|
|
; measured from the beginning of the buffer, not the beginning of
|
||
|
|
; the current line. Fixed.
|
||
|
|
; <46> 6/23/92 SMB #1029263,<pke>: Now checking the script's 'itlb' flags to
|
||
|
|
; determine if the keyboard and font should be synchronized.
|
||
|
|
; <45> 4/27/92 DTY Get rid of hasSplineFonts conditionals.
|
||
|
|
; <44> 4/3/92 YS #1025998, in TextBox, when trying to find the right line highet
|
||
|
|
; in systems that use associated font (see <43>), saving and
|
||
|
|
; restoring of the font saves a LONG (instead of a word) creating
|
||
|
|
; the problem of loosing the port font. Another connected problem
|
||
|
|
; was the way Script Manager handeld those privete verb calls in
|
||
|
|
; the roman. This was fixed in the Script Manager. <44-YDS-4/2/92>
|
||
|
|
; <43> 2/6/92 YS #1014691, Cube-E, In the old days, the Hebrew/Arabic extention
|
||
|
|
; used to calculate the highet of a script font as Max(script font
|
||
|
|
; size, associated font size). The problem with that is that if
|
||
|
|
; you use style runs, like styled TE & WP's, you can't get the
|
||
|
|
; real size of of a script font, and you allways have the
|
||
|
|
; associated font size in it. The universal one byte init no
|
||
|
|
; longer handles it. TE will calculate it itself if it is: 1)
|
||
|
|
; unstyled text. 2) script font. 3) Has associated font (other
|
||
|
|
; then 0). In this file we do a 'come from' patch to GetFontInfo,
|
||
|
|
; one patch is from TextBox and the other is from GetSize
|
||
|
|
; <43-YDS-2/6/92>
|
||
|
|
; <42> 2/4/92 YS #1015382, Cube-E, don't redraw the whole line for a left 2 right
|
||
|
|
; system when justification is teForceLeft. <42-YDS-2/5/92>
|
||
|
|
; <41> 1/30/92 YS #1018683, Cube-E: TextBox should handle #teForceLeft correctly
|
||
|
|
; and not set it to #teJustLeft allways. Had to add a ptchTextBox
|
||
|
|
; for that. <41-YDS-1/30/92>.
|
||
|
|
; <40> 1/13/92 PKE #1019673, Bruges: Unstyled TE should not sync the keyboard at
|
||
|
|
; all for smEastEurRoman script.
|
||
|
|
; <39> 12/17/91 PKE #1017647: Fix keyboard synchronization in unstyled one-byte
|
||
|
|
; non-Roman text. For bidi scripts: don't synchronize control
|
||
|
|
; chars and L-R numbers, set keyboard to Roman for other L-R
|
||
|
|
; chars, and sync keyboard to font for R-L chars. For other
|
||
|
|
; scripts: sync keyboard to font for script letters, set keyboard
|
||
|
|
; to Roman for Roman letters, and don't sync anything else.
|
||
|
|
; <38> 12/12/91 DCL #1009157: Changed a Tst to Tst.b so as not to test the potential
|
||
|
|
; garbage in the other byte. Changed procedure noClickProc in
|
||
|
|
; TextEdit.a, StyledTextEdit.a, and TextEditPatchIIciROM.a
|
||
|
|
; <37> 11/12/91 SMB #1014705 - for CubeE and Bruges - Keyboard and font synch'ing
|
||
|
|
; isn't correct for punctuation and numbers: TE allows a Roman
|
||
|
|
; keyboard & a non-Roman font combination for ascii characters and
|
||
|
|
; european characters (or high ascii chars.) and it should also
|
||
|
|
; allow this for numbers and punctuation marks. This was reported
|
||
|
|
; against the Eastern European systems. Actually, this code will
|
||
|
|
; be optimized to only allow this unsynchronized state for 2-byte
|
||
|
|
; text. See ClickKeyboard2Font. Also fixed the synchronization of
|
||
|
|
; unstyled text cases in TEClick and TEKey.
|
||
|
|
; <36> 9/30/91 YS Used to syncronize the keyboard wrong for L->R scripts
|
||
|
|
; (unstyled) when was backspacing a selection (and not a single
|
||
|
|
; delete), d6 wasn't set up corectly. use teSelStart(a3) instead.
|
||
|
|
; (bug #1013159) <36-YDS-10/1/91>
|
||
|
|
; <35> 9/23/91 PKE For Cube-E (and Bruges): If non-Roman scripts are installed,
|
||
|
|
; TEInit should no longer set TESysJust to its idea of system
|
||
|
|
; default, since users can now set the default. Also: Define
|
||
|
|
; forLocalizability here if it is not defined in BBSStartup.
|
||
|
|
; <34> 9/13/91 YS Moved in 6.1 fixes for a Localizable 7.0.1 (forLocalizability)
|
||
|
|
; <34p> Fix the wrong placment of the caret for one blinking cycle
|
||
|
|
; when changing a language and typing a char. (bug #1006971)
|
||
|
|
; <34p-YDS-9/2/91> <34o> Fix the problem of the arrow keys not
|
||
|
|
; functioning in a L->R system, with line direction R->L (bug
|
||
|
|
; #1007934) <34o-YDS-9/2/91>. <34m> when backspacing, synch the
|
||
|
|
; keyboard to the right language even for unstyled (single byte
|
||
|
|
; only). (bug #1006972) <34m-YDS-9/2/91> <34l> Fix the Big cursor
|
||
|
|
; bug, this is NOT the old big applelink cursor bug (fix YSD
|
||
|
|
; <3.1>). In the case where the cursor is on a line start, we used
|
||
|
|
; to fall into the single caret code
|
||
|
|
; (but we didn't have any split caret !!!), so while switching
|
||
|
|
; the cursor rect's for a single caret, we used to garbage the
|
||
|
|
; selRect. so, we now test ExpandMemRec.emTwoCursorsFlag in this
|
||
|
|
; case to avoid it. (bug #1007065) <34l-YDS-9/2/91>
|
||
|
|
; <34k> Fix TEGetPoint for styled TE for R->L scripts, used to asume
|
||
|
|
; that if we are on a begining of a style run, the width is 0, and
|
||
|
|
; if we are on the end, we should TextWidth all of it, which is
|
||
|
|
; not true for R->L scripts. (bug #1007067) <34k-YDS-9/2/91>
|
||
|
|
; <34j> Added support for a single caret while handling an Arrow (left
|
||
|
|
; or right) key, for styled L->R text. have to change the Keyboard
|
||
|
|
; in a different way to support the corect display of a single
|
||
|
|
; caret. <34j-YDS-9/2/91>
|
||
|
|
; <34i> Fix DoMeasure for Right to left text in unstyled TE, in order to
|
||
|
|
; support fix <Y8> for unstyled, use _Pixel2Char instead of
|
||
|
|
; MeasureIt. <34i-YDS-9/2/91>
|
||
|
|
; <34h> Fix TEGetPoint Bug for Right to left text, use DoMeasure
|
||
|
|
; instead of MeasureIt. <34h-YDS-9/2/91>
|
||
|
|
; <34g> Synch Keyboard to click even with an unstyled TE record,
|
||
|
|
; this is not only a nice thing to do, but very importent when
|
||
|
|
; handling a single cursor on a bi-direction script, if we
|
||
|
|
; would like your single-split carret to be displayed
|
||
|
|
; correctly. <34g-YDS-9/2/91>
|
||
|
|
; <34f> when click on script boundry, take care of the next cursor
|
||
|
|
; update, has to do with the split carret stuff. This was fixed
|
||
|
|
; in SetKeyboard2Font and ClickKeyboard2Font.<34f-YDS-9/2/91>
|
||
|
|
; <34e> find where the click was (to define the right script).<34e-YDS-9/2/91>
|
||
|
|
; <34d> Support for a single carret, this supports the styled
|
||
|
|
; TE part.<34d-YDS-9/2/91>
|
||
|
|
; <34c> Added support for a single carret, it will expand & shrink
|
||
|
|
; the the right part of a cursor to show only "one" cursor,
|
||
|
|
; depending on the language, so we will gwt a moving cursor
|
||
|
|
; (when switching scripts). this supports the unstyled TE part.<34c-YDS-9/2/91>
|
||
|
|
; <34b> using the byte after the TwoByteCharBuffer in teDispatchH for
|
||
|
|
; fixes <3.3> and <3.4> (lastScript), so change the place it clears
|
||
|
|
; so only a word will cleared there.<34b-YDS-9/2/91>
|
||
|
|
; <34a> Fixing Hebrew/Arabic AppleLink bug that causes a big cursor:
|
||
|
|
; the right way! this fix is in alot of places. <34a-YDS-9/2/91>
|
||
|
|
;
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; <33> 4/3/91 SMB jdr,#86089: (also, pke) Fixing appl-crashing bug in
|
||
|
|
; NewRomanFindLine - should be clearing the high word of d0 before
|
||
|
|
; doing a long operation. Shows up when applications use
|
||
|
|
; TEHitTestHook and have multiple styles on a line.
|
||
|
|
; <32> 2/14/91 SMB pke,#70628: Unfortunately, forced to remove support for Forward
|
||
|
|
; Delete that was added in <19>. Conditionalizing it out so it can
|
||
|
|
; be added again later. See <32>.
|
||
|
|
; <31> 2/14/91 SMB pke,#82817: After Dark and Chooser string clipping bug -
|
||
|
|
; NewRomanFindLine's dependency on _NPixel2Char takes into account
|
||
|
|
; the caret width when determining linebreaks. This 1 pixel
|
||
|
|
; difference caused strings that were 1 pixel too long to no
|
||
|
|
; longer completely display since the linebreak occured in a
|
||
|
|
; different place. The problem was that the measurement occured on
|
||
|
|
; the character boundary (after the final character of the string)
|
||
|
|
; and the leading edge value returned was F. TextEdit deals with
|
||
|
|
; these results by backing up one character to guarantee that all
|
||
|
|
; characters completely display when drawn. In the case of calling
|
||
|
|
; _NPixel2Char this is not necessary since it will still return
|
||
|
|
; the correct results and TextEdit will behave correctly based on
|
||
|
|
; these results. So, to fix this problem we no longer subtract one
|
||
|
|
; for the caret width before calling _(N)Pixel2Char.
|
||
|
|
; <30> 2/14/91 SMB pke,#68221: Completing the fix in TextBox to turn off
|
||
|
|
; PreseveGlyph before drawing in order to draw squished characters
|
||
|
|
; when their ascent or descent is larger than the font's metrics.
|
||
|
|
; This problem in TextBox can be demonstrated when an accented
|
||
|
|
; character appears in a dialog. The previous fix in <22> had the
|
||
|
|
; comefrom patch on _DrawText instead of _MoveTo although the rest
|
||
|
|
; of the patch was based on the MoveTo call. So, the patch was
|
||
|
|
; never executed since the address never corresponded to a
|
||
|
|
; DrawText call! Brain damaged!
|
||
|
|
; <29> 2/14/91 SMB pke,#DTS FT: Quit trashing a4 across Hook calls!
|
||
|
|
; <28> 2/11/91 SMB pke,#SMB-2/9/91-1: TextEdit didn't always erase characters when
|
||
|
|
; deleting them. Another symptom of this same bug is that TextEdit
|
||
|
|
; didn't line break at a CR. The problem was that when TE looked
|
||
|
|
; ahead for blanks at the end of a line in NewRomanFindLine, it
|
||
|
|
; skipped over blanks, CRs and any other character whose value was
|
||
|
|
; <=$20. Now it checks each breaking character for a CR and once
|
||
|
|
; found, forces a line break there.
|
||
|
|
; <27> 2/11/91 SMB jdt,#TEBug.ReCaLines: KanjiTalk bug fix in ReCalLines - need to
|
||
|
|
; back up 2 bytes for correct redrawing of double-byte text.
|
||
|
|
; <26> 2/11/91 SMB pke,#OYDBB002: Fixed the MathCad (application) bug in
|
||
|
|
; NewRomanFindLines by ckecking for a dummy style run at the end
|
||
|
|
; of the StyleRun array whose startChar = endChar.
|
||
|
|
; <25> 2/11/91 SMB pke,#SMB-2/10/91-1: TextEdit should be using the low memory
|
||
|
|
; TEDoText hook rather than jumping directly to the DoText patch!
|
||
|
|
; <24> 2/2/91 PKE KIP: Fix 606 build by renaming leftSide references in P2CFrame
|
||
|
|
; to leadingEdge in code that is only used if SysVers < $700.
|
||
|
|
; <23> 2/1/91 SMB pke,#HIG-JS-048,#81519,#82169: In NewRomanFindLine: testing for
|
||
|
|
; a blank at a line break before calling TE's FindWord routine.
|
||
|
|
; Fixed problem with styles in balloons: was comparing a final
|
||
|
|
; result to the linestart in d6, but it was modified for styles,
|
||
|
|
; so needed to compare to actual value saved in lineStart(a6).
|
||
|
|
; Fixed performance problem: change in algorithm caused unstyled
|
||
|
|
; TE to call TextWidth on the entire document (pinned to each
|
||
|
|
; lineStart) when determining line breaks. Major slowdown! Are now
|
||
|
|
; calling _NPixel2Char instead of _TextWidth & _Pixel2Char in TE's
|
||
|
|
; Pixel2Char routine (TEHitTestHook). Should make TE FAST(er)!
|
||
|
|
; Renamed leftSide to leadingEdge in P2CFrame and added
|
||
|
|
; WidthRemaining member (see TextEditPriv.a).
|
||
|
|
; <22> 1/22/91 SMB (pke) Re-fixing bug #68221. The previous fix required calling
|
||
|
|
; OutlineMetrics for the whole font in order to get an ascent &
|
||
|
|
; height in TextEdit. This wasn't acceptable due to reformatting
|
||
|
|
; problems. So, the code to support OutlineMetrics has been
|
||
|
|
; removed and we are now turning off PreserveGlyph before drawing
|
||
|
|
; in order to draw squished characters when their ascent or
|
||
|
|
; descent is larger than the font's metrics. GetFontInfo will
|
||
|
|
; still be used to get ascent & height, as in the past, and we
|
||
|
|
; will be backwards compatible although not pretty.
|
||
|
|
; <21> 1/20/91 SMB (csd) Fix incorrect calling of FindWord and FindLine when
|
||
|
|
; patching in ReCalLines and NewRomanFindLine. Must use the
|
||
|
|
; low-memory vectors to access the patches. Added a line in
|
||
|
|
; ptchRecalLines that was accidentally dropped (thereby causing
|
||
|
|
; some linebreaking problems…)
|
||
|
|
; <20> 1/18/91 SMB (pke) Fixed bug # 62963 - No longer preserving a3/a4 across
|
||
|
|
; DumpBuffer routine. Saving a3 caused a dangling ptr and it's not
|
||
|
|
; necessary to save a4. Also, added a call to DumpBuffer in
|
||
|
|
; TEDispose in case an app never calls TEIdle (which empties the
|
||
|
|
; buffer). Changed _NewHandle call in GetHandle to allocate the
|
||
|
|
; handle in the System heap in order to prevent orphaning the
|
||
|
|
; handle when an application quit without emptying the text
|
||
|
|
; buffer. • Also fixed a linebreaking bug in Pixel2Char - wasn't
|
||
|
|
; calling DoubleByte with the correct offset (was using the offset
|
||
|
|
; for the line not the offset w/in the whole text buffer thus
|
||
|
|
; far.)
|
||
|
|
; <19> 1/14/91 SMB (jdt) • Added ptchReCalLines for a KT bug: Only draw line in
|
||
|
|
; ReCalLines when wordRedraw is <1. • Fixed bug # 35646 (fixed for
|
||
|
|
; SS-6.0.4 and 6.0.5 in ptch0) - up-arrow key doesn't get to
|
||
|
|
; beginning of text. Had to add patches to PtToLine, DoFind,
|
||
|
|
; PinDisplay, PinA0Rect and the routines that called them:
|
||
|
|
; Refresh, Scroll, TEScroll, TEPinScroll. TEClick, TEKey,
|
||
|
|
; TEGetOffset, DefClikProc, DoDraw and DoHilite had to be updated
|
||
|
|
; to call these patched routines rather than the ROM routines. •
|
||
|
|
; Fixed bug #66732 & #57858: if the scrap handle parameter
|
||
|
|
; (newStyles) in SetStylScrap was NIL should do nothing and exit.
|
||
|
|
; (see ptchTEDispatch) • Fixed bug #58512: Must lock null scrap
|
||
|
|
; handle in InsRsrved before calling PstStylGuts since PstStylGuts
|
||
|
|
; expects to use the handle again after moving memory. Since
|
||
|
|
; InsGuts calls InsRsrved, patched InsGuts and the two routines
|
||
|
|
; that call it, TEInsert & TEStylInsert. • Fixed bug #77962: TE
|
||
|
|
; was determining line breaks by measuring words rather than style
|
||
|
|
; runs for a Roman-only system. This was causing drawing to be
|
||
|
|
; significantly different than the measuring when FractEnable was
|
||
|
|
; on or a scaled font was used. Rewrote code (now called
|
||
|
|
; NewRomanFindLine) to do the right thing! • fjs fixed bug #70628:
|
||
|
|
; adding forwardDeleteChar support in TEKey so that this function
|
||
|
|
; key on the extended keyboard works. • Fixed bug #67699:
|
||
|
|
; StdTxMeas did not detect overflow when measuring long lines, so
|
||
|
|
; the widths returned to TE in this case were small, causing TE to
|
||
|
|
; write all the text on one line. StdTxMeas was modified to keep
|
||
|
|
; the last count and width before the overflow. This info is used
|
||
|
|
; to call _Pixel2Char to get the correct character offset for line
|
||
|
|
; breaking. • Fixed bug #66900: TextBox did not clip text
|
||
|
|
; correctly for long words due to the incorrect use of _P2C's
|
||
|
|
; LeadingEdge flag. See changes in TE's Pixel2Char and
|
||
|
|
; ptchDoSearch. • Fixed bug #68221: did not calculate the ascent &
|
||
|
|
; descent of an outline font correctly if preserveGlyph is true.
|
||
|
|
; Now calling OutlineMetrics for this. See routine
|
||
|
|
; GetOutlineMetrics; the routines needing it (TextBox & GetSize)
|
||
|
|
; require a comeFrom tail patch on GetFontInfo. • Fixed Finder
|
||
|
|
; bugs #80728 & 75607: in StdEntry, for unstyled text, save the
|
||
|
|
; grafport's font info before setting the TERec's style info into
|
||
|
|
; the grafport.
|
||
|
|
; <18> 12/15/90 SMB (gbm) Added support for another gestalt selector, gestaltTE5,
|
||
|
|
; for the new TextWidthHook.
|
||
|
|
; <17> 10/30/90 SMB (PKE) • Fix text buffering bug: must preserve register a1
|
||
|
|
; (ExpandMem ptr) around a call to SetFont2Keyboard. Also, moved
|
||
|
|
; code that dumps the buffer in SetFont2Keyboard after determining
|
||
|
|
; that synchronizing was necessary. Then, must test for an empty
|
||
|
|
; buffer in TEBufferText after the SetFont2Keyboard call and after
|
||
|
|
; a full buffer has been dumped. Using hasBufferingFix conditional
|
||
|
|
; for these changes. • Added TextWidthHook to dispatch table and
|
||
|
|
; the internal interface which uses the hook, TETextWidthHook to
|
||
|
|
; hook out the TextWidth calls to keep our developers happi(er)!.
|
||
|
|
; Renamed nTEWidthHook to ScriptChar2Pixel. Using hasTextWidthHook
|
||
|
|
; conditional for these changes.
|
||
|
|
; <16> 9/16/90 SMB Put GestaltTEciVersion proc and installation code back in.
|
||
|
|
; <15> 9/11/90 SMB Fix teCROnly bug that crashes the system: pre-incrementing
|
||
|
|
; caused us to compare one too many in the text and then the +1 to
|
||
|
|
; point beyond the CR caused the line breaks to be one off. Moved
|
||
|
|
; InlineInput test into TESetSelect instead of ClickKeyboard,
|
||
|
|
; since never want to call KeyScript while doing inline. If in
|
||
|
|
; Inline, then not hilighting to the EOLs anymore, only to edge of
|
||
|
|
; text (see InvrtRectangle). Modified highlighting code to
|
||
|
|
; highlight the middle rectangle line by line in order to call
|
||
|
|
; highHook for Inline. Fixed Hebrew/Arabic scrolling down bug -
|
||
|
|
; caused selRect's top & bottom values to be negative which caused
|
||
|
|
; a BIG caret to be drawn. Fixed in CaretInsideRun (revisited:
|
||
|
|
; must also bra if equal).
|
||
|
|
; <14> 8/14/90 DTY Changed into a linked patch.
|
||
|
|
; <13> 6/22/90 SMB NEEDED for SS-6.0.5, SIXPACK & 7.0: fixed Arabic line end bug
|
||
|
|
; for unstyled text, where the system slowed down because was
|
||
|
|
; reading off the end of the line starts.
|
||
|
|
; <12> 6/11/90 SMB NEEDED FOR SIXPACK & 7.0: Added Inline Input bit to
|
||
|
|
; TEFeatureFlag and support for it in ClickKeyboard2Font.
|
||
|
|
; <11> 5/29/90 DDG NEEDED FOR SIXPACK: Changed all the sixpack conditionals from
|
||
|
|
; six-point-oh-seven to six-point-oh-six.
|
||
|
|
; <9> 4/27/90 SMB NEEDED for SIXPACK - Fixed old bug for old FindWord: when using an
|
||
|
|
; application's teWordBreak routine must save d1!
|
||
|
|
; <8> 4/10/90 SMB NEEDED for 6.0.x, 7.0 and SS-6.0.5: Adding Scrolling Down bug
|
||
|
|
; fix that I erroneously omitted on 1/16/90! (see comment <3>
|
||
|
|
; below)
|
||
|
|
; <7> 3/20/90 SMB NEEDED for 6.0.5 and SS-6.0.4 - Added call to SetKeyboard2Font
|
||
|
|
; in TEKey (rather than DelGuts, see 1/23/90) for Script Systems:
|
||
|
|
; whenever backspacing over a script boundary the keyscript wasn't
|
||
|
|
; updated. Bug #59422. - Fixed TEFindWord for line breaking on a
|
||
|
|
; Roman-only system to branch for 'bge' to #teFromFind instead of
|
||
|
|
; 'bgt'. (Should have been in 1/23/90??) - In TEBufferText, must
|
||
|
|
; set d0 to the current position before calling SetFont2Keyboard
|
||
|
|
; (in case of a kbd change while buffering)
|
||
|
|
; <6> 2/18/90 SMB NEEDED for 6.0.5 - DoSearch didn't work correctly when the
|
||
|
|
; TEHitTestHook had been replaced. We needed to check a
|
||
|
|
; terminating condition when hooked out: the high word of d0 was
|
||
|
|
; set T if found a char offset.
|
||
|
|
; <5> 2/13/90 SMB NEEDED for 6.0.5 - Moved conditional test in ptchDelGuts. -
|
||
|
|
; Patched TEWidthHook in GetLRPosition, PixelWidths, and GetWidth.
|
||
|
|
; Also added nTEWidthHook and OldChar2Pixel.
|
||
|
|
; - Patched TEWidthHook in GetLRPosition, PixelWidths, and GetWidth. Also
|
||
|
|
; added nTEWidthHook and OldChar2Pixel.
|
||
|
|
; <4> 1/30/90 SMB NEEDED FOR SS-6.0.4 and 6.0.5 -
|
||
|
|
; 1/30/90 smb - Fix in TEKey so that when the current position is at a line end and
|
||
|
|
; the height of the current line is > the height of the next line, the
|
||
|
|
; down arrow will put the caret on the next line. Bug #53697.
|
||
|
|
; 1/30/90 smb -Decided NOT to fix bug 35646 for the IIci - up-arrow key doesn't get
|
||
|
|
; to beginning of text - since it wasn't very important and it would
|
||
|
|
; take a lot of patches in many routines to fix it.
|
||
|
|
; 1/29/90 smb - No longer call SetFont2Keyboard for ptchDumpBuffer.
|
||
|
|
; - Added patch to DoCaret to pin the caret in view when
|
||
|
|
; blanks exceed the edge of the view rect.
|
||
|
|
; 1/26/90 smb - Before synchronizing the font to the keybd, dump the text buffer: user
|
||
|
|
; could change the keyboard in the middle of buffering. (see TEBufferText and
|
||
|
|
; SetFont2Keyboard)
|
||
|
|
; 1/25/90 smb - Call HideCaret for up & down arrows to erase the old caret before
|
||
|
|
; setting teLftCaret in TEKey. Fixes bug #52887!
|
||
|
|
; - Fixed up arrow bug, #51967, that caused the caret to move up multiple
|
||
|
|
; lines according to the size of the largest font on the current line.
|
||
|
|
; - If zero width in DoSearch, want to branch ow this one pixel difference
|
||
|
|
; causes the caret to display on the wrong line ending. Roman fix.
|
||
|
|
; Bugs #58921,59247.
|
||
|
|
; 1/24/90 smb - Found bug in DoSearch where needed to setup a2 as current line again.
|
||
|
|
; 1/23/90 - Removed all equates and records since moved them into TextEditPriv.a.
|
||
|
|
; emt - Added humane scrolling (slower) to DefClikProc (also see TEClick).
|
||
|
|
; 1/23/90 - Changed FindWord branch for linebreaking to 'bge' instead of 'bgt'.
|
||
|
|
; - Added call to SetKeyboard2Font in DelGuts for Script Systems:
|
||
|
|
; whenever backspacing over a script boundary the keyscript wasn't
|
||
|
|
; updated. Bug #59422.
|
||
|
|
; - Reorg beginning of FindWord in order to be compatible with applications
|
||
|
|
; using incorrect char breaking algorithms for Script Systems.
|
||
|
|
; <3> 1/16/90 SMB NEEDED FOR 6.0.5 - Fixed bug in TEGetPoint, added double-byte
|
||
|
|
; buffer at end of dispatch record, fixed bug in r-to-l processing
|
||
|
|
; of caret that showed up when scrolling down.
|
||
|
|
; 1/8/90 SMB NEEDED FOR 6.0.4SS & 6.0.5: bug 58823, TEGetPoint returned
|
||
|
|
; incorrect values when there's no text in the TERec. • Using
|
||
|
|
; private space in TEDispatchRec for buffering of a double-byte
|
||
|
|
; char rather than using ExpandMem as a global buffer which can
|
||
|
|
; affect any active TE record. This fixes a bug seen in KanjiTalk
|
||
|
|
; (AppleShare)when an application uses two TE records. Buffering
|
||
|
|
; in one record can be dumped into the other record due to the
|
||
|
|
; global storage space not knowing which record it applies to.
|
||
|
|
; <2> 1/4/90 PKE NEEDED FOR 6.0.5 (smb's changes from SS-6.0.4b23 to SS-6.0.4f1):
|
||
|
|
; • Set the offset parameter to non-zero for StyledLineBreak for
|
||
|
|
; unstyled text. • In ptchTESetStyle and ptchTEGetPoint must pop
|
||
|
|
; TEDispatch's return address. • Added ptchHiliteMiddle and
|
||
|
|
; patched out more of OnSameLine and MeasureWidth to use this
|
||
|
|
; patched HiliteMiddle. Have to save d2! ALSO: Changed
|
||
|
|
; conditionals from (Scripts604 | SysVers >= $700) to (Scripts604
|
||
|
|
; | SysVers >= $605). Updated header to BBS format.
|
||
|
|
; <1> 12/18/89 CCH Adding for the first time into BBS.
|
||
|
|
; BBS versions from here up:
|
||
|
|
;___________________________________________________________________________________________________
|
||
|
|
; EASE versions below:
|
||
|
|
; <1.3> 12/14/89 smb Added ROMEndDoSearch jmp address since I left it off and broke
|
||
|
|
; the 6.0.5 build!
|
||
|
|
; <1.2> 12/11/89 smb More Arabic fixes: horizontal cursor movement now works at line
|
||
|
|
; ends.
|
||
|
|
; • In CursorMovement and GetStyleEnd had to pin the style run to
|
||
|
|
; the line end for correct position.
|
||
|
|
; • Need to use the high caret rectangle in TEKey rather than always
|
||
|
|
; using the teSelRect!
|
||
|
|
; • Added a new keyboard/font synchronization routine to be used
|
||
|
|
; when doing a hit-down which allows a Roman keyboard with a
|
||
|
|
; non-Roman font, specifically because KanjiTalk wants to enter
|
||
|
|
; Roman text from a Japanese font.
|
||
|
|
; • Fixed potential bug in TESetStyle: must test the doFont bit in
|
||
|
|
; the mode since it's possible for the mode to be an additive
|
||
|
|
; combination of styles.
|
||
|
|
; • Use application font for SetFont2Keyboard rather than system
|
||
|
|
; font.
|
||
|
|
; • Have to use emBufferPtr for a flag to indicate when I
|
||
|
|
; unsynchronize the font & keyboard in ClickKeyboard2Font. These
|
||
|
|
; will be used to keep SetFont2Keyboard from synchronizing the
|
||
|
|
; font & keyboard when trying to paste a character in this
|
||
|
|
; unsynchronized situation.
|
||
|
|
; • Also had to add a call to ClickKeyboard2Font from TESetSelect
|
||
|
|
; in order for horizontal cursor movement to work correctly in
|
||
|
|
; this new unsynchronized situation.
|
||
|
|
; • Fixed LR highlighting bug at line ends; in InvrtRectangle.
|
||
|
|
; • Unconditionalized code in VisibleLength to fix a LR line w/
|
||
|
|
; R justification display bug. Mark was right!
|
||
|
|
; • Set flags in caret display code to indicate when in the middle
|
||
|
|
; of a style run but on a line end (see CaretInsideRun).
|
||
|
|
; • Fixed bug in {hit-down on,cursor movement to} a script boundary
|
||
|
|
; to set the keyboard to the preceeding style run rather than the
|
||
|
|
; succeeding one. (see calls to ClickKeyboard2Font).
|
||
|
|
; • In BufferChar & DumpBuffer backed up one offset posn to get
|
||
|
|
; previous style run for SetFont2Keybaord call.
|
||
|
|
; • Fixed problem with setting the boundaries in ChkBounds. Also set
|
||
|
|
; boundary in DoDraw based on WordRedraw rather than teSysJust.
|
||
|
|
; • Corrected test of teForceLeft in iTEGetPoint.
|
||
|
|
; • Fixed bug of a large cursor (#52888) due to RomanFindLine (really
|
||
|
|
; StylMeasure & P2C) incorrectly increasing the char count due to
|
||
|
|
; an invalid leftSide flag set in TE's P2C. This caused ReCalLines
|
||
|
|
; to read beyond the end of the line heights record. Fixed by
|
||
|
|
; setting a flag which said to ignore the leftSide flag if TextWidth
|
||
|
|
; did the measuring in P2C.
|
||
|
|
; <1.1> 11/21/89 smb Bug fix in FindWord for Chinese Script System: clear
|
||
|
|
; fwLeadingEdge flag!
|
||
|
|
; • Added updating of outlined region in TEUpdate.
|
||
|
|
; • Fixed TETrimMeasure to call VisibleLength at the appropriate times
|
||
|
|
; for unstyled text: LineRect uses the line direction and
|
||
|
|
; justification to determine when to call it.
|
||
|
|
; • Adding call to GetStylesInOrder in order to call VisibleLength
|
||
|
|
; for a line's style runs. We need to traverse the style runs in
|
||
|
|
; display order but backwards!
|
||
|
|
; • Fixed buffering bug in BufferChar & TEKey; must set emBufferLen
|
||
|
|
; non-zero when buffer the 1st byte of a 2-byte character.
|
||
|
|
; • Moved secondStyleRun and firstStyleRun from SharedFrame to
|
||
|
|
; FmtOrderFrame since TextFrame needs this info for XTrimMeasure
|
||
|
|
; changes.
|
||
|
|
; • Bug fix for buffering 2 byte text on Kanji! see DumpBuffer and
|
||
|
|
; TEBufferText.
|
||
|
|
; • Removed testing of LRTextFlag since it's based on WordRedraw.
|
||
|
|
; Will tst WordRedraw instead!
|
||
|
|
; • Not removing setting of LRTextFlag in GetFormatOrdering or
|
||
|
|
; teGetFormatOrder since it won't hurt.
|
||
|
|
; • Had to clear (a2) in iTEFeatureFlag so that the return result was
|
||
|
|
; set right for an initial state of clear (vs. set).
|
||
|
|
; • Fixed ptchTrimMeasure for unstyled TE. Also added test for
|
||
|
|
; unstyled TE in ptchGetNextDisplayStyle. Moved firstStyleRun and
|
||
|
|
; secondStyleRun to "top" of FmtOrderFrame.
|
||
|
|
; • In ptchTEGetPoint changed longs back to words as they were
|
||
|
|
; originally!
|
||
|
|
; • Bug in DumpBuffer for unstyled textEdit: screwed up stack since was
|
||
|
|
; popping the stack w/o doing the push! Now doing the push as well!
|
||
|
|
; • SecondStyleRun and firstStyleRun need to be above directionParam in
|
||
|
|
; the FmtOrderFrame!
|
||
|
|
; • Added @getStyleNew code for right-to-left directional scripts in
|
||
|
|
; ptchDoSearch.
|
||
|
|
; • Added a test in ptchGetRLPosition because when processing a CR
|
||
|
|
; entered at the EOD, the current line (a2) is the next line. This
|
||
|
|
; causes TE to look beyond the end of the lineStarts array.
|
||
|
|
; <1.0> 10/12/89 smb New file containing the TextEdit patches from PatchIIciROM.a. Is
|
||
|
|
; included therein.
|
||
|
|
;____________________________________________________________________________
|
||
|
|
; To aid the historians, here is the recent history of TextEdit from PatchIIciROM.a:
|
||
|
|
;
|
||
|
|
; <7.7> 10/12/89 smb Moved TextEdit patches to TextEditPatchIIciROM.a. Fixed bug in
|
||
|
|
; old highlighting code that I introduced accidently (changed
|
||
|
|
; move.w -> move.l).
|
||
|
|
; <7.2> 10/5/89 smb Added old highlighting code for TextEdit for HyperCard
|
||
|
|
; outlining.
|
||
|
|
; <7.0> 10/4/89 smb Fixed 6.0.4 build by moving around some of my conditionals due
|
||
|
|
; to dependencies! Fixed TEInit to set TEDoText like it used to.
|
||
|
|
; Cleaned up TEOutlineHilite. Fixed caret display for outline
|
||
|
|
; highlighting.
|
||
|
|
; <6.8> 9/29/89 smb Added patches for TextEdit for TEFeatureFlag, SetFont2Keyboard,
|
||
|
|
; and fixed CursorMovement for double-byte characters.
|
||
|
|
; <5.5> 8/30/89 smb NEEDED FOR Scripts604 and Big Bang! Bug fix in ptchTEFindWord
|
||
|
|
; (fixed word dragging bug and now uses old FindWord code when
|
||
|
|
; RecalLines calls. Also added ptchMeasureWidth to fix a
|
||
|
|
; hilighting bug at line ends when the line direction is RL on a
|
||
|
|
; system that is normally LR (ie - Roman, Kanji, etc.)
|
||
|
|
; <4.2> 8/18/89 smb NEEDED FOR 6.0.4: Another unlocked handle problem!
|
||
|
|
; AAAARRRRRGGGGHHHHHH! (See ptchOnSameLine below)
|
||
|
|
; <3.8> 8/15/89 smb NEEDED FOR 6.0.4: Fixed some problems in my patch code for the
|
||
|
|
; bad pointer bug.
|
||
|
|
; <3.4> 8/11/89 smb smb Finally rolled in patches for a bad pointer bug (#51602) and
|
||
|
|
; an up & down arrow keys bug (#51961). See comments below.
|
||
|
|
; <3.1> 8/8/89 smb NEEDED FOR 6.0.4: Reverted TEFindWord patch since the previous
|
||
|
|
; patch introduces an uglier bug that won't be fixed now. Also
|
||
|
|
; added gestalt function for TE.
|
||
|
|
; <2.8> 8/8/89 smb NEEDED FOR 604: Added more TE patches for Aurora!
|
||
|
|
; <1.8> 7/25/89 smb NEEDED FOR 6.0.4: Added TextEdit patches for Aurora.
|
||
|
|
;____________________________________________________________________________
|
||
|
|
; To Do:
|
||
|
|
; Check insGuts: may be able to use a0 instead of a1 for _HLock.
|
||
|
|
; TEKEy: set d6 to 1,-1 and move into d3 for doublebyte call.
|
||
|
|
; Remove extraneous code from NewRomanFindLine. Marked with (XX).
|
||
|
|
; See WBOverid - could simply jump into rom again since removed ForceOldFW patch.
|
||
|
|
;____________________________________________________________________________
|
||
|
|
|
||
|
|
LOAD 'StandardEqu.d'
|
||
|
|
INCLUDE 'GestaltEqu.a'
|
||
|
|
INCLUDE 'SysPrivateEqu.a'
|
||
|
|
INCLUDE 'LinkedPatchMacros.a'
|
||
|
|
|
||
|
|
IF (&TYPE('Scripts604') = 'UNDEFINED') THEN
|
||
|
|
Scripts604 EQU 0
|
||
|
|
ENDIF
|
||
|
|
IF &TYPE('forLocalizability') = 'UNDEFINED' THEN ; <35>
|
||
|
|
forLocalizability EQU 1 ; <35>
|
||
|
|
ENDIF ; <35>
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; added Scripts604 <20July89smb>
|
||
|
|
INCLUDE 'ScriptPriv.a' ; <8July89smb>
|
||
|
|
ENDIF
|
||
|
|
INCLUDE 'TextEditPriv.a' ; <1/9/90smb>
|
||
|
|
INCLUDE 'fontPrivate.a' ; <19>
|
||
|
|
|
||
|
|
ROMXDoText ROMBind (IIci,$22A70) ; called by TEInit
|
||
|
|
ROMXReCalLines ROMBind (IIci,$243B8) ; called by TEInit
|
||
|
|
ROMDefWordBrk ROMBind (IIci,$240B4) ; called by TEInit
|
||
|
|
EndTEInit ROMBind (IIci,$2200C) ; called by TEInit
|
||
|
|
ROMForceOldFW ROMBind (IIci,$24062) ; called by ptchTEFindWord
|
||
|
|
ROMWBOverid ROMBind (IIci,$24066) ; called by ptchTEFindWord
|
||
|
|
ROMTESMgrFWord ROMBind (IIci,$23F5C) ; called by ptchTEFindWord
|
||
|
|
ROM@GetSelWrap ROMBind (IIci,$23F82) ; called by ptchTEFindWord
|
||
|
|
EndDelGuts ROMBind (IIci,$23D0A) ; called by DelGuts (TEDelete)
|
||
|
|
ROMStdEntry ROMBind (IIci,$23B1A) ; called by DelGuts (TEDelete)
|
||
|
|
ROMHideCaret ROMBind (IIci,$246B4) ; called by DelGuts (TEDelete)
|
||
|
|
ROMSelSort ROMBind (IIci,$23C08) ; called by DelGuts (TEDelete)
|
||
|
|
ROMGetCurStyle ROMBind (IIci,$2534A) ; called by DelGuts (TEDelete), ptchSetFont2Keyboard
|
||
|
|
ROMClearRsrved ROMBind (IIci,$223D0) ; called by DelGuts (TEDelete)
|
||
|
|
ROMGetStyle ROMBind (IIci,$253BE) ; called by DelGuts (TEDelete)
|
||
|
|
ROMAltSetRsrved ROMBind (IIci,$253F4) ; called by DelGuts (TEDelete)
|
||
|
|
ROMDeleteStyle ROMBind (IIci,$23D8A) ; called by DelGuts (TEDelete)
|
||
|
|
ROMMungeSetup ROMBind (IIci,$24A94) ; called by DelGuts (TEDelete)
|
||
|
|
ROMConcatStyles ROMBind (IIci,$257F2) ; called by DelGuts (TEDelete)
|
||
|
|
ROMConcatRuns ROMBind (IIci,$2584C) ; called by DelGuts (TEDelete)
|
||
|
|
ROMSetStyle ROMBind (IIci,$257AE) ; called by ptchSetFont2Keyboard
|
||
|
|
ROMAnyNullStyle ROMBind (IIci,$25710) ; called by ptchSetFont2Keyboard
|
||
|
|
ROMSetRsrved ROMBind (IIci,$253E8) ; called by ptchSetFont2Keyboard
|
||
|
|
ROM@Use4HitTest ROMBind (IIci,$238F2) ; label in ptchTEChar2Pixel
|
||
|
|
ROM@UseC2P ROMBind (IIci,$23928) ; label in ptchTEChar2Pixel
|
||
|
|
ROMGetDirection ROMBind (IIci,$22F50) ; called by ptchTEChar2Pixel
|
||
|
|
ROM@fixStack ROMBind (IIci,$23922) ; label in ptchTEChar2Pixel
|
||
|
|
ROM@RomanTrim ROMBind (IIci,$237B6) ; label in ptchTrimMeasure
|
||
|
|
ROMMeasureIt ROMBind (IIci,$237D6) ; called by ptchTrimMeasure
|
||
|
|
EndCursorMovement ROMBind (IIci,$24D2E) ; called by ptchCursorMovement
|
||
|
|
ROMSetUpP2C ROMBind (IIci,$2413C) ; called by ptchPixel2Char
|
||
|
|
ROMTEPixel2Char ROMBind (IIci,$22696) ; called by ptchPixel2Char
|
||
|
|
ROMDoHilite ROMBind (IIci,$23114) ; called by ptchTEDoText
|
||
|
|
ROMDoCaret ROMBind (IIci,$22A86) ; called by ptchTEDoText
|
||
|
|
ROMPreamble ROMBind (IIci,$22A2C) ; called by ptchTEDoText
|
||
|
|
ROMLineRect ROMBind (IIci,$236D2) ; called by ptchTEDoText
|
||
|
|
ROM@BailToLeft ROMBind (IIci,$227F6) ; label in ptchDoSearch
|
||
|
|
ROM@DoMeasure ROMBind (IIci,$227B0) ; label in ptchDoSearch
|
||
|
|
ROM@getStyleOld ROMBind (IIci,$2277A) ; label in ptchDoSearch
|
||
|
|
ROM@NoMoreStyles ROMBind (IIci,$227E4) ; label in ptchDoSearch
|
||
|
|
ROMEndDoSearch ROMBind (IIci,$2275A) ; called by ptchTEDoText
|
||
|
|
ROMEndTEFmtOrder ROMBind (IIci,$22FF6) ; called by ptchTEGetFormatOrder
|
||
|
|
ROMDoDraw ROMBind (IIci,$2288E) ; called by ptchDoDraw
|
||
|
|
ROMPinDisplay ROMBind (IIci,$23A5A) ; called by ptchDoDraw
|
||
|
|
ROMPrepLine ROMBind (IIci,$22A18) ; called by ptchDoDraw
|
||
|
|
ROMChkBounds ROMBind (IIci,$23638) ; called by ptchDoDraw,ptchGetStylesInOrder
|
||
|
|
ROMDoErase ROMBind (IIci,$229AC) ; called by ptchDoDraw
|
||
|
|
ROMTEDrawHook ROMBind (IIci,$22878) ; called by ptchDoDraw
|
||
|
|
ROMPtrToLine ROMBind (IIci,$236C6) ; called by ptchDoDraw
|
||
|
|
ROMNextLineRect ROMBind (IIci,$236A8) ; called by ptchDoDraw
|
||
|
|
ROMFreeFmtOrderArray ROMBind (IIci,$230FE) ; called by ptchDoDraw
|
||
|
|
ROMGetFormatOrdering ROMBind (IIci,$22F82) ; called by ptchCaretDisplay
|
||
|
|
ROMFixFormatEnd ROMBind (IIci,$24F52) ; called by ptchCaretDisplay
|
||
|
|
ROMGetLRPosition ROMBind (IIci,$22C1A) ; called by ptchCaretDisplay
|
||
|
|
ROMGetRLPosition ROMBind (IIci,$22C6A) ; called by ptchCaretDisplay
|
||
|
|
ROMMeasureWholeRun ROMBind (IIci,$23404) ; called by ptchCaretDisplay
|
||
|
|
ROM@SetEnds ROMBind (IIci,$22BCA) ; label in ptchCaretDisplay
|
||
|
|
ROM@finis ROMBind (IIci,$22BF6) ; label in ptchCaretDisplay
|
||
|
|
ROM@done ROMBind (IIci,$22C12) ; label in ptchCaretDisplay
|
||
|
|
ROMteGetFormatOrder ROMBind (IIci,$22FE2) ; called by ptchGetStylesInOrder
|
||
|
|
EndGetStylesInOrder ROMBind (IIci,$22FDA) ; called by ptchGetStylesInOrder
|
||
|
|
ROMOldStyle ROMBind (IIci,$232B2) ; called by ptchOnSameLine
|
||
|
|
ROMMeasureWidth ROMBind (IIci,$2333A) ; called by ptchOnSameLine
|
||
|
|
ROMHiliteMore ROMBind (IIci,$232C8) ; called by ptchOnSameLine
|
||
|
|
ROM@OneStyleTest ROMBind (IIci,$23654) ; label in ptchChkBounds
|
||
|
|
ROM@OneStyle ROMBind (IIci,$23674) ; label in ptchChkBounds
|
||
|
|
BackToChkBounds ROMBind (IIci,$23662) ; called by ptchChkBounds
|
||
|
|
BackToDoMeasure ROMBind (IIci,$239C8) ; called by ptchDoMeasure
|
||
|
|
ROM@MeasureDone ROMBind (IIci,$23A4E) ; label in ptchDoMeasure
|
||
|
|
ROMGetWidth ROMBind (IIci,$2382C) ; called by ptchDoMeasure
|
||
|
|
ROM@PlainMeasure ROMBind (IIci,$23A40) ; label in ptchDoMeasure
|
||
|
|
BackToTestRunDirection ROMBind (IIci,$24F2A) ; called by ptchTestRunDirection
|
||
|
|
ROMGetLine ROMBind (IIci,$22A5A) ; called by ptchCursorMovement
|
||
|
|
ROM@CursorMoveDone ROMBind (IIci,$24EDE) ; label in ptchCursorMovement
|
||
|
|
ROMTestLineEnds ROMBind (IIci,$24EE6) ; called by ptchCursorMovement
|
||
|
|
ROMSetRun ROMBind (IIci,$24F04) ; called by ptchCursorMovement
|
||
|
|
ROM@OneCharacterTest ROMBind (IIci,$24E9C) ; label in ptchCursorMovement
|
||
|
|
ROM@CSubDelta ROMBind (IIci,$24ED8) ; label in ptchCursorMovement
|
||
|
|
ROM@InMiddle ROMBind (IIci,$24E3E) ; label in ptchCursorMovement
|
||
|
|
ROM@TakeRightBranch ROMBind (IIci,$24E78) ; label in ptchCursorMovement
|
||
|
|
ROMGetStyleEnd ROMBind (IIci,$24F40) ; called by ptchCursorMovement
|
||
|
|
ROM@NewFmtIndex ROMBind (IIci,$24E36) ; label in ptchCursorMovement
|
||
|
|
ROMGetNumStyles ROMBind (IIci,$25398) ; called by ptchDoMeasure
|
||
|
|
ROM@RightArrow ROMBind (IIci,$24BB0) ; label in ptchTEKey
|
||
|
|
ROM@LeftArrow ROMBind (IIci,$24BB8) ; label in ptchTEKey
|
||
|
|
ROM@NormalChar ROMBind (IIci,$24B6C) ; label in ptchTEKey
|
||
|
|
ROMbackspace ROMBind (IIci,$24C12) ; called by ptchTEKey
|
||
|
|
ROMFindLineHite ROMBind (IIci,$250E0) ; called by ptchTEKey
|
||
|
|
ROMDoFind ROMBind (IIci,$22668) ; called by ptchTEKey
|
||
|
|
ROMleftRight ROMBind (IIci,$24BD6) ; called by ptchTEKey
|
||
|
|
ROM@hiliteIt ROMBind (IIci,$2338A) ; label in ptchMeasureWidth
|
||
|
|
ROM@dontQuit ROMBind (IIci,$2338E) ; label in ptchMeasureWidth
|
||
|
|
ROM@inBetween ROMBind (IIci,$2339A) ; label in ptchMeasureWidth
|
||
|
|
ROM@justMeasure ROMBind (IIci,$233F2) ; label in ptchMeasureWidth
|
||
|
|
ROMHiLite ROMBind (IIci,$22552) ; called by ptchTEActivate
|
||
|
|
ROMinTEDispatch ROMBind (IIci,$23C06) ; called by ptchTEDispatch
|
||
|
|
ROMinTEGetText ROMBind (IIci,$2203C) ; called by ptchTEGetText
|
||
|
|
ROMinTESetText ROMBind (IIci,$22186) ; called by ptchTESetText
|
||
|
|
ROMinTECalText ROMBind (IIci,$2229E) ; called by ptchTECalText
|
||
|
|
ROMinTESetSelect ROMBind (IIci,$22302) ; called by ptchTESetSelect
|
||
|
|
ROMinTEClick ROMBind (IIci,$22568) ; called by ptchTEClick
|
||
|
|
ROMinTECopy ROMBind (IIci,$23C1C) ; called by ptchTECopy
|
||
|
|
ROMinTECut ROMBind (IIci,$23CF4) ; called by ptchTECut
|
||
|
|
ROMinTEIdle ROMBind (IIci,$24770) ; called by ptchTEIdle
|
||
|
|
ROMinTEPaste ROMBind (IIci,$2479A) ; called by ptchTEPaste
|
||
|
|
ROMinTEInsert ROMBind (IIci,$24B18) ; called by ptchTEInsert
|
||
|
|
ROMinTESetJust ROMBind (IIci,$250FC) ; called by ptchTESetJust
|
||
|
|
ROMinTEScroll ROMBind (IIci,$25124) ; called by ptchTEScroll
|
||
|
|
ROMinTEPinScroll ROMBind (IIci,$2517A) ; called by ptchTEPinScroll
|
||
|
|
ROMinTESelView ROMBind (IIci,$25202) ; called by ptchTESelView
|
||
|
|
ROMinTEAutoView ROMBind (IIci,$2528C) ; called by ptchTEAutoView
|
||
|
|
ROMinTEGetOffset ROMBind (IIci,$25952) ; called by ptchTEGetOffset
|
||
|
|
ROMDrawCaret ROMBind (IIci,$246A8) ; called by ptchTEKey
|
||
|
|
ROMinPasteChar ROMBind (IIci,$24C02) ; called by ptchTEKey
|
||
|
|
ROMStdExit ROMBind (IIci,$222A2) ; called by ptchTEKey
|
||
|
|
ROMGetHandle ROMBind (IIci,$24C7E) ; called by ptchTEBufferText
|
||
|
|
ROM@MoreRoom ROMBind (IIci,$24C72) ; label in ptchTEBufferText
|
||
|
|
ROMPasteGuts ROMBind (IIci,$24838) ; called by ptchDumpBuffer
|
||
|
|
ROMDoubleByte ROMBind (IIci,$24FD2) ; called by ptchCursorMovement
|
||
|
|
ROMStdExit2 ROMBind (IIci,$222A8) ; called by ptchTEFeatureFlag
|
||
|
|
ROMEpilog4 ROMBind (IIci,$222A0) ; called by ptchTEActivate/ptchTEDeactivate
|
||
|
|
ROMTEFeatureFlag ROMBind (IIci,$252AC) ; called by ptchStdEntry (to patch TEDispatch)
|
||
|
|
ROMAddrTable ROMBind (IIci,$21EE0) ; called by ptchStdEntry
|
||
|
|
ROMGetLineHites ROMBind (IIci,$23736) ; called by ptchDoHilite
|
||
|
|
ROMInvertHook ROMBind (IIci,$23AF6) ; called by ptchDoHilite
|
||
|
|
ROMDrawIt ROMBind (IIci,$246C8) ; called by ptchTEActivate
|
||
|
|
ROMRefresh ROMBind (IIci,$25104) ; called by ptchTEUpdate
|
||
|
|
ROMEpilog8 ROMBind (IIci,$2512C) ; called by ptchTEUpdate
|
||
|
|
ROM@FullStyleRun ROMBind (IIci,$2386E) ; label in ptchGetWidth
|
||
|
|
ROM@UseChar2Pixel ROMBind (IIci,$2387C) ; label in ptchGetWidth
|
||
|
|
ROMinTEGetPoint ROMBind (IIci,$259E6) ; called by ptchTEGetPoint
|
||
|
|
ROMTEGetPoint ROMBind (IIci,$25990) ; called by ptchStdEntry
|
||
|
|
ROM@HitIt ROMBind (IIci,$2280E) ; label in ptchDoSearch
|
||
|
|
ROMTEHitTestHook ROMBind (IIci,$2286C) ; called by ptchDoSearch
|
||
|
|
ROMinGetRLPosn ROMBind (IIci,$22CBA) ; called by ptchGetRLPosition
|
||
|
|
ROM@LineEnd ROMBind (IIci,$22D26) ; label in ptchGetRLPosition
|
||
|
|
ROM@InRLMiddle ROMBind (IIci,$22D2A) ; label in ptchGetRLPosition
|
||
|
|
ROM@GotCursorStyle ROMBind (IIci,$22CC0) ; label in ptchGetRLPosition
|
||
|
|
ROMinSetKeyboard2Font ROMBind (IIci,$250CA) ; called by ptchSetKeyboard2Font
|
||
|
|
ROM@DoneInKeybd2Font ROMBind (IIci,$250DC) ; label in ptchSetKeyboard2Font
|
||
|
|
ROM@KeybdOK ROMBind (IIci,$25504) ; label in ptchiTESetStyle
|
||
|
|
ROM@DoEndOfLine ROMBind (IIci,$259FC) ; label in ptchiTEGetPoint
|
||
|
|
ROM@DoTheJustThing ROMBind (IIci,$25A04) ; label in ptchiTEGetPoint
|
||
|
|
ROMCleanUpSel ROMBind (IIci,$23BCE) ; called by ptchTESetSelect
|
||
|
|
ROM@NoSynchInSetSelect ROMBind (IIci,$22334) ; label in ptchTESetSelect
|
||
|
|
ROM@NoSynchInTEClick ROMBind (IIci,$225AC) ; label in ptchTEClick
|
||
|
|
ROM@LROrientation ROMBind (IIci,$228B2) ; label in ptchDoDraw
|
||
|
|
ROM@UseStyleStart ROMBind (IIci,$22E7E) ; label in ptchCaretInsideRun
|
||
|
|
ROMbeyond@UseStyleStart ROMBind (IIci,$22E84) ; label in ptchCaretInsideRun
|
||
|
|
ROMHiliteLineEnds ROMBind (IIci,$23498) ; called by ptchInvrtRectangle
|
||
|
|
ROMPixelWidths ROMBind (IIci,$235BE) ; called by ptchInvrtRectangle
|
||
|
|
ROMafter@HitIt ROMBind (IIci,$2281A) ; label in ptchDoSearch
|
||
|
|
ROMfindDone ROMBind (IIci,$2283A) ; called by ptchDoSearch
|
||
|
|
ROMTESetStyle ROMBind (IIci,$254EE) ; called by ptchTEDispatch
|
||
|
|
ROMTEEOLHook ROMBind (IIci,$22850) ; called by ptchTEFindLine
|
||
|
|
ROMinFindLine ROMBind (IIci,$241D0) ; called by ptchTEFindLine
|
||
|
|
ROM@SetUp ROMBind (IIci,$2428C) ; label in ptchTEFindLine
|
||
|
|
ROM@FindLineFinis ROMBind (IIci,$2430E) ; label in ptchTEFindLine
|
||
|
|
ROMRomanFindLine ROMBind (IIci,$24316) ; called by ptchTEFindLine
|
||
|
|
ROM@testEnds ROMBind (IIci,$232D6) ; label in ptchOnSameLine
|
||
|
|
ROM@exit ROMBind (IIci,$233FE) ; label in ptchMeasureWidth
|
||
|
|
ROM@HiliteOffsetRun ROMBind (IIci,$233E6) ; label in ptchMeasureWidth
|
||
|
|
ROM@hiliteRun ROMBind (IIci,$233BA) ; label in ptchMeasureWidth
|
||
|
|
ROMteHiliteText ROMBind (IIci,$234D8) ; called by ptchOnSameLine
|
||
|
|
ROMGetHite ROMBind (IIci,$23776) ; called by ptchTEGetPoint
|
||
|
|
ROMinTENew ROMBind (IIci,$223BC) ; label in ptchTENew
|
||
|
|
ROMXEOLHook ROMBind (IIci,$2285A) ; called by ptchInstallIntDispatch
|
||
|
|
ROMXDRAWHook ROMBind (IIci,$22884) ; called by ptchInstallIntDispatch
|
||
|
|
ROMChar2Pixel ROMBind (IIci,$23896) ; called by ptchInstallIntDispatch
|
||
|
|
ROMPixel2Char ROMBind (IIci,$22690) ; called by ptchInstallIntDispatch
|
||
|
|
ROMGetSize ROMBind (IIci,$2226A) ; called by ptchTENew
|
||
|
|
ROMSetDirection ROMBind (IIci,$22F16) ; called by ptchTENew
|
||
|
|
ROMDefClikProc ROMBind (IIci,$252D6) ; called by ptchTENew
|
||
|
|
ROMinTEStylNew ROMBind (IIci,$224D4) ; label in ptchTEStylNew
|
||
|
|
ROMMyNewHandle ROMBind (IIci,$22510) ; called by ptchTEStylNew
|
||
|
|
ROMGetDefStyle ROMBind (IIci,$22206) ; called by ptchTEStylNew
|
||
|
|
ROMPtToLine ROMBind (IIci,$23AA8) ; called by ptchDefClikProc
|
||
|
|
ROMSetKeyboard2Font ROMBind (IIci,$250B2) ; called by ptchDelGuts
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
ROM@ZeroWidth ROMBind (IIci,$22A04) ; called by ptchDoErase <17>
|
||
|
|
ROM@GoErase ROMBind (IIci,$22A08) ; called by ptchDoErase <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
ROMstage2y ROMBind (IIci,$2442E) ; called by ptchReCalLines <19>
|
||
|
|
ROMstage2A ROMBind (IIci,$2443C) ; called by ptchReCalLines <19>
|
||
|
|
ROMClrLineSts ROMBind (IIci,$24442) ; called by ptchReCalLines <19>
|
||
|
|
ROMinPtToLine ROMBind (IIci,$23AB6) ; called by PtToLine <19>
|
||
|
|
ROMinDoHilite ROMBind (IIci,$23118) ; called by ptchDoHilite <19>
|
||
|
|
ROMinDoFind ROMBind (IIci,$22670) ; called by ptch{TEClick,TEKey,TEGetOffset} <19>
|
||
|
|
ROMinPinDisplay ROMBind (IIci,$23A84) ; called by ptchPinDisplay <19>
|
||
|
|
ROMinRefresh ROMBind (IIci,$2510C) ; called by ptchRefresh <19>
|
||
|
|
ROMSetStylScrap ROMBind (IIci,$25A60) ; called by ptchTEDispatch <19>
|
||
|
|
ROMTEStylInsert ROMBind (IIci,$25B20) ; called by ptchTEStylInsert <19>
|
||
|
|
ROMPstStylGuts ROMBind (IIci,$248EE) ; called by ptchTEStylInsert <19>
|
||
|
|
ROMRecalDraw ROMBind (IIci,$23E18) ; called by ptchTEStylInsert <19>
|
||
|
|
ROMShowCaret ROMBind (IIci,$24690) ; called by ptchTEStylInsert <19>
|
||
|
|
ROMAfterInsert ROMBind (IIci,$24B28) ; called by ptchTEInsert <19>
|
||
|
|
ROMInsRsrved ROMBind (IIci,$24AAA) ; called by ptchInsGuts <19>
|
||
|
|
ROMClickExpand ROMBind (IIci,$22544) ; called by ptchTEClick <19>
|
||
|
|
AfterMoveToInTextBox ROMBind (IIci,$22116) ; used for patch to TextBox <22>
|
||
|
|
ROMGo14Exit ROMBind (IIci,$2217C) ; used for patch to TextBox <22>
|
||
|
|
ROMinTEDispose ROMBind (IIci,$22052) ; used for patch to TEDispose <20>
|
||
|
|
ROMinGetHandle ROMBind (IIci,$24C80) ; called by ptchGetHandle <20>
|
||
|
|
ROMFindWord ROMBind (IIci,$23F34) ; called by ptchReCalLines & ptchNewRomanFindLine <21>
|
||
|
|
ROMFindLine ROMBind (IIci,$24144) ; called by ptchReCalLines <21>
|
||
|
|
ROMDoText ROMBind (IIci,$22A6A) ; called by ptchTEKey and ptchTEClick <25>
|
||
|
|
AfterHiliteText ROMBind (IIci,$23536) ; used for patch to teHiliteText <29>
|
||
|
|
ENDIF ; <19>
|
||
|
|
IF forLocalizability THEN ; <34-YDS-9/2/91>
|
||
|
|
ROMInMeasureIt ROMBind (IIci,$237DA) ; called by DoMeasure
|
||
|
|
ROMSelView ROMBind (IIci,$25208) ; called by ptchTEKey
|
||
|
|
ROM@goHome ROMBind (IIci,$24792) ; called by ptchTEIdle
|
||
|
|
ROMOneCursor ROMBind (IIci,$22EEA) ; called by ptchGetRLPosition
|
||
|
|
ROM@RLDone ROMBind (IIci,$22D2E) ; label in GetRLPosition
|
||
|
|
ROMinSetUp2Rectangles ROMBind (IIci,$22D46) ; called by ptchSetUp2Rectangles
|
||
|
|
RONInTextBox ROMBind (IIci,$220C2) ; called by ptchTextBox <41-YDS-1/30/92>
|
||
|
|
ROMAfterGetFInfoInTextBox ROMBind (IIci,$22104) ; Come from patch after GetFontInfo in TextBox <43-YDS-2/6/92>
|
||
|
|
ROMAfterGetFInfoInGetSize ROMBind (IIci,$22272) ; Come from patch after GetFontInfo in GetSize <43-YDS-2/6/92>
|
||
|
|
ENDIF ; <19>
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ROMs IIci
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEFindWord
|
||
|
|
; <19July89smb> Fixed Roman FindWord hyphenation bug. Problem
|
||
|
|
; was occuring because RecalLines used the SMgr-compatible FindWord
|
||
|
|
; for determining a word boundary but when it called FindLine for
|
||
|
|
; the line break, FindLine used the oldFindLine code (RomanFindLine)
|
||
|
|
; which used the old FindWord code. The correct fix for this is
|
||
|
|
; to use the old FindWord code when the caller is RecalLines. This
|
||
|
|
; introduces an uglier bug that can't be fixed for 6.0.4 so we opted
|
||
|
|
; for the easiest fix which is to always use the old FindWord for all
|
||
|
|
; of Roman word breaking needs.
|
||
|
|
; <28Aug89smb> We now use the old FindWord code for RecalLines for
|
||
|
|
; 6.0.4 Script Systems and Big Bang since the uglier bug is now fixed.
|
||
|
|
; The bug was that the leadingEdge flag was not set correctly for word drag.
|
||
|
|
; <26Oct89smb> Bug fix for Chinese Script System: clear fwLeadingEdge flag!
|
||
|
|
; <1/17/90smb> Redone to be compatible with applications using incorrect char
|
||
|
|
; breaking algorithms for Script Systems.
|
||
|
|
; <2/28/90smb> Changed 'bgt' to 'bge' for linebreaking.
|
||
|
|
; <4/17/90smb> Fixed old bug for old FindWord: when using an
|
||
|
|
; application's teWordBreak routine must save d1!
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
ptchTEFindWord PatchProc TEFindWord
|
||
|
|
|
||
|
|
fwRegs REG d3-d5/a0-a2
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
; Redone to be compatible with applications using incorrect char breaking algorithms for Script Systems
|
||
|
|
; <1/17/90smb>
|
||
|
|
; If a non-Roman system then use new FindWord code
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a0) ; number of installed scripts
|
||
|
|
bne.s UseSMgrFW ; use new FindWord
|
||
|
|
|
||
|
|
; Roman-only system
|
||
|
|
; test if line breaking calling; if so, use old FindWord.
|
||
|
|
cmpi.w #teFromFind,d2 ; called by Roman FindLine or teRecal?
|
||
|
|
bge WBOverid ; changed to 'bge' instead of 'bgt' <2/28/90smb>
|
||
|
|
|
||
|
|
; Otherwise, look for an overriding FindWord routine.
|
||
|
|
move.l d0,-(sp) ; preserve
|
||
|
|
move.l teWordBreak(a3),d0
|
||
|
|
_StripAddress ; does return in d0
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
cmp.l ExpandMemRec.emCleanWordBrk(a0),d0 ; same?
|
||
|
|
beq.s @NoOverride ; Branch around wordBreak cleanup stuff
|
||
|
|
move.l (sp)+,d0 ; restore (and not earlier since StripAddress returns here!)
|
||
|
|
bra WBOverid ; Handle via old logic if an override exists
|
||
|
|
|
||
|
|
; If we get here, there's no wordBreak override
|
||
|
|
@NoOverride
|
||
|
|
move.l (sp)+,d0 ; restore (and not earlier since StripAddress returns here!)
|
||
|
|
UseSMgrFW
|
||
|
|
with FindWordFrame
|
||
|
|
link a6,#fwLink ; This version uses the Script Manager
|
||
|
|
movem.l fwRegs,-(sp)
|
||
|
|
|
||
|
|
; The value of fwLeadingEdge is determined by which routine called FindWord.
|
||
|
|
; If RecalLines called (teFromRecal (16)), we want to look back to determine the word so
|
||
|
|
; leadingEdge is False, implying we hit on the trailing edge of a character.
|
||
|
|
; If ClickExpand called (teWordSelect (4) or teWordDrag (8)), leadingEdge can be taken from
|
||
|
|
; teLftClick in the teRecord.
|
||
|
|
|
||
|
|
clr.w fwLeadingEdge(a6) ; initialize (for bra to @GetSelWrap) <26Oct89smb>
|
||
|
|
cmpi.w #teFromRecal,d2 ; is it RecalLines calling? <28Aug89smb>
|
||
|
|
beq.s @GetSelWrap ; yep.
|
||
|
|
; if ClickExpand calling, get leadingEdge from teLftClick in teRecord. Use teLftClick rather than
|
||
|
|
; teLftCaret since DoSearch sets teLftClick. <28Aug89smb>
|
||
|
|
move.b teLftClick(a3),d1
|
||
|
|
|
||
|
|
; if calling for WordDrag then simulate Kanji code. <25Aug89smb>
|
||
|
|
cmpi.w #teWordDrag,d2 ; <25Aug89smb>
|
||
|
|
bne.s @StuffIt ; <25Aug89smb>
|
||
|
|
; at this point a2 is still equal to the Left Anchor for teClick so compare the offset to it <25Aug89smb>
|
||
|
|
cmp.w d0,a2 ; compare L. anchor to char offset <25Aug89smb>
|
||
|
|
scc d1 ; set leadingEdge flag accordingly <25Aug89smb>
|
||
|
|
@StuffIt
|
||
|
|
ext.w d1
|
||
|
|
move.w d1,fwLeadingEdge(a6)
|
||
|
|
@GetSelWrap
|
||
|
|
jmpROM ROM@GetSelWrap
|
||
|
|
;;no longer used <1/17/90smb> ForceOldFW jmpROM ROMForceOldFW
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
; come here for 6.0.4 only! <1/17/90smb>
|
||
|
|
; Look for an overriding FindWord routine.
|
||
|
|
|
||
|
|
move.l d0,-(sp) ; preserve
|
||
|
|
move.l teWordBreak(a3),d0
|
||
|
|
_StripAddress
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
cmp.l ExpandMemRec.emCleanWordBrk(a0),d0 ; same?
|
||
|
|
beq.s @NoOverride ; Branch around wordBreak cleanup stuff
|
||
|
|
move.l (sp)+,d0 ; restore
|
||
|
|
bra.s WBOverid ; Handle via old logic if an override exists (bra to WBOverid)
|
||
|
|
|
||
|
|
; If we get here, there's no wordBreak override
|
||
|
|
@NoOverride
|
||
|
|
move.l (sp)+,d0 ; restore
|
||
|
|
|
||
|
|
; If a Roman system then use old FindWord code <8Aug89smb>
|
||
|
|
move.l ExpandMem,a0 ; <8Aug89smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a0) ; number of installed scripts <8Aug89smb>
|
||
|
|
beq WBOverid ; use old FindWord <8Aug89smb>
|
||
|
|
jmpROM ROMTESMgrFWord
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF SysVers < $606 THEN
|
||
|
|
WBOverid jmpROM ROMWBOverid ; bra to WBOverid
|
||
|
|
ELSE
|
||
|
|
; new <4/17/90smb>
|
||
|
|
; forced here from RomanFindLine; mask off flag in low bit of d2 <8June89smb>
|
||
|
|
|
||
|
|
WBOverid ; here's our FindWord <EHB 01Oct85>
|
||
|
|
swap d2 ; get constant into high word <EHB 01Oct85>
|
||
|
|
move.w d0,d2 ; save position in low word <EHB 01Oct85>
|
||
|
|
|
||
|
|
move.w d0,d1
|
||
|
|
beq.s RightScan
|
||
|
|
|
||
|
|
bsr.s LeftScan ; do left scan 1st
|
||
|
|
|
||
|
|
; Right scan, given a char code in D1, this returns the next word break >= D1
|
||
|
|
|
||
|
|
RightScan
|
||
|
|
bclr #17,d2 ; clear bit 17 (right) <EHB 01Oct85>
|
||
|
|
RS1
|
||
|
|
cmp teLength(a3),d1 ; see if @ right edge
|
||
|
|
bhs.s @0 ; assume found if at right edge
|
||
|
|
move d1,a1 ; pass index
|
||
|
|
bsr.s CallBreak
|
||
|
|
bne.s @0
|
||
|
|
addq #1,d1 ; try next char
|
||
|
|
bra.s RS1 ; <EHB 01Oct85>
|
||
|
|
@0
|
||
|
|
rts
|
||
|
|
|
||
|
|
; Given a char location in D0, this routine returns a new word break to left of D0
|
||
|
|
|
||
|
|
LeftScan
|
||
|
|
bSet #17,d2 ; set bit 1 (left) <EHB 01Oct85>
|
||
|
|
LS1
|
||
|
|
subq #1,d0 ; pre decrement
|
||
|
|
move d0,a1 ; pass index
|
||
|
|
bsr.s CallBreak ; was it a break?
|
||
|
|
bne.s @0 ; if so, skip town
|
||
|
|
|
||
|
|
tst d0 ; are we done?
|
||
|
|
beq.s @1 ; if so, skip town
|
||
|
|
bra.s LS1 ; keep looking
|
||
|
|
@0
|
||
|
|
addq #1,d0 ; try next char
|
||
|
|
@1
|
||
|
|
rts
|
||
|
|
|
||
|
|
export CallBreak ; <23>
|
||
|
|
CallBreak
|
||
|
|
movem.l d0-d1/a0-a1,-(sp) ; save regs - also save d1! <4/17/90smb>
|
||
|
|
move a1,d0 ; pass index in D0
|
||
|
|
move.l teTextH(a3),a0 ; get handle
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l teWordBreak(a3),a1 ; get routine
|
||
|
|
jsr (a1) ; call routine which sets CC's
|
||
|
|
movem.l (sp)+,d0-d1/a0-a1 ; restore regs - also restore d1! <4/17/90smb>
|
||
|
|
rts
|
||
|
|
ENDIF
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEFindLine
|
||
|
|
; For a 7.0 (or greater) system with only the Roman script system
|
||
|
|
; installed, the ptchNewRomanFindLine routine must be used. For an
|
||
|
|
; earlier system with only the Roman script system installed, will
|
||
|
|
; use the ROM's RomanFindLine code.
|
||
|
|
; If multiple scripts are installed for an SS-604 system or a 6.0.5
|
||
|
|
; (or greater) system, then fall into the ptchScriptFindLine code
|
||
|
|
; below. <21>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
ptchTEFindLine PatchProc TEFindLine
|
||
|
|
|
||
|
|
FindLineRegs reg d1-d7/a0-a2
|
||
|
|
move.l ExpandMem,a0 ; <19>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a0) ; total number of installed scripts <19>
|
||
|
|
IF SysVers>= $700 THEN ; <21>
|
||
|
|
beq ptchNewRomanFindLine ; use new Roman FindLine <19>
|
||
|
|
ELSE
|
||
|
|
beqROM ROMRomanFindLine ; use ROM code <21>
|
||
|
|
ENDIF
|
||
|
|
; otherwise fall into ptchScriptFindLine
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchScriptFindLine
|
||
|
|
; <16Dec89smb>
|
||
|
|
; Set the offset parameter to non-zero for StyledLineBreak for
|
||
|
|
; unstyled text. NOTE! This fix is only for UNSTYLED text.
|
||
|
|
; <9/6/90smb> Fix teCROnly bug that crashes the system: pre-
|
||
|
|
; incrementing caused us to compare one too many in the text and then
|
||
|
|
; the +1 to point beyond the CR caused the line breaks to be one off.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchScriptFindLine ; labeled for clarification although not used <21>
|
||
|
|
|
||
|
|
; left this test here rather than move to RecalLines since it would be duplicated 4x in RecalLines <12july89smb>
|
||
|
|
; If a Roman system then use old FindLine code: performance improvement <5May89smb>
|
||
|
|
Movem.l FindLineRegs,-(sp) ; preserve whether use new or old FindLine
|
||
|
|
with LineBreakFrame
|
||
|
|
link a6,#localFrame
|
||
|
|
; initializations
|
||
|
|
moveq #0,d7 ; flag multiple styles: init to single style
|
||
|
|
move.w d6,lineStart(a6)
|
||
|
|
move.w d6,EOLCharPosn(a6) ; start for new EOL position calculation
|
||
|
|
clr.w textPtrOffset(a6)
|
||
|
|
|
||
|
|
; set up textWidth: pixel width for displaying the text
|
||
|
|
moveq #0,d0
|
||
|
|
move.w teDestRect+right(a3),d0 ; right edge
|
||
|
|
sub.w teDestRect+left(a3),d0
|
||
|
|
IF SysVers < $700 THEN ; <31>
|
||
|
|
subq #1,d0 ; reduce for caret indent <31>
|
||
|
|
ENDIF ; <31>
|
||
|
|
swap d0 ; width is FIXED
|
||
|
|
move.l d0,width(a6) ; textWidth
|
||
|
|
|
||
|
|
; textLength: is necessary for CR test and unstyled text
|
||
|
|
moveq #0,d1 ; longize
|
||
|
|
move.w teLength(a3),d1 ; doc length
|
||
|
|
sub.w d6,d1 ; adjusted to lineStart position
|
||
|
|
move.l d1,length(a6)
|
||
|
|
|
||
|
|
; textPtr: pointer to current lineStart position.
|
||
|
|
movea.l teTextH(a3),a2 ; handle to start of text
|
||
|
|
movea.l (a2),a2 ; dereference
|
||
|
|
add.w d6,a2 ; begin search for CR here <17Nov88smb>
|
||
|
|
|
||
|
|
; if we are in CR only mode, just search for a CR
|
||
|
|
IF SysVers < $606 THEN ; <16>
|
||
|
|
addq.w #1,d1 ; incr for initial decr below in dbeq test <17Nov88smb>
|
||
|
|
ENDIF
|
||
|
|
tst.b teCROnly(a3)
|
||
|
|
bge.s @StyleCheck ; changed from beq to bge <2May89smb>
|
||
|
|
; notice: CCs are set to not equal AT THIS POINT based on test of CROnly.
|
||
|
|
bra.s @CheckLength ; zero check
|
||
|
|
@CRLoop
|
||
|
|
move.b (a2)+,d0 ; is it a CR? changed to byte <28Jan89smb>
|
||
|
|
jsrROM ROMTEEOLHook
|
||
|
|
@CheckLength
|
||
|
|
dbeq d1,@CRLoop
|
||
|
|
beq.s @GotCR
|
||
|
|
move.w teLength(a3),d0 ; return end of text if CR not found
|
||
|
|
jmpROM ROM@FindLineFinis ; <17Mar89smb>
|
||
|
|
@GotCR
|
||
|
|
move.w teLength(a3),d0 ; doc length <15Mar89smb>
|
||
|
|
sub.l d1,d0 ; - characters left
|
||
|
|
IF SysVers < $606 THEN ; <16>
|
||
|
|
addq #1,d0 ; go one beyond the CR <15Mar89smb>
|
||
|
|
ENDIF
|
||
|
|
jmpROM ROM@FindLineFinis ; <17Mar89smb>
|
||
|
|
; End of CR check
|
||
|
|
|
||
|
|
@StyleCheck
|
||
|
|
IF SysVers < $606 THEN ; <16>
|
||
|
|
subq.w #1,d1 ; decr from CR test above <17Nov88smb>
|
||
|
|
ENDIF
|
||
|
|
move.l a2,textPtr(a6)
|
||
|
|
move.l a2,initlTextPtr(a6)
|
||
|
|
|
||
|
|
; test for new style edit record
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bpl @noStyle ; don't set style: old-style edit record
|
||
|
|
jmpROM ROMinFindLine ; jump back into styled processing
|
||
|
|
|
||
|
|
@noStyle
|
||
|
|
move.w #0,currStyle(a6) ; needed for a termination test
|
||
|
|
; set up textStart and textEnd for non-styled text
|
||
|
|
move.l #0,start(a6) ; absolute posn from beginning of text
|
||
|
|
move.l length(a6),end(a6)
|
||
|
|
; Set the offset parameter to non-zero since this is the 1st script run on the line (AND THE ONLY ONE!) <15Dec89smb>.
|
||
|
|
move.l #1,offset(a6) ; necc for corrections to SMgr routine <15Dec89smb>
|
||
|
|
jmpROM ROM@SetUp ; patched now, jump back in!
|
||
|
|
|
||
|
|
IF SysVers>= $700 THEN ; <21>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchNewRomanFindLine
|
||
|
|
; <1/9/91smb> Must be patched to now call NewRomanFindLine
|
||
|
|
; for a Roman-only system. Rewrote to break on style runs
|
||
|
|
; rather than word boundaries. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchNewRomanFindLine
|
||
|
|
|
||
|
|
Movem.l FindLineRegs,-(sp) ; preserve whether use new or old FindLine
|
||
|
|
with LineBreakFrame
|
||
|
|
link a6,#localFrame
|
||
|
|
|
||
|
|
; textLength: is necessary for CR test and unstyled text
|
||
|
|
moveq #0,d1 ; longize
|
||
|
|
move.w teLength(a3),d1 ; doc length
|
||
|
|
sub.w d6,d1 ; adjusted to lineStart position
|
||
|
|
move.l d1,length(a6)
|
||
|
|
|
||
|
|
; textPtr: pointer to current lineStart position.
|
||
|
|
movea.l teTextH(a3),a2 ; handle to start of text
|
||
|
|
movea.l (a2),a2 ; dereference
|
||
|
|
add.w d6,a2 ; begin search for CR here
|
||
|
|
|
||
|
|
tst.b teCROnly(a3) ; do we only want to break on CRs?
|
||
|
|
bne @CROnlyMode ; yup.
|
||
|
|
|
||
|
|
; more initializations
|
||
|
|
move.l a2,textPtr(a6)
|
||
|
|
moveq #0,d7 ; flag multiple styles: init to single style
|
||
|
|
move.w d6,lineStart(a6)
|
||
|
|
move.w d6,EOLCharPosn(a6) ; start for new EOL position calculation
|
||
|
|
|
||
|
|
; set up textWidth: pixel width for displaying the text
|
||
|
|
moveq #0,d4
|
||
|
|
move.w teDestRect+right(a3),d4 ; right edge
|
||
|
|
sub.w teDestRect+left(a3),d4
|
||
|
|
;; subq #1,d4 ; reduce for caret indent <31>
|
||
|
|
move.l d4,width(a6) ; textWidth
|
||
|
|
|
||
|
|
; test for new style edit record
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bpl @CallP2C ; old-style edit record
|
||
|
|
|
||
|
|
; test for single or multiple format runs in the text
|
||
|
|
movea.l teStylesH(a3),a1 ; handle to teStyleRec
|
||
|
|
movea.l (a1),a1
|
||
|
|
cmpi.w #1,nRuns(a1)
|
||
|
|
beq.s @OneStyle ; bra if one style
|
||
|
|
|
||
|
|
moveq #1,d7 ; flag multiple styles to process
|
||
|
|
@OneStyle
|
||
|
|
moveq #0,d0
|
||
|
|
move.w d6,d0
|
||
|
|
jsrROM ROMGetCurStyle ; a0: ptr to current style, d0: style index
|
||
|
|
addq.w #1,d0 ; index returned is 0 based but nRuns isn't
|
||
|
|
move.w d0,styleIndex(a6)
|
||
|
|
; test for last style run
|
||
|
|
movea.l teStylesH(a3),a1 ; handle to teStyleRec
|
||
|
|
movea.l (a1),a1
|
||
|
|
cmp.w nRuns(a1),d0 ; is styleIndex < nRuns?
|
||
|
|
bcs.s @StyleLoop ; yes
|
||
|
|
moveq #0,d7 ; on last style run
|
||
|
|
|
||
|
|
; only one run so set up real length of run. The last entry in the styleRun table has
|
||
|
|
; a startChar posn equal to teLength+1. Must subtract the extra 1 to get the real length
|
||
|
|
; of the run.
|
||
|
|
|
||
|
|
@StyleLoop
|
||
|
|
move.l a0,currStyle(a6)
|
||
|
|
lea stStartSize(a0),a1
|
||
|
|
move.l a1,nextStyle(a6)
|
||
|
|
jsrROM ROMSetStyle ; set grafport style from current style in a0
|
||
|
|
|
||
|
|
; set up textStart (beginning of style run) and pin to lineStart
|
||
|
|
moveq #0,d1 ; longize
|
||
|
|
move.l currStyle(a6),a0
|
||
|
|
move.w startChar(a0),d1 ; get start of this format run
|
||
|
|
cmp.w lineStart(a6),d1 ; must pin to this LineStart!
|
||
|
|
bhs.s @GetLength ; bra if should use start of style run
|
||
|
|
move.w d6,d1 ; use beginning of line
|
||
|
|
|
||
|
|
@GetLength
|
||
|
|
; get the length
|
||
|
|
moveq #0,d0 ; longize
|
||
|
|
move.w stStartSize(a0),d0 ; end of style run
|
||
|
|
sub.w d1,d0 ; minus the style start
|
||
|
|
move.l d0,length(a6)
|
||
|
|
; test for one or last style to adjust length
|
||
|
|
tst.w d7
|
||
|
|
bne.s @CallP2C ; multiple styles so can use next style run for length
|
||
|
|
sub.l #1,length(a6)
|
||
|
|
;-----------------------------------------------
|
||
|
|
@CallP2C
|
||
|
|
; call Pixel2Char
|
||
|
|
move.l textPtr(a6),a0 ; textPtr
|
||
|
|
move.w length+2(a6),d0 ; textLength (style run length)
|
||
|
|
move.w width+2(a6),d1 ; width
|
||
|
|
clr.l d2 ; no slop
|
||
|
|
jsrROM ROMTEHitTestHook ; call Pixel2Char
|
||
|
|
; returns:
|
||
|
|
; d0 (low word) pixel width to character offset in block
|
||
|
|
; (high word) boolean = TRUE (0001) if offset corresponding to
|
||
|
|
; the given pixel width was found
|
||
|
|
; d1.w character offset
|
||
|
|
; d2.w flagged (0001) if hit on leading edge of char
|
||
|
|
|
||
|
|
move.w d1,d3 ; save char offset until after CR test
|
||
|
|
sub.w d0,d4 ; update pixel width
|
||
|
|
bls @CRTest ; got a hit (width <= 0)
|
||
|
|
|
||
|
|
; if at the last style, and pixel width > 0, and the TEHitTestHook is replaced, then
|
||
|
|
; must check the high word of d0 to see if we REALLY got a hit! <2/16/90smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l HitTestHook(a0),a0
|
||
|
|
peaROM ROMPixel2Char
|
||
|
|
cmpa.l (sp)+,a0
|
||
|
|
beq.s @NotAHit
|
||
|
|
; we've been hooked out so test per the old interface specs for a hit.
|
||
|
|
swap d0
|
||
|
|
tst.b d0
|
||
|
|
bne.s @CRTest
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@NotAHit
|
||
|
|
; test for CR
|
||
|
|
move.l textPtr(a6),a2
|
||
|
|
move.w length+2(a6),d1
|
||
|
|
bsr TestForCR
|
||
|
|
tst.b d0 ; did we find a CR?
|
||
|
|
beq.s @NoCR ; no, just measure
|
||
|
|
; found a CR
|
||
|
|
move.w length+2(a6),d0 ; style run length
|
||
|
|
sub.l d1,d0 ; - characters left (should make this .w) <29>x
|
||
|
|
add.w EOLCharPosn(a6),d0 ; new break posn
|
||
|
|
bra @finis
|
||
|
|
@NoCR
|
||
|
|
move.l d4,width(a6) ; and save as long.
|
||
|
|
add.w d3,EOLCharPosn(a6) ; update char offset
|
||
|
|
tst.w d7
|
||
|
|
beq @setResult ; only one style or last style to process
|
||
|
|
|
||
|
|
; test if we just processed the second to last format run
|
||
|
|
movea.l teStylesH(a3),a1 ; handle to teStyleRec
|
||
|
|
movea.l (a1),a1
|
||
|
|
move.w styleIndex(a6),d0
|
||
|
|
addq.w #1,d0 ; for next style run
|
||
|
|
move.w d0,styleIndex(a6)
|
||
|
|
cmp.w nRuns(a1),d0 ; at last style run?
|
||
|
|
bne.s @DoNextRun
|
||
|
|
|
||
|
|
; last format run: last entry of style run table is a dummy entry = teLength + 1
|
||
|
|
moveq #0,d7 ; flag no more runs after this one
|
||
|
|
; special test for case of dummy RUN of 1 char, which is 1 longer than the teLength, as found
|
||
|
|
; in KanjiTalk. Test here to save some other processing.
|
||
|
|
move.l nextStyle(a6),a0
|
||
|
|
move.w stStartSize(a0),d6
|
||
|
|
sub.w startChar(a0),d6
|
||
|
|
subq.w #1,d6
|
||
|
|
; MathCad creates a 0 length style run at the end of the StyleRun array of teLength->teLength, <26>
|
||
|
|
; instead of teLength->teLength+1, so we're testing for their bug here! <26>
|
||
|
|
ble @setResult ; problem of 0 length style run in MathCad <26>
|
||
|
|
;; beq @setResult ; change branching condition <26>
|
||
|
|
|
||
|
|
@DoNextRun
|
||
|
|
; use the next format to continue searching for a line break position.
|
||
|
|
; accumulate style offsets on line for line end
|
||
|
|
|
||
|
|
move.l nextStyle(a6),a0
|
||
|
|
move.w startChar(a0),d6
|
||
|
|
moveq #0,d0 ; clear high word before add <33>
|
||
|
|
move.w length+2(a6),d0
|
||
|
|
add.l d0,textPtr(a6) ; update textPtr to the next style run
|
||
|
|
bra @StyleLoop
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; on the way out now…
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@CRTest
|
||
|
|
; test for CR
|
||
|
|
move.l textPtr(a6),a2
|
||
|
|
move.w d3,d1 ; offset of char hit is length to use when searching for CR
|
||
|
|
bsr TestForCR
|
||
|
|
tst.b d0 ; did we find a CR?
|
||
|
|
bne.s @GotCR ; yes, done earlier than hit!
|
||
|
|
|
||
|
|
; no CR found, so use char offset but back up to word boundary
|
||
|
|
add.w d3,EOLCharPosn(a6) ; update char offset
|
||
|
|
move.w EOLCharPosn(a6),d0
|
||
|
|
|
||
|
|
; Must test if at a blank since FindWord will backup before testing if not @ posn. 0. <23>
|
||
|
|
; the problem this introduces is that we will not use an appications hook to teWordBreak if
|
||
|
|
; there is a blank or non-graphic character in this position.
|
||
|
|
tst.b d0 ; <23>
|
||
|
|
beq.s @CallFW ; <23>
|
||
|
|
@WrdBrkLoop
|
||
|
|
move.w d0,a1 ; CallBreak wants offset here <23>
|
||
|
|
import CallBreak ; <23>
|
||
|
|
bsr CallBreak ; calls Roman wordbreak hooked routine <23>
|
||
|
|
beq.s @CallFW ; CCs set if char<=$20 & d0 = wordstart <23>
|
||
|
|
; point past the break character and look for another break character until at EOD <23>
|
||
|
|
cmp.w teLength(a3),d0 ; is this break character at the EOD <23>
|
||
|
|
beq @HaveWordSt ; yes, so done <23>
|
||
|
|
; check if the break character is a CR! don't look ahead if so! <28>
|
||
|
|
movea.l teTextH(a3),a2 ; handle to start of text <28>
|
||
|
|
movea.l (a2),a2 ; dereference <28>
|
||
|
|
move.w d0,-(sp) ; save wordStart <28>
|
||
|
|
addq.w #1,(sp) ; incr beyond this break character <28>
|
||
|
|
move.b 0(a2,d0.w),d0 ; fetch the char to test <28>
|
||
|
|
jsrROM ROMTEEOLHook ; <28>
|
||
|
|
movem.w (sp)+,d0 ; don't change CCs <28>
|
||
|
|
; now bra based on result of TEEOLHook <28>
|
||
|
|
beq.s @finis ; found a CR so done <28>
|
||
|
|
; is a break char but not a CR so, try again <28>
|
||
|
|
;; addq #1,d0 ; no, so look ahead for next break character <23><28>
|
||
|
|
bra.s @WrdBrkLoop ; <23>
|
||
|
|
|
||
|
|
@CallFW
|
||
|
|
MoveQ #teFromFind,D2 ; say findLine is calling
|
||
|
|
jsrROM ROMFindWord ; EOL posn in d0 vectored so jsr to ROM addr <21>
|
||
|
|
|
||
|
|
@HaveWordSt
|
||
|
|
; must pin word start to lineStart for the case that it breaks across a word
|
||
|
|
cmp.w lineStart(a6),d0 ; d6 changes for styled so use actual lineStart <23>
|
||
|
|
bls @setResult
|
||
|
|
; test for case of 0 returned if line has no blanks
|
||
|
|
; these two lines seem to be redundant!!! (XX)
|
||
|
|
tst.w d0 ; non-zero word start is ok
|
||
|
|
bne.s @finis
|
||
|
|
move.w EOLCharPosn(a6),d0 ; assume P2C result is less than word end found
|
||
|
|
cmp.w d1,d0 ; use smaller of two
|
||
|
|
bls @finis ; use P2C result
|
||
|
|
; we should never come here! (XX)
|
||
|
|
move.w d1,d0 ; use word end found
|
||
|
|
bra @finis
|
||
|
|
|
||
|
|
@GotCR
|
||
|
|
move.w d3,d0 ; style run length
|
||
|
|
sub.l d1,d0 ; - characters left (should make this .w) <29>x
|
||
|
|
add.w EOLCharPosn(a6),d0 ; new break posn
|
||
|
|
bra @finis
|
||
|
|
|
||
|
|
;-----------------------------------------------
|
||
|
|
@CROnlyMode
|
||
|
|
; since we are in CR only mode, just search for a CR
|
||
|
|
bsr TestForCR
|
||
|
|
tst.b d0 ; did we find a CR?
|
||
|
|
bne.s @FoundCR ; yes
|
||
|
|
move.w teLength(a3),d0 ; no, return end of text
|
||
|
|
bra @finis
|
||
|
|
@FoundCR
|
||
|
|
move.w teLength(a3),d0 ; doc length <15Mar89smb>
|
||
|
|
sub.l d1,d0 ; - characters left
|
||
|
|
bra @finis
|
||
|
|
; End of CR check
|
||
|
|
;-----------------------------------------------
|
||
|
|
@setResult move.w EOLCharPosn(a6),d0 ; want result in d0
|
||
|
|
@finis
|
||
|
|
unlk a6
|
||
|
|
movem.l (sp)+,FindLineRegs ; restore
|
||
|
|
rts
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE TestForCR
|
||
|
|
; Called by NewRomanFindLine to search for a carriage return.
|
||
|
|
; Entry
|
||
|
|
; d1.w = length to search
|
||
|
|
; a2.l = text pointer
|
||
|
|
; Exit
|
||
|
|
; d0.b = TRUE (FF) if CR found
|
||
|
|
; d1.w = characters left
|
||
|
|
; Uses d0,d1
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
TestForCR
|
||
|
|
tst.w d1 ; is the initial length 0?
|
||
|
|
beq.s NoCR
|
||
|
|
; notice: CCs are set to NOT EQUAL at this point.
|
||
|
|
bra.s @TestLength
|
||
|
|
@CRLoop
|
||
|
|
move.b (a2)+,d0 ; is it a CR? changed to byte
|
||
|
|
jsrROM ROMTEEOLHook
|
||
|
|
@TestLength
|
||
|
|
dbeq d1,@CRLoop
|
||
|
|
beq.s GotCR
|
||
|
|
bra NoCR ; no CR in this run, just measure
|
||
|
|
NoCR
|
||
|
|
sf d0 ; return F
|
||
|
|
rts
|
||
|
|
GotCR
|
||
|
|
st d0 ; return T
|
||
|
|
rts
|
||
|
|
ENDIF ; IF SysVers>= $700 (ptchNewRomanFindLine)
|
||
|
|
ENDPROC ; ptchTEFindLine
|
||
|
|
ENDIF ; IF Scripts604 | SysVers>= $605 (ptchTEFindLine)
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchSetFont2Keyboard
|
||
|
|
; <18July89smb> Replaced call to AltSetRsrved to SetRsrved.
|
||
|
|
; <20July89smb> Before using an existing NullStyle in SetFont2Keyboard
|
||
|
|
; must make sure the font's script is the same as the keyScript.
|
||
|
|
; Otherwise, use script's default font.
|
||
|
|
; <28Sept89smb> Complete rewrite for 6.0.4 Script Systems and 7.0!
|
||
|
|
; <7Dec89smb> If unsynched and keyScript <> Roman, then synch up.
|
||
|
|
; Use application font as default now.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchSetFont2Keyboard PROC EXPORT
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
IMPORT ptchDumpBuffer
|
||
|
|
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
; if only 1 script installed none of this is necessary
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a1)
|
||
|
|
beq @Done ; only one script => keyboard set just fine!
|
||
|
|
|
||
|
|
movem.l d4/a2,-(sp) ; save
|
||
|
|
; get the keyboard script
|
||
|
|
move.l a0,a2 ; save style ptr
|
||
|
|
clr.l -(sp)
|
||
|
|
move.w #smKeyScript,-(sp) ; verb
|
||
|
|
_GetEnvirons
|
||
|
|
move.l (sp)+,d4 ; actually only a word
|
||
|
|
|
||
|
|
;---------------------------------------------------------------------------------
|
||
|
|
; If have an unsynchronized font & keyboard, and the KeyScript is not Roman, then synchronize
|
||
|
|
; the font and keyboard. <3Dec89smb>
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
tst.b ExpandMemRec.emUnsynchedFlag(a0)
|
||
|
|
beq.s @TstNullStyle ; bra if synched up
|
||
|
|
; we are unsynchronized but are the keyScripts different?
|
||
|
|
sf ExpandMemRec.emUnsynchedFlag(a0) ; assume will synch up
|
||
|
|
cmp.w #smRoman,d4 ; if unsynchronized, the keyScript was Roman
|
||
|
|
bne.s @TstNullStyle ; bra if want to synch up ?
|
||
|
|
|
||
|
|
st ExpandMemRec.emUnsynchedFlag(a0) ; don't synch up
|
||
|
|
move.w styleIndex(a2),d0 ; get index to styleRec
|
||
|
|
jsrROM ROMGetStyle ; get the styleRec in a0
|
||
|
|
move.l a0,-(sp) ; temp save
|
||
|
|
move.l a2,a0 ; restore current style ptr
|
||
|
|
jsrROM ROMSetStyle ; set the grafport; preserves a0
|
||
|
|
move.l (sp)+,a0 ; restore styleRec
|
||
|
|
move.w stFont(a0),d0 ; want current font here when branch!
|
||
|
|
bra @SetFont ; bra if equ: want to stay unsynched
|
||
|
|
|
||
|
|
; the new keyScript is non-Roman and we're currently unsynchronized so synch up
|
||
|
|
@TstNullStyle
|
||
|
|
;---------------------------------------------------------------------------------
|
||
|
|
IF NOT hasBufferingFix THEN ; <17>
|
||
|
|
; before synchronizing dump the text buffer: could change the keyboard in the middle of buffering <1/26/90smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFTextBuffering,d0
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
ENDIF ; <17>
|
||
|
|
|
||
|
|
; if a null style exists and it's font corresponds to the keyScript, use it!
|
||
|
|
jsrROM ROMAnyNullStyle ; returns a0 pointing to the null scrap record; cc's set
|
||
|
|
beq.s @styleLoop ; nope
|
||
|
|
lea scrpStyleTab(a0),a0 ; point to start of table
|
||
|
|
|
||
|
|
; must test if font is of the same script before using it
|
||
|
|
move.l a0,-(sp) ; save scrpStyleTab
|
||
|
|
sub.w #2,sp ; allocate return, 1 int
|
||
|
|
move.w scrpFont(a0),-(sp) ; scrpFont
|
||
|
|
_Font2Script ; get script from font
|
||
|
|
move.w (sp)+,d1 ; fontScript
|
||
|
|
move.l (sp)+,a0 ; restore scrpStyleTab
|
||
|
|
move.w scrpFont(a0),d0 ; want current font here when branch!
|
||
|
|
|
||
|
|
cmp.w d1,d4 ; is the scrpFont's script = the keyscript?
|
||
|
|
beq.s @SetFont ; already rsrved but must write to grafport
|
||
|
|
|
||
|
|
IF hasBufferingFix THEN ; <17>
|
||
|
|
; before synchronizing dump the text buffer: could change the keyboard in the middle of buffering <1/26/90smb>
|
||
|
|
; Dump here rather than inside the styleLoop below and after we are sure that things aren't synched.<17>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFTextBuffering,d0
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
ENDIF ; <17>
|
||
|
|
|
||
|
|
; no null style exists or bad font
|
||
|
|
; d4.b = the keyScript
|
||
|
|
; a2.l = the current style ptr.
|
||
|
|
|
||
|
|
; Test if the current font is the correct script If not, use the keyScript to determine
|
||
|
|
; a font to use. Will find the font by looking back in the styleRun array until we find
|
||
|
|
; a font whose script corresponds to the keyScript. If none exist, we'll use the script
|
||
|
|
; system's default font.
|
||
|
|
|
||
|
|
@styleLoop
|
||
|
|
move.w styleIndex(a2),d0 ; get index to styleRec
|
||
|
|
jsrROM ROMGetStyle ; get the styleRec in a0
|
||
|
|
move.l a0,-(sp) ; temp save
|
||
|
|
|
||
|
|
; set the grafport now since in the case of a selection SetRsrved does nothing (must set for BufferChar).
|
||
|
|
move.l a2,a0 ; restore a0
|
||
|
|
jsrROM ROMSetStyle ; preserves a0
|
||
|
|
sub.w #2,sp ; allocate return, 1 int
|
||
|
|
_FontScript ; get script from font in grafport
|
||
|
|
move.w (sp)+,d1 ; fontScript
|
||
|
|
move.l (sp)+,a0 ; restore styleRec
|
||
|
|
move.w stFont(a0),d0 ; want current font here when branch!
|
||
|
|
|
||
|
|
; test if the keyboard script is the same as the fontScript
|
||
|
|
cmp.w d1,d4 ; is the font's script = the keyscript?
|
||
|
|
beq.s @SetFont ; yep, use it.
|
||
|
|
|
||
|
|
cmpi.w #0,startChar(a2) ; are we at the start of the styleRun array yet?
|
||
|
|
beq.s @UseKbdScript ; yes.
|
||
|
|
subq #stStartSize,a2 ; no, next!
|
||
|
|
bra.s @styleLoop
|
||
|
|
|
||
|
|
@UseKbdScript
|
||
|
|
; no more styles to check, use script system's application font
|
||
|
|
clr.l -(sp) ; allocate return
|
||
|
|
move.w d4,-(sp) ; script
|
||
|
|
;; move.w #smScriptSysFond,-(sp) ; verb
|
||
|
|
move.w #smScriptAppFond,-(sp) ; verb: use application font <3Dec89smb>
|
||
|
|
_GetScript
|
||
|
|
move.l (sp)+,d0 ; font is only a word
|
||
|
|
|
||
|
|
@SetFont
|
||
|
|
; are we replacing a selection? <6Sept89smb>
|
||
|
|
move.w teSelStart(a3),d1 ; get selection start
|
||
|
|
cmp.w teSelEnd(a3),d1 ; same as selEnd?
|
||
|
|
beq.s @notSelection
|
||
|
|
; is a selection so delete selection and then set
|
||
|
|
move.l d0,d4 ; save the font
|
||
|
|
move.l a4,-(sp) ; pass the handle
|
||
|
|
_TEDelete
|
||
|
|
move.l d4,d0 ; restore the font and set it!
|
||
|
|
@notSelection
|
||
|
|
; load new font as in textStyle.tsFont
|
||
|
|
; d0 = font to use
|
||
|
|
move.l ExpandMem,a0 ; textStylePtr: actually only font attribute
|
||
|
|
move.w d0,ExpandMemRec.emNewFont(a0)
|
||
|
|
move.l a0,a2
|
||
|
|
lea ExpandMemRec.emNewStyle(a2),a2
|
||
|
|
lea ExpandMemRec.emNewFont(a0),a0
|
||
|
|
; redraw flag and mode already set at init time above
|
||
|
|
move.l a0,2(a2) ; only stuffed the font: need address of emNewFont
|
||
|
|
jsrROM ROMSetRsrved ; call this routine, which TESetStyle calls <18July89smb>
|
||
|
|
movem.l (sp)+,d4/a2 ; restore
|
||
|
|
@Done
|
||
|
|
Rts
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMGetCurStyle ; <25June89smb> moved into here from calling routines
|
||
|
|
; if only 1 script installed none of this is necessary
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a1)
|
||
|
|
beq @Done ; only one script => keyboard set just fine!
|
||
|
|
|
||
|
|
; get the keyboard script
|
||
|
|
move.l a0,-(sp) ; save style ptr
|
||
|
|
clr.l -(sp)
|
||
|
|
move.w #smKeyScript,-(sp) ; verb
|
||
|
|
_GetEnvirons
|
||
|
|
move.l (sp)+,d0 ; actually only a byte
|
||
|
|
|
||
|
|
; set the font in the grafport
|
||
|
|
move.l (sp)+,a0 ; restore a0
|
||
|
|
move.w d0,-(sp) ; save keyScript
|
||
|
|
jsrROM ROMSetStyle ; preserves a0
|
||
|
|
|
||
|
|
sub.w #2,sp ; allocate return, 1 int
|
||
|
|
_FontScript ; get script from font in grafport
|
||
|
|
move.w (sp)+,d1 ; fontScript
|
||
|
|
|
||
|
|
; test if the keyboard script is the same as the fontScript
|
||
|
|
move.w (sp)+,d0 ; get keyScript
|
||
|
|
cmp.w d0,d1
|
||
|
|
beq.s @Done ; font is ok
|
||
|
|
|
||
|
|
; synch the font to the keyboard
|
||
|
|
movem.w d3/d4,-(sp) ; need these babies for storage <20July89smb>
|
||
|
|
move.w d0,d3 ; save keyScript to compare w/ font in nullStyle <20July89smb>
|
||
|
|
clr.l -(sp) ; allocate return
|
||
|
|
move.w d0,-(sp) ; script
|
||
|
|
move.w #smScriptSysFond,-(sp) ; verb
|
||
|
|
_GetScript
|
||
|
|
move.l (sp)+,d0 ; font is only a word
|
||
|
|
|
||
|
|
; simulate a TESetStyle call to set the new font (just call SetRsrved)
|
||
|
|
; first test if a null style exists and if so, use this instead of the script system's font <12Mar89smb>
|
||
|
|
jsrROM ROMAnyNullStyle ; returns a0 pointing to the null scrap record
|
||
|
|
beq.s @UseScriptFont ; nope, use script's font
|
||
|
|
move.w d0,d4 ; save script's font <20July89smb>
|
||
|
|
Lea scrpStyleTab(a0),a0 ; point to start of table
|
||
|
|
|
||
|
|
; must test if font is of the same script before using it <20July89smb>
|
||
|
|
move.l a0,-(sp) ; save scrpStyleTab <20July89smb>
|
||
|
|
sub.w #2,sp ; allocate return, 1 int <20July89smb>
|
||
|
|
move.w scrpFont(a0),-(sp) ; scrpFont <20July89smb>
|
||
|
|
_Font2Script ; get script from font <20July89smb>
|
||
|
|
move.w (sp)+,d1 ; fontScript <20July89smb>
|
||
|
|
move.l (sp)+,a0 ; restore scrpStyleTab <20July89smb>
|
||
|
|
|
||
|
|
cmp.w d3,d1 ; is the scrpFont the same script as the keyscript? <20July89smb>
|
||
|
|
beq.s @UseNullStyle
|
||
|
|
move.w d4,d0 ; diff script so use script's def font <20July89smb>
|
||
|
|
bra.s @UseScriptFont
|
||
|
|
@UseNullStyle
|
||
|
|
move.w scrpFont(a0),d0 ; want to use the style in the null scrap record
|
||
|
|
@UseScriptFont
|
||
|
|
; at this point d0 contains the new font to use. The rest of the style information (size, face, etc)
|
||
|
|
; will be taken from the scrpStyle if one exists otherwise it comes from teSelStart's style. <20July89smb>
|
||
|
|
movem.w (sp)+,d3/d4 ; restore <20July89smb>
|
||
|
|
; load new font as in textStyle.tsFont
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb> textStylePtr: actually only font attribute
|
||
|
|
move.w d0,ExpandMemRec.emNewFont(a0)
|
||
|
|
move.l a0,a2 ; <3Feb89smb>
|
||
|
|
lea ExpandMemRec.emNewStyle(a2),a2 ; changed to lea <12July89smb>
|
||
|
|
lea ExpandMemRec.emNewFont(a0),a0 ; changed to lea <12July89smb>
|
||
|
|
; redraw flag and mode already set at init time above
|
||
|
|
move.l a0,2(a2) ; only stuffed the font: need address of emNewFont <10Mar89smb>
|
||
|
|
jsrROM ROMSetRsrved ; call this routine, which TESetStyle calls <18July89smb>
|
||
|
|
@Done
|
||
|
|
Rts
|
||
|
|
ENDIF
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; new <7Dec89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchSetKeyboard2Font
|
||
|
|
; <7Dec89smb> Added flag to clear up unsynchronized font & keybd.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchSetKeyboard2Font PROC
|
||
|
|
|
||
|
|
; if only 1 script installed none of this is necessary
|
||
|
|
move.l a0,-(sp) ; save style ptr
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a1)
|
||
|
|
beq.s @done ; only one script => keyboard set just fine!
|
||
|
|
|
||
|
|
; turn off the flag set when TE creates an unsynchronized font & keyboard situation <3Dec89smb>
|
||
|
|
sf ExpandMemRec.emUnsynchedFlag(a1) ; <3Dec89smb>
|
||
|
|
IF forLocalizability THEN ; <34f-YDS-9/2/91>
|
||
|
|
sub.w #2,sp ; allocate return, 1 int
|
||
|
|
_FontScript ; get script from font in grafport
|
||
|
|
; change the keyboard to match the current selection's script.
|
||
|
|
Move.w (sp), d0 ; script param on the stack from FontScript call !!!
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0 ;
|
||
|
|
move.b d0, lastScript(a0) ; push script numberused to highligt (d0) to lastScript
|
||
|
|
_KeyScript ; script param on the stack from FontScript call
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMinSetKeyboard2Font
|
||
|
|
ENDIF
|
||
|
|
@done jmpROM ROM@DoneInKeybd2Font
|
||
|
|
ENDPROC
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ClickKeyboard2Font
|
||
|
|
; <3Dec89smb>
|
||
|
|
;
|
||
|
|
; When click in Roman text (whether as an insertion point or selection),
|
||
|
|
; in a non-Roman font, set the keyboard to Roman. This is the only
|
||
|
|
; time we will allow an unsynchronized font and keyboard. Used by TEClick
|
||
|
|
; and TESetSelect since for hit-down or cursor movement.
|
||
|
|
;
|
||
|
|
; ENTRY
|
||
|
|
; The font must have been set in the grafport upon entry
|
||
|
|
; d0 = the current char offset or teSelStart
|
||
|
|
; USES
|
||
|
|
; a1,d0-d2
|
||
|
|
; preserves a0/d3/d4
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ClickKeyboard2Font PROC EXPORT
|
||
|
|
|
||
|
|
; if only 1 script installed none of this is necessary
|
||
|
|
movem.l a0/a2/d3/d4,-(sp) ; save style ptr
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a1)
|
||
|
|
beq @done ; only one script => keyboard set just fine!
|
||
|
|
|
||
|
|
move.w d0,d3 ; char offset to use for synching <3Dec89smb>
|
||
|
|
|
||
|
|
; get the script (the font must have been set in the grafport already)
|
||
|
|
sub.w #2,sp ; allocate return, 1 int
|
||
|
|
_FontScript ; get script from font in grafport
|
||
|
|
;---------------------------------------------------------------------
|
||
|
|
; Will now allow a Roman keyboard and a non-Roman font for hit-down; KanjiTalk wants
|
||
|
|
; to be able to input Roman text from a Kanji font <3Dec89smb>
|
||
|
|
|
||
|
|
; if we're in single-byte Roman text, and the font is non-Roman then
|
||
|
|
; want keyboard to be Roman <3Dec89smb>
|
||
|
|
move.l ExpandMem,a0 ; initialize to false <3Dec89smb>
|
||
|
|
sf ExpandMemRec.emUnsynchedFlag(a0) ; <3Dec89smb>
|
||
|
|
|
||
|
|
; if the font script = Roman then synch keyboard to the font
|
||
|
|
move.w (sp)+,d4 ; font script
|
||
|
|
beq.s @UseFont
|
||
|
|
|
||
|
|
; Always synchronize the keyboard & font unless a double-byte script. <37>
|
||
|
|
subq #4,sp ; <37>
|
||
|
|
move.w d4,-(sp) ; <37>
|
||
|
|
move.w #smScriptRedraw,-(sp) ; <37>
|
||
|
|
_GetScript ; <37>
|
||
|
|
move.l (sp)+,d0 ; <37>
|
||
|
|
tst.b d0 ; result is a byte <37>
|
||
|
|
ble @UseFont ; 0 = single byte LR script, -1 = RL script, 1 = double-byte script <37>
|
||
|
|
|
||
|
|
; If we're not in single-byte Roman text then synch keyboard to the font
|
||
|
|
; now test with charbyte to see if we're in Roman text
|
||
|
|
clr.w -(sp) ; room for return
|
||
|
|
move.l teTextH(a3),a2 ; get handle
|
||
|
|
move.l (a2),a2 ; save text ptr to re-use <37>
|
||
|
|
move.l a2,-(sp) ; pointer to start of text <37>
|
||
|
|
move.w d3,-(sp) ; offset in text
|
||
|
|
_CharByte
|
||
|
|
tst.w (sp)+ ; high byte of character?
|
||
|
|
bne.s @UseFont ; if not single byte text, synch to font script
|
||
|
|
|
||
|
|
; Is a single byte character…
|
||
|
|
; Is this Roman text?
|
||
|
|
clr.w -(sp) ; room for return
|
||
|
|
move.l a2,-(sp) ; pointer to start of text
|
||
|
|
move.w d3,-(sp) ; offset in text
|
||
|
|
_CharType
|
||
|
|
move.w (sp)+,d0 ; now let's see what "type" of char we have!
|
||
|
|
|
||
|
|
; Mask off what I'm interested in: the Type ($000F) and the Direction ($2000)
|
||
|
|
; I want a char whose Direction is LR (smCharLeft, $0000) and whose Type is Roman
|
||
|
|
; which can be smCharAscii (1) or smCharEuro (7).
|
||
|
|
and.w #smcTypeMask+smcRightMask,d0
|
||
|
|
;; beq.s @Set2Roman ; smCharPunct = 0
|
||
|
|
cmp.w #smCharAscii,d0
|
||
|
|
beq.s @Set2Roman
|
||
|
|
cmp.w #smCharEuro,d0 ; not really necc f. 2-byte scripts… <37>
|
||
|
|
bne.s @UseFont ; otherwise, must use the font script
|
||
|
|
@Set2Roman
|
||
|
|
; want the keyboard to be Roman rather than synchronized to the font script <3Dec89smb>
|
||
|
|
move.w #smRoman,d4
|
||
|
|
move.l ExpandMem,a0 ; indicate that we have an anamoly now! <3Dec89smb>
|
||
|
|
st ExpandMemRec.emUnsynchedFlag(a0) ; <3Dec89smb>
|
||
|
|
@UseFont
|
||
|
|
move.w d4,-(sp)
|
||
|
|
;---------------------------------------------------------------------
|
||
|
|
; change the keyboard to match the current selection's script.
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <34f-YDS-9/2/91>
|
||
|
|
Move.w (sp), d0 ; script param on the stack from FontScript call !!!
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0 ;
|
||
|
|
move.b d0, lastScript(a0) ; push script numberused to highligt (d0) to lastScript
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
_KeyScript ; script param on the stack from FontScript call
|
||
|
|
@done
|
||
|
|
movem.l (sp)+,a0/a2/d3/d4 ; restore style ptr
|
||
|
|
Rts
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEChar2Pixel
|
||
|
|
; <7Aug89smb> test if called for R-to-L highlighting rather
|
||
|
|
; than hit-testing.
|
||
|
|
; <9/20/90> Patch out more of C2P in order to use TextWidthHook
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEChar2Pixel PatchProc JChar2Pixel
|
||
|
|
|
||
|
|
; see initial comments in TextEdit.a
|
||
|
|
move.l d3,-(sp)
|
||
|
|
tst.b TESysJust
|
||
|
|
beq @UseC2P
|
||
|
|
; RL line direction
|
||
|
|
movem.l d0/d2/a0/a1,-(sp)
|
||
|
|
move.w d1,-(sp)
|
||
|
|
tst.b teSize(a3)
|
||
|
|
bpl.s @noStyle
|
||
|
|
move.L teTextH(a3),a1 ; source = text
|
||
|
|
move.L (a1),a1 ; dereference
|
||
|
|
suba.l a1,a0 ; offset to beginning of text to be measured
|
||
|
|
move.w a0,d0 ; length to beginning of style run
|
||
|
|
add.w (sp),d0 ; add in length to offset
|
||
|
|
move.w d0,d3 ; save
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
jsrROM ROMGetDirection ; <6June89smb>
|
||
|
|
bra.s @TestDir ; <6June89smb>
|
||
|
|
@noStyle
|
||
|
|
;; d3 must be an absolute position for comparing to line ends. <20June89smb>
|
||
|
|
move.w d1,d3 ; offset w/in line <20June89smb>
|
||
|
|
add.w (a2),d3 ; absolute position <20June89smb>
|
||
|
|
; get the script direction from the font in the grafport for unstyled text <6June89smb>
|
||
|
|
jsrROM ROMGetDirection ; input is a3 - handle to teRec <11><17>
|
||
|
|
;; sub.w #6,sp ; allocate return, 1 long, 1 int <11><17>
|
||
|
|
;; _FontScript ; returns script; leave on stack as param <11><17>
|
||
|
|
;; move.w #smScriptRight,-(sp) ; pass verb <11><17>
|
||
|
|
;; _GetScript <11><17>
|
||
|
|
;; move.l (sp)+,d1 ; get byte = line direction <11><17>
|
||
|
|
@TestDir
|
||
|
|
cmp.b TESysJust,d1
|
||
|
|
beq.s @fixStack ; not equal=> LR script
|
||
|
|
|
||
|
|
; RL line and LR script
|
||
|
|
; compare current position to line ends
|
||
|
|
move.w (sp)+,d1
|
||
|
|
movem.l (sp)+,d0/d2/a0/a1
|
||
|
|
; test if called for R-to-L highlighting rather than hit-testing <31July89smb>
|
||
|
|
move.l d2,-(sp) ; save <1Aug89smb>
|
||
|
|
swap d2 ; direction in high word <31July89smb>
|
||
|
|
cmp.w #smHilite,d2 ; bug fix for Arabic highlighting <31July89smb>
|
||
|
|
movem.l (sp)+,d2 ; restore (w/o affecting CCs) <1Aug89smb>
|
||
|
|
|
||
|
|
IF NOT hasTextWidthHook THEN ; <17>
|
||
|
|
bne.s @Use4HitTest ; <31July89smb>
|
||
|
|
bra.s @UseC2P ; using for hilighting! <31July89smb>
|
||
|
|
@Use4HitTest
|
||
|
|
jmpROM ROM@Use4HitTest
|
||
|
|
ELSE ; <17>
|
||
|
|
beq.s @UseC2P ; using for hilighting! <31July89smb> <17>
|
||
|
|
; use for hit testing <17>
|
||
|
|
cmp.w (a2),d3 ; same as lineStart?
|
||
|
|
beq.s @OnAnEnd
|
||
|
|
cmp.w 2(a2),d3 ; same as lineEnd?
|
||
|
|
bne.s @UseC2P
|
||
|
|
|
||
|
|
@OnAnEnd
|
||
|
|
; RL line and LR script and on a lineEnd so process w/o calling C2P.
|
||
|
|
swap d2 ; direction in high word
|
||
|
|
cmp.w #smLeftCaret,d2
|
||
|
|
bne.s @RightCaret
|
||
|
|
cmp.w (a2),d3 ; same as lineStart?
|
||
|
|
beq.s @TextWidth ; yep, start
|
||
|
|
bra.s @ZeroWidth ; nope, end
|
||
|
|
@RightCaret
|
||
|
|
cmp.w (a2),d3 ; same as lineStart?
|
||
|
|
beq.s @ZeroWidth ; yep, start
|
||
|
|
|
||
|
|
@TextWidth
|
||
|
|
moveq #0,d1 ; wants offset here <17>
|
||
|
|
import TETextWidthHook ; <17>
|
||
|
|
bsr TETextWidthHook ; hook out TextWidth <17>
|
||
|
|
bra.s @done
|
||
|
|
@ZeroWidth
|
||
|
|
moveq #0,d1
|
||
|
|
@done move.l (sp)+,d3 ; restore <4May89smb>
|
||
|
|
Rts
|
||
|
|
ENDIF ; <17>
|
||
|
|
@fixStack
|
||
|
|
jmpROM ROM@fixStack
|
||
|
|
@UseC2P
|
||
|
|
jmpROM ROM@UseC2P
|
||
|
|
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchPixel2Char
|
||
|
|
; <7Aug89smb> I need to patch a bug in the routine SetUp, a
|
||
|
|
; subroutine of StylMeasure, and only called by RomanFindLine.
|
||
|
|
; It is a caller of P2C that has no vector or trap.
|
||
|
|
; Patching out the vector jPixel2Char and not the hook, TEHitTestHook.
|
||
|
|
; This will allow developers to patch out the same vector w/o
|
||
|
|
; repercussions but if they chain in a fix before using jPixel2Char
|
||
|
|
; in the hook, then there may be a problem.
|
||
|
|
; <7Dec89smb> Added flag to indicate that the leftSide flag shouldn't
|
||
|
|
; be set if TextWidth was used to measure. Also added more patches
|
||
|
|
; to ptchSetUp to handle this new flag: don't bother looking at leftSide
|
||
|
|
; flag if TextWidth did the measuring instead of SMgr's P2C. Also added
|
||
|
|
; three other lines that weren't necessary before but cleaner to have the
|
||
|
|
; complete end of the routine here now.
|
||
|
|
; <9/20/90smb> Calling TETextWidthHook now.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchPixel2Char PatchProc JPixel2Char
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
with P2CFrame
|
||
|
|
link a6,#locals
|
||
|
|
move.l a0,textPtr(a6) ; save for result
|
||
|
|
move.w d1,pixelWidth(a6) ; save for SMgr P2C (and width used for 7.0)
|
||
|
|
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
; use NPixel2Char now for a faster and more powerful hit-test routine! <23>
|
||
|
|
subq #2,sp
|
||
|
|
move.l a0,-(sp) ; pass text ptr to buffer
|
||
|
|
and.l #$0000FFFF,d0 ; want length as a longint
|
||
|
|
move.l d0,-(sp)
|
||
|
|
swap d2 ; here's the slop
|
||
|
|
clr.w d2 ; as a FIXED
|
||
|
|
move.l d2,-(sp)
|
||
|
|
move.w d1,txtWidth(a6) ; save for result
|
||
|
|
swap d1 ; pass de pixel width
|
||
|
|
clr.w d1 ; as a FIXED
|
||
|
|
move.l d1,-(sp)
|
||
|
|
pea leadingEdge(a6) ; leadingEdge is a var
|
||
|
|
pea widthRemaining(a6) ; width remaining is a var & FIXED
|
||
|
|
move.w #smOnlyStyleRun,-(sp) ; default style run position
|
||
|
|
move.l #$00010001,d0 ; default 1/1 scaling
|
||
|
|
move.l d0,-(sp) ; push numer
|
||
|
|
move.l d0,-(sp) ; push denom
|
||
|
|
_NPixel2Char
|
||
|
|
move.w (sp)+,d1 ; returns the char offset
|
||
|
|
move.w txtWidth(a6),d0 ; return initial width for a hit
|
||
|
|
moveq #0,d2 ; must clear since DoSearch tests it
|
||
|
|
tst.w widthRemaining(a6) ; is there a hit? (FIXED result)
|
||
|
|
bmi.s @SetLEFlag ; yep
|
||
|
|
sub.w widthRemaining(a6),d0 ; return actual measured width
|
||
|
|
|
||
|
|
@SetLEFlag
|
||
|
|
; indicate to DoSearch that SMgr's P2C used hence leadingEdge flag is valid
|
||
|
|
bset #16,d2 ; flag that P2C used
|
||
|
|
move.b leadingEdge(a6),d2 ; renamed from leftSide <23>
|
||
|
|
bne.s @finis ; bra if leadingEdge is T since whole character fits <20>
|
||
|
|
; decrement if LeadingEdge is F to be sure whole character will display <23>
|
||
|
|
; backup correctly for either single or double byte text
|
||
|
|
movem.l d0/d2/d3/d6,-(sp) ; <23>
|
||
|
|
move.l textPtr(a6),a0 ; pointer to text measured <23>
|
||
|
|
move.l teTextH(a3),a1 ; <23>
|
||
|
|
move.l (a1),a1 ; <23>
|
||
|
|
suba.l a1,a0 ; offset of this text <23>
|
||
|
|
move.w a0,-(sp) ; save for decrement <23>
|
||
|
|
move.w d1,d6 ; DoubleByte wants offset here <23>
|
||
|
|
add.w a0,d6 ; current position <23>
|
||
|
|
move.w #-1,d3 ; incremental direction to move <23>
|
||
|
|
jsrROM ROMDoubleByte ; <23>
|
||
|
|
move.w d6,d1 ; new position <23>
|
||
|
|
sub.w (sp)+,d1 ; restore as an offset w/in this text <23>
|
||
|
|
movem.l (sp)+,d0/d2/d3/d6 ; <23>
|
||
|
|
@finis
|
||
|
|
unlk a6
|
||
|
|
rts
|
||
|
|
ELSE ; NOT (SysVers>= $700) <23>
|
||
|
|
|
||
|
|
move.w d0,textLen(a6) ; save for return test
|
||
|
|
move.w d2,slop(a6) ; save for SMgr P2C
|
||
|
|
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
moveq #0,d1 ; wants offset here <17>
|
||
|
|
import TETextWidthHook ; <17>
|
||
|
|
bsr TETextWidthHook ; hook out TextWidth <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
subq.l #2,sp ; room for result
|
||
|
|
move.l a0,-(sp) ; ptr on stack
|
||
|
|
move.w #0,-(sp) ; offset to first char
|
||
|
|
move.w d0,-(sp) ; length of block
|
||
|
|
_TextWidth ; how wide is it?
|
||
|
|
clr.l d0
|
||
|
|
move.w (sp)+,d0 ; this wide
|
||
|
|
ENDIF ; <17>
|
||
|
|
moveq #0,d2 ; must clear since DoSearch tests it <26June89smb>
|
||
|
|
move.w textLen(a6),d1 ; char offset := length (end posn of style run)
|
||
|
|
|
||
|
|
; catch corrected result of overflow bug in StdTxMeas <19>
|
||
|
|
with splineKeyRec
|
||
|
|
move.l expandMem,a0 ; get low memory expand pointer. <19>
|
||
|
|
move.l ExpandMemRec.emSplineKey(a0),a0 ; get handle to splineKey globals. <19>
|
||
|
|
move.l (a0), a0 ; get pointer to splineKey globals. <19>
|
||
|
|
cmp.b #-1, splineKeyRec.safeCount(a0) ; check to see if count changed <19>
|
||
|
|
beq.s @noOverFlow ; <19>
|
||
|
|
move.w splineKeyRec.safeCount(a0),d1 ; new char offset <19>
|
||
|
|
endWith
|
||
|
|
move.w d1,textLen(a6) ; try this out: use the new count for P2C <19>
|
||
|
|
@noOverFlow
|
||
|
|
cmp.w pixelWidth(a6),d0 ; measured width <= pixelWidth input?
|
||
|
|
bls.s @finis ; yes, get next style until run out of pixels <26June89smb>
|
||
|
|
|
||
|
|
; measured text > inputted pixelWidth therefore must measure with P2C to get char offset <23Sept88smb>
|
||
|
|
move.w d0,txtWidth(a6)
|
||
|
|
clr.w -(sp) ; room for Pixel2Char return
|
||
|
|
move.l textPtr(a6),-(sp) ; pass text ptr to buffer
|
||
|
|
move.w textLen(a6),-(sp) ; pass text len
|
||
|
|
move.w slop(a6),-(sp) ; here's the slop
|
||
|
|
move.w pixelWidth(a6),-(sp) ; pass de pixel width
|
||
|
|
pea leadingEdge(a6) ; leftSide is a var (renamed from leftSide) <24>
|
||
|
|
|
||
|
|
_Pixel2Char
|
||
|
|
move.w (sp)+,d1 ; returns the char offset
|
||
|
|
move.w txtWidth(a6),d0 ; restore measured pixelWidth
|
||
|
|
|
||
|
|
bset #16,d0 ; an offset corresponds to PixelWidth
|
||
|
|
; indicate SMgr's P2C used hence leadingEdge flag is valid <7Dec89smb>
|
||
|
|
moveq #0,d2 ; clear again after P2C call <7Dec89smb>
|
||
|
|
bset #16,d2 ; flag that P2C used <7Dec89smb>
|
||
|
|
move.b leadingEdge(a6),d2 ; renamed from leftSide <24>
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
bne.s @finis ; whole character fits <19>
|
||
|
|
; decrement if LeadingEdge is F to be sure whole character will display <19>
|
||
|
|
; backup correctly for either single or double byte text (pinHead!) <19>
|
||
|
|
movem.l d0/d2/d3/d6,-(sp) ; <19>
|
||
|
|
move.l textPtr(a6),a0 ; <20>
|
||
|
|
move.l teTextH(a3),a1 ; <20>
|
||
|
|
move.l (a1),a1 ; pointer to text measured <20>
|
||
|
|
suba.l a1,a0 ; offset of this text <20>
|
||
|
|
move.w a0,-(sp) ; save for decrement <20>
|
||
|
|
move.w d1,d6 ; DoubleByte wants offset here <20>
|
||
|
|
add.w a0,d6 ; current position <20>
|
||
|
|
move.w #-1,d3 ; incremental direction to move <19>
|
||
|
|
jsrROM ROMDoubleByte ; <19>
|
||
|
|
move.w d6,d1 ; new position <19>
|
||
|
|
sub.w (sp)+,d1 ; restore as an offset w/in this text <20>
|
||
|
|
movem.l (sp)+,d0/d2/d3/d6 ; <19>
|
||
|
|
@finis
|
||
|
|
unlk a6
|
||
|
|
rts
|
||
|
|
ELSE
|
||
|
|
beq.s @finis ; PixelWidth R. of char or L.of entire string
|
||
|
|
; increment to compensate for decrement if leadingEdge is true AND we are within the line boundaries
|
||
|
|
add.w #1,d1 ; caller assumes R. side; incr for L.side
|
||
|
|
@finis
|
||
|
|
unlk a6
|
||
|
|
cmpROM ROMSetUpP2C,(sp) ; if StylMeasure called bra to ptchSetUp <7Dec89smb>
|
||
|
|
beq.s ptchSetUp ; <7Dec89smb>
|
||
|
|
rts
|
||
|
|
;-----------------------------------------------
|
||
|
|
ptchSetUp
|
||
|
|
sub.w d0,d4 ; update width
|
||
|
|
swap d0 ; get flag in low byte
|
||
|
|
|
||
|
|
addq.l #4,sp ; pop return address <7Dec89smb>
|
||
|
|
; if SMgr's P2C measured the text then the leadingEdge flag is valid <7Dec89smb>
|
||
|
|
tst.l d2 ; flag in high word; whole reg 0 if TextWidth used <7Dec89smb>
|
||
|
|
beq.s @CharOffsetOK ; TextWidth used, not SMgr's P2C <7Dec89smb>
|
||
|
|
bclr #16,d2 ; clean up! <7Dec89smb>
|
||
|
|
ENDIF
|
||
|
|
ENDIF ; <23>
|
||
|
|
endWith
|
||
|
|
;-----------------------------------------------------------------------
|
||
|
|
;-----------------------------------------------------------------------
|
||
|
|
ELSE ; NOT (Scripts604 | SysVers>= $605)
|
||
|
|
cmpROM ROMSetUpP2C,(sp)
|
||
|
|
beq.s @DeBuggyCaller
|
||
|
|
; other caller
|
||
|
|
jmpROM ROMTEPixel2Char
|
||
|
|
|
||
|
|
@DeBuggyCaller
|
||
|
|
; P2C was called by SetUp in StylMeasure, which is only called by RomanFindLine
|
||
|
|
jsrROM ROMTEPixel2Char
|
||
|
|
sub.w d0,d4 ; update width
|
||
|
|
swap d0 ; get flag in low byte
|
||
|
|
ENDIF
|
||
|
|
;-----------------------------------------------------------------------
|
||
|
|
;-----------------------------------------------------------------------
|
||
|
|
; RomanFindLine expects the char offset to come back as a leftSide hit. Since using SMgr P2C must
|
||
|
|
; check the leftSide flag and if it's F. incr the char count for the decr in RomanFindline. This
|
||
|
|
; forces the result to be a leftSide hit at the next character. <4Aug89smb>
|
||
|
|
tst.b d2 ; rightSide of char? <4Aug89smb>
|
||
|
|
bne.s @CharOffsetOK ; nope, left <4Aug89smb>
|
||
|
|
addq.w #1,d1 ; force a leftSide hit <4Aug89smb>
|
||
|
|
@CharOffsetOK
|
||
|
|
move.w (sp)+,d2 ; restore count, another forgotten line! <7Dec89smb>
|
||
|
|
Rts
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE GestaltTEciVersion
|
||
|
|
; <8Aug89smb>
|
||
|
|
; The following Gestalt Function is an interface using the Gestalt
|
||
|
|
; mechanism to determine the current version of TextEdit.
|
||
|
|
;
|
||
|
|
; FUNCTION GestaltTEVersion ( gestaltSelector: OSType;
|
||
|
|
; VAR gestaltResult: Longint;): OSErr;
|
||
|
|
;
|
||
|
|
; The versions for the gestaltTextEditVersion selector are:
|
||
|
|
; gestaltUndefSelectorErr = old styled TextEdit (pre-MacIIci TE)
|
||
|
|
; All the following versions of TE are based on the SMgr-compatible version:
|
||
|
|
; gestaltTE1 (1) = MacIIci ROM/PTCH 67c
|
||
|
|
; gestaltTE2 (2) = 604 Script Systems PTCH 67c (Script bug fixes for MacIIci)
|
||
|
|
; gestaltTE3 (3) = 604 Script Systems ptch0/parallels Big Bang (for MacII, MacSE, Mac+)
|
||
|
|
; gestaltTE4 (4) = Big Bang ptch0/PTCH 67c
|
||
|
|
; gestaltTE5 (5) = TextWidthHook available in System 7
|
||
|
|
;
|
||
|
|
; THE OBVIOUS: since this is here for the MacIIci ROM patch, we have
|
||
|
|
; hardcoded the ONLY value that is appropriate to be returned! sigh.
|
||
|
|
;_________________________________________________________________________________
|
||
|
|
|
||
|
|
GestaltTEciVersion PROC EXPORT
|
||
|
|
|
||
|
|
move.l (sp)+, a0 ; return address
|
||
|
|
move.l (sp)+, a1 ; address of result
|
||
|
|
; return correct version of this code <29Aug89smb>
|
||
|
|
; rearranged the order of these conditionals in case we set Scripts604 true for SysVers >= $605 <2>
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN
|
||
|
|
move.l #gestaltTE5, (a1) ; TextWidthHook available in System 7 <18>
|
||
|
|
ELSEIF SysVers >= $605 THEN ; changed IF to ELSEIF <18>
|
||
|
|
move.l #gestaltTE4, (a1) ; 6.0.5 & Big Bang
|
||
|
|
ELSEIF Scripts604 THEN
|
||
|
|
move.l #gestaltTE2, (a1) ; 604 Scripts
|
||
|
|
ELSE
|
||
|
|
move.l #gestaltTE1, (a1) ; MacIIci ROM
|
||
|
|
ENDIF
|
||
|
|
adda.w #4, sp ; pop the selector type
|
||
|
|
move.w #noErr, (sp) ; it always works
|
||
|
|
jmp (a0)
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; Created one procedure for all the routines needing changes due to the GetNextDisplayStyle
|
||
|
|
; bug! What a mess! <9Aug89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
PROC
|
||
|
|
EXPORT ptchTestRunDirection
|
||
|
|
EXPORT ptchTEDoText
|
||
|
|
EXPORT ptchDoDraw
|
||
|
|
EXPORT ptchCursorMovement
|
||
|
|
EXPORT ptchFindStyleRun
|
||
|
|
EXPORT ptchTEGetFormatOrder
|
||
|
|
EXPORT ptchCaretDisplay
|
||
|
|
EXPORT ptchGetStylesInOrder
|
||
|
|
EXPORT ptchChkBounds
|
||
|
|
EXPORT ptchDoMeasure
|
||
|
|
EXPORT ptchOnSameLine
|
||
|
|
EXPORT ptchTEKey
|
||
|
|
EXPORT ptchTEInit ; <2Oct89smb> moved into this proc
|
||
|
|
EXPORT ptchTEDelete
|
||
|
|
EXPORT ptchTrimMeasure ; <16Nov89smb>
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
EXPORT ptchDumpBuffer ; <28Sept89smb>
|
||
|
|
EXPORT ptchBufferChar ; <28Sept89smb>
|
||
|
|
EXPORT ptchTEBufferText ; <28Sept89smb>
|
||
|
|
EXPORT ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; Added all the traps that call StdEntry since there are dependencies here.<28Sept89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
EXPORT ptchTEActivate
|
||
|
|
EXPORT ptchTEDeactivate
|
||
|
|
EXPORT ptchTEDispatch
|
||
|
|
EXPORT ptchTEGetText
|
||
|
|
EXPORT ptchTESetText
|
||
|
|
EXPORT ptchTECalText
|
||
|
|
EXPORT ptchTESetSelect
|
||
|
|
EXPORT ptchTEUpdate
|
||
|
|
EXPORT ptchTEClick
|
||
|
|
EXPORT ptchTECopy
|
||
|
|
EXPORT ptchTECut
|
||
|
|
EXPORT ptchTEIdle
|
||
|
|
EXPORT ptchTEPaste
|
||
|
|
EXPORT ptchTEInsert
|
||
|
|
EXPORT ptchTESetJust
|
||
|
|
EXPORT ptchTEScroll
|
||
|
|
EXPORT ptchTEPinScroll
|
||
|
|
EXPORT ptchTESelView
|
||
|
|
EXPORT ptchTEAutoView
|
||
|
|
EXPORT ptchTEGetOffset
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
EXPORT ptchGetWidth ; <16Nov89smb> ptchDoMeasure dependent
|
||
|
|
EXPORT ptchGetRLPosition ; <20Nov89smb> ptchCaretDisplay dependent
|
||
|
|
EXPORT ptchCaretInsideRun ; <7Dec89smb>
|
||
|
|
EXPORT ptchDoCaret ; <1/29/90smb> calls CaretDisplay
|
||
|
|
EXPORT ptchGetLRPosition ; <2/8/90smb> called by CaretDisplay
|
||
|
|
ENDIF
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
EXPORT ptchDoErase ; <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
IF forLocalizability THEN
|
||
|
|
EXPORT ptchOnLineEnd ; <34a-YDS-9/2/91>
|
||
|
|
EXPORT ptchWholeDoMeasure ; <34-YDS-9/2/91>
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchGetNextDisplayStyle
|
||
|
|
; <8Aug89smb> Made a2StyleRun(a6) an offset rather than a
|
||
|
|
; pointer. The pointer's handle wasn't locked so it moves! UGH!!
|
||
|
|
; <16Nov89smb> Added code to test for unstyled teRecords since
|
||
|
|
; this looks like it should break without it! (see calls to here!)
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetNextDisplayStyle
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
movea.l a2StyleRun(a6),a0
|
||
|
|
; For styled, is an offset to desired posn in style run array, otherwise is a ptr <5Aug89smb>
|
||
|
|
; Made a2StyleRun(a6) an offset - can't save the ptr! (the handle's not locked!)
|
||
|
|
; Get to posn in styleRun array via the style handle and saved offset <5Aug89smb>
|
||
|
|
tst.w teSize(a3) ; <16Nov89smb>
|
||
|
|
bpl.s @Unstyled ; saved as a ptr for unstyled text! <16Nov89smb>
|
||
|
|
; styled teRec
|
||
|
|
move.l teStylesH(a3),a1 ; <5Aug89smb>
|
||
|
|
move.l (a1),a1 ; deref <5Aug89smb>
|
||
|
|
add.l a1,a0 ; add to offset to get desired posn in the array <5Aug89smb>
|
||
|
|
@Unstyled
|
||
|
|
move.w fmtOrderingIndex(a6),d0 ; index (0-d2) into array for next style run
|
||
|
|
lsl.w #1,d0 ; index into fmtOrdering array
|
||
|
|
move.l fmtOrderingPtr(a6),a1
|
||
|
|
move.w 0(a1,d0.w),d0 ; index of style run to process
|
||
|
|
move.w d0,styleRunIndex(a6)
|
||
|
|
lsl.w #lnStStartSize,d0 ; offset in styleRun array
|
||
|
|
lea.l 0(a0,d0.w),a0 ; pointer to next style run
|
||
|
|
rts
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEInit
|
||
|
|
; <18July89smb> replaced d1 w/ d3 for WordRedraw determination,
|
||
|
|
; and fixed loop incremental.
|
||
|
|
; <2Oct89smb> moved ptchTEInit here due to its dependency on
|
||
|
|
; ptchTEDoText, which was in a different proc.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEInit
|
||
|
|
|
||
|
|
MoveQ #0,D0
|
||
|
|
Move D0,TEScrpLength ; save in global space
|
||
|
|
_NewHandle
|
||
|
|
Move.L A0,TEScrpHandle ; Save in global space
|
||
|
|
|
||
|
|
Lea ptchTEDoText,a0 ; set up doText hook (added back in) <2Oct89smb>
|
||
|
|
move.l a0,TEDoText ; TEDoText is a low memory global
|
||
|
|
IF SysVers >= $700 THEN ; <19>
|
||
|
|
import ptchReCalLines ; <19>
|
||
|
|
Lea ptchReCalLines,a0 ; set up recal hook w/ patched version <19>
|
||
|
|
ELSE
|
||
|
|
LeaROM ROMXReCalLines,a0 ; set up recal hook
|
||
|
|
ENDIF
|
||
|
|
Move.L a0,TERecal
|
||
|
|
LeaROM ROMDefWordBrk,a0 ; get default word break
|
||
|
|
Move.L a0,TEWdBreak
|
||
|
|
|
||
|
|
; Defensive reset in case an application changed teSysJust contrary to system default.
|
||
|
|
;
|
||
|
|
; Now, we just reset it for Roman-only systems (because TE in such a system cannot currently <35>
|
||
|
|
; handle R-L direction; we will fix this eventually). For other scripts, the Text Control <35>
|
||
|
|
; Panel lets users choose the default line direction, so we don't want to override it. <35>
|
||
|
|
WITH smgrRecord,scriptRecord
|
||
|
|
GetSMgrCore a0 ; load SMgr globals pointer.
|
||
|
|
IF 1 THEN ; <35>
|
||
|
|
move.b smgrEnabled(a0),d0 ; how many scripts enabled? <35>
|
||
|
|
ble.s @bail ; if 0 (or neg!), can't initialize <35>
|
||
|
|
subq.b #1,d0 ; Roman-only? <35>
|
||
|
|
bne.s @doneSetSysJust ; if not, don't reset <35>
|
||
|
|
clr.w TESysJust ; Roman-only, force to L-R (else TE screws up) <35>
|
||
|
|
@doneSetSysJust ; <35>
|
||
|
|
ELSE ; (keep old code for reference for a while) <35>
|
||
|
|
tst.b smgrEnabled(a0) ; script manager disabled?
|
||
|
|
beq.s @bail ; yes -> bail out.
|
||
|
|
move.w smgrSysScript(a0),d0 ; get system script code.
|
||
|
|
lsl.w #2,d0 ; script code is long offset.
|
||
|
|
move.l smgrEntry(a0,d0.w),a0 ; load system script entry.
|
||
|
|
move.b scriptJust(a0),d0 ; load script just.
|
||
|
|
ext.w d0 ; sign extend just.
|
||
|
|
move.w d0,TESysJust ; set global just.
|
||
|
|
ENDIF ; <35>
|
||
|
|
endWith ;
|
||
|
|
|
||
|
|
;<2Feb89smb>
|
||
|
|
; initialize NewStyle params for SetRsrved call in SetFont2Keyboard (flag.b, textStylePtr.l, mode.w)
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
lea ExpandMemRec.emNewStyle(a0),a0 ; changed from add to lea <12July89smb>
|
||
|
|
move.b #$FF,(a0) ; flag.b
|
||
|
|
move.w #1,6(a0) ; mode.w
|
||
|
|
|
||
|
|
; Find correct WordDraw value. Used for redrawing for line calculation
|
||
|
|
; after character input. A WordDraw value of:
|
||
|
|
; 0 = redraw the char in front of the inputted char,
|
||
|
|
; 1 = redraw the word in front of the inputted char,
|
||
|
|
; FF = redraw the whole line.
|
||
|
|
; To set the correct value walk through the scripts (32 of them!),
|
||
|
|
; <OR> in 1 for each double-byte script and <OR> in FF for each right-left script.
|
||
|
|
move.b #0,WordRedraw ; default case
|
||
|
|
move.l d3,-(sp) ; save <18July89smb>
|
||
|
|
moveq #0,d3 ; init d3; for d3 := 0 to 32 do
|
||
|
|
@WordRedrawLoop
|
||
|
|
clr.l -(sp) ; allocate return
|
||
|
|
move.w d3,-(sp) ; script number
|
||
|
|
move.w #smScriptRedraw,-(sp) ; verb
|
||
|
|
_GetScript ; if disabled, will return zero.
|
||
|
|
move.l (sp)+,d0 ; values are 0, 1, FF
|
||
|
|
or.b d0,WordRedraw ; add it in: 1 ++ x, FF ++ x
|
||
|
|
; if all FFs, then dont need to go further-so check for negative
|
||
|
|
bmi.s @WRLoopXit
|
||
|
|
addq.w #1,d3 ; next script to check <18July89smb>
|
||
|
|
cmpi.w #32,d3 ; beyond last script? <18July89smb>
|
||
|
|
bls.s @WordRedrawLoop ; keep going until done w/ scripts
|
||
|
|
@WRLoopXit
|
||
|
|
move.l (sp)+,d3 ; restore <18July89smb>
|
||
|
|
jmpROM EndTEInit
|
||
|
|
@bail
|
||
|
|
Rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEDoText
|
||
|
|
; <8Aug89smb> I need to patch bugs in DoSearch and DoDraw,
|
||
|
|
; which are hooks via TeDoText.
|
||
|
|
; <1/29/90smb> Added patch to DoCaret to pin the caret in view
|
||
|
|
; when blanks exceed the edge of the view rect.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEDoText
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
Link A6,#TextFrameSz ; link frame for DoText procs
|
||
|
|
move.l a0,-(sp) ; save just in case <48>
|
||
|
|
move.l ExpandMem,a0 ; <48>
|
||
|
|
sf ExpandMemRec.emFmtOrderHFlag(a0) ; ensure that we don't think <48>
|
||
|
|
; we have a handle to a formatarray <48>
|
||
|
|
move.l (sp)+,a0 ; <48>
|
||
|
|
Tst D7 ; check dispatch code
|
||
|
|
Beq.s ptchDoSearch
|
||
|
|
Bgt @DoHilite
|
||
|
|
Cmp #teDraw,D7
|
||
|
|
Beq ptchDoDraw
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
bra ptchDoCaret ; <1/29/90smb>
|
||
|
|
@DoHilite bra ptchDoHilite ; <4Oct89smb>
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMDoCaret ; falls into DoCaret <9Aug89smb>
|
||
|
|
@DoHilite jmpROM ROMDoHilite
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoSearch
|
||
|
|
; <8Aug89smb>
|
||
|
|
; <19Nov89smb> Fix for RL directional text.
|
||
|
|
; <7Dec89smb> More fixes due to new P2C flag so must patch
|
||
|
|
; LR system also.
|
||
|
|
; <1/24/90smb> Need to set up a2 again w/ lineStart when
|
||
|
|
; found a character break.
|
||
|
|
; <1/25/90smb> Need to bra to @BailToLeft for zero width.
|
||
|
|
; <2/16/90smb> If at the last style, and pixel width > 0, and the
|
||
|
|
; TEHitTestHook is replaced, then must check the high word of d0
|
||
|
|
; to see if we REALLY got a hit!
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoSearch
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
jsrROM ROMPreamble ; get A2 from D3
|
||
|
|
|
||
|
|
Move (A2),D3 ; set left anchor <14Jan86>
|
||
|
|
Move D3,D4 ; init char counter
|
||
|
|
|
||
|
|
jsrROM ROMLineRect ; set rLine to A2 line
|
||
|
|
|
||
|
|
Move (A2),D7 ; set left anchor
|
||
|
|
sf teLftClick(A3) ; assume false for later! <4May89smb>
|
||
|
|
|
||
|
|
Move.W teSelPoint+h(A3),D5 ; get h coord
|
||
|
|
Sub.W teSelRect+left(A3),D5 ; subtract justification
|
||
|
|
|
||
|
|
; set d0 and teLftClick(a3) if at left of selRect <4May89smb>
|
||
|
|
ble @BailToLeft ; special case on left of whole line
|
||
|
|
;;<1/25/90smb> if zero width, want to branch ow this one pixel difference causes the
|
||
|
|
;;<1/25/90smb> caret to display on the wrong line ending. (Roman fix)
|
||
|
|
;;<1/25/90smb> blt @BailToLeft ; special case on left of whole line <16Aug89smb>
|
||
|
|
|
||
|
|
Move teSelRect+left(A3),teSelRect+right(A3); init right side to left
|
||
|
|
Move.W #UnboundLeft,teSelRect+left(A3); bogus left
|
||
|
|
|
||
|
|
Move.W 2(A2),D6 ; end of line
|
||
|
|
|
||
|
|
Tst.W teSize(A3) ; check style flag
|
||
|
|
Bmi.S @StyledRecord
|
||
|
|
|
||
|
|
st useOldMethod(a6)
|
||
|
|
MoveQ #1,D2 ; just 1 style
|
||
|
|
Move.W D3,D1 ; start of line
|
||
|
|
Move.W D6,D0 ; whole line
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN ; <7Dec89smb>
|
||
|
|
jmpROM ROM@DoMeasure
|
||
|
|
ELSE
|
||
|
|
Bra @DoMeasure ; <7Dec89smb>
|
||
|
|
ENDIF
|
||
|
|
@StyledRecord
|
||
|
|
sf useOldMethod(a6) ; flag for getting style runs <28Sept88smb>
|
||
|
|
; determine if display order is different from backin-store order <28Sept88smb>
|
||
|
|
tst.b WordRedraw ; $FF if a R->L directional script installed
|
||
|
|
bge @getStyleOld ; nope, only L->R directional text
|
||
|
|
|
||
|
|
Move.W D3,D0 ; start offset
|
||
|
|
Move.W D6,D1 ; end of selection
|
||
|
|
bsr ptchGetStylesInOrder ; <9Aug89smb>
|
||
|
|
; tests whether any styles to process <15Nov88smb>
|
||
|
|
bge.s @GetStyleHandle ; <15Nov88smb>
|
||
|
|
jmpROM ROM@NoMoreStyles ; done <15Nov88smb>
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; added more code at @getStyleNew for right-to-left directional scripts <19Nov89smb>
|
||
|
|
@getStyleNew
|
||
|
|
; get next style using the results from getFormatOrder <28Sept88smb>
|
||
|
|
;; <5Aug89smb> movea.l a2StyleRun(a6),a0
|
||
|
|
; Made a2StyleRun(a6) an offset - can't save the ptr! (the handle's not locked!)
|
||
|
|
; Get to posn in styleRun array via the Style Handle and saved offset <5Aug89smb>
|
||
|
|
move.l teStylesH(a3),a0 ; <5Aug89smb>
|
||
|
|
move.l (a0),a0 ; deref <5Aug89smb>
|
||
|
|
add.l a2StyleRun(a6),a0 ; add in offset to desired posn in the array <5Aug89smb>
|
||
|
|
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN ; needed <7Dec89smb>
|
||
|
|
jmpROM ROMEndDoSearch
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
;;@getStyleOld
|
||
|
|
;; st useOldMethod(a6)
|
||
|
|
;; Move.W D3,D0 ; get selection start!!!
|
||
|
|
;; Move.W D6,D1 ; end of line
|
||
|
|
;; Bsr GetCurStyle ; get its style <7Oct88smb>
|
||
|
|
;; Bsr GetNumStyles ; # of styles between offsets <7Oct88smb>
|
||
|
|
;; Move.W D0,D2 ; preserve # of styles
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
move.w fmtOrderingIndex(a6),d0 ; index (0-d2) into array for next style run
|
||
|
|
lsl.w #1,d0 ; index into fmtOrdering array <28June89smb>
|
||
|
|
lea.l fmtOrderingPtr(a6),a1 ; get ptr to array of format runs ordering <15Nov88smb>
|
||
|
|
move.l (a1),a1 ; dereference for ordering <15Nov88smb>
|
||
|
|
move.w 0(a1,d0.w),d0 ; index of next style run
|
||
|
|
lsl.w #lnStStartSize,d0 ; offset in styleRun array from d3 style run <28June89smb>
|
||
|
|
lea.l 0(a0,d0.w),a0 ; next style run
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter
|
||
|
|
subq #1,D2 ; dec the style counter
|
||
|
|
bge.s @GetStyleHandle
|
||
|
|
jmpROM ROM@NoMoreStyles ; done
|
||
|
|
|
||
|
|
@getStyleOld
|
||
|
|
st useOldMethod(a6)
|
||
|
|
Move.W D3,D0 ; get selection start!!!
|
||
|
|
Move.W D6,D1 ; end of line
|
||
|
|
jsrROM ROMGetCurStyle ; get its style <7Oct88smb>
|
||
|
|
jsrROM ROMGetNumStyles ; # of styles between offsets <7Oct88smb>
|
||
|
|
Move.W D0,D2 ; preserve # of styles
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@GetStyleHandle
|
||
|
|
Move.L A0,A2 ; preserve ptr to current style
|
||
|
|
Move.L teStylesH(A3),A0 ; handle to style info
|
||
|
|
_HLock ; lock it up
|
||
|
|
Move.L A2,A0 ; restore style ptr
|
||
|
|
|
||
|
|
@StyleLoop
|
||
|
|
Move.L A0,A2 ; save ptr to style start
|
||
|
|
jsrROM ROMSetStyle ; set the style
|
||
|
|
Move.W startChar(A0),D1 ; get start of style
|
||
|
|
|
||
|
|
AddQ.L #stStartSize,A0 ; pt to next style run in StyleRun array
|
||
|
|
Move.W startChar(A0),D0 ; want end of this style run
|
||
|
|
|
||
|
|
Cmp.W D3,D1 ; compare styleStart to beginning of line
|
||
|
|
Bhs.S @OnSameLine ; made this unsigned
|
||
|
|
Move.W D3,D1 ; set beginning of style to beginning of line
|
||
|
|
|
||
|
|
@OnSameLine
|
||
|
|
Move.W D1,D7
|
||
|
|
Cmp.W D0,D6 ; compare styleEnd to end of line
|
||
|
|
Bhs.S @DoMeasure ; made this unsigned
|
||
|
|
Move.W D6,D0 ; set end of style to end of line
|
||
|
|
|
||
|
|
@DoMeasure
|
||
|
|
Move.W D2,-(SP) ; style count
|
||
|
|
Sub.W D1,D0 ; length
|
||
|
|
Move.L teTextH(A3),A0 ; handle to text
|
||
|
|
Move.L (A0),A0 ; dereference
|
||
|
|
AddA.W D1,A0 ; add offset to start of line
|
||
|
|
Move.W D5,D1 ; get pixel offset
|
||
|
|
MoveQ #0,D2 ; slop
|
||
|
|
jsrROM ROMTEHitTestHook ; call our hook instead
|
||
|
|
|
||
|
|
Add.W D0,teSelRect+right(A3) ; update selRect
|
||
|
|
Add.W D1,D7 ; update char offset
|
||
|
|
Sub.W D0,D5 ; update pixel offset
|
||
|
|
|
||
|
|
; find out if the pixel position was within the style run. <9Nov88smb>
|
||
|
|
|
||
|
|
ble.s @HitIt ; got a hit! (D5 <= 0)
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; if at the last style, and pixel width > 0, and the TEHitTestHook is replaced, then
|
||
|
|
; must check the high word of d0 to see if we REALLY got a hit! <2/16/90smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l HITTESTHook(a0),a0
|
||
|
|
peaROM ROMPixel2Char
|
||
|
|
cmpa.l (sp)+,a0
|
||
|
|
beq.s @NotAHit
|
||
|
|
; we've been hooked out so test per the old interface specs for a hit.
|
||
|
|
swap d0
|
||
|
|
tst.b d0
|
||
|
|
bne.s @HitIt
|
||
|
|
@NotAHit
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
Move.L a2,a0 ; ptr to current style
|
||
|
|
moveq #0,d2 ; clear P2C flag from high word <7Dec89smb>
|
||
|
|
Move.W (sp)+,d2 ; restore style count
|
||
|
|
; if no more style runs (at right of selRect), set exit info <4May89smb>
|
||
|
|
bne.s @getNextStyle ; last style on line?
|
||
|
|
jmpROM ROM@NoMoreStyles
|
||
|
|
|
||
|
|
@getNextStyle
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN ; needed <7Dec89smb>
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
;; tst.b useOldMethod(a6) ; <28Sept88smb>
|
||
|
|
;; beq @getStyleNew ; use formatOrder array
|
||
|
|
|
||
|
|
;; either unstyled or styled, LR record.
|
||
|
|
;; Addq.l #stStartSize,a0 ; get next style <7Oct88smb>
|
||
|
|
;; SubQ #1,D2 ; dec # of styles
|
||
|
|
;; Bne.S @StyleLoop ; keep looping if more <C971/RWW102887>NO
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
bra.s @getStyleNew
|
||
|
|
ELSE
|
||
|
|
tst.b useOldMethod(a6) ; <28Sept88smb>
|
||
|
|
beq @getStyleNew ; use formatOrder array
|
||
|
|
|
||
|
|
; either unstyled or styled, LR record.
|
||
|
|
Addq.l #stStartSize,a0 ; get next style <7Oct88smb>
|
||
|
|
SubQ #1,D2 ; dec # of styles
|
||
|
|
Bne.S @StyleLoop ; keep looping if more <C971/RWW102887>NO
|
||
|
|
jmpROM ROM@NoMoreStyles
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@BailToLeft
|
||
|
|
jmpROM ROM@BailToLeft
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN ; needed <7Dec89smb>
|
||
|
|
@getStyleOld
|
||
|
|
jmpROM ROM@getStyleOld
|
||
|
|
@HitIt
|
||
|
|
jmpROM ROM@HitIt
|
||
|
|
ELSE
|
||
|
|
@HitIt
|
||
|
|
addq.l #2,sp ; remove style count from stack
|
||
|
|
; if SMgr's P2C measured the text then the leftSide flag is valid <7Dec89smb>
|
||
|
|
tst.l d2 ; flag in high word; whole reg 0 if TextWidth used <7Dec89smb>
|
||
|
|
beq.s findDone ; TextWidth used, not SMgr's P2C <7Dec89smb>
|
||
|
|
bclr #16,d2 ; clean up! <7Dec89smb>
|
||
|
|
|
||
|
|
tst.b d2 ; left or right side of char? (set in P2C) ; <7Dec89smb> flag in byte
|
||
|
|
IF SysVers>= $700 THEN ; change this to correspond to P2C change <19>
|
||
|
|
st teLftClick(A3) ; mark it to left
|
||
|
|
bne.s findDone ; <19>
|
||
|
|
movem.l d0/d2/d3/d6,-(sp) ; <19>
|
||
|
|
move.w d7,d6 ; current position <19>
|
||
|
|
move.w #1,d3 ; incremental direction to move <19>
|
||
|
|
jsrROM ROMDoubleByte ; <19>
|
||
|
|
move.w d6,d7 ; new position <19>
|
||
|
|
movem.l (sp)+,d0/d2/d3/d6 ; <19>
|
||
|
|
sf teLftClick(A3) ; mark it to right
|
||
|
|
ELSE
|
||
|
|
beq.s findDone
|
||
|
|
; bug fix <1/24/90smb>
|
||
|
|
subq #1,d7 ; adjust result to left half
|
||
|
|
st teLftClick(A3) ; mark it to left
|
||
|
|
ENDIF
|
||
|
|
; Only want to test for a CR if the charOffset = 2(a2) and the leftSide = T.
|
||
|
|
; CR is a neutral character therefore, if it follows a style run whose direction is
|
||
|
|
; different from the line direction, it will always occur at the EOL posn, in the
|
||
|
|
; line direction. <5May89smb>
|
||
|
|
; <1/24/90smb> need to set up a2 again w/ lineStart
|
||
|
|
move.w d3,d0 ; <1/24/90smb>
|
||
|
|
lea teLines(a3),a2 ; <1/24/90smb>
|
||
|
|
jsrROM ROMGetLine ; <1/24/90smb>
|
||
|
|
; end of fix <1/24/90smb>
|
||
|
|
jmpROM ROMafter@HitIt
|
||
|
|
findDone jmpROM ROMfindDone
|
||
|
|
ENDIF
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoDraw
|
||
|
|
; <1/21/90smb> We are now patching out all of DoDraw for 7.0
|
||
|
|
; in order to set PreserveGlyph FALSE before drawing, and then
|
||
|
|
; restoring it afterwards.
|
||
|
|
; <9/20/90smb> Calling ptchDoErase now for TETextWidthHook.
|
||
|
|
; <7Dec89smb> Must call patch to ChkBounds.
|
||
|
|
; Test WordRedraw to extend bounds of rectangle after calling
|
||
|
|
; ChkBounds.
|
||
|
|
; <8Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from DoDraw.
|
||
|
|
; GetNextDisplayStyle is only called for R-L directional
|
||
|
|
; scripts, w/ styled text. However, since DoDraw loops
|
||
|
|
; for each line, I have to patch out the whole routine
|
||
|
|
; for this situation. DoDraw is a hook via TeDoText.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoDraw
|
||
|
|
;-----------------------------------------------
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
import ptchPinDisplay ; <19>
|
||
|
|
jsr ptchPinDisplay ; you guessed it: it's patched now! <19>
|
||
|
|
jsrROM ROMPreamble ; set rLine to A2 line
|
||
|
|
|
||
|
|
; ** <C105/14aug86/MBK> Only call LineRect at start to avoid height search **
|
||
|
|
jsrROM ROMLineRect
|
||
|
|
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
; Turn PreserveGlyph off before drawing, but save its previous setting <22>
|
||
|
|
clr.w -(sp) ; boolean result <22>
|
||
|
|
_GetPreserveGlyph ; <22>
|
||
|
|
; leave result on stack
|
||
|
|
tst.w (sp) ; preserve or squash? (byte result but cleared word)
|
||
|
|
beq.s @IsFalse ; <22>
|
||
|
|
move.b #0,-(sp) ; set PreserveGlyph FALSE <22>
|
||
|
|
_SetPreserveGlyph ; <22>
|
||
|
|
@IsFalse
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
|
||
|
|
@lineLoop
|
||
|
|
jsrROM ROMPrepLine ; pin D4 at line end
|
||
|
|
bls @Test4Handle ; done...
|
||
|
|
|
||
|
|
bsr ptchChkBounds ; extend bounds if necessary
|
||
|
|
tst.b WordRedraw ; if R-L script (-1), then erase whole line <7Dec89smb>
|
||
|
|
bge.s @LROrientation ; no, left->right flow <7Dec89smb>
|
||
|
|
Move.W #UnboundRight,teSelRect+right(A3) ; else, set unbound right <7Dec89smb>
|
||
|
|
Move.W #UnboundLeft,teSelRect+left(A3) ; else, set unbound left
|
||
|
|
|
||
|
|
@LROrientation
|
||
|
|
move.W d4,d6 ; selEnd
|
||
|
|
bsr ptchDoErase ; calling TETextWidthHook now
|
||
|
|
|
||
|
|
move.w saveLeft(a6),-(sp) ; saved true left value ** <C105/18aug86/MBK> Got rid of rTrue **
|
||
|
|
move.w teSelRect+top(a3),-(sp) ; position pen
|
||
|
|
move teAscent(a3),d0
|
||
|
|
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bmi.s @styledRecord
|
||
|
|
|
||
|
|
; record has no style, so draw all at once (the old way)
|
||
|
|
add d0,(sp) ; drop pen to baseline
|
||
|
|
_MoveTo
|
||
|
|
|
||
|
|
move.l teTextH(a3),a0 ; get text handle
|
||
|
|
move.l (a0),a0 ; dereference
|
||
|
|
add.l d3,a0 ; offset pointer
|
||
|
|
|
||
|
|
clr.w d0 ; D0-D1 aren't a concern, since… <C971/RWW110387>
|
||
|
|
move.w d4,d1 ; …one would expect _DrawText… <C971/RWW110387>
|
||
|
|
sub.w d3,d1 ; …to blow them away anyways <C971/RWW110387>
|
||
|
|
jsrROM ROMTEDrawHook ; go draw it
|
||
|
|
|
||
|
|
bra @nxtLine ; <C971/RWW102887>NO
|
||
|
|
|
||
|
|
; record has style, so draw one style at a time
|
||
|
|
@styledRecord
|
||
|
|
tst.w d0 ; check default ascent
|
||
|
|
bpl.s @ascentSet ; use it if set
|
||
|
|
|
||
|
|
jsrROM ROMPtrToLine ; convert A2 ptr to line #
|
||
|
|
ext.l d0 ; make it long just in case ** <C381/6nov86/MBK> **
|
||
|
|
lsl.l #2,d0 ; mult by 4 ** <C381/6nov86/MBK> **
|
||
|
|
|
||
|
|
move.l teStylesH(a3),a0 ; handle to style info
|
||
|
|
move.l (a0),a0 ; deref
|
||
|
|
move.l lhTab(a0),a0 ; array of max hite indeces
|
||
|
|
move.l (a0),a0 ; deref
|
||
|
|
move.w 2(a0,d0.L),d0 ; max ascent
|
||
|
|
|
||
|
|
@ascentSet
|
||
|
|
add d0,(sp) ; drop pen to baseline
|
||
|
|
_MoveTo
|
||
|
|
|
||
|
|
sf useOldMethod(a6) ; init flag for getting style runs <28Sept88smb>
|
||
|
|
; determine if display order is different from backin-store order <28Sept88smb>
|
||
|
|
tst.b WordRedraw ; $FF if a R->L directional script installed
|
||
|
|
bge.s @getStyleOld ; nope, only L->R directional text
|
||
|
|
|
||
|
|
move.w d3,d0 ; start offset
|
||
|
|
move.w d4,d1 ; end of selection
|
||
|
|
bsr ptchGetStylesInOrder ; <9Aug89smb>
|
||
|
|
; tests whether any styles to process <15Nov88smb>
|
||
|
|
bge.s @styleLoop ; <15Nov88smb>
|
||
|
|
bra @nxtLine ; <15Nov88smb>
|
||
|
|
|
||
|
|
@getStyleNew
|
||
|
|
; get next style using the results from getFormatOrder <28Sept88smb>
|
||
|
|
bsr ptchGetNextDisplayStyle ; <8Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter
|
||
|
|
subq #1,d2 ; dec the style counter
|
||
|
|
bge.s @styleLoop
|
||
|
|
bra @nxtLine
|
||
|
|
|
||
|
|
@getStyleOld
|
||
|
|
st useOldMethod(a6)
|
||
|
|
move.w d3,d0 ; start offset
|
||
|
|
move.w d4,d1 ; end of selection
|
||
|
|
jsrROM ROMGetCurStyle ; get its style <7Oct88smb> replaces GetFirstStyle call
|
||
|
|
jsrROM ROMGetNumStyles ; # of styles between offsets <7Oct88smb>
|
||
|
|
move.w d0,d2 ; save style count
|
||
|
|
|
||
|
|
@styleLoop
|
||
|
|
move.l a0,-(sp) ; ptr to style: preserve a4 <21Dec88smb>
|
||
|
|
jsrROM ROMSetStyle ; set style
|
||
|
|
move.w startChar(a0),d0 ; get start of style
|
||
|
|
addq #stStartSize,a0 ; ptr to next style
|
||
|
|
move.w d6,d4 ; init to end of line
|
||
|
|
cmp.w startChar(a0),d6 ; compare to end of line
|
||
|
|
blo.s @4
|
||
|
|
move.w startChar(a0),d4 ; set to end of style
|
||
|
|
|
||
|
|
@4 move.w d2,-(sp) ; save the count
|
||
|
|
move.l teTextH(A3),a0 ; get text handle
|
||
|
|
move.l (a0),a0 ; dereference
|
||
|
|
|
||
|
|
cmp.w d3,d0
|
||
|
|
bhs.s @5 ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
move.w d3,d0 ; reset if needed
|
||
|
|
|
||
|
|
@5 adda.w d0,a0 ; offset pointer
|
||
|
|
|
||
|
|
move.l teStylesH(a3),a1 ; get style handle
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l a1,d1 ; <21Dec88smb>
|
||
|
|
sub.l d1,2(a7) ; save as an offset <21Dec88smb>
|
||
|
|
|
||
|
|
move.w d4,d1 ; amount := range - i <C971/RWW110387>
|
||
|
|
sub.w d0,d1 ; <C971/RWW110387>
|
||
|
|
clr.w d0 ; no offset <C971/RWW110387>
|
||
|
|
jsrROM ROMTEDrawHook ; go draw it
|
||
|
|
|
||
|
|
; Unlock the style handle when through with pointer.
|
||
|
|
move.l teStylesH(a3),a1 ; get style handle
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l a1,d1 ; <21Dec88smb>
|
||
|
|
add.l d1,2(a7) ; restore as pointer <21Dec88smb>
|
||
|
|
|
||
|
|
move.w (sp)+,d2 ; restore the count
|
||
|
|
move.l (sp)+,a0 ; ptr to style <21Dec88smb>
|
||
|
|
|
||
|
|
tst.b useOldMethod(a6) ; <28Sept88smb>
|
||
|
|
beq.s @getStyleNew ; use formatOrder array
|
||
|
|
|
||
|
|
addq.l #stStartSize,a0 ; get next style <7Oct88smb> replaces GetNextStyle call
|
||
|
|
subq #1,d2 ; dec the style counter
|
||
|
|
bne.s @styleLoop ; must be more than 1 line
|
||
|
|
|
||
|
|
; ** <C105/14aug86/MBK> NextLineRect will not search for height from start **
|
||
|
|
|
||
|
|
@nxtLine
|
||
|
|
|
||
|
|
jsrROM ROMPtrToLine ; convert A2 to line #
|
||
|
|
addq #1,d0 ; next line
|
||
|
|
jsrROM ROMNextLineRect ; set next line's rect
|
||
|
|
move (a2),d3 ; get start
|
||
|
|
bra @lineLoop ; keep going
|
||
|
|
|
||
|
|
@Test4Handle
|
||
|
|
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
; Restore PreserveGlyph
|
||
|
|
; previous PreserveGlyph value still on stack
|
||
|
|
_SetPreserveGlyph ; <22>
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
|
||
|
|
jsrROM ROMFreeFmtOrderArray ; <18Jan89smb>
|
||
|
|
doBye
|
||
|
|
movem.l (sp)+,d2-d7/a2-a4 ; restore regs
|
||
|
|
unlk a6 ; unlink DoText frame
|
||
|
|
move.l GrafGlobals(a5),a0 ; get the port in A0 for
|
||
|
|
move.l thePort(a0),a0 ; compatibility
|
||
|
|
rts
|
||
|
|
endWith
|
||
|
|
;-----------------------------------------------
|
||
|
|
ELSE ; NOT (SysVers>= $700)
|
||
|
|
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN
|
||
|
|
tst.b WordRedraw ; RL script system installed?
|
||
|
|
bge @UseROM ; if not, use ROM code <28Sept89smb> unsigned
|
||
|
|
tst.w teSize(a3) ; styled or unstyled?
|
||
|
|
bpl @UseROM ; if unstyled, use ROM code <14Aug89smb>
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
; we are here for styled, RL directional scripts
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
jsrROM ROMPinDisplay
|
||
|
|
jsrROM ROMPreamble ; set rLine to A2 line
|
||
|
|
jsrROM ROMLineRect
|
||
|
|
|
||
|
|
@lineLoop
|
||
|
|
jsrROM ROMPrepLine ; pin D4 at line end
|
||
|
|
Bls @Test4Handle ; done...
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; <7Dec89smb>
|
||
|
|
bsr ptchChkBounds ; <7Dec89smb>
|
||
|
|
tst.b WordRedraw ; if R-L script (-1), then erase whole line <7Dec89smb>
|
||
|
|
bge.s @LROrientation ; no, left->right flow <7Dec89smb>
|
||
|
|
Move.W #UnboundRight,teSelRect+right(A3) ; else, set unbound right <7Dec89smb>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMChkBounds ; extend bounds if necessary
|
||
|
|
Tst.W TESysJust ; reverse order?
|
||
|
|
Beq.S @LROrientation ; no, left->right flow
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
Move.W #UnboundLeft,teSelRect+left(A3) ; else, set unbound left
|
||
|
|
|
||
|
|
@LROrientation
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; <7Dec89smb>
|
||
|
|
; moved these optimizations here due to patch above <7Dec89smb>
|
||
|
|
tst.b WordRedraw ; RL script system installed?
|
||
|
|
bge @UseROM ; if not, use ROM code <28Sept89smb> unsigned
|
||
|
|
tst.w teSize(a3) ; styled or unstyled?
|
||
|
|
bpl @UseROM ; if unstyled, use ROM code <14Aug89smb>
|
||
|
|
ENDIF ; <7Dec89smb>
|
||
|
|
|
||
|
|
Move.W D4,D6 ; selEnd
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
bsr ptchDoErase ; calling TETextWidthHook now <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
jsrROM ROMDoErase ; to fix italics problem** <C182/2oct86/MBK> **
|
||
|
|
ENDIF ; <17>
|
||
|
|
|
||
|
|
Move.W saveLeft(A6),-(SP) ; saved true left value ** <C105/18aug86/MBK> Got rid of rTrue **
|
||
|
|
Move.W teSelRect+top(A3),-(SP) ; position pen
|
||
|
|
Move teAscent(A3),D0
|
||
|
|
;;;;;;; Removed the code that tests for an unstyled record here. Not necc since using ROM code for this case.
|
||
|
|
|
||
|
|
Tst.W D0 ; check default ascent
|
||
|
|
Bpl.S @ascentSet ; use it if set
|
||
|
|
|
||
|
|
jsrROM ROMPtrToLine ; convert A2 ptr to line #
|
||
|
|
Ext.L D0 ; make it long just in case ** <C381/6nov86/MBK> **
|
||
|
|
LsL.L #2,D0 ; mult by 4 ** <C381/6nov86/MBK> **
|
||
|
|
|
||
|
|
Move.L teStylesH(A3),A0 ; handle to style info
|
||
|
|
Move.L (A0),A0 ; deref
|
||
|
|
Move.L lhTab(A0),A0 ; array of max hite indeces
|
||
|
|
Move.L (A0),A0 ; deref
|
||
|
|
Move.W 2(A0,D0.L),D0 ; max ascent
|
||
|
|
|
||
|
|
@ascentSet
|
||
|
|
Add D0,(SP) ; drop pen to baseline
|
||
|
|
_MoveTo
|
||
|
|
|
||
|
|
;;<14Aug89smb> sf useOldMethod(a6) ; init flag for getting style runs <28Sept88smb>
|
||
|
|
; determine if display order is different from backin-store order <28Sept88smb>
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
|
||
|
|
Move.W D3,D0 ; start offset
|
||
|
|
Move.W D4,D1 ; end of selection
|
||
|
|
bsr ptchGetStylesInOrder ; <9Aug89smb>
|
||
|
|
; tests whether any styles to process <15Nov88smb>
|
||
|
|
bge.s @styleLoop ; <15Nov88smb>
|
||
|
|
bra.s @nxtLine ; <15Nov88smb>
|
||
|
|
|
||
|
|
@getStyleNew
|
||
|
|
; get next style using the results from getFormatOrder <28Sept88smb>
|
||
|
|
bsr ptchGetNextDisplayStyle ; <8Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter
|
||
|
|
subq #1,D2 ; dec the style counter
|
||
|
|
bcs.s @nxtLine ; fixed branching <14Aug89smb>
|
||
|
|
;; <14Aug89smb> bge.s @styleLoop
|
||
|
|
;; <14Aug89smb> bra.s @nxtLine
|
||
|
|
|
||
|
|
;;;;;;; Removed the code for a LR script system here. Not necc since using ROM code for this case.
|
||
|
|
|
||
|
|
@styleLoop
|
||
|
|
Move.L A0,-(sp) ; ptr to style: preserve a4 <21Dec88smb>
|
||
|
|
jsrROM ROMSetStyle ; set style
|
||
|
|
Move.W startChar(A0),D0 ; get start of style
|
||
|
|
AddQ #stStartSize,A0 ; ptr to next style
|
||
|
|
Move.W D6,D4 ; init to end of line
|
||
|
|
Cmp.W startChar(A0),D6 ; compare to end of line
|
||
|
|
Blo.S @4
|
||
|
|
Move.W startChar(A0),D4 ; set to end of style
|
||
|
|
|
||
|
|
@4 Move.W D2,-(SP) ; save the count
|
||
|
|
Move.L teTextH(A3),A0 ; get text handle
|
||
|
|
Move.L (A0),A0 ; dereference
|
||
|
|
|
||
|
|
Cmp.W D3,D0
|
||
|
|
Bhs.S @5 ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
Move.W D3,D0 ; reset if needed
|
||
|
|
|
||
|
|
@5 AddA.W D0,A0 ; offset pointer
|
||
|
|
|
||
|
|
Move.L teStylesH(A3),A1 ; get style handle
|
||
|
|
Move.L (A1),A1
|
||
|
|
move.l a1,d1 ; <21Dec88smb>
|
||
|
|
Sub.L d1,2(A7) ; save as an offset <21Dec88smb>
|
||
|
|
|
||
|
|
Move.W D4,D1 ; amount := range - i
|
||
|
|
Sub.W D0,D1
|
||
|
|
Clr.W D0 ; no offset
|
||
|
|
jsrROM ROMTEDrawHook ; go draw it
|
||
|
|
|
||
|
|
; Unlock the style handle when through with pointer.
|
||
|
|
Move.L teStylesH(A3),A1 ; get style handle
|
||
|
|
Move.L (A1),A1
|
||
|
|
move.l a1,d1 ; <21Dec88smb>
|
||
|
|
Add.L d1,2(A7) ; restore as pointer
|
||
|
|
|
||
|
|
Move.W (SP)+,D2 ; restore the count
|
||
|
|
Move.L (sp)+,A0 ; ptr to style
|
||
|
|
|
||
|
|
bra.s @getStyleNew ; <8Aug89smb>
|
||
|
|
;;;;;;; Removed the code that tests for an LR script system here. Not necc since using ROM code for this case.
|
||
|
|
;; tst.b useOldMethod(a6) ; <28Sept88smb>
|
||
|
|
;; beq.s @getStyleNew ; use formatOrder array
|
||
|
|
;;;;;;; Removed the code for an unstyled record here. Not necc since using ROM code for this case.
|
||
|
|
|
||
|
|
@nxtLine
|
||
|
|
jsrROM ROMPtrToLine ; convert A2 to line #
|
||
|
|
AddQ #1,D0 ; next line
|
||
|
|
jsrROM ROMNextLineRect ; set next line's rect
|
||
|
|
Move (A2),D3 ; get start
|
||
|
|
Bra @lineLoop ; keep going
|
||
|
|
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN
|
||
|
|
@UseROM jmpROM ROMDoDraw ; otherwise, use ROM code!
|
||
|
|
ELSE
|
||
|
|
@UseROM jmpROM ROM@LROrientation ; otherwise, use ROM code now!
|
||
|
|
ENDIF
|
||
|
|
@Test4Handle
|
||
|
|
jsrROM ROMFreeFmtOrderArray ; <18Jan89smb>
|
||
|
|
doBye
|
||
|
|
MoveM.L (SP)+,D2-D7/A2-A4 ; restore regs
|
||
|
|
Unlk A6 ; unlink DoText frame
|
||
|
|
Move.L GrafGlobals(A5),A0 ; get the port in A0 for
|
||
|
|
Move.L thePort(A0),A0 ; compatibility
|
||
|
|
Rts
|
||
|
|
endWith
|
||
|
|
ENDIF ; NOT (SysVers>= $700)
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoCaret
|
||
|
|
; <1/29/90smb> Added patch to DoCaret to pin the caret in view
|
||
|
|
; when blanks exceed the edge of the view rect. See end of routine.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoCaret
|
||
|
|
jsrROM ROMPreamble ; set rLine to A2 line
|
||
|
|
|
||
|
|
tst d3 ; special case @ 1st character <03Nov85> SC
|
||
|
|
beq.s @GetSelRect ; if so skip all these checks <03Nov85> SC
|
||
|
|
|
||
|
|
cmp (a2),d3 ; at line start?
|
||
|
|
bne.s @GetSelRect ; skip if not next-line start
|
||
|
|
|
||
|
|
move teLength(a3),d0 ; are we past last char?
|
||
|
|
beq.s @GetSelRect ; (and is there a last char?)
|
||
|
|
cmp d0,d3 ; are we past last char?
|
||
|
|
blo.s @LeftCaret ; if not, skip special case
|
||
|
|
|
||
|
|
move.l teTextH(a3),a0 ; get text handle
|
||
|
|
move.l (a0),a0 ; dereference
|
||
|
|
|
||
|
|
move.b -1(a0,d3),d0 ; THESE TWO LINES REPLACE PREVIOUS <C971/RWW110387>
|
||
|
|
jsrROM ROMTEEOLHook ; <C971/RWW110387>
|
||
|
|
beq.s @GetSelRect ; skip the line
|
||
|
|
bra.s @PrevLine
|
||
|
|
@LeftCaret
|
||
|
|
tst.b teLftCaret(a3) ; to left?
|
||
|
|
bne.s @GetSelRect ; skip line pull back if so
|
||
|
|
@PrevLine
|
||
|
|
subq #2,a2 ; skip to previous line
|
||
|
|
@GetSelRect
|
||
|
|
; determines the boundaries of the selection rectangle that contains the cursor, setting left = right
|
||
|
|
jsrROM ROMLineRect ; removed from Prep ** <C105/14aug86/MBK> **
|
||
|
|
|
||
|
|
tst.w teSize(a3) ; <27Oct88smb>
|
||
|
|
bmi.s @GetCursors ; bra if styled text
|
||
|
|
tst.b WordRedraw ; old style record, test for Roman/double-byte system
|
||
|
|
bmi.s @GetCursors ; bra if RL unstyled text <22June89smb>
|
||
|
|
tst.b teSysJust ; <22June89smb>
|
||
|
|
beq.s @OldStyleRecord ; bra if LR text on a LR line <22June89smb>
|
||
|
|
@GetCursors
|
||
|
|
; styled text OR unstyled RL text OR unstyled LR text on a RL line
|
||
|
|
bsr ptchCaretDisplay ; possibly split cursors <27Oct88smb>
|
||
|
|
move.w teSelRect+left(a3),d0
|
||
|
|
move.w d0,saveLeft(a6)
|
||
|
|
bra.s @Fix4Cursor
|
||
|
|
|
||
|
|
; Old style edit record for Roman; process as before <27Oct88smb>
|
||
|
|
@OldStyleRecord
|
||
|
|
jsrROM ROMPrepLine ; get selRect from D3..D4 <C971/RWW102887>NO
|
||
|
|
move saveLeft(a6),d0 ; get caret loc
|
||
|
|
move d0,teSelRect+right(a3) ; and set in teSelRect
|
||
|
|
@Fix4Cursor
|
||
|
|
subq #1,d0
|
||
|
|
move d0,teSelRect+left(a3)
|
||
|
|
;-----------------------------------------------------------------------------------------
|
||
|
|
; pin caret to edge of view rect if it's displaying out of view <1/29/90smb>
|
||
|
|
; make sure it's a caret position (selStart = selEnd)
|
||
|
|
move.w teSelStart(a3),d0
|
||
|
|
cmp.w teSelEnd(a3),d0
|
||
|
|
bne @Done
|
||
|
|
|
||
|
|
tst.b teSysJust
|
||
|
|
bne.s @RLDirection
|
||
|
|
; for a left-to-right line:
|
||
|
|
; if the viewRect.right >= the destRect.right and
|
||
|
|
; if the selRect.left >= the viewRect.right
|
||
|
|
; then selRect.right = viewRect.right
|
||
|
|
; selRect.left = viewRect.right-1.
|
||
|
|
; is the viewRect.right >= the destRect.right?
|
||
|
|
move.w teViewRect+right(a3),d0
|
||
|
|
cmp.w teDestRect+right(a3),d0
|
||
|
|
blt.s @Done
|
||
|
|
; is the selRect.left >= the viewRect.right?
|
||
|
|
move.w teViewRect+right(a3),d0
|
||
|
|
cmp.w teSelRect+left(a3),d0
|
||
|
|
bgt.s @Done
|
||
|
|
; pin caret to edge of view rect
|
||
|
|
move.w d0,teSelRect+right(a3)
|
||
|
|
subq.w #1,d0
|
||
|
|
move.w d0,teSelRect+left(a3)
|
||
|
|
; test for split carets
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
tst.b ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
beq.s @Done
|
||
|
|
; test if 2nd (split) caret is out of view also:is the Left edge greater than the view rect's Right edge
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; top, left, bottom, right of 2nd caret
|
||
|
|
addq.w #1,d0 ; view rect still here: get back to right edge.
|
||
|
|
cmp.w left(a0),d0
|
||
|
|
bgt.s @Done
|
||
|
|
; pin split caret to edge of view rect also.
|
||
|
|
move.w d0,right(a0)
|
||
|
|
subq.w #1,d0
|
||
|
|
move.w d0,left(a0)
|
||
|
|
bra.s @Done
|
||
|
|
@RLDirection
|
||
|
|
; for a right-to-left line:
|
||
|
|
; if the viewRect.left <= the destRect.left and
|
||
|
|
; if the selRect.right <= the viewRect.left
|
||
|
|
; then selRect.left = viewRect.left
|
||
|
|
; selRect.right = viewRect.left+1.
|
||
|
|
; is the viewRect.left <= the destRect.left?
|
||
|
|
move.w teViewRect+left(a3),d0
|
||
|
|
cmp.w teDestRect+left(a3),d0
|
||
|
|
bgt.s @Done
|
||
|
|
; is the selRect.right <= the viewRect.left?
|
||
|
|
move.w teViewRect+left(a3),d0
|
||
|
|
cmp.w teSelRect+right(a3),d0
|
||
|
|
blt.s @Done
|
||
|
|
; pin caret to edge of view rect
|
||
|
|
move.w d0,teSelRect+left(a3)
|
||
|
|
addq.w #1,d0
|
||
|
|
move.w d0,teSelRect+right(a3)
|
||
|
|
; test for split carets
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
tst.b ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
beq.s @Done
|
||
|
|
; test if 2nd (split) caret is out of view also:is the Right edge less than the view rect's Left edge
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; top, left, bottom, right of 2nd caret
|
||
|
|
subq.w #1,d0 ; view rect still here: get back to left edge.
|
||
|
|
cmp.w right(a0),d0
|
||
|
|
blt.s @Done
|
||
|
|
; pin split caret to edge of view rect also.
|
||
|
|
move.w d0,left(a0)
|
||
|
|
addq.w #1,d0
|
||
|
|
move.w d0,right(a0)
|
||
|
|
@Done
|
||
|
|
; end of changes <1/29/90smb>
|
||
|
|
;-----------------------------------------------------------------------------------------
|
||
|
|
bra doBye
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoHilite
|
||
|
|
; <4Oct89smb> HyperCard expects to outline highlight one window
|
||
|
|
; rather than the three the new highlighting code gives, so
|
||
|
|
; I'm putting back the old code for Roman systems. At this writing,
|
||
|
|
; we will still have a problem for non-Roman script systems.
|
||
|
|
; <9/6/90smb> Now patching DoHilite if Inline Input is active to
|
||
|
|
; hilite each line of the middle rectangle in order to call
|
||
|
|
; highHook.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoHilite
|
||
|
|
; If a Roman system then use old DoHilite code: HyperCard expects to hilite a whole region not three! <3Oct89smb>
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a0) ; total number of installed scripts
|
||
|
|
beq RomanDoHilite ; use old DoHilite
|
||
|
|
;---------------------------------------------------------------------- <16>
|
||
|
|
IF hasInlineInput THEN ; <16>
|
||
|
|
; If SysVers >= 606 then test if Inline is active. If not, then use ROM code.
|
||
|
|
IF SysVers < $700 THEN ; if < $700 then test for inline; otherwise, use this for >=$700 <29>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFInlineInput,d0 ; is Inline Input active?
|
||
|
|
beq @UseRomHilite ; no, so use the ROM hiliting code
|
||
|
|
ENDIF ; If SysVers < $700 THEN <29>
|
||
|
|
|
||
|
|
; Inline is active so, patch DoHilite so that each line of the middle rectangle is highlighted
|
||
|
|
; independently OR SysVers >= $700 so we need to use the patched version of ptchOnSameLine. <29>
|
||
|
|
|
||
|
|
; use this code for mixed directional text
|
||
|
|
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchPinDisplay ; <19>
|
||
|
|
jsr ptchPinDisplay ; you guessed it: it's patched now! <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMPinDisplay
|
||
|
|
ENDIF ; <19>
|
||
|
|
jsrROM ROMPreamble ; set rLine to A2 line, d5 = d4
|
||
|
|
; sets A2 to point to line containing d3
|
||
|
|
jsrROM ROMLineRect ; get top, bottom and just (from A2)
|
||
|
|
|
||
|
|
move.l a4,-(sp) ; need for OnSameLine vector <26June89smb>
|
||
|
|
|
||
|
|
with HiliteFrame
|
||
|
|
link a6,#HiLiteSz ; LineRect needs to access doText stack frame
|
||
|
|
|
||
|
|
movea.l a2,a1 ; save d3 lineStart
|
||
|
|
cmp.w d3,d4 ; wrong order?
|
||
|
|
beq @unLinkFrame
|
||
|
|
bhi.s @Get2ndLine ; no, correct
|
||
|
|
exg d3,d4 ; fix
|
||
|
|
|
||
|
|
; find out the first offset's line for Right to Left directional text
|
||
|
|
move.w d3,d0
|
||
|
|
lea teLines(A3),a2 ; point to line starts
|
||
|
|
jsrROM ROMGetLine ; returns ptr to line in a2
|
||
|
|
bra.s @CompareLines
|
||
|
|
@Get2ndLine
|
||
|
|
; test if 2nd offset is at the end of the 1st offset's line <2Dec88smb>
|
||
|
|
cmp.w 2(a2),d4 ; <2Dec88smb>
|
||
|
|
beq.s @CompareLines ; <2Dec88smb>
|
||
|
|
|
||
|
|
; get the second offset's line. Already have lineStart for d3 in a1
|
||
|
|
move.w d4,d0
|
||
|
|
jsrROM ROMGetLine ; returns ptr to line in a2
|
||
|
|
|
||
|
|
@CompareLines
|
||
|
|
exg a1,a2
|
||
|
|
cmpa.l a1,a2
|
||
|
|
bne.s @MultipleLines ; over multiple lines
|
||
|
|
bsr ptchOnSameLine
|
||
|
|
bra @unLinkFrame
|
||
|
|
|
||
|
|
@MultipleLines
|
||
|
|
; [d3,d4] over multiple line
|
||
|
|
; set up for line containing d3
|
||
|
|
move.l a1,d4Line(a6) ; save lineStart for d4 for later
|
||
|
|
move.l a2,d3Line(a6)
|
||
|
|
move.w d4,savD4(a6)
|
||
|
|
move.w 2(a2),d4 ; end of d3 line
|
||
|
|
bsr ptchOnSameLine ; hilite regions on 1st line
|
||
|
|
|
||
|
|
; set up for line containing d4
|
||
|
|
|
||
|
|
move.w savD4(a6),d4
|
||
|
|
move.l d4Line(a6),a2 ; LineRect wants the current line in a2
|
||
|
|
move.w (a2),d3 ; beginning of d3 line
|
||
|
|
|
||
|
|
; ********* Be sure to notice the unusual use of link/unlk here *******
|
||
|
|
; ********* due to multiple line highlighting! *******
|
||
|
|
move.l d3Line(a6),a1 ; temp for unlink
|
||
|
|
unlk a6 ; unlink HiliteFrame for LineRect *********
|
||
|
|
move.w teSelRect+bottom(a3),-(sp) ; save for middle rectangle's top edge
|
||
|
|
move.l a1,-(sp) ; save d3's line
|
||
|
|
jsrROM ROMLineRect ; get top, bottom and just (from A2)
|
||
|
|
bsr ptchOnSameLine ; hilite regions on last line
|
||
|
|
|
||
|
|
move.l (sp)+,a1 ; d3's line
|
||
|
|
; now hilite the middle rectangle, between the lines containing the offsets.
|
||
|
|
; a1 = ptr to line containing d3
|
||
|
|
; a2 = ptr to line containing d4
|
||
|
|
|
||
|
|
; tests for lines inbetween 1st and last
|
||
|
|
move.w 2(a1),d2 ; end of 1st line
|
||
|
|
cmp.w (a2),d2 ; end of 1st rectangle = beginning of last rectangle
|
||
|
|
beq.s @noMidRect ; done: no middle rectangle
|
||
|
|
|
||
|
|
;------------------------------------------- <29>
|
||
|
|
IF hasInlineInput THEN ; <29>
|
||
|
|
; if inlineInput then don't want to hilite to edge of selRect, only to text boundaries <29>
|
||
|
|
move.l teDispatchH(a3),a0 ; <29>
|
||
|
|
move.l (a0),a0 ; <29>
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops <29>
|
||
|
|
btst #teFInlineInput,d0 ; is this Inline Input feature desired? <29>
|
||
|
|
beq.s @HiliteMiddle ; no, so hilite middle rect as one! <29>
|
||
|
|
; inline input so measure the middle rectangle of text <29>
|
||
|
|
; a1 = ptr to line containing d3
|
||
|
|
; a2 = ptr to line containing d4
|
||
|
|
@AnotherLine ; <29>
|
||
|
|
move.w d2,d3 ; d2 contains the new d3
|
||
|
|
add.w #2,a1 ; increment to pt to line containing new d3
|
||
|
|
move.w 2(a1),d4
|
||
|
|
movem.l a1/a2,-(sp) ; save d3 & d4's line
|
||
|
|
move.l a1,a2 ; LineRect wants the current line in a2
|
||
|
|
jsrROM ROMLineRect ; get top, bottom & just (from a2)
|
||
|
|
bsr ptchOnSameLine ; hilite regions on this line
|
||
|
|
movem.l (sp)+,a1/a2
|
||
|
|
move.w 2(a1),d2 ; end of d3's line
|
||
|
|
cmp.w (a2),d2 ; end of d3's line = beginning of last line?
|
||
|
|
bne.s @AnotherLine ; bra if another line to measure & hilite <29>
|
||
|
|
bra.s @noMidRect ; otherwise done <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
;------------------------------------------- <29>
|
||
|
|
|
||
|
|
; set up selRect(a3) <29>
|
||
|
|
@HiliteMiddle ; <29>
|
||
|
|
move.w teSelRect+top(a3),teSelRect+bottom(a3) ; top of last rect = bottom of middle rect
|
||
|
|
move.w (sp)+,teSelRect+top(a3) ; bottom of 1st rect = top of middle rect <29>
|
||
|
|
move.w #UnboundLeft,teSelRect+left(a3) ; far left <29>
|
||
|
|
move.w #UnboundRight,teSelRect+right(a3) ; far right <29>
|
||
|
|
|
||
|
|
move.l teHiHook(a3),D0 ; do the inversion via hook if exists <29>
|
||
|
|
jsrROM ROMInvertHook ; hilite it <29>
|
||
|
|
bra.s @finis ; <29>
|
||
|
|
|
||
|
|
@noMidRect
|
||
|
|
addq #2,a7 ; don't need saved pixelWidth for top edge
|
||
|
|
bra.s @finis
|
||
|
|
@unLinkFrame
|
||
|
|
; ********* Be sure to notice the unusual use of link/unlk here *******
|
||
|
|
; ********* due to multiple line highlighting! *******
|
||
|
|
unlk a6 ; unlink HiliteFrame
|
||
|
|
@finis
|
||
|
|
move.l (sp)+,a4 ; restore handle <26June89smb>
|
||
|
|
bra doBye
|
||
|
|
endWith
|
||
|
|
ENDIF ; IF hasInlineInput THEN
|
||
|
|
;---------------------------------------------------------------------- <16>
|
||
|
|
@UseRomHilite ; <16>
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchPinDisplay ; <19>
|
||
|
|
jsr ptchPinDisplay ; you guessed it: it's patched now! <19>
|
||
|
|
jmpROM ROMinDoHilite ;
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMDoHilite
|
||
|
|
ENDIF ; <19>
|
||
|
|
|
||
|
|
;---------------------------------------------------------------------- <16>
|
||
|
|
RomanDoHilite
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchPinDisplay ; <19>
|
||
|
|
jsr ptchPinDisplay ; you guessed it: it's patched now! <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMPinDisplay
|
||
|
|
ENDIF ; <19>
|
||
|
|
jsrROM ROMPreamble ; set rLine to A2 line
|
||
|
|
|
||
|
|
jsrROM ROMLineRect ; get top, bottom and just
|
||
|
|
jsrROM ROMPrepLine ; pin D4 at line end
|
||
|
|
bls.s @done ; done... <C971/RWW102887>NO
|
||
|
|
|
||
|
|
;;<7Dec89smb> jsrROM ROMChkBounds ; check far left and right
|
||
|
|
bsr ptchChkBounds ; extend bounds if necessary <7Dec89smb>
|
||
|
|
|
||
|
|
move.l teHiHook(A3),d0 ; do the inversion via hook if
|
||
|
|
jsrROM ROMInvertHook ; there
|
||
|
|
|
||
|
|
cmp.w 2(a2),d5 ; only 1 line?
|
||
|
|
bls.s @done ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
|
||
|
|
jsrROM ROMPtrToLine ; get current line #
|
||
|
|
move.w d0,d1 ; save it
|
||
|
|
move.w d5,d0 ; offset to look for
|
||
|
|
jsrROM ROMGetLine ; get D5 line ptr
|
||
|
|
jsrROM ROMPtrToLine ; convert A2 ptr to line #
|
||
|
|
addq #1,d1
|
||
|
|
cmp.w d0,d1 ; get the difference
|
||
|
|
beq.s @LastLine ; no lines inbetween
|
||
|
|
|
||
|
|
move.w d0,-(SP) ; save line #
|
||
|
|
exg d0,d1
|
||
|
|
move.w teSelRect+bottom(a3),teSelRect+top(a3)
|
||
|
|
jsrROM ROMGetLineHites ; hites from 2nd to last lines
|
||
|
|
add.w d0,teSelRect+bottom(a3) ; hite to last line
|
||
|
|
move.w #UnboundLeft,teSelRect+left(a3) ; far left
|
||
|
|
move.w #UnboundRight,teSelRect+right(a3) ; far right
|
||
|
|
|
||
|
|
move.l teHiHook(A3),d0
|
||
|
|
jsrROM ROMInvertHook ; hilite it
|
||
|
|
move.w (SP)+,d0 ; restore line #
|
||
|
|
|
||
|
|
; hilite last line
|
||
|
|
@LastLine
|
||
|
|
jsrROM ROMNextLineRect ; get rectangle for last line <C971/RWW102887>NO
|
||
|
|
move.w (A2),D3 ; for chkBounds
|
||
|
|
jsrROM ROMPrepLine ; get left and right
|
||
|
|
bls.s @done ; done...
|
||
|
|
|
||
|
|
;;<7Dec89smb> jsrROM ROMChkBounds ; check far left and right
|
||
|
|
bsr ptchChkBounds ; extend bounds if necessary <7Dec89smb>
|
||
|
|
|
||
|
|
move.l teHiHook(A3),D0 ; do the inversion via hook if
|
||
|
|
jsrROM ROMInvertHook ; there
|
||
|
|
@done
|
||
|
|
bra doBye
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchCursorMovement
|
||
|
|
; <7Aug89smb> Compare a byte, not a word, for the arrow key type.
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from FindStyleRun, which
|
||
|
|
; is not vectored. So, have to fix in CursorMovement and then
|
||
|
|
; jump back into FindStyleRun.
|
||
|
|
; <28Sept89smb> Fixed double-byte bugs.
|
||
|
|
; <22Nov89smb> Had to pin the style run to the line end for
|
||
|
|
; correct position.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchCursorMovement
|
||
|
|
|
||
|
|
CursorMoveRegs reg d2-d5/d7/a2
|
||
|
|
with CursorFrame,TEFormatOrder
|
||
|
|
link a6,#CursorFrameSz
|
||
|
|
movem.l CursorMoveRegs,-(sp)
|
||
|
|
|
||
|
|
; Initializations
|
||
|
|
sf FormatEndFlag(a6) ; <17Jan89smb>
|
||
|
|
; ***** cd = left? *****
|
||
|
|
cmpi.b #leftArrowChar,d1 ; left arrow? <7Aug89smb> cmp byte not word
|
||
|
|
beq.s @SetLeftCD
|
||
|
|
; right arrow
|
||
|
|
move.b #$FF,d0 ; cursor direction = right
|
||
|
|
move.w #1,d7 ; fmt run index delta (in cursor direction [R])
|
||
|
|
move.b #1,d2 ; q: m[q] = m[1] = n = rightmost fmt index boundary
|
||
|
|
moveq #0,d1 ; p: m[p] = m[0] = 0 = leftmost fmt index boundary
|
||
|
|
|
||
|
|
bra.s @GetLineDir
|
||
|
|
@SetLeftCD
|
||
|
|
moveq #0,d0 ; cursor direction = left
|
||
|
|
move.w #-1,d7 ; fmt run index delta (in cursor direction [L])
|
||
|
|
moveq #0,d2 ; q: m[q] = m[0] = 0 = leftmost fmt index boundary
|
||
|
|
move.b #1,d1 ; p: m[p] = m[1] = n = rightmost fmt index boundary
|
||
|
|
|
||
|
|
; ***** cd = ld? *****
|
||
|
|
@GetLineDir
|
||
|
|
; get line direction
|
||
|
|
cmp.b TESysJust,d0
|
||
|
|
beq.s @CDequalsLD
|
||
|
|
; CD <> LD: cursor direction <> line direction (left arrow, RL line dir; right arrow, LR line dir)
|
||
|
|
move.w #-1,d5 ; character delta
|
||
|
|
move.b #1,d3 ; start
|
||
|
|
moveq #0,d4 ; end
|
||
|
|
bra.s @NeedLine
|
||
|
|
@CDequalsLD
|
||
|
|
; CD = LD: cursor direction = line direction (left arrow, LR line dir; right arrow, RL line dir)
|
||
|
|
move.w #$1,d5 ; character delta
|
||
|
|
moveq #0,d3 ; start
|
||
|
|
move.b #1,d4 ; end
|
||
|
|
@NeedLine
|
||
|
|
; need to test line ends so get current line containing character offset
|
||
|
|
move.w d6,d0
|
||
|
|
lea teLines(a3),a2
|
||
|
|
movea.l a2,a0
|
||
|
|
jsrROM ROMGetLine
|
||
|
|
|
||
|
|
; special case! if at end of document (test if on last line) and cd <> ld don't
|
||
|
|
; want to add charDelta<17Jan89smb>
|
||
|
|
move.w teNLines(a3),d0 ; number of lines
|
||
|
|
lsl.w #1,d0
|
||
|
|
add.w d0,a0 ; want end of last line
|
||
|
|
cmpa.l a0,a2 ; on last line?
|
||
|
|
bne.s @OtherLineStuff
|
||
|
|
tst.b d5
|
||
|
|
blt @done ; at EOD, done.
|
||
|
|
|
||
|
|
@OtherLineStuff
|
||
|
|
; yet another special case! If at the lineStart, and cd = ld, then want to be on
|
||
|
|
; previous line. <16Jan89smb>
|
||
|
|
cmp.w (a2),d6
|
||
|
|
bne.s @OnCorrectLine ; not at lineStart
|
||
|
|
cmpi.w #0,d6
|
||
|
|
beq.s @OnCorrectLine ; not beginning of text
|
||
|
|
tst.b d5
|
||
|
|
blt.s @OnCorrectLine ; cd <> ld
|
||
|
|
subq #2,a2 ; previous line
|
||
|
|
@OnCorrectLine
|
||
|
|
movem.w d1/d2,-(sp)
|
||
|
|
jsrROM ROMGetFormatOrdering
|
||
|
|
movem.w (sp)+,d1/d2 ; restore
|
||
|
|
|
||
|
|
; ***** if c = l[s] then c = c *****
|
||
|
|
; if s = 0, then l[s] = lineStart
|
||
|
|
; if s = 1, then l[s] = lineEnd
|
||
|
|
move.b d3,d0 ; start
|
||
|
|
jsrROM ROMTestLineEnds
|
||
|
|
bne @done ; c = c. done
|
||
|
|
|
||
|
|
; ***** if c = l[e] then r1 = m[p] *****
|
||
|
|
; if e = 0, then l[e] = lineStart
|
||
|
|
; if e = 1, then l[e] = lineEnd
|
||
|
|
move.b d4,d0 ; end
|
||
|
|
jsrROM ROMTestLineEnds
|
||
|
|
beq.s @FindRun
|
||
|
|
; ***** r1 = m[p] *****
|
||
|
|
; d1 = p as input
|
||
|
|
jsrROM ROMSetRun ; returns d1.w = r1: leftmost or rightmost format
|
||
|
|
; ***** d(r1) = ld? *****
|
||
|
|
bsr ptchTestRunDirection ; d1 = r1 (format index) <9Aug89smb>
|
||
|
|
bne @CSubDelta ; True: equal
|
||
|
|
bra @OneCharacterTest
|
||
|
|
@FindRun
|
||
|
|
; find r s.t. f[r,0]<c<f[r,1] OR
|
||
|
|
; ((f[r,0]=c or f[r,1]=c) AND IF on a cluster boundary then d(r)=ld
|
||
|
|
; Else find r s.t. c = f[r,e])
|
||
|
|
bsr ptchFindStyleRun ; returns a0 pointing to style run of d6, d1 = r <9Aug89smb>
|
||
|
|
cmp.w startChar(a0),d6
|
||
|
|
beq.s @OnBoundary
|
||
|
|
jsrROM ROMFixFormatEnd ; <17Jan89smb> if last format run, must decrement
|
||
|
|
cmp.w d0,d6 ; <17Jan89smb>
|
||
|
|
bcs @InMiddle ; <17Jan89smb> <26June89smb> made unsigned
|
||
|
|
st FormatEndFlag(a6) ; <17Jan89smb> on end of style run
|
||
|
|
@OnBoundary
|
||
|
|
; on boundary: test for cluster boundary <17Jan89smb>
|
||
|
|
; get this style run's script direction
|
||
|
|
movem.l d1/d2,-(sp) ; save r (d1) and style
|
||
|
|
jsrROM ROMGetDirection
|
||
|
|
move.b d1,d0
|
||
|
|
movem.l (sp)+,d1/d2 ; <20Jan89smb>
|
||
|
|
cmp.b TESysJust,d0 ; <20Jan89smb>
|
||
|
|
beq @TakeRightBranch ; <20Jan89smb>
|
||
|
|
move.b d0,RunDirection(a6) ; <20Jan89smb>
|
||
|
|
|
||
|
|
; get other boundary style run
|
||
|
|
tst.b FormatEndFlag(a6) ; test if at start or end of style run
|
||
|
|
bne.s @GetNextRun ; at end of this style run
|
||
|
|
; at start of this style run so get previous style run in backing-store order
|
||
|
|
subq.l #stStartSize,a0
|
||
|
|
bra.s @GetScriptDir
|
||
|
|
@GetNextRun
|
||
|
|
; get next style run in backing-store since at end of this style run
|
||
|
|
addq.l #stStartSize,a0
|
||
|
|
@GetScriptDir
|
||
|
|
; get the other style run's script direction
|
||
|
|
movem.l d1/d2,-(sp) ; save r (d1) and style
|
||
|
|
jsrROM ROMGetDirection
|
||
|
|
move.b d1,d0
|
||
|
|
movem.l (sp)+,d1/d2
|
||
|
|
; compare script directions to see if on a cluster boundary
|
||
|
|
cmp.b RunDirection(a6),d0
|
||
|
|
bne.s @ClusterBoundary
|
||
|
|
|
||
|
|
; On a style run boundary with both runs of the same script <17Jan89smb>
|
||
|
|
; ***** d(r) = ld? *****
|
||
|
|
; d(r) <> ld so find r s.t. c = f[r,e]
|
||
|
|
; get original boundary style again <25June89smb>
|
||
|
|
tst.b FormatEndFlag(a6) ; test if at start or end of style run
|
||
|
|
bne.s @GetPrevRun ; at end of this style run
|
||
|
|
; at start of this style run so get previous style run in backing-store order
|
||
|
|
add.l #stStartSize,a0
|
||
|
|
bra.s @TestStylEnd
|
||
|
|
@GetPrevRun
|
||
|
|
; get next style run in backing-store since at end of this style run
|
||
|
|
subq.l #stStartSize,a0
|
||
|
|
@TestStylEnd
|
||
|
|
move.w d1,-(sp) ; save original r
|
||
|
|
move.b d4,d1 ; end
|
||
|
|
move.w d6,d0 ; save d6
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
bsr ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMGetStyleEnd ; returns style start or end in d6
|
||
|
|
ENDIF
|
||
|
|
move.w (sp)+,d1 ; restore r
|
||
|
|
exg d6,d0 ; want original char offset in d6
|
||
|
|
cmp.w d0,d6 ; does c = f[r,e]?
|
||
|
|
beq.s @GetNewIndex ; yep
|
||
|
|
bsr ptchFindStyleRun ; d1 = r s.t. c = f[r,e] <9Aug89smb>
|
||
|
|
|
||
|
|
@GetNewIndex
|
||
|
|
; ***** r1 = r + fmtDelta *****
|
||
|
|
add.w d7,d1 ; format delta
|
||
|
|
bra.s @NewFmtIndex ; <20Jan89smb> must check for 1 char in style run
|
||
|
|
|
||
|
|
@ClusterBoundary
|
||
|
|
; find r s.t. (f[r,0]=c or f[r,1]=c) AND d(r)=ld <17Jan89smb>
|
||
|
|
; Since the character is on a cluster boundary, we want the style run with it's
|
||
|
|
; direction = the line direction (LD).
|
||
|
|
; ***** d(r) = ld? *****
|
||
|
|
bsr ptchFindStyleRun ; find other boundary run with d(r) = ld; d1 = r <9Aug89smb>
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
; continue conditionally!
|
||
|
|
bra.s @TakeRightBranch ; True: d(r) = ld
|
||
|
|
|
||
|
|
@InMiddle
|
||
|
|
; firmly in the middle. Test the line direction to determine the branch to take <17Jan89smb>
|
||
|
|
; ***** d(r) = ld? *****
|
||
|
|
bsr ptchTestRunDirection ; does the direction of the run = line direction?
|
||
|
|
bne.s @TakeRightBranch ; True: d(r) = ld
|
||
|
|
; d(r) <> ld
|
||
|
|
; ***** c <> f[r,e] - charDelta? ***** are we one away from a style boundary?
|
||
|
|
move.w d1,-(sp)
|
||
|
|
move.b d4,d1 ; end
|
||
|
|
move.w d6,d0 ; save d6
|
||
|
|
;; jsrROM ROMGetStyleEnd ; returns style start or end in d6
|
||
|
|
bsr ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
move.w (sp)+,d1
|
||
|
|
|
||
|
|
; must adjust for double-byte characters <2Sept89smb>
|
||
|
|
movem.l a0/d0-d3,-(sp) ; save <2Sept89smb>
|
||
|
|
move.w d5,d3 ; <2Sept89smb>
|
||
|
|
neg.w d3 ; <2Sept89smb>
|
||
|
|
; f[r,e] - charDelta (where the delta may be -2/2 rather than -1/1)
|
||
|
|
jsrROM ROMDoubleByte ; <2Sept89smb>
|
||
|
|
movem.l (sp)+,a0/d0-d3 ; <2Sept89smb>
|
||
|
|
exg d6,d0 ; want original char offset in d6
|
||
|
|
cmp.w d0,d6
|
||
|
|
;------------------------------------------------------------------------------------
|
||
|
|
; must pin to line end to get correct offset, so to truly be done: <22Nov89smb>
|
||
|
|
; c <> l[e] - charDelta
|
||
|
|
beq.s @TstFmtIndeces ; <22Nov89smb>
|
||
|
|
; if e = 0, then l[e] = lineStart
|
||
|
|
; if e = 1, then l[e] = lineEnd
|
||
|
|
move.w 2(a2),d0 ; assume e=1 so use lineEnd ; <22Nov89smb>
|
||
|
|
cmpi.b #0,d4 ; end ; <22Nov89smb>
|
||
|
|
beq.s @IsLineStart ; <22Nov89smb>
|
||
|
|
bra.s @SubDelta ; <22Nov89smb>
|
||
|
|
@IsLineStart
|
||
|
|
move.w (a2),d0 ; <22Nov89smb>
|
||
|
|
@SubDelta
|
||
|
|
sub.w d5,d0 ; - charDelta <22Nov89smb>
|
||
|
|
cmp.w d6,d0 ; <22Nov89smb>
|
||
|
|
bne @CAddDelta ; done
|
||
|
|
;-----------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
@TstFmtIndeces
|
||
|
|
; ***** r = m[q]? *****
|
||
|
|
; in the leftmost or rightmost format? test format indeces
|
||
|
|
move.w d1,d0 ; save r(n)
|
||
|
|
move.b d2,d1 ; q
|
||
|
|
jsrROM ROMSetRun ; returns m[q] in d1.w (0/n)
|
||
|
|
cmp.w d0,d1
|
||
|
|
beq.s @CUseLineSt ; yep, r = m[q]: c = l[s]
|
||
|
|
|
||
|
|
; ***** r1 = r + fmtDelta *****
|
||
|
|
add.w d7,d0 ; format delta
|
||
|
|
move.w d0,d1 ; want r1 in d1
|
||
|
|
; ***** d(r1) = ld? *****
|
||
|
|
@NewFmtIndex
|
||
|
|
bsr ptchTestRunDirection ; does the direction of the run = line direction?
|
||
|
|
beq @CAddDelta ; False: d(r1) <> ld ; c = c + CharDelta ; True: d(r1) = ld
|
||
|
|
; ***** c = f[r1,e] *****
|
||
|
|
move.b d4,d1 ; end
|
||
|
|
;; jsrROM ROMGetStyleEnd ; returns new char offset in d6
|
||
|
|
bsr ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
bra @done
|
||
|
|
|
||
|
|
@TakeRightBranch
|
||
|
|
; (either on a boundary or firmly in the middle) AND d(r) = ld
|
||
|
|
; ***** c <> f[r,s]? *****
|
||
|
|
tst.b d3 ; start
|
||
|
|
bne.s @EndOffset ; s = 1
|
||
|
|
; c <> f[r,0]? => start offset for format run r
|
||
|
|
cmp.w startChar(a0),d6
|
||
|
|
bne.s @CSubDelta
|
||
|
|
bra.s @TestFmtArrayEnds
|
||
|
|
@EndOffset
|
||
|
|
; c <> f[r,1]? => end offset for format run r
|
||
|
|
jsrROM ROMFixFormatEnd ; <17Jan89smb> if last format run, must decrement
|
||
|
|
cmp.w d0,d6
|
||
|
|
bne.s @CSubDelta
|
||
|
|
|
||
|
|
@TestFmtArrayEnds
|
||
|
|
; ***** r = m[q]? *****
|
||
|
|
; in the leftmost or rightmost format? test format indeces
|
||
|
|
move.w d1,d0 ; save r(n)
|
||
|
|
move.b d2,d1 ; q
|
||
|
|
jsrROM ROMSetRun ; returns m[q] in d1.w (0/n)
|
||
|
|
cmp.w d0,d1
|
||
|
|
beq.s @done ; yep, r = m[q]: c = c
|
||
|
|
; ***** r1 = r + fmtDelta *****
|
||
|
|
add.w d7,d0 ; format delta
|
||
|
|
move.w d0,d1 ; want r1 in d1
|
||
|
|
; ***** d(r1) = ld? *****
|
||
|
|
bsr ptchTestRunDirection ; does the direction of the run = line direction?
|
||
|
|
bne.s @CSubDelta ; True: equal
|
||
|
|
|
||
|
|
@OneCharacterTest
|
||
|
|
; no, style run direction <> line direction
|
||
|
|
; ***** f[r1,1] - f[r1,0] <> 1? *****
|
||
|
|
; test if there is only one character in the run.
|
||
|
|
jsrROM ROMFixFormatEnd ; <17Jan89smb> if last format run, must decrement
|
||
|
|
sub.w startChar(a0),d0
|
||
|
|
cmpi.w #1,d0
|
||
|
|
bhi.s @CUseStartDelta ; c = f[r1,s] + charDelta <26June89smb> made unsigned
|
||
|
|
|
||
|
|
; ***** r1 = m[q]? *****
|
||
|
|
; in the leftmost or rightmost format? test format indeces
|
||
|
|
move.w d1,d0 ; save r(n)
|
||
|
|
move.b d2,d1 ; q
|
||
|
|
jsrROM ROMSetRun ; returns m[q] in d1.w (0/n)
|
||
|
|
cmp.w d0,d1
|
||
|
|
beq.s @CUseStart ; terminator is direction test
|
||
|
|
; ***** r2 = r1 + fmtDelta *****
|
||
|
|
add.w d7,d0 ; format delta
|
||
|
|
move.w d0,d1 ; want r1 in d1
|
||
|
|
; ***** d(r2) = ld? *****
|
||
|
|
bsr ptchTestRunDirection ; does the direction of the run = line direction?
|
||
|
|
beq.s @CUseStartDelta ; d(r2) <> ld: c = f[r1,s] + charDelta
|
||
|
|
@CUseStart
|
||
|
|
; ***** c = f[r1,s] ******
|
||
|
|
move.b d3,d1 ; start
|
||
|
|
;; jsrROM ROMGetStyleEnd ; returns new char offset in d6
|
||
|
|
bsr ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
bra.s @done
|
||
|
|
|
||
|
|
@CUseStartDelta
|
||
|
|
;***** c = f[r1,s] + charDelta *****
|
||
|
|
move.b d3,d1 ; start
|
||
|
|
;; jsrROM ROMGetStyleEnd ; returns new char offset in d6
|
||
|
|
bsr ptchGetStyleEnd ; <26Nov89smb>
|
||
|
|
bra.s @CAddDelta
|
||
|
|
|
||
|
|
@CUseLineSt
|
||
|
|
; ***** c = l[s] *****
|
||
|
|
move.b d3,d1 ; start
|
||
|
|
tst.b d1
|
||
|
|
bne.s @UseLineEnd
|
||
|
|
; c = l[0] = lineStart
|
||
|
|
move.w (a2),d6
|
||
|
|
bra.s @done
|
||
|
|
@UseLineEnd
|
||
|
|
; c = l[1] = lineEnd
|
||
|
|
move.w 2(a2),d6
|
||
|
|
bra.s @done
|
||
|
|
; if double-byte character fix the offset posn.<2Sept89smb>
|
||
|
|
@CSubDelta
|
||
|
|
neg.w d5 ; <2Sept89smb>
|
||
|
|
@CAddDelta
|
||
|
|
move.w d5,d3 ; DoubleByte wants charDelta here <2Sept89smb>
|
||
|
|
jsrROM ROMDoubleByte ; <2Sept89smb>
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
ELSE
|
||
|
|
; continue here for 6.0.4 Roman System patches
|
||
|
|
@TakeRightBranch
|
||
|
|
jmpROM ROM@TakeRightBranch
|
||
|
|
@OneCharacterTest
|
||
|
|
jmpROM ROM@OneCharacterTest
|
||
|
|
@CSubDelta jmpROM ROM@CSubDelta
|
||
|
|
@InMiddle jmpROM ROM@InMiddle
|
||
|
|
@NewFmtIndex
|
||
|
|
jmpROM ROM@NewFmtIndex
|
||
|
|
|
||
|
|
ENDIF
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
; rejoin again
|
||
|
|
@done
|
||
|
|
movem.l (sp)+,CursorMoveRegs
|
||
|
|
unlk a6
|
||
|
|
rts
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchFindStyleRun
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from FindStyleRun, which
|
||
|
|
; is not vectored.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchFindStyleRun
|
||
|
|
with CursorFrame,TEFormatOrder
|
||
|
|
@RunLoop
|
||
|
|
bsr ptchGetNextDisplayStyle ; <9Aug89smb>
|
||
|
|
move.w fmtOrderingIndex(a6),d1
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter
|
||
|
|
cmp.w startChar(a0),d6
|
||
|
|
bhi.s @CheckUpperBound ; in middle? <26June89smb> made unsigned
|
||
|
|
beq.s @done
|
||
|
|
bra.s @RunLoop
|
||
|
|
@CheckUpperBound
|
||
|
|
IF forLocalizability THEN ; <34o-YDS-9/2/91>
|
||
|
|
jsrRom ROMFixFormatEnd ;
|
||
|
|
ELSE
|
||
|
|
jmpRom ROMFixFormatEnd ; <17Jan89smb> if last format run, must decrement
|
||
|
|
ENDIF
|
||
|
|
cmp.w d0,d6 ; <17Jan89smb>
|
||
|
|
bhi.s @RunLoop ; <26June89smb> made unsigned
|
||
|
|
@done
|
||
|
|
rts
|
||
|
|
endwith
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchGetStyleEnd
|
||
|
|
; <26Nov89smb>
|
||
|
|
; Must pin the style run to the appropriate line ending.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetStyleEnd
|
||
|
|
move.w d0,-(sp) ; <17Jan89smb>
|
||
|
|
tst.b d1
|
||
|
|
bne.s @UseEnd
|
||
|
|
; f[r1,0] = start offset for format run at format index r1.
|
||
|
|
move.w startChar(a0),d6
|
||
|
|
|
||
|
|
; must pin style run to lineStart! <26Nov89smb>
|
||
|
|
cmp.w (a2),d6
|
||
|
|
bhs.s @done ; style start on this line <26Nov89smb>
|
||
|
|
move.w (a2),d6 ; use lineStart <26Nov89smb>
|
||
|
|
bra.s @done
|
||
|
|
|
||
|
|
@UseEnd
|
||
|
|
; f[r1,1] = end offset for format run at format index r1.
|
||
|
|
jsrROM ROMFixFormatEnd ; <17Jan89smb> if last format run, must decrement
|
||
|
|
move.w d0,d6 ; <17Jan89smb>
|
||
|
|
|
||
|
|
; must pin style run to line end if it breaks across the line! <26Nov89smb>
|
||
|
|
cmp.w 2(a2),d6 ; <26Nov89smb>
|
||
|
|
bls.s @done ; <26Nov89smb>
|
||
|
|
move.w 2(a2),d6 ; <26Nov89smb>
|
||
|
|
@done
|
||
|
|
move.w (sp)+,d0 ; restore <17Jan89smb>
|
||
|
|
rts
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEGetFormatOrder
|
||
|
|
; <6Aug89smb> I need to patch a bug in the routine SetUp, a
|
||
|
|
; subroutine of StyleMeasure, and only called by RomanFindLine.
|
||
|
|
; It is a caller of P2C that has no vector or trap.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEGetFormatOrder
|
||
|
|
FormatOrderRegs reg d2-d4
|
||
|
|
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
moveq.l #0,d2
|
||
|
|
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
; Made a2StyleRun(a6) an offset - can't save the ptr! (the handle's not locked!) Oh-Dopey-Me!
|
||
|
|
move.l teStylesH(a3),a1 ; <5Aug89smb>
|
||
|
|
move.l (a1),a1 ; deref <5Aug89smb>
|
||
|
|
sub.l a1,a0 ; save posn as an offset <5Aug89smb>
|
||
|
|
move.l a0,a2StyleRun(a6) ; save offset to style run of lineStart
|
||
|
|
add.l a1,a0 ; restore for succeeding GetNumStyles call
|
||
|
|
jmpROM ROMEndTEFmtOrder
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchCaretDisplay
|
||
|
|
; <8Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from CaretDisplay. Must
|
||
|
|
; replace this much code since the bug occurs in looping code.
|
||
|
|
; <9/20/90smb> Patched to call ptchMeasureWholeRun for
|
||
|
|
; TextWidth hook.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchCaretDisplay
|
||
|
|
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
link a6,#SharedFrameSz
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb> initialize for only 1 cursor
|
||
|
|
sf ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
sf ExpandMemRec.emFmtOrderHFlag(a0) ; no handle allocated for styles
|
||
|
|
clr.w gotOneRun(a6) ; set gotOneRun and onBoundaryFlag to F.
|
||
|
|
sf scriptDirection(a6) ; initialize to LR
|
||
|
|
clr.w d5
|
||
|
|
|
||
|
|
jsrROM ROMGetFormatOrdering ; <8Mar89smb>
|
||
|
|
|
||
|
|
; accumulate widths of style runs until hit one containing a cursor.
|
||
|
|
@MeasureLoop
|
||
|
|
bsr ptchGetNextDisplayStyle ; <8Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr for the next measurement
|
||
|
|
|
||
|
|
; does this style contain a cursor?
|
||
|
|
@Check4Cursor
|
||
|
|
cmp.w startChar(a0),d3 ; cursor at beginning of run?
|
||
|
|
;; bhi.s @CheckUpperBound ; <26June89smb> made unsigned <13>
|
||
|
|
beq.s @CursorRun ; cursor on start boundary of it's run
|
||
|
|
;; bra @GetWidth ; cursor outside of run <13>
|
||
|
|
blo @GetWidth ; <13>
|
||
|
|
|
||
|
|
|
||
|
|
@CheckUpperBound
|
||
|
|
jsrROM ROMFixFormatEnd ; if last format run, must decrement <17Jan89smb>
|
||
|
|
cmp.w d0,d3 ; cursor at end of run? <17Jan89smb>
|
||
|
|
bhi.s @GetWidth ; cursor outside of run <26June89smb> made unsigned
|
||
|
|
blt.s @FoundCursor ; cursor in middle of run
|
||
|
|
|
||
|
|
; in style previous to cursor's run
|
||
|
|
tst.b gotOneRun(a6) ; set up second rectangle now?
|
||
|
|
bne @SetEnds ; yup, already have top and bottom
|
||
|
|
st prevStyleFlag(a6) ; cursor at end of this run (previous style)
|
||
|
|
bra.s @OnBoundary
|
||
|
|
@CursorRun
|
||
|
|
; in cursor's run
|
||
|
|
tst.b gotOneRun(a6) ; set up second rectangle now?
|
||
|
|
bne @SetEnds ; yup, already have top and bottom
|
||
|
|
sf prevStyleFlag(a6) ; cursor at beginnning of it's run
|
||
|
|
@OnBoundary
|
||
|
|
st onBoundaryFlag(a6) ; cursor on boundary of run
|
||
|
|
|
||
|
|
; cursor either in middle of the style run or on a boundary
|
||
|
|
@FoundCursor
|
||
|
|
tst.w teSize(a3) ; <1Dec88smb>
|
||
|
|
bpl.s @DontSet
|
||
|
|
jsrROM ROMSetStyle
|
||
|
|
@DontSet
|
||
|
|
tst.b WordRedraw ; <4Oct89smb>
|
||
|
|
blt.s @ContainsRLText ; <4Oct89smb>
|
||
|
|
tst.b teSysJust
|
||
|
|
bne.s @ContainsRLText
|
||
|
|
; in LR text only on a LR directional line: done stepping thru style
|
||
|
|
clr.l d2 ; #smLeftCaret set in low word of d2
|
||
|
|
jsrROM ROMGetLRPosition
|
||
|
|
add.w d1,d5 ; add C2P width to totalWidth of line thus far (d5)
|
||
|
|
|
||
|
|
add.w d5,teSelRect+left(a3) ; add width to left and right edges of selRect
|
||
|
|
add.w d5,teSelRect+right(a3)
|
||
|
|
bra @done
|
||
|
|
|
||
|
|
@ContainsRLText
|
||
|
|
move.w d2,-(sp) ; save style counter
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
bsr ptchGetRLPosition ; local version now <20Nov89smb>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMGetRLPosition
|
||
|
|
ENDIF
|
||
|
|
move.w (sp)+,d2 ; restore style counter
|
||
|
|
tst.b doneFlag(a6)
|
||
|
|
bne.s @finis
|
||
|
|
tst.b lineEndFlag(a6)
|
||
|
|
bne.s @GetWidth ; must measure rest of style runs on line
|
||
|
|
|
||
|
|
; added more robust tests for determining whether need to measure style run or not <8Nov88smb>
|
||
|
|
tst.b scriptDirection(a6)
|
||
|
|
bne.s @ChkRLMeasure ; bra if RL script direction
|
||
|
|
|
||
|
|
; in LR script direction <8Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne @MeasureLoop ; bra if previous LR run: already measured
|
||
|
|
bra.s @GetWidth ; measure since in cursor run w/ LR direction
|
||
|
|
|
||
|
|
@ChkRLMeasure
|
||
|
|
; in RL script direction <8Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
beq @MeasureLoop ; bra if in cursor run: already measured
|
||
|
|
|
||
|
|
; cursor's not in this style run, so measure it and save its width for later OR
|
||
|
|
; found cursor in it's style run but the script has LR direction so need to measure
|
||
|
|
@GetWidth
|
||
|
|
move.w d1,-(sp)
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
import ptchMeasureWholeRun ; <17>
|
||
|
|
jsr ptchMeasureWholeRun ; <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
jsrROM ROMMeasureWholeRun
|
||
|
|
ENDIF ; <17>
|
||
|
|
add.w d0,d5
|
||
|
|
move.w (sp)+,d1
|
||
|
|
tst.b WordRedraw ; <4Oct89smb>
|
||
|
|
bge.s @GetNext ; <4Oct89smb>
|
||
|
|
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
beq.s @finis
|
||
|
|
bra @MeasureLoop
|
||
|
|
|
||
|
|
@GetNext
|
||
|
|
Addq.l #stStartSize,a0 ; get next style
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
Bne @Check4Cursor ; must be more than 1 line
|
||
|
|
bra.s @finis
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; Just was added for the patch, the real
|
||
|
|
@SetEnds ; code is below <34d-YDS-9/2/91>
|
||
|
|
; second cursor style run. Must set up the second rectangle for the second cursor
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne.s @InCursorRun ; in cursor script
|
||
|
|
move.b previousScriptDir(a6),d0
|
||
|
|
bra.s @GetScriptDirection
|
||
|
|
@InCursorRun
|
||
|
|
move.b cursorScriptDir(a6),d0
|
||
|
|
|
||
|
|
@GetScriptDirection
|
||
|
|
bne.s @RLScript
|
||
|
|
|
||
|
|
; LR Script <7Nov88smb>
|
||
|
|
; if in previous style and LR script direction then measure since at end of style run
|
||
|
|
; otherwise, width is 0 since at beginning of run so, have width to use
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
beq.s @MeasureRun ; bra to measure if in prevStyle's run
|
||
|
|
bra.s @HaveWidth
|
||
|
|
|
||
|
|
@RLScript
|
||
|
|
; if in cursor style and RL script direction then measure since at beginning of style run
|
||
|
|
; otherwise, width is 0 since at end of run so, have width to use <7Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne.s @MeasureRun ; bra to measure if in cursor's run
|
||
|
|
bra.s @HaveWidth
|
||
|
|
|
||
|
|
@MeasureRun
|
||
|
|
move.w d5,-(sp) ; necessary for two cursors
|
||
|
|
import ptchMeasureWholeRun ; <17>
|
||
|
|
jsr ptchMeasureWholeRun ; <17>
|
||
|
|
add.w d0,d5
|
||
|
|
bra.s @HaveWidth
|
||
|
|
@finis
|
||
|
|
tst.b lineEndFlag(a6)
|
||
|
|
beq.w @done
|
||
|
|
|
||
|
|
move.l ExpandMem,a0 ; <34l-YDS-9/2/91
|
||
|
|
tst.b ExpandMemRec.emTwoCursorsFlag(a0) ; if we have one cursor
|
||
|
|
beq.w @done ; skip all the rest
|
||
|
|
|
||
|
|
@HaveWidth
|
||
|
|
; finish setup of 2nd cursor rectangle
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb>
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; <12July89smb> changed to lea
|
||
|
|
addq #2,a0 ; top edge ok
|
||
|
|
add.w selRectL(a6),d5 ; add original L. edge
|
||
|
|
move.w d5,(a0) ; left
|
||
|
|
sub.w #1,(a0)+ ; cursor posn
|
||
|
|
addq #2,a0 ; bottom edge ok
|
||
|
|
move.w d5,(a0) ; right (same as left)
|
||
|
|
|
||
|
|
; YS - added to support a single carret
|
||
|
|
; at styled TE, <34d-YDS-9/2/91>
|
||
|
|
clr.l -(sp) ; make space for function result
|
||
|
|
move #smGenFlags,-(sp) ; put smSysScript verb to get the SMGR general flags
|
||
|
|
_GetEnvirons ; now wh have the general flags
|
||
|
|
Move.l (sp)+, d5 ; take return value.
|
||
|
|
and.l #(1<<smfDualCaret),d5 ; leave only the right bit
|
||
|
|
bne.w @done ; leave the split carret as is ?
|
||
|
|
|
||
|
|
move.l ExpandMem,a0 ; get the scplit cursor addres into A0
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0
|
||
|
|
Move.w top(a0), d5 ; some times we get the lower
|
||
|
|
Cmp.w teSelRect+top(a3), d5 ; in selrect & the upper in "ExpandMem"
|
||
|
|
bgt.s @3 ; so we would like to sort it out.
|
||
|
|
|
||
|
|
move.l top(a0),d5 ; switch the two rects. keep in mind
|
||
|
|
move.l teSelRect+top(a3),top(a0) ; that the upper one has the width of
|
||
|
|
move.l d5,teSelRect+top(a3) ; zero, while the lower one has the
|
||
|
|
move.w bottom(a0),d5 ; witdth of 1, sorry, not my fault,
|
||
|
|
move.w teSelRect+bottom(a3),bottom(a0) ; that's how it is now, and i'm not
|
||
|
|
move.w d5,teSelRect+bottom(a3) ; going to change it.
|
||
|
|
move.w teSelRect+left(a3),teSelRect+right(a3)
|
||
|
|
move.w left(a0),right(a0)
|
||
|
|
add.w #1,right(a0)
|
||
|
|
|
||
|
|
@3 clr.l -(sp) ; we will need a place on the stack anyway !
|
||
|
|
Tst.b teCarOn(A3) ; if caret on, we would like to calculate the same caret allways
|
||
|
|
bne.s @1 ; carret is going on, calculate a new one <34p-YDS-9/2/91>
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0
|
||
|
|
move.b lastScript(a0),d5 ; push script numberused to highligt (d5) to lastScript
|
||
|
|
bra.s @2
|
||
|
|
|
||
|
|
@1 move #smKeyScript,-(sp) ; we will call _GetEnvirons to get the current active (keyboard) script.
|
||
|
|
_GetEnvirons ; now we know who the active script
|
||
|
|
Move.l (sp), d5 ; take return value (the script number (long !!!)), leave place for return value
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0
|
||
|
|
move.b d5, lastScript(a0) ; push script numberused to highligt (d5) to lastScript
|
||
|
|
|
||
|
|
@2 move.w d5, -(sp) ; push the script (word !!!) for the next call we will need
|
||
|
|
|
||
|
|
|
||
|
|
move #smScriptRight,-(sp) ; is that script a right to left script ?
|
||
|
|
_GetScript ; we have smScriptRightflag the stack
|
||
|
|
move.l (sp)+, d0 ; do = result
|
||
|
|
move.l ExpandMem,a0 ; get the scplit cursor addres into A0
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0
|
||
|
|
cmp.b TESysJust, d0
|
||
|
|
beq.s @UseTop
|
||
|
|
@UseBottom
|
||
|
|
move.w teSelRect+top(a3),top(a0) ; strech lower cursor
|
||
|
|
move.w teSelRect+top(a3),teSelRect+bottom(a3) ; make top = bottom in upper cursor
|
||
|
|
bra.s @done
|
||
|
|
@UseTop
|
||
|
|
move.w bottom(a0),teSelRect+bottom(a3) ; strech upper cursor
|
||
|
|
move.w bottom(a0),top(a0) ; make top = bottom in lower cursor
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
@SetEnds jmpROM ROM@SetEnds
|
||
|
|
@finis jmpROM ROM@finis
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@done jmpROM ROM@done
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchGetStylesInOrder
|
||
|
|
; <8Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from GetStylesInOrder.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetStylesInOrder
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
bsr ptchTEGetFormatOrder ; <9Aug89smb>
|
||
|
|
; get next style in a0 using the results from getFormatOrder
|
||
|
|
bsr ptchGetNextDisplayStyle
|
||
|
|
|
||
|
|
|
||
|
|
; a come-from patch for ChkBounds! YUK! <9Aug89smb>
|
||
|
|
IF NOT (Scripts604 | SysVers>= $605) THEN ; <7Dec89smb>
|
||
|
|
cmpROM ROM@OneStyleTest,(sp) ; Return address in ChkBounds <14Aug89smb>
|
||
|
|
beq.s ptchChkBounds ; <9Aug89smb>
|
||
|
|
ENDIF
|
||
|
|
cmpROM BackToDoMeasure,(sp) ; Return address in DoMeasure <9Aug89smb>
|
||
|
|
beq.w ptchDoMeasure
|
||
|
|
|
||
|
|
;;<14Aug89smb> jmpROM EndGetStylesInOrder
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter <14Aug89smb>
|
||
|
|
subq #1,D2 ; dec the style counter <14Aug89smb>
|
||
|
|
Rts ; <14Aug89smb>
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchChkBounds
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from ChkBounds. Since
|
||
|
|
; this routine is an internal routine to TE, this must be a
|
||
|
|
; come-from patch, jumped in from GetStylesInOrder.
|
||
|
|
; <7Dec89smb> Fixed problem with setting the boundaries in ChkBounds.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
ptchChkBounds
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; <7Dec89smb>
|
||
|
|
move.w (a2),d0 ; start of line
|
||
|
|
move.w 2(a2),d1 ; end of line
|
||
|
|
|
||
|
|
; if block begins at start of line, make left a large negative number
|
||
|
|
; <7Dec89smb> Tried to fix boundaries for teSysJust conditions
|
||
|
|
cmp.w d0,d3
|
||
|
|
bne.s @TestLineEnd
|
||
|
|
tst.w teSysJust
|
||
|
|
bne.s @FixRightBoundAtStart
|
||
|
|
move.w #UnboundLeft,teSelRect+left(A3) ; assume LR text
|
||
|
|
bra.s @TestLineEnd
|
||
|
|
@FixRightBoundAtStart
|
||
|
|
move.w #UnboundRight,teSelRect+right(A3)
|
||
|
|
|
||
|
|
; if block ends at end of line, make right a large positive number
|
||
|
|
@TestLineEnd
|
||
|
|
cmp.w d1,d4
|
||
|
|
bne.s @EdgesSet
|
||
|
|
tst.w teSysJust
|
||
|
|
bne.s @FixLeftBoundAtEnd
|
||
|
|
move.w #UnboundRight,teSelRect+right(A3)
|
||
|
|
bra.s @EdgesSet
|
||
|
|
@FixLeftBoundAtEnd
|
||
|
|
move.w #UnboundLeft,teSelRect+left(A3) ; assume LR text
|
||
|
|
|
||
|
|
@EdgesSet
|
||
|
|
Rts
|
||
|
|
ELSE
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
|
||
|
|
adda.w #4, sp ; pop GetStylesInOrder's RA <9Aug89smb>
|
||
|
|
; added end of GetStylesInOrder code since not returning there <9Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter <9Aug89smb>
|
||
|
|
SubQ #1,D2 ; dec the style counter <9Aug89smb>
|
||
|
|
beq.s @OneStyle
|
||
|
|
|
||
|
|
Subq #1,D2 ; dec style count
|
||
|
|
move.w d2,fmtOrderingIndex(a6) ; set to next-to-last style
|
||
|
|
move.l a0,-(sp) ; save style ptr at start
|
||
|
|
|
||
|
|
; more than 1 style in mixed directional text, so get the first and next-to-last
|
||
|
|
; styles using the results from getFormatOrder
|
||
|
|
bsr ptchGetNextDisplayStyle ; <9Aug89smb>
|
||
|
|
jmpROM BackToChkBounds
|
||
|
|
@OneStyle jmpROM ROM@OneStyle
|
||
|
|
endWith
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchDoMeasure
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from DoMeasure. Since
|
||
|
|
; this routine is an internal routine to TE, this must be a
|
||
|
|
; come-from patch, jumped in from GetStylesInOrder.
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; <2/Sep/91 YS> needed to call DoMesure, so had to realy patch all
|
||
|
|
; of it, since the label ptchDoMeasure is realy a patch inside DoMeasure
|
||
|
|
; and not the entry point. so the real patch for whole DoMeasure
|
||
|
|
; is ptchWholeDoMeasure <34i-YDS-9/2/91>
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
; <34i-YDS-9/2/91>
|
||
|
|
IF forLocalizability THEN ; here we do a real patch for whole the DoMeasure
|
||
|
|
ptchWholeDoMeasure ;
|
||
|
|
MoveM.L D3/D5-D6,-(SP)
|
||
|
|
MoveQ #0,D5 ; width accumulator
|
||
|
|
Move.W (A2),D6 ; line start
|
||
|
|
sf d3 ; not found yet
|
||
|
|
|
||
|
|
Cmp D6,D7 ; nothing to measure?
|
||
|
|
Blo MeasureDone ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
|
||
|
|
Tst.b WordRedraw ; reverse order? if <0 then RL script present
|
||
|
|
Bge PlainMeasure ; just do normal roman measure if not
|
||
|
|
Tst.W teSize(A3) ; style record?
|
||
|
|
Bpl LRPlainMeasure ; just do normal L->R measure if not
|
||
|
|
|
||
|
|
sf useOldMethod(a6) ; flag for getting style runs <28Sept88smb>
|
||
|
|
Move.W (A2),D0 ; start of line <12July8smb> moved up here
|
||
|
|
Move.W 2(A2),D1 ; end of line <12July8smb> moved up here
|
||
|
|
; determine if display order is different from
|
||
|
|
; backin-store order <28Sept88smb>
|
||
|
|
tst.b WordRedraw ; $FF if a R->L directional script installed
|
||
|
|
blt.s RLStyledLine ; RL text in record <17July89smb>
|
||
|
|
; moved next 4 lines here to cleanup branching <17July89smb>
|
||
|
|
st useOldMethod(a6)
|
||
|
|
jsrROM ROMGetCurStyle ; get its style <7Oct88smb>
|
||
|
|
jsrROM ROMGetNumStyles ; # of styles between offsets <7Oct88smb>
|
||
|
|
bra.s MeasureLoop ; <17July89smb>
|
||
|
|
|
||
|
|
RLStyledLine
|
||
|
|
bsr ptchGetStylesInOrder ; initialize style run array
|
||
|
|
; tests whether any styles to process
|
||
|
|
bge.s MeasureLoop
|
||
|
|
bra MeasureDone
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
ptchDoMeasure
|
||
|
|
|
||
|
|
adda.w #4, sp ; pop GetStylesInOrder's RA <9Aug89smb>
|
||
|
|
; added end of GetStylesInOrder code since not returning there <9Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter <9Aug89smb>
|
||
|
|
SubQ #1,D2 ; dec the style counter <9Aug89smb>
|
||
|
|
bge.s MeasureLoop
|
||
|
|
bra MeasureDone
|
||
|
|
|
||
|
|
getStyleNew
|
||
|
|
; get next style using the results from getFormatOrder
|
||
|
|
bsr ptchGetNextDisplayStyle ; <9Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the style run counter
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
bge.s MeasureLoop
|
||
|
|
bra.w MeasureDone ; done
|
||
|
|
|
||
|
|
@getStyleOld
|
||
|
|
st useOldMethod(a6)
|
||
|
|
jsrROM ROMGetCurStyle ; get its style
|
||
|
|
jsrROM ROMGetNumStyles ; # of styles between offsets
|
||
|
|
|
||
|
|
MeasureLoop
|
||
|
|
; get the style run in d6,d0
|
||
|
|
Move.W startChar(A0),D6 ; store actual start of line
|
||
|
|
jsrROM ROMFixFormatEnd ; <6Mar89smb> returns end of style run in d0
|
||
|
|
|
||
|
|
; pin d6 (start of the style run) to start of the line
|
||
|
|
|
||
|
|
Cmp.W (A2),D6 ; should not be greater than
|
||
|
|
Bhi.S @D6Pinned2Start ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
Move.W (A2),D6 ; the selection start
|
||
|
|
@D6Pinned2Start
|
||
|
|
|
||
|
|
; pin d0 (end of style run) to the end of the line
|
||
|
|
|
||
|
|
Cmp.W 2(A2),D0 ; style start
|
||
|
|
Bls.S @D0Pinned2End ; made this unsigned ** <C381/6nov86/MBK> **
|
||
|
|
Move.W 2(A2),D0 ; line's end
|
||
|
|
@D0Pinned2End
|
||
|
|
|
||
|
|
; now have a valid style run, limited to the line we are on
|
||
|
|
; this checks for a boundary condition, where d7 is between style runs
|
||
|
|
|
||
|
|
tst.b d3 ; found already?
|
||
|
|
bne.w PlainMeasure ; exit and measure the last one
|
||
|
|
|
||
|
|
; if searchpoint not in current style run, then keep measuring
|
||
|
|
|
||
|
|
Cmp.W D6,D7 ; if less than selection start
|
||
|
|
Blo.S @DontExit ; then searchPoint is not in this style
|
||
|
|
Beq.S @CheckDirection ; check for boundary condition
|
||
|
|
Cmp.W D0,D7 ; if greater than selection end
|
||
|
|
Bhi.S @DontExit ; then searchPoint is not in this style
|
||
|
|
Bne.S PlainMeasure ; exit & measure (firmly inbetween)
|
||
|
|
|
||
|
|
; at this point, on a boundary. Measure & Exit if style direction = TESysJust
|
||
|
|
@CheckDirection
|
||
|
|
jsrROM ROMGetDirection ; returns script dir in d1
|
||
|
|
cmp.b TESysJust,d1 ; TESysJust = 0, -1, so top byte set
|
||
|
|
beq.s PlainMeasure ; exit & measure this last run
|
||
|
|
st d3 ; found at least one style run
|
||
|
|
bra.s @GetTheWidth ; already set style, so go for it.
|
||
|
|
|
||
|
|
; if searchPoint (d7) on boundary of previous style run and this style run must adjust it to
|
||
|
|
; be at the end of the style run to get the full measure of the style run. Rather than adjust
|
||
|
|
; it we force GetWidth to use TextWidth by setting tempVar to true! <27Sept88smb>
|
||
|
|
|
||
|
|
@DontExit
|
||
|
|
Move.W D0,-(SP) ; SetStyle destroys this ** <C229/28oct86/MBK> **
|
||
|
|
jsrROM ROMSetStyle ; set the style
|
||
|
|
Move.W (SP)+,D0 ; restore length to measure ** <C229/28oct86/MBK> **
|
||
|
|
|
||
|
|
@GetTheWidth
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
st ExpandMemRec.emMeasureLine(a1) ; full line flag: measure full style run <27Sept88smb>
|
||
|
|
move.w d2,-(sp) ; save style count
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
bsr ptchGetWidth ; local version now <14Nov89smb>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMGetWidth ; get string width
|
||
|
|
ENDIF
|
||
|
|
Add.W D1,D5 ; accumulate width
|
||
|
|
move.w (sp)+,d2 ; restore style count
|
||
|
|
tst.b useOldMethod(a6) ; <28Sept88smb>
|
||
|
|
beq.s getStyleNew ; use formatOrder array
|
||
|
|
SubQ.L #stStartSize,A0 ; pt to prev style
|
||
|
|
Bra.S MeasureLoop ; keep measuring
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; Fix to support correct mesure for unstyled L->R
|
||
|
|
LRPlainMeasure ; <34i-YDS-9/2/91>
|
||
|
|
MoveM.l a0-a1/d0-d2, -(sp) ; text <3.10>
|
||
|
|
Move.l teTextH(A3),A0 ; get text handle
|
||
|
|
Move.l (a0),a0 ; derefrence it
|
||
|
|
Move.w teLength(a3), d0
|
||
|
|
cmp.w (a2),d0 ; are we at the start of the empty last line ?
|
||
|
|
beq.s @1 ; yes !!
|
||
|
|
move.w 2(a2), d0 ; take next line start to d0
|
||
|
|
@1 move.w d7,d1 ; offset
|
||
|
|
Tst.W TESysJust ; check text direction, we want tha max rect !!!
|
||
|
|
bne @3 ; push direction
|
||
|
|
move.w #smRightCaret, d2 ; we allways push the oposite direction
|
||
|
|
bra.w @4 ; in that way we get tha max mesurement
|
||
|
|
@3 move.w #smLeftCaret, d2 ; in that way we get tha max mesurement
|
||
|
|
@4 swap d2
|
||
|
|
clr.w d2 ; slop = 0
|
||
|
|
add.w d6,a0 ; point to beginning of current line <47>
|
||
|
|
sub.w d6,d0 ; want length from current line start <47>
|
||
|
|
sub.w d6,d1 ; want offset on current line <47>
|
||
|
|
;Need:
|
||
|
|
; textPtr in a0.l, textLen in d0.w, offset in d1.w;
|
||
|
|
; d2.l = slop (low word), hilite flag (high word)
|
||
|
|
import ptchTEWidthHook
|
||
|
|
jsr ptchTEWidthHook
|
||
|
|
move.w d1,d5 ; mesure result in d5
|
||
|
|
MoveM.L (sp)+,a0-a1/d0-d2
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
MeasureDone
|
||
|
|
jmpROM ROM@MeasureDone
|
||
|
|
PlainMeasure
|
||
|
|
IF forLocalizability THEN ; <34k-YDS-9/2/91>
|
||
|
|
tst.b WordRedraw ; have L->R script ?
|
||
|
|
bge.s @1 ; no, don't allow measure of zero char
|
||
|
|
; strings , do it in the old way
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
sf ExpandMemRec.emMeasureLine(a1) ; <27Sept88smb>
|
||
|
|
jsrROM ROMInMeasureIt ; last measurement, skip first test
|
||
|
|
Add.W D0,D5 ; final width
|
||
|
|
jmpROM ROM@MeasureDone
|
||
|
|
ENDIF
|
||
|
|
@1 jmpROM ROM@PlainMeasure
|
||
|
|
|
||
|
|
endWith
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchOnSameLine
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from OnSameLine. Must
|
||
|
|
; replace this much code since the bug occurs in looping code.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchOnSameLine
|
||
|
|
SameLineRegs reg d3/d4/d7/a0-a1
|
||
|
|
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
link a6,#SharedFrameSz
|
||
|
|
movem.l SameLineRegs,-(sp)
|
||
|
|
; initialize
|
||
|
|
moveq.l #0,d5 ; cleared to accumulate widths of style runs from MeasureWidth and PixelWidths
|
||
|
|
moveq.l #0,d2
|
||
|
|
clr.w totalWidth(a6)
|
||
|
|
clr.w hiliteInbetween(a6) ; set sameStyle and hiliteInbetween to F.
|
||
|
|
sf doneFlag(a6)
|
||
|
|
clr.w foundD4(a6) ; clear D3 and D4 index flag
|
||
|
|
clr.l d4FmtIndex(a6) ; clear D3 and D4 holders
|
||
|
|
clr.l hiliteREndFlag(a6) ; clear left and right end flags
|
||
|
|
|
||
|
|
Move.w teSelRect+left(A3),selRectL(a6) ; preserve initial L. edge
|
||
|
|
Move.w teSelRect+right(A3),selRectR(a6) ; preserve initial R. edge
|
||
|
|
Move.w selRectL(a6),anchorL(a6) ; initialize L. anchor
|
||
|
|
Move.w selRectR(a6),anchorR(a6) ; initialize R. anchor
|
||
|
|
|
||
|
|
; [d3,d4] are on the same line
|
||
|
|
tst.w teSize(a3)
|
||
|
|
bpl @oldStyle ; old style edit record
|
||
|
|
|
||
|
|
; get style runs for character offsets
|
||
|
|
move.w d3,d0
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
move.l a0,d3StyleRun(a6)
|
||
|
|
|
||
|
|
jsrROM ROMFixFormatEnd ; get real end position of run <6Mar89smb>
|
||
|
|
cmp.w d0,d4
|
||
|
|
bhi.s @GetD4Style
|
||
|
|
move.l a0,d4StyleRun(a6) ; in same style run as d3
|
||
|
|
bra.s @GetDisplayOrder
|
||
|
|
@GetD4Style
|
||
|
|
move.w d4,d0
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
move.l a0,d4StyleRun(a6)
|
||
|
|
cmp.w startChar(a0),d4 ; is d4 the start of this run? <29June89smb>
|
||
|
|
bne.s @GetDisplayOrder ; bra if not. the style is correct. <29June89smb>
|
||
|
|
; Otherwise, want the previous style run since d4 is on a boundary, and it indicates the rightmost
|
||
|
|
; end of the hilite rectangle. d4StyleRun in this case, should be a pointer to the style run which
|
||
|
|
; ends w/ d4, not begins w/ d4. GetCurStyle doesn't give us what we need, so fix it! <29June89smb>
|
||
|
|
subq.l #stStartSize,d4StyleRun(a6)
|
||
|
|
|
||
|
|
@GetDisplayOrder
|
||
|
|
move.l teStylesH(a3),a0 ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
_HGetState ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
move.w d0,-(sp) ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
_HLock ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
|
||
|
|
move.w (a2),d0
|
||
|
|
move.w 2(a2),d1
|
||
|
|
bsr ptchTEGetFormatOrder ; <9Aug89smb>
|
||
|
|
|
||
|
|
move.w (sp)+,d0 ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
move.l teStylesH(a3),a0 ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
_HSetState ; oh dopey me! <18Aug89smb> <4.2>
|
||
|
|
|
||
|
|
; get the format order indexes for the character offsets (could be the same)
|
||
|
|
@Loop4Indexes
|
||
|
|
bsr ptchGetNextDisplayStyle ; <9Aug89smb>
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the format ordering array counter
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
|
||
|
|
; is this the same style run as one of the character offsets?
|
||
|
|
cmpa.l d3StyleRun(a6),a0
|
||
|
|
bne.s @testD4
|
||
|
|
move.w styleRunIndex(a6),d3FmtIndex(a6)
|
||
|
|
tst.b foundD4(a6)
|
||
|
|
bne.s @MeasureNow ; have both offsets' indeces in the fmt array
|
||
|
|
st foundD3(a6)
|
||
|
|
@testD4
|
||
|
|
cmpa.l d4StyleRun(a6),a0
|
||
|
|
bne.s @Loop4Indexes
|
||
|
|
move.w styleRunIndex(a6),d4FmtIndex(a6)
|
||
|
|
tst.b foundD3(a6)
|
||
|
|
bne.s @MeasureNow ; have both offsets' indeces in the fmt array
|
||
|
|
st foundD4(a6)
|
||
|
|
bra.s @Loop4Indexes
|
||
|
|
|
||
|
|
; measure by style runs and highlight where appropriate based on character offsets
|
||
|
|
; and display ordering of format runs!
|
||
|
|
@MeasureNow
|
||
|
|
move.w numberOfRuns(a6),d2
|
||
|
|
clr.w fmtOrderingIndex(a6)
|
||
|
|
|
||
|
|
; test if [d3,d4] in same style run
|
||
|
|
move.w d3FmtIndex(a6),d0
|
||
|
|
cmp.w d4FmtIndex(a6),d0
|
||
|
|
bne.s @MeasureLoop
|
||
|
|
st sameStyle(a6)
|
||
|
|
|
||
|
|
@MeasureLoop
|
||
|
|
Bsr ptchGetNextDisplayStyle ; <9Aug89smb>
|
||
|
|
jsrROM ROMMeasureWidth ; using vector to access ptchMeasureWidth
|
||
|
|
tst.b doneFlag(a6)
|
||
|
|
bne.s @hiliteMore
|
||
|
|
addq #1,fmtOrderingIndex(a6) ; incr the format ordering array counter
|
||
|
|
tst.b WordRedraw ; <4Oct89smb>
|
||
|
|
bge.s @GetNext ; <4Oct89smb>
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
beq.s @hiliteMore
|
||
|
|
bra.s @MeasureLoop
|
||
|
|
|
||
|
|
@GetNext
|
||
|
|
Addq.l #stStartSize,a0 ; get next style
|
||
|
|
SubQ #1,D2 ; dec the style counter
|
||
|
|
bne.s @MeasureLoop ; must be more than 1 line
|
||
|
|
bra.s @hiliteMore
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN ; <7Dec89smb>
|
||
|
|
import ptchHiliteMiddle
|
||
|
|
@oldStyle
|
||
|
|
; old-style record: one style for the whole record. My code is expecting a0 to contain a ptr to
|
||
|
|
; the startChar for the current style so must fake the setup.
|
||
|
|
clr.l firstStyleRun(a6)
|
||
|
|
clr.w secondStyleRun(a6)
|
||
|
|
move.w teLength(a3),secondStyleRun(a6)
|
||
|
|
lea firstStyleRun(a6),a0
|
||
|
|
jsrROM ROMteHiliteText
|
||
|
|
|
||
|
|
@hiliteMore
|
||
|
|
; test if there's more to hilite: either more style runs or line ends
|
||
|
|
|
||
|
|
tst.b hiliteInbetween(a6)
|
||
|
|
beq.s @testEnds
|
||
|
|
jsr ptchHiliteMiddle ; hilite any remaining runs inbetween offsets
|
||
|
|
sf hiliteInbetween(a6)
|
||
|
|
@testEnds
|
||
|
|
jmpROM ROM@testEnds
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ELSE
|
||
|
|
@oldStyle jmpROM ROMOldStyle
|
||
|
|
@hiliteMore jmpROM ROMHiliteMore
|
||
|
|
ENDIF
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTestRunDirection
|
||
|
|
; <9Aug89smb> I need to patch a bug in the routine
|
||
|
|
; GetNextDisplayStyle, which is called from TestRunDirection.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTestRunDirection
|
||
|
|
; ***** d(r) = ld? *****
|
||
|
|
movem.w d1/d2,-(sp)
|
||
|
|
move.w d1,fmtOrderingIndex(a6) ; d1 = r
|
||
|
|
bsr ptchGetNextDisplayStyle ; r is index into FmtOrderingArray
|
||
|
|
jmpROM BackToTestRunDirection
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEKey
|
||
|
|
; <10Aug89smb> Striking an up/down arrow key after a hitdown at
|
||
|
|
; either line end caused the caret to display at the opposite end
|
||
|
|
; of the line rather than the previous line. This bug occurred
|
||
|
|
; because teKey was inappropriately setting teLftCaret to T.
|
||
|
|
; It should only be set initially if the key was not a cursor key.
|
||
|
|
; <28Sept89smb> Added text buffering.
|
||
|
|
; <16Nov89smb> Must patch to clear the emBufferLen after the paste
|
||
|
|
; rather than the emBufferPtr.
|
||
|
|
; <26Nov89smb> Need to use the high caret rectangle in TEKey rather
|
||
|
|
; than always using the teSelRect!
|
||
|
|
; <1/9/90smb> Now using TEDispatchRec for storage instead of ExpandMem.
|
||
|
|
; <1/25/90smb> Fixed up arrow bug that caused the caret to move up multiple
|
||
|
|
; lines according to the size of the largest font on the current line.
|
||
|
|
; <2/28/90smb> Added call to SetKeyboard2Font when backspacing to set the
|
||
|
|
; keyscript correctly at a script boundary.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEKey
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
; turn off textBuffering bit before calling StdEntry since want to process below <28Sept89smb>
|
||
|
|
move.l 4(sp),a1 ; teHandle (before the return address)
|
||
|
|
move.l (a1),a1 ; need the ptr to the teRec
|
||
|
|
move.l teDispatchH(a1),a1
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l newTEFlags(a1),-(sp)
|
||
|
|
move.l #0,newTEFlags(a1)
|
||
|
|
bsr ptchTEKeyStdEntry ; <28Sept89smb>
|
||
|
|
; reset textBuffering bit <28Sept89smb>
|
||
|
|
move.l teDispatchH(a3),a1
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l (sp)+,newTEFlags(a1)
|
||
|
|
|
||
|
|
_ObscureCursor ; nice knowing you cursor
|
||
|
|
|
||
|
|
Move.W (A2),D1 ; store char away
|
||
|
|
move.b d1,d0 ; get char for comparison
|
||
|
|
MoveQ #1,D2 ; assume going down
|
||
|
|
|
||
|
|
; Cursor Key support - Added from 'Lonely Hearts' patch 14Jan86
|
||
|
|
; left: If selStart isn't 0 it decrements it and places the caret there
|
||
|
|
; right: Increments selEnd and places caret there
|
||
|
|
; up: simulates a click one line above current selStart point
|
||
|
|
; down: simulates a click one line below current selStart point
|
||
|
|
|
||
|
|
IF 0 THEN ; bye bye for now <32>
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
cmp.b #forwardDeleteChar,d0 ; is this the extended keyboard function key? <19>
|
||
|
|
bne.s @CursorKeys ; <19>
|
||
|
|
|
||
|
|
st teLftCaret(A3) ; jam caret to left cause its nota cursor key <19>
|
||
|
|
; be sure d6 is not used in any subroutines called from here!!!!
|
||
|
|
st d6 ; tell backspace that we are going forward <19>
|
||
|
|
bra backspace ; do common backspace code <19>
|
||
|
|
@CursorKeys
|
||
|
|
ENDIF
|
||
|
|
ENDIF ; <32>
|
||
|
|
subi.b #downArrowChar,d0
|
||
|
|
Beq.S downArrow
|
||
|
|
bhi.s normalChar ; optimize normal characters
|
||
|
|
|
||
|
|
subi.b #upArrowChar-downArrowChar,d0
|
||
|
|
Beq.S upArrow
|
||
|
|
|
||
|
|
subi.b #rightArrowChar-upArrowChar,d0
|
||
|
|
Beq rightArrow
|
||
|
|
subi.b #leftArrowChar-rightArrowChar,d0
|
||
|
|
Beq leftArrow
|
||
|
|
|
||
|
|
st teLftCaret(A3) ; jam caret to left, UNLESS a cursor key <7Aug89smb>
|
||
|
|
IF 0 THEN ; bye bye for now <32>
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
; be sure d6 is not used in any subroutines called from here!!!!
|
||
|
|
sf d6 ; tell backspace that we are going backward <19>
|
||
|
|
ENDIF
|
||
|
|
ENDIF ; bye bye for now <32>
|
||
|
|
subi.b #backspaceChar-leftArrowChar,d0
|
||
|
|
Beq backSpace
|
||
|
|
|
||
|
|
normalChar
|
||
|
|
; test if want text buffering <12June89smb>
|
||
|
|
st teLftCaret(a3) ; jam caret to left, UNLESS a cursor key <7Aug89smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0
|
||
|
|
btst #teFTextBuffering,d0
|
||
|
|
beq PasteChar ; little mod <15June89smb>
|
||
|
|
|
||
|
|
bsr ptchTEBufferText
|
||
|
|
bra Epilog6
|
||
|
|
|
||
|
|
upArrow
|
||
|
|
;; subtract 2 rather than 1 <1/25/90smb> MoveQ #-1,D2 ; going up
|
||
|
|
MoveQ #-2,D2 ; going up
|
||
|
|
downArrow
|
||
|
|
move d2,-(SP) ; save D2
|
||
|
|
|
||
|
|
; dump text buffer before processing cursor key <14Sept89smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops <15Sept89smb>
|
||
|
|
btst #teFTextBuffering,d0 ; <15Sept89smb>
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
; Call HideCaret to fix problems with old and new teLftClick <1/25/90smb>
|
||
|
|
jsrROM ROMHideCaret ; erase old caret <1/25/90smb>
|
||
|
|
move teSelStart(a3),d3 ; pass selStart=selEnd
|
||
|
|
move d3,d4
|
||
|
|
moveq #teCaret,d7 ; position pen to caret <03July89smb>
|
||
|
|
IF SysVers < $700 THEN ; <25>
|
||
|
|
bsr ptchTEDoText ; the port ret. in A0
|
||
|
|
ELSE ; <25>
|
||
|
|
jsrROM ROMDoText ; use the low mem TEDoText hook!! <25>
|
||
|
|
ENDIF
|
||
|
|
move (sp)+,d2 ; restore D2
|
||
|
|
|
||
|
|
;-------------------------------------------------------------------------------------
|
||
|
|
; In order to go down from a line end position to a line whose line height is less than the current
|
||
|
|
; line height, must back up one position to get the hite for the correct line (when FindLineHite
|
||
|
|
; calls GetLine and the current position is at the end of a line, it thinks it's at the
|
||
|
|
; beginning of the next line so the wrong height is returned. <1/30/90smb>
|
||
|
|
movem.l a2/d3,-(sp)
|
||
|
|
tst.b teLftCaret(a3)
|
||
|
|
bne.s @OffsetOK
|
||
|
|
move.w d3,d0 ; offset
|
||
|
|
beq.s @OffsetOK
|
||
|
|
lea teLines(a3),a2
|
||
|
|
jsrROM ROMGetLine ; get line that d3 is on
|
||
|
|
cmp.w (a2),d3 ; cmp offset position to line start found
|
||
|
|
bne.s @OffsetOK
|
||
|
|
subq.w #1,d3 ; backup to get correct line in FindLineHite
|
||
|
|
@OffsetOK
|
||
|
|
jsrROM ROMFindLineHite ; get current line hite in d1 ** MBK 6/18/86 **
|
||
|
|
movem.l (sp)+,a2/d3
|
||
|
|
; end of changes <1/30/90smb>
|
||
|
|
;-------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
;; <1/25/90smb> muls d1,d2 ; get delta -- a SIGNED 16-bit value<09Dec85 JTC>
|
||
|
|
; if we are going down (d2 = 1), then add linehite (d1) <1/25/90smb>
|
||
|
|
; if we are going up (d2 = -2), then subtract 2, just enough to get into the previous line's Rect <1/25/90smb>
|
||
|
|
tst.w d2 ; up or down <1/25/90smb>
|
||
|
|
blt.s @DeltaOk ; up = -1 <1/25/90smb>
|
||
|
|
move.w d1,d2 ; move in delta <1/25/90smb>
|
||
|
|
@DeltaOk
|
||
|
|
|
||
|
|
; assume whole caret or high caret in teSelRect <26Nov89smb>
|
||
|
|
move.l teSelRect(a3),teSelPoint(a3) ; pass caret point
|
||
|
|
;-------------------------------------------------------------------------------------
|
||
|
|
; set teSelPoint(a3) from the high caret position! <26Nov89smb>
|
||
|
|
move.l ExpandMem,a0 ; <26Nov89smb>
|
||
|
|
cmpi.w #$FFFF,ExpandMemRec.emTwoCursorsFlag(a0) ; <26Nov89smb>
|
||
|
|
bne.s @UseSelRect ; bra if high caret loc in teSelRect <26Nov89smb>
|
||
|
|
|
||
|
|
; use rect stored in emCursor2Rect: this is the high caret location. <26Nov89smb>
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; <26Nov89smb>
|
||
|
|
move.l (a0),teSelPoint(a3) ; pass high caret point <26Nov89smb>
|
||
|
|
@UseSelRect
|
||
|
|
;-------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
add d2,teSelPoint(A3) ; adjust v value
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchDoFind ; <19>
|
||
|
|
jsr ptchDoFind ; you guessed it: it's patched now! <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMDoFind ; the port ret. in A0
|
||
|
|
ENDIF ; <19>
|
||
|
|
|
||
|
|
move.b teLftClick(a3),teLftCaret(a3) ; <10Aug89smb>
|
||
|
|
bra.w leftRight ; setselect'll force autoscroll
|
||
|
|
|
||
|
|
rightArrow
|
||
|
|
move teSelEnd(A3),d6 ; get start
|
||
|
|
moveq #1,d3 ; if 2byte char, incr posn <27June88smb>
|
||
|
|
bra.s HorizArrows ; <6Mar89smb>
|
||
|
|
leftArrow
|
||
|
|
move teSelStart(A3),d6 ; get start
|
||
|
|
beq.s HorizArrows ; <13Mar89smb> special case at 0th position
|
||
|
|
moveq #-1,d3 ; if 2byte char, decr posn <27June88smb>
|
||
|
|
HorizArrows
|
||
|
|
|
||
|
|
; dump text buffer before processing cursor key <14Sept89smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops <15Sept89smb>
|
||
|
|
btst #teFTextBuffering,d0 ; <15Sept89smb>
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
|
||
|
|
tst.b WordRedraw ; <9Jan89smb>
|
||
|
|
blt.s @RLText ; <22June89smb> includes RL directional text
|
||
|
|
tst.b teSysJust ; <22June89smb>
|
||
|
|
beq.s @LRLineDir ; <22June89smb> LR text on a LR line
|
||
|
|
@RLText
|
||
|
|
; may be RL text on any directioned line OR LR text on a RL line
|
||
|
|
bsr ptchCursorMovement ; <9Jan89smb>
|
||
|
|
|
||
|
|
; <34i-YDS-9/2/91>> supports the single carret corect display
|
||
|
|
IF forLocalizability THEN ; when on cluster boundry, syncronize allways to the
|
||
|
|
; style with the that his just = teSysJust
|
||
|
|
tst.b WordRedraw ; have L->R script ?
|
||
|
|
bge.s leftRight ; no, do the old way
|
||
|
|
tst.w teSize(a3) ; if unstyled ?
|
||
|
|
bpl.s leftRight ; do the old way for unstyled
|
||
|
|
move.w d6,d0 ; GetCurStyle needs offset in d0
|
||
|
|
jsrROM ROMGetCurStyle ; get the current style
|
||
|
|
cmp.w startChar(a0),d6 ; are we on a boundry ?
|
||
|
|
bne.s leftRight ; if not do it the old way
|
||
|
|
move.l a0,-(sp) ; keep a0 (the style) from being trashed
|
||
|
|
jsrROM ROMHideCaret ; hide caret
|
||
|
|
jsrROM ROMHiLite ; unhilite
|
||
|
|
Move d6,teSelEnd(A3) ; set set start
|
||
|
|
Move d6,teSelStart(A3) ; set sel end
|
||
|
|
move.l (sp)+,a0 ; restore style ptr (in a0)
|
||
|
|
jsrROM ROMGetDirection ; get style direction
|
||
|
|
cmp.b TESysJust,d1 ; same as TESysJust ?
|
||
|
|
beq @setStyle ; yes ! set the style for it.
|
||
|
|
move.w d6,d0 ; no ! get the prev style, put offset into d0
|
||
|
|
sub.w #1,d0 ; be in prev
|
||
|
|
jsrROM ROMGetCurStyle ; get this style
|
||
|
|
@setStyle
|
||
|
|
jsrROM ROMSetStyle ; set the font/style in the grafport
|
||
|
|
move.w d6,d0 ; char offset in d0 needed by SetKeyboard2Font
|
||
|
|
import ptchSetKeyboard2Font
|
||
|
|
jsr ptchSetKeyboard2Font ; sync keyboard to font
|
||
|
|
|
||
|
|
jsrROM ROMHiLite ; Hilite
|
||
|
|
jsrROM ROMSelView ; insure selection is visible
|
||
|
|
jsrROM ROMShowCaret ; force caret ON
|
||
|
|
|
||
|
|
bra epilog6
|
||
|
|
ELSE
|
||
|
|
bra.s leftRight ; <9Jan89smb>
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@LRLineDir
|
||
|
|
jsrROM ROMDoubleByte ; middle of char? Fix starting point <27June88smb>
|
||
|
|
leftRight
|
||
|
|
Ext.L D6 ; D6 comes back char loc
|
||
|
|
Move.L D6,-(SP) ; pass start
|
||
|
|
Move.L D6,-(SP)
|
||
|
|
Move.L A4,-(SP)
|
||
|
|
_TESetSelect
|
||
|
|
|
||
|
|
jsrROM ROMDrawCaret ; force caret ON
|
||
|
|
IF 0 THEN ; bye bye for now <32>
|
||
|
|
Bra epilog6 ; <32>
|
||
|
|
ELSE ; <32>
|
||
|
|
Bra.w epilog6
|
||
|
|
ENDIF ; <32>
|
||
|
|
|
||
|
|
PasteChar
|
||
|
|
; Go paste the character
|
||
|
|
Move.L A2,D6 ; point to the character
|
||
|
|
AddQ #1,D6 ; character in lower half
|
||
|
|
MoveQ #1,D5 ; one long
|
||
|
|
Bsr ptchBufferChar ; buffer if 2 byte character <27June88smb>
|
||
|
|
IF 0 THEN ; bye bye for now <32>
|
||
|
|
blt epilog6 ; the result isn't unsigned! <31Aug89smb> <32>
|
||
|
|
ELSE ; <32>
|
||
|
|
blt.w epilog6 ; the result isn't unsigned! <31Aug89smb>
|
||
|
|
ENDIF ; <32>
|
||
|
|
|
||
|
|
; Must patch to clear the emBufferLen after the paste rather than the emBufferPtr. <16Nov89smb>
|
||
|
|
moveq #0,D7 ; want to call ExtendStyle
|
||
|
|
jsrROM ROMPasteGuts
|
||
|
|
move.l teDispatchH(a3),a0 ; <1/9/90smb> finished w/ character so empty storage
|
||
|
|
move.l (a0),a0
|
||
|
|
IF forLocalizability THEN ; <34b-YDS-9/2/91>
|
||
|
|
move.w #0,TwoByteCharBuffer(a0)
|
||
|
|
ELSE
|
||
|
|
move.l #0,TwoByteCharBuffer(a0)
|
||
|
|
ENDIF
|
||
|
|
bra.w epilog6
|
||
|
|
|
||
|
|
backSpace
|
||
|
|
; dump text buffer before backspacing <14Sept89smb>
|
||
|
|
Move.L teDispatchH(A3),A0
|
||
|
|
Move.L (A0),A0
|
||
|
|
move.l newTEFlags(a0),d0
|
||
|
|
btst #teFTextBuffering,d0
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
;;replaced with following backspace code. <2/28/90smb> jmpROM ROMbackspace
|
||
|
|
move teSelStart(a3),d0 ; see if null selection
|
||
|
|
cmp teSelEnd(a3),d0
|
||
|
|
bne.s cutit
|
||
|
|
|
||
|
|
;------------------------
|
||
|
|
IF 0 THEN ; bye bye for now <32>
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
; add support for the forward delete key <7jan91 fjs><19>
|
||
|
|
tst.b d6 ; is this forward delete ? <19>
|
||
|
|
beq.s @normalBS ; if 0 do normal backspace work <19>
|
||
|
|
|
||
|
|
; since there is no selection, eat characters to the right
|
||
|
|
; first, check if we are at the extreme right already
|
||
|
|
cmp.w teLength(a3),d0 ; at extreme right of text? (really, the end… think R-L)<19>
|
||
|
|
bge.s epilog6 ; yes, skip this <19>
|
||
|
|
jsrROM ROMHideCaret ; remove the caret <19>
|
||
|
|
|
||
|
|
; check for double-byte characters and fix starting point
|
||
|
|
move.w teSelEnd(a3),d6 ; current position <19>
|
||
|
|
moveq #1,d3 ; direction to move <19>
|
||
|
|
jsrROM ROMDoubleByte ; middle of char? Fix starting point. <19>
|
||
|
|
move.w d6,teSelEnd(a3) ; adjust selection <19>
|
||
|
|
bra.s cutit ; fall into the cut case <7jan91 fjs><19>
|
||
|
|
@normalBS
|
||
|
|
ENDIF
|
||
|
|
ENDIF ; <32>
|
||
|
|
;------------------------
|
||
|
|
|
||
|
|
; since there's no selection eat characters to the left.
|
||
|
|
tst d0 ; see if at extreme left (really, the beginning… think R-L)
|
||
|
|
beq.w epilog6 ; skip if so
|
||
|
|
|
||
|
|
jsrROM ROMHideCaret ; remove the caret
|
||
|
|
|
||
|
|
; check for double-byte characters and fix starting point. <27June88smb>
|
||
|
|
|
||
|
|
move.w teSelStart(a3),d6 ; current position <27June88smb>
|
||
|
|
moveq #-1,d3 ; direction to move <27June88smb>
|
||
|
|
jsrROM ROMDoubleByte ; middle of char? Fix starting point <27June88smb>
|
||
|
|
move.w d6,teSelStart(a3) ; adjust selection
|
||
|
|
|
||
|
|
cutit
|
||
|
|
; Need to synchronize keyboard to the font <2/28/90smb>; moved here from DelGuts.
|
||
|
|
; This must be done before the call to TEDelete in order to synchronize the kbd to
|
||
|
|
; the style that corresponds to the current selStart.
|
||
|
|
tst.w teSize(a3) ; if unstyled, can't synch keyboard to font <2/28/90smb>
|
||
|
|
IF forLocalizability THEN ; even if we dont have all info <34m-YDS-9/2/91>
|
||
|
|
bpl.s @syncUnStyled ; sync for unstyled
|
||
|
|
ELSE
|
||
|
|
bpl.s @JustCut ; <2/28/90smb>
|
||
|
|
ENDIF
|
||
|
|
move.w teSelStart(a3),d0 ; get new offset position <2/28/90smb>
|
||
|
|
jsrROM ROMGetCurStyle ; <2/28/90smb>
|
||
|
|
jsrROM ROMSetStyle ; <2/28/90smb>
|
||
|
|
import ptchSetKeyboard2Font
|
||
|
|
jsr ptchSetKeyboard2Font ; synch keyboard to font <2/28/90smb>
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; synch for unstyled too <34m-YDS-9/2/91>
|
||
|
|
bra @JustCut ; go to the cut if didn't come with a bpl.s
|
||
|
|
@syncUnStyled
|
||
|
|
IF 0 THEN ; now using 'itlb' flag in CubeE <46>
|
||
|
|
;; tst.b WordRedraw ; is it a R->L script ? <37>
|
||
|
|
;; bge.w @JustCut ; don't synch. <37>
|
||
|
|
; Really want to synchronize for unstyled text in ALL scripts. However, this will cause problems for <37>
|
||
|
|
; input methods, so we will skip this code in this case. (WordRedraw only indicates the <37>
|
||
|
|
; types of scripts installed and not the current one…) <37>
|
||
|
|
subq #2,sp ; result space for Font2Script & GetScript <37>
|
||
|
|
move.w teFont(a3),-(sp) ; app font id <37>
|
||
|
|
_Font2Script ; it's a non-roman char so get script font <37>
|
||
|
|
move.w (sp)+,d0 ; <37>
|
||
|
|
beq @UseFont ; if Roman then always synchronize <37>
|
||
|
|
cmp.w #smEastEurRoman,d0 ; Extended Roman? <40>
|
||
|
|
beq @JustCut ; If so, never synchronize <40>
|
||
|
|
subq #4,sp ; result space <37>
|
||
|
|
move.w d0,-(sp) ; script <37>
|
||
|
|
move.w #smScriptRedraw,-(sp) ; <37>
|
||
|
|
_GetScript ; <37>
|
||
|
|
move.l (sp)+,d1 ; <37><39>
|
||
|
|
tst.b d1 ; leave in d1 for later <37><39>
|
||
|
|
bgt @JustCut ; if double-byte script don't synchronize <37>
|
||
|
|
; otherwise, we have a single-byte non-Roman font <37>
|
||
|
|
; IF SysVers > $610 THEN
|
||
|
|
; move.l teDispatchH(a3),a0 ;
|
||
|
|
; move.l (a0),a0
|
||
|
|
; move.l newTEFlags(a0),d0 ; move into reg the flags
|
||
|
|
; btst #teFInlineInput,d0 ; are we in an inline input window ?
|
||
|
|
; bne.w @JustCut ; yes, don't synch keyboard.
|
||
|
|
; ENDIF
|
||
|
|
|
||
|
|
ELSE ; now using 'itlb' flag in CubeE <46>
|
||
|
|
|
||
|
|
; optimize for Roman-only: do not have to synch font & kbd <51>
|
||
|
|
with smgrRecord ; <51>
|
||
|
|
GetSMgrCore a0 ; load SMgr globals pointer. <51>
|
||
|
|
cmp.b #1,smgrEnabled(a0) ; how many scripts enabled? <51>
|
||
|
|
beq @JustCut ; skip synchronization for Roman-only system <51>
|
||
|
|
endwith ; <51>
|
||
|
|
|
||
|
|
subq #6,sp ; result space for Font2Script & GetScript <46>
|
||
|
|
move.w teFont(a3),-(sp) ; app font id <46>
|
||
|
|
_Font2Script ; get script font <46>
|
||
|
|
; script left on stack ; <46>
|
||
|
|
move.w #smScriptFlags,-(sp) ; now get script-specific flags <46>
|
||
|
|
_GetScript ; <46>
|
||
|
|
move.l (sp)+,d0 ; <46>
|
||
|
|
and.l #(1<<smsfSynchUnstyledTE),d0 ; leave only the synchronize bit <46>
|
||
|
|
beq.s @JustCut ; 0=> do not synchronize <46>
|
||
|
|
; otherwise synchronize
|
||
|
|
ENDIF ; now using 'itlb' flag in CubeE <46>
|
||
|
|
|
||
|
|
|
||
|
|
Move.w teSelStart(a3), d6 ; <33-YDS-10/1/91> d6 was set only for a one char delete, not for a selection delete
|
||
|
|
; Check char to determine how to synch
|
||
|
|
move.l teTextH(a3),a2 ; handle to text <39>
|
||
|
|
move.l (a2),a0 ; ptr to text <39>
|
||
|
|
move.b 0(a0,d6.w),d0 ; get character <39>
|
||
|
|
cmp.b #$20,d0 ; control char? <39>
|
||
|
|
blo.s @JustCut ; if so, don't synch <39>
|
||
|
|
move.b d1,-(sp) ; save scriptRedraw <39>
|
||
|
|
subq #2,sp ; room for return
|
||
|
|
move.l a0,-(sp) ; push text ptr on stack <39>
|
||
|
|
move.w d6,-(sp) ; offset on stack
|
||
|
|
_CharType ; what char is it
|
||
|
|
move.w (sp)+,d0 ; take result
|
||
|
|
move.b (sp)+,d1 ; recover scriptRedraw <39>
|
||
|
|
|
||
|
|
; Mask off what interested in: the Type ($000F) and the Direction ($2000) <37>
|
||
|
|
; Want a char whose Direction is LR (smCharLeft, $0000) and whose Type is Roman <37>
|
||
|
|
; which can be smCharAscii (1) or smCharEuro (7) or smCharPunct (0). <37>
|
||
|
|
;
|
||
|
|
; New approach. Different behavior for bidi and non-bidi scripts, because of caret <39>
|
||
|
|
; requirements for bidi scripts. <39>
|
||
|
|
bne.s @doBidi ; check scriptRedraw for bidi <39>
|
||
|
|
; For non-bidirectional scripts, set keyboard to Roman for Roman letters, <39>
|
||
|
|
; sync to font for script letters, dont sync for anything else. <39>
|
||
|
|
and.w #smcTypeMask,d0 ; isolate info we need <39>
|
||
|
|
cmp.w #smCharPunct,d0 ; non-letter? <39>
|
||
|
|
beq.s @JustCut ; if so, don't synch keyboard <39>
|
||
|
|
cmp.w #smCharAscii,d0 ; low-ASCII Roman? <39>
|
||
|
|
beq.s @isRoman ; if so, go set keyboard <39>
|
||
|
|
cmp.w #smCharEuro,d0 ; Extended ASCII Roman? <39>
|
||
|
|
beq.s @isRoman ; if so, go set keyboard <39>
|
||
|
|
bra.s @UseFont ; otherwise, sync keyboard to font <39>
|
||
|
|
; For bidirectional scripts, don't synch control chars (stripped out above) or low-ASCII <39>
|
||
|
|
; (L-R) digits; synch other L-R chars to Roman, and everything else to font script. <39>
|
||
|
|
@doBidi ; <39>
|
||
|
|
and.w #smcTypeMask+smcClassMask+smcRightMask,d0 ; isolate info we need <39>
|
||
|
|
cmp.w #smCharPunct+smPunctNumber+smCharLeft,d0 ; is char a low-ASCII digit? <39>
|
||
|
|
beq.s @JustCut ; if so, don't synch <39>
|
||
|
|
and.w #smcRightMask,d0 ; now just check direction <39>
|
||
|
|
beq.s @isRoman ; if left-right, sync to Roman <39>
|
||
|
|
|
||
|
|
; Otherwise, synch the font to the script of the character <37>
|
||
|
|
@UseFont
|
||
|
|
subq #2,sp ; room for return
|
||
|
|
move.w teFont(a3),-(sp) ; app font id
|
||
|
|
_Font2script ; it's a non-roman char so get app font
|
||
|
|
; leave script on stack
|
||
|
|
bra.s @SetKbd
|
||
|
|
|
||
|
|
@isRoman move.w #smRoman,-(sp) ; we think it is roman
|
||
|
|
@SetKbd
|
||
|
|
move.w (sp), d0 ; script param on the stack
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0 ;
|
||
|
|
move.b d0, lastScript(a0) ; push script numberused to highligt (d0) to lastScript
|
||
|
|
_KeyScript ; set keyboard
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@JustCut
|
||
|
|
move.l a4,-(sp) ; pass the handle
|
||
|
|
_TEDelete ; and cut it (A3 no good after)
|
||
|
|
|
||
|
|
epilog6 moveq #6,d0
|
||
|
|
jmpROM ROMStdExit
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
ELSE ; IF NOT (Scripts604 | SysVers>= $605)
|
||
|
|
jsrROM ROMStdEntry
|
||
|
|
_ObscureCursor ; nice knowing you cursor
|
||
|
|
|
||
|
|
Move.W (A2),D1 ; store char away
|
||
|
|
Cmp.B #backspaceChar,D1 ; is it a backspace?
|
||
|
|
Beq @backSpace
|
||
|
|
|
||
|
|
; Cursor Key support - Added from 'Lonely Hearts' patch 14Jan86
|
||
|
|
; left: If selStart isn't 0 it decrements it and places the caret there
|
||
|
|
; right: Increments selEnd and places caret there
|
||
|
|
; up: simulates a click one line above current selStart point
|
||
|
|
; down: simulates a click one line below current selStart point
|
||
|
|
;
|
||
|
|
MoveQ #1,D2 ; assume going down
|
||
|
|
|
||
|
|
MoveQ #$1F,D0 ; range $1C-$1F
|
||
|
|
Sub.B D1,D0 ; get key code
|
||
|
|
Blt.S @NormalChar
|
||
|
|
|
||
|
|
Beq.S @downArrow ; is it a cursor key?
|
||
|
|
SubQ.B #1,D0
|
||
|
|
Beq.S @upArrow
|
||
|
|
SubQ.B #1,D0
|
||
|
|
Beq.S @rightArrow
|
||
|
|
SubQ.B #1,D0
|
||
|
|
Beq.S @leftArrow
|
||
|
|
bra.s @NormalChar
|
||
|
|
|
||
|
|
@upArrow
|
||
|
|
MoveQ #-1,D2 ; going up
|
||
|
|
@downArrow
|
||
|
|
Move D2,-(SP) ; save D2
|
||
|
|
|
||
|
|
Move teSelStart(A3),D3 ; pass selStart=selEnd
|
||
|
|
Move D3,D4
|
||
|
|
MoveQ #teCaret,D7 ; position pen to caret
|
||
|
|
IF SysVers < $700 THEN ; <25>
|
||
|
|
bsr ptchTEDoText ; the port ret. in A0 <9Aug89smb>
|
||
|
|
ELSE ; <25>
|
||
|
|
; not really necessary since this is for 6.0.4 but, for futures…
|
||
|
|
jsrROM ROMDoText ; use the low mem TEDoText hook!! <25>
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
Move (SP)+,D2 ; restore D2
|
||
|
|
|
||
|
|
jsrROM ROMFindLineHite ; get current line hite
|
||
|
|
|
||
|
|
MulS D1,D2 ; get delta -- a SIGNED 16-bit value<09Dec85 JTC>
|
||
|
|
Move.L teSelRect(A3),teSelPoint(A3) ; pass caret point
|
||
|
|
Add D2,teSelPoint(A3) ; adjust v value
|
||
|
|
jsrROM ROMDoFind ; the port ret. in A0
|
||
|
|
move.b teLftClick(a3),teLftCaret(a3) ; <10Aug89smb>
|
||
|
|
|
||
|
|
jmpROM ROMleftRight ; setselect'll force autoscroll
|
||
|
|
@backSpace
|
||
|
|
st teLftCaret(A3) ; jam caret to left
|
||
|
|
jmpROM ROMbackspace
|
||
|
|
|
||
|
|
@rightArrow jmpROM ROM@RightArrow ; <14Aug89smb>
|
||
|
|
@leftArrow jmpROM ROM@LeftArrow ; <14Aug89smb>
|
||
|
|
|
||
|
|
@NormalChar
|
||
|
|
st teLftCaret(A3) ; jam caret to left
|
||
|
|
jmpROM ROM@NormalChar
|
||
|
|
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEDelete( h: TEHandle );
|
||
|
|
; Patching bug at end of DelGuts, which is only called by
|
||
|
|
; TEDelete.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEDelete
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
bsr ptchStdEntry ; <28Sept89smb>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMStdEntry
|
||
|
|
ENDIF
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
; fall into ptchDelGuts
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDelGuts
|
||
|
|
; <21July89smb> Added ConcatStyles to DelGuts - when it deletes
|
||
|
|
; a style it doesn't check to see if the two adjacent styles are
|
||
|
|
; the same.
|
||
|
|
; <1/17/90smb> Adding call to SetKeyboard2Font to set the
|
||
|
|
; keyscript correct when crossing a script boundary.
|
||
|
|
; <2/28/90smb> Removing 1/17/90 fix to call SetKeyboard2Font.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
jsrROM ROMSelSort ; sort selection
|
||
|
|
Move D0,D7 ; calc delta amount(selEnd in D0)
|
||
|
|
Sub (A2),D7 ; ...for ReCalLines (A2 ^selStart)
|
||
|
|
Beq outGuts ; skip if null selection
|
||
|
|
|
||
|
|
; ** <C971/RWW102987> Inserted test to change the way backspacing/deleting works.
|
||
|
|
; If you backspace to the beginning of a style, that style is saved to the null scrap.
|
||
|
|
; This allows you to type a selection, backspace over it, and retype without
|
||
|
|
; TextEdit reverting to the previous style.
|
||
|
|
Tst.W teSize(A3) ; is this a styled record? <C971/RWW102987>
|
||
|
|
Bpl.S @1 ; oops, never mind <C971/RWW102987>
|
||
|
|
|
||
|
|
MoveM.L D0/D7/A2,-(SP) ; we need D0 and A2 temporarily <C971/RWW102987>
|
||
|
|
Move.W teSelStart(A3),D0 ; find start of block to be yanked <C971/RWW102987>
|
||
|
|
jsrROM ROMGetCurStyle ; find the associated style run
|
||
|
|
Move.W teSelStart(A3),D0 ; get start of block again <C971/RWW102987>
|
||
|
|
Cmp.W startChar(A0),D0 ; is it the beginning of a style? <C971/RWW102987>
|
||
|
|
Beq.S @2 ; yes, so continue <C971/RWW102987>
|
||
|
|
|
||
|
|
jsrROM ROMClearRsrved ; no null selection!
|
||
|
|
Bra.S @3 ; <C971/RWW102987>
|
||
|
|
|
||
|
|
@2 Move.W styleIndex(A0),D0 ; fetch index into style table <C971/RWW102987>
|
||
|
|
jsrROM ROMGetStyle ; find associated style table entry
|
||
|
|
Move.W #doAll,-(SP) ; build fake frame for SetRsrved <C971/RWW102987>
|
||
|
|
Pea stFont(A0) ; point at embedded textstyle <C971/RWW102987>
|
||
|
|
Clr.B -(SP) ; need another word, can't hurt <C971/RWW102987>
|
||
|
|
Move.L SP,A2 ; point A2 at stacked parameters <C971/RWW102987>
|
||
|
|
jsrROM ROMAltSetRsrved ; set null scrap style
|
||
|
|
AddQ.W #8,SP ; fix up stack <C971/RWW102987>
|
||
|
|
|
||
|
|
@3 MoveM.L (SP)+,D0/D7/A2 ; retrieve saved registers <C971/RWW102987>
|
||
|
|
@1 ; <C971/RWW102987>
|
||
|
|
|
||
|
|
Move.W D0,D1 ; selEnd ** MBK 6/18/86 **
|
||
|
|
Swap D0 ; selStart ** MBK 6/18/86 **
|
||
|
|
jsrROM ROMDeleteStyle ; del associated styles
|
||
|
|
|
||
|
|
jsrROM ROMMungeSetup ; set up params for delete
|
||
|
|
|
||
|
|
Move D7,-(SP) ; length for delete
|
||
|
|
Clr -(SP) ; fake long length
|
||
|
|
Clr.L -(SP) ; fake p2
|
||
|
|
Clr.L -(SP) ; fake l2
|
||
|
|
_Munger ; sloppy munger
|
||
|
|
AddQ.L #4,SP ; pop result
|
||
|
|
|
||
|
|
Move.L teTextH(A3),A0 ; RecalDraw expects text to be locked
|
||
|
|
_Hlock ; and relock it
|
||
|
|
|
||
|
|
Sub D7,teLength(A3) ; length:=length -(selEnd-selStart)
|
||
|
|
Move (A2)+,(A2) ; selEnd:=selStart
|
||
|
|
tst.w teSize(A3) ; is this a styled record? <24July89smb>
|
||
|
|
bpl.S outGuts ; if so, no need to concat - only 1 run <24July8smb>
|
||
|
|
jsrROM ROMConcatStyles ; <21July89smb>
|
||
|
|
jsrROM ROMConcatRuns ; <25June89smb>
|
||
|
|
outGuts
|
||
|
|
jmpROM EndDelGuts
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEActivate
|
||
|
|
; <28Sept89smb> Added outline highlighting.
|
||
|
|
; <3Oct89smb> Fixed caret display for outline highlighting.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEActivate
|
||
|
|
with OutlineFrame
|
||
|
|
bsr ptchStdEntry
|
||
|
|
link a6,#OutlineFrameSz ; only link if outlining
|
||
|
|
|
||
|
|
tst.b teActive(A3) ; see if already active
|
||
|
|
bne goGoHome
|
||
|
|
; fix the selection when inactive
|
||
|
|
bsr InitOutline
|
||
|
|
|
||
|
|
move teSelStart(A3),D0 ; Only enable the caret
|
||
|
|
cmp teSelEnd(A3),D0
|
||
|
|
bne.s @notSelPt
|
||
|
|
|
||
|
|
st teCarAct(a3) ; activate caret
|
||
|
|
; hide the caret when outline highlight on <2Oct89smb>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq.s @notSelPt ; no outlining desired
|
||
|
|
jsrROM ROMDrawIt ; hide the caret
|
||
|
|
@notSelPt
|
||
|
|
st teActive(A3) ; flag as active
|
||
|
|
|
||
|
|
jsrROM ROMHiLite
|
||
|
|
bra.s DoneActivate ; rejoin flow of control
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEDeactivate
|
||
|
|
; <28Sept89smb> Added outline highlighting.
|
||
|
|
; <3Oct89smb> Fixed caret display for outline highlighting.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEDeactivate
|
||
|
|
with OutlineFrame
|
||
|
|
bsr ptchStdEntry
|
||
|
|
link a6,#OutlineFrameSz ; only link if outlining
|
||
|
|
|
||
|
|
tst.b teActive(A3) ; see if already inactive
|
||
|
|
beq.s goGoHome
|
||
|
|
|
||
|
|
move teSelStart(a3),d0 ; is this a selection point?
|
||
|
|
cmp teSelEnd(a3),d0
|
||
|
|
bne.s @drawRegion ; fall through for caret processing
|
||
|
|
|
||
|
|
; is outlining desired?
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq.s @drawRegion ; outline bit not on
|
||
|
|
; if caret on invert it
|
||
|
|
tst.b teCarOn(a3)
|
||
|
|
beq.s @noDraw
|
||
|
|
jsrROM ROMDrawIt
|
||
|
|
@noDraw
|
||
|
|
; turn on flag in case off - want to display an outlined caret
|
||
|
|
st teCarOn(a3) ; will be turned off in HideCaret
|
||
|
|
@drawRegion
|
||
|
|
|
||
|
|
bsr.s InitOutline
|
||
|
|
jsrROM ROMHideCaret ; hide the caret
|
||
|
|
jsrROM ROMHiLite ; Remove old selection
|
||
|
|
sf teActive(A3) ; flag as inactive
|
||
|
|
; drop through to common exit
|
||
|
|
;-----------------------------------------
|
||
|
|
|
||
|
|
DoneActivate
|
||
|
|
bsr.s TEOutlineHilite ; outline hilite now
|
||
|
|
goGoHome
|
||
|
|
unlk a6
|
||
|
|
jmpROM ROMEpilog4
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE InitOutline
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Test for outline highlighting after setting up teRec.
|
||
|
|
; <3Oct89smb> Cleaned up code a bit!
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
InitOutline
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq.s @RegHilite
|
||
|
|
|
||
|
|
_OpenRgn
|
||
|
|
move.l teHiHook(a3),oldHighHook(a6) ; save
|
||
|
|
move.l teCarHook(a3),oldCaretHook(a6) ; save
|
||
|
|
lea FrameHook,a0 ; just frame it
|
||
|
|
move.l a0,teHiHook(a3) ; stuff it!
|
||
|
|
move.l a0,teCarHook(a3) ; stuff it!
|
||
|
|
st paintFlag(a6) ; init to always paint region <16Oct89smb>
|
||
|
|
@RegHilite
|
||
|
|
rts
|
||
|
|
;-----------------------------------------
|
||
|
|
FrameHook
|
||
|
|
_FrameRect
|
||
|
|
Rts
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE TEOutlineHilite
|
||
|
|
; <28Sept89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
TEOutlineHilite
|
||
|
|
|
||
|
|
with OutlineFrame
|
||
|
|
; do we need anything fancy
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq @DoneTEOutlineHilite ; don't do fancy stuff!
|
||
|
|
|
||
|
|
; now do the outlining <20Sept89smb>
|
||
|
|
move.l a4,-(sp) ; save TE handle
|
||
|
|
subq.l #4,sp ; handle to outline region
|
||
|
|
_NewRgn
|
||
|
|
; handle to outline region still on stack
|
||
|
|
move.l (sp),a2 ; save outline region
|
||
|
|
_CloseRgn
|
||
|
|
subq.l #4,sp ; handle to view region
|
||
|
|
_NewRgn
|
||
|
|
; handle to view region still on stack
|
||
|
|
move.l (sp),a4 ; save view region
|
||
|
|
pea teViewRect(a3) ; view Rectangle
|
||
|
|
_RectRgn
|
||
|
|
move.l a4,-(sp) ; view region
|
||
|
|
move.l a2,-(sp) ; outline region
|
||
|
|
move.l a2,-(sp) ; intersection of view and outline regions
|
||
|
|
_SectRgn
|
||
|
|
move.l a4,-(sp) ; view region
|
||
|
|
_DisposRgn
|
||
|
|
|
||
|
|
; set up for drawing
|
||
|
|
pea oldPenState(a6)
|
||
|
|
_GetPenState
|
||
|
|
move.w #1,-(sp)
|
||
|
|
move.w #1,-(sp)
|
||
|
|
_PenSize
|
||
|
|
move.l GrafGlobals(a5),a0 ; get graf globals
|
||
|
|
move.w teSelStart(a3),d0
|
||
|
|
cmp.w teSelEnd(a3),d0
|
||
|
|
bne.s @NoCaret
|
||
|
|
; got a caret
|
||
|
|
lea gray(a0),a4 ; modified a bit <2Oct89smb>
|
||
|
|
move.w #PatXOr,d2
|
||
|
|
bra.s @doPen
|
||
|
|
@NoCaret
|
||
|
|
lea black(a0),a4 ; @black pattern
|
||
|
|
; test if color QD available
|
||
|
|
move.w #PatXOr,d2 ; assume no color QD
|
||
|
|
move.l #gestaltQuickdrawVersion,d0
|
||
|
|
_Gestalt ; result returned in a0
|
||
|
|
tst.w d0 ; OSErr result returned here
|
||
|
|
bne SysErr
|
||
|
|
move.l a0,d0 ; test result in a0!
|
||
|
|
beq.s @doPen ; no color QD available
|
||
|
|
move.w #50,d2 ; hilite
|
||
|
|
@doPen
|
||
|
|
move.w d2,-(sp)
|
||
|
|
_PenMode
|
||
|
|
move.l a4,-(sp)
|
||
|
|
_PenPat
|
||
|
|
|
||
|
|
; draw
|
||
|
|
move.w teSelStart(a3),d0
|
||
|
|
cmp.w teSelEnd(a3),d0
|
||
|
|
beq.s @Caret
|
||
|
|
; no caret so outline
|
||
|
|
move.l a2,-(sp)
|
||
|
|
_FrameRgn
|
||
|
|
tst.b paintFlag(a6) ; don't paint for Updating <16Oct89smb>
|
||
|
|
beq.s @NoPaint
|
||
|
|
@Caret
|
||
|
|
move.l a2,-(sp)
|
||
|
|
_PaintRgn
|
||
|
|
@NoPaint
|
||
|
|
move.l a2,-(sp)
|
||
|
|
_DisposRgn
|
||
|
|
move.l (sp)+,a4 ; restore TE handle
|
||
|
|
|
||
|
|
pea oldPenState(a6)
|
||
|
|
_SetPenState
|
||
|
|
|
||
|
|
move.l oldHighHook(a6),teHiHook(a3) ; restore
|
||
|
|
move.l oldCaretHook(a6),teCarHook(a3) ; restore
|
||
|
|
@DoneTEOutlineHilite
|
||
|
|
rts
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEDispatch
|
||
|
|
; <1/4/91smb> Fixed bug #66732 in SetStylScrap. <19>
|
||
|
|
; <1/4/91smb> Fixed bug #58512 in TEStylInsert. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEDispatch
|
||
|
|
MoveQ #1,D0 ; tells stdEntry it's a style trap
|
||
|
|
Bsr ptchStdEntry2 ; get addr of procedure in a0
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
cmpROM ROMSetStylScrap,a0 ; are we dispatching to SetStylScrap? <19>
|
||
|
|
bne.s @TestStylInsert ; nope, test for TEStylInsert call <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchSetStylScrap
|
||
|
|
; <1/4/91smb> Per documentation, if a NIL StScrpHandle (newStyles)
|
||
|
|
; exist, do nothing and exit. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
tst.l 2(a2) ; is the scrap handle NIL <19>
|
||
|
|
bne @Go2Proc ; nope, go to SetStylScrap <19>
|
||
|
|
moveq #20,d0 ; Nil handle: # of params to strip <19>
|
||
|
|
jmpROM ROMStdExit2 ; goodbye! <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEStylInsert
|
||
|
|
; <1/4/91smb> Must patch since it calls InsGuts which is now patched. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@TestStylInsert
|
||
|
|
cmpROM ROMTEStylInsert,a0 ; are we dispatching to TEStylInsert? <19>
|
||
|
|
bne @Go2Proc
|
||
|
|
;-----------
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
jsrROM ROMHiLite ; remove selection
|
||
|
|
|
||
|
|
move.l (a2)+,d0 ; get style handle
|
||
|
|
moveq #0,d7 ; delta = 0(No deletion)
|
||
|
|
movem.l (a2)+,d5-d6 ; A2 points to length & pointer params
|
||
|
|
|
||
|
|
; If length is 0, punt
|
||
|
|
tst.l d5 ; length?
|
||
|
|
bz.s @15 ; Nope, so leave
|
||
|
|
|
||
|
|
tst.l d0 ; check if handle is NIL
|
||
|
|
beq.s @0 ; can't insert styles if NIL
|
||
|
|
|
||
|
|
move.l d0,a2 ; save style handle in A2
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bpl.s @0 ; just insert text if not a style record
|
||
|
|
|
||
|
|
jsrROM ROMMungeSetup ; setup for the insert
|
||
|
|
clr.l -(sp) ; fake l1
|
||
|
|
move.l d6,-(sp) ; pointer to insert = p2
|
||
|
|
move.l d5,-(sp) ; length to insert = l2
|
||
|
|
_Munger ; use sloppy munger
|
||
|
|
addq.l #4,sp ; pop result
|
||
|
|
add d5,teLength(a3) ; adjust length by insert amount
|
||
|
|
|
||
|
|
move.l teTextH(a3),a0 ; get text handle
|
||
|
|
_Hlock ; and relock it
|
||
|
|
|
||
|
|
move.l a2,a0 ; get style handle
|
||
|
|
_HGetState ; get the style handle's tag
|
||
|
|
move.b d0,-(sp) ; and save the flags
|
||
|
|
_HLock ; and lock it
|
||
|
|
|
||
|
|
movem.l d2-d6/a2/a4,-(sp) ; save stuff
|
||
|
|
move.l a2,a4 ; style handle in a4 for call to PstStylGuts
|
||
|
|
|
||
|
|
; ** <C851/23Apr87/MBK> ** High word of D3 must be clear for PstStylGuts
|
||
|
|
moveq #0,d3 ; clear whole register
|
||
|
|
|
||
|
|
move.w teSelStart(a3),d3 ; selection start
|
||
|
|
jsrROM ROMPstStylGuts ; go do the style paste
|
||
|
|
movem.l (sp)+,d2-d6/a2/a4 ; restore stuff
|
||
|
|
|
||
|
|
move.b (sp)+,d0 ; get the flags
|
||
|
|
move.l a2,a0 ; get style handle
|
||
|
|
_HSetState ; set the style handle's tag
|
||
|
|
|
||
|
|
; only call ConcatRuns when styles are pasted, hence moved here. Text inserted now so
|
||
|
|
; okay to call.
|
||
|
|
jsrROM ROMConcatRuns ; <24Nov88smb> don't leave any null style runs
|
||
|
|
sub d5,d7 ; adjust delta amount for ReCalLines
|
||
|
|
bra.s @1 ; go recal
|
||
|
|
|
||
|
|
@0 bsr ptchInsGuts ; no styles to insert, only text! <19>
|
||
|
|
|
||
|
|
@1 jsrROM ROMRecalDraw ; redo the line stuff
|
||
|
|
add d5,teSelStart(a3) ; selStart:=selstart + insert amount
|
||
|
|
add d5,teSelEnd(a3) ; selEnd:=selEnd + insert amount
|
||
|
|
|
||
|
|
@15
|
||
|
|
jsrROM ROMShowCaret
|
||
|
|
jsrROM ROMHiLite ; restore selection
|
||
|
|
moveq #18,d0 ; # of bytes on stack
|
||
|
|
jmpROM ROMStdExit2 ; to be removed before exit
|
||
|
|
;-----------
|
||
|
|
ENDIF
|
||
|
|
@Go2Proc
|
||
|
|
jmpROM ROMinTEDispatch
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEGetText
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTEGetText
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTESetText
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTESetText
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTECalText
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTECalText
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTECopy
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTECopy
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTECut
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTECut
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEIdle
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
IF forLocalizability THEN ; <34p-YDS-9/2/91>
|
||
|
|
Tst.B teCarAct(A3) ; see if active
|
||
|
|
Beq.S goHome
|
||
|
|
|
||
|
|
SubQ #4,SP ; make room for result
|
||
|
|
_TickCount ; Get current time
|
||
|
|
Move.L (SP)+,A0 ; use A0 for auto extend
|
||
|
|
|
||
|
|
Cmp.L teCarTime(A3),A0 ; see if done
|
||
|
|
Blo.S goHome
|
||
|
|
|
||
|
|
Add.L CaretTime,A0 ; next time
|
||
|
|
Move.L A0,teCarTime(A3)
|
||
|
|
Not.B teCarOn(A3) ; flip the flag
|
||
|
|
jsrROM ROMDrawIt ; flip the caret
|
||
|
|
goHome
|
||
|
|
jmpROM ROM@goHome
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMinTEIdle
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEPaste
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTEPaste
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEInsert
|
||
|
|
; <1/4/91smb> Fixed bug #58512: Must patch TEInsert since
|
||
|
|
; it calls InsGuts which is now patched. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEInsert
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
jsrROM ROMHideCaret ; <C971/RWW102887>NO
|
||
|
|
jsrROM ROMHiLite ; remove selection <C971/RWW102887>NO
|
||
|
|
|
||
|
|
moveq #0,d7 ; delta = 0(No deletion)
|
||
|
|
movem.l (a2)+,d5-d6 ; A2 points to l param
|
||
|
|
bsr.s ptchInsGuts ; go insert the scrap <19>
|
||
|
|
jmpROM ROMAfterInsert ; <19>
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMinTEInsert
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchInsGuts
|
||
|
|
; <1/4/91smb> Must be patched since calls InsRsrved which calls
|
||
|
|
; PstStylGuts which has an unlocked null scrap handle that must
|
||
|
|
; be locked since it uses it again after moving memory. <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchInsGuts
|
||
|
|
jsrROM ROMMungeSetup ; setup for the insert <C971/RWW102887>NO
|
||
|
|
|
||
|
|
Clr.L -(SP) ; fake l1
|
||
|
|
Move.L D6,-(SP) ; pointer to insert = p2
|
||
|
|
Move.L D5,-(SP) ; length to insert = l2
|
||
|
|
_Munger ; use sloppy munger
|
||
|
|
AddQ.L #4,SP ; pop result
|
||
|
|
|
||
|
|
Move.L teTextH(A3),A0 ; get text handle
|
||
|
|
_Hlock ; and relock it
|
||
|
|
|
||
|
|
Add D5,teLength(A3) ; adjust length by insert amount
|
||
|
|
Sub D5,D7 ; adjust delta amount for ReCalLines
|
||
|
|
|
||
|
|
Tst.W teSize(A3) ; check style flag
|
||
|
|
Bpl.S @0 ; no, you're done ** MBK 6/18/86 **
|
||
|
|
|
||
|
|
; lock down the nullscrap handle since InsRsrved expects to use it again after moving memory <19>
|
||
|
|
move.l teStylesH(a3),a0 ; get style handle
|
||
|
|
move.l (a0),a0 ; deref
|
||
|
|
move.l nullStyle(a0),a0 ; get reserved handle
|
||
|
|
move.l (a0),a0 ; deref
|
||
|
|
move.l nullScrap(a0),a1 ; get handle to scrap for null selection
|
||
|
|
move.l a1,-(sp) ; save scrap handle for unlocking later <19>
|
||
|
|
; Gotta lock down null scrap! <19>
|
||
|
|
move.l a1,a0 ; <19>
|
||
|
|
_HLock ; <19>
|
||
|
|
|
||
|
|
jsrROM ROMInsRsrved ; insert the style <C971/RWW102887>NO
|
||
|
|
|
||
|
|
; Unlock previously locked null scrap <19>
|
||
|
|
move.l (sp)+,a0 ; <19>
|
||
|
|
_HUnlock ; <19>
|
||
|
|
@0
|
||
|
|
Rts
|
||
|
|
ENDIF ; <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTESetJust
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jmpROM ROMinTESetJust
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEScroll
|
||
|
|
; <1/4/91smb> Must be patched since calls Scroll which calls
|
||
|
|
; Refresh, which is now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEScroll
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
|
||
|
|
Move.L (A2)+,D3 ; get dv,dh pair
|
||
|
|
Bsr.S ptchScroll
|
||
|
|
epilog8
|
||
|
|
MoveQ #8,D0
|
||
|
|
jmpROM ROMStdExit
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchScroll
|
||
|
|
; <1/4/91smb> Must be patched since calls Refresh, which is
|
||
|
|
; now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchScroll
|
||
|
|
; Amount to scroll in D3
|
||
|
|
Tst.L D3 ; escape if nothing there
|
||
|
|
Beq.S ActCaret ; fix errant HideCaret (and Rts…) <C971/RWW110587>
|
||
|
|
|
||
|
|
Pea teDestRect(A3) ; pass the dest rectangle
|
||
|
|
Move.L D3,-(SP) ; pass dh, dv
|
||
|
|
_OffsetRect
|
||
|
|
|
||
|
|
SubQ #4,SP ; make room for temp region
|
||
|
|
_NewRgn ; get it
|
||
|
|
Move.L (SP)+,A2 ; save its handle
|
||
|
|
|
||
|
|
Pea teViewRect(A3) ; pass rect to scroll
|
||
|
|
Move.L D3,-(SP) ; pass dh, dv
|
||
|
|
Move.L A2,-(SP) ; pass the temp region
|
||
|
|
_ScrollRect
|
||
|
|
|
||
|
|
Bsr.S ActCaret ; just activate, don't draw <C971/RWW102887>NO
|
||
|
|
|
||
|
|
Move.L A2,-(SP) ; clip to it update rgn
|
||
|
|
_SetClip
|
||
|
|
|
||
|
|
Move.L (A2),A0 ; point to region
|
||
|
|
Lea rgnBBox(A0),A0
|
||
|
|
import ptchRefresh ; <19>
|
||
|
|
jsr ptchRefresh ; and redraw those lines <19>
|
||
|
|
|
||
|
|
Move.L A2,-(SP) ; get rid of temp region
|
||
|
|
_DisposRgn
|
||
|
|
@0
|
||
|
|
handyReturn
|
||
|
|
Rts
|
||
|
|
;-----------------------------------------------
|
||
|
|
; ** <C207/14oct86/MBK> ** Don't draw caret yet, just activate it
|
||
|
|
ActCaret Tst.B teActive(A3) ; do nothing if not active
|
||
|
|
Beq.S @0 ; <C971/RWW102887>NO
|
||
|
|
|
||
|
|
Move teSelStart(A3),D0 ; see if should be turned on
|
||
|
|
Cmp teSelEnd(A3),D0
|
||
|
|
Bne.S @0 ; if selection <> 0 then escape
|
||
|
|
ST teCarAct(A3) ; replaced ShowCaret
|
||
|
|
|
||
|
|
@0 Rts
|
||
|
|
;-----------------------------------------------
|
||
|
|
ELSE ; <19>
|
||
|
|
jmpROM ROMinTEScroll
|
||
|
|
ENDIF ; <19>
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEPinScroll
|
||
|
|
; <1/4/91smb> Must be patched since calls Refresh, which is
|
||
|
|
; now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEPinScroll
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
; get vertical parameter
|
||
|
|
move (a2),d0 ; get dV
|
||
|
|
bpl.s @PinTop ; pin top
|
||
|
|
|
||
|
|
move.w teNLines(A3),d1 ; last line ** MBK 6/18/86 **
|
||
|
|
move.w teLength(A3),d0 ; last char **<C207/14oct86/MBK> **
|
||
|
|
tst.w d0 ; anything in file? **<C207/14oct86/MBK> **
|
||
|
|
beq.s @0 ; skip test if not **<C207/14oct86/MBK> **
|
||
|
|
|
||
|
|
move.l teTextH(a3),a0 ; text handle **<C207/14oct86/MBK> **
|
||
|
|
Move.l (a0),a0 ; dereference **<C207/14oct86/MBK> **
|
||
|
|
cmp.b #$0D,-1(a0,d0) ; file end with CR? **<C207/14oct86/MBK> **
|
||
|
|
bne.s @0 ; end of file if not **<C207/14oct86/MBK> **
|
||
|
|
|
||
|
|
addq #1,d1 ; else 1 more line **<C207/14oct86/MBK> **
|
||
|
|
|
||
|
|
@0 moveq #0,d0 ; 1st line ** MBK 6/18/86 **
|
||
|
|
jsrROM ROMGetLineHites ; compile max hites ** MBK 6/18/86 **
|
||
|
|
move.w d0,d1 ; hite from 1st to last ** MBK 6/18/86 **
|
||
|
|
move.w (a2),d0 ; restore D0 ** MBK 6/18/86 **
|
||
|
|
|
||
|
|
add teDestRect+top(a3),d1 ; get destRect.top
|
||
|
|
|
||
|
|
sub teViewRect+bottom(A3),d1; a diff. viewRect.bottom
|
||
|
|
ble.s @2 ; dest already gone...
|
||
|
|
add d1,d0 ; see what delta does
|
||
|
|
bpl.s pinH
|
||
|
|
bra.s @2 ; should be subtracted because it's negative
|
||
|
|
|
||
|
|
@PinTop
|
||
|
|
; scrolling down
|
||
|
|
move teDestRect+top(a3),d1 ; add destRect.top
|
||
|
|
sub teViewRect+top(a3),d1 ; diff. viewRect.top
|
||
|
|
bpl.s @2 ; already bad
|
||
|
|
|
||
|
|
add d1,d0
|
||
|
|
bmi.s pinH
|
||
|
|
@2
|
||
|
|
sub d0,(a2) ; adjust scroll
|
||
|
|
pinH
|
||
|
|
move 2(a2),d0 ; get dH
|
||
|
|
bpl.s @1 ; pin top
|
||
|
|
move teDestRect+right(a3),d1 ; add destrect.right
|
||
|
|
sub teViewRect+right(a3),d1 ; a diff. viewRect.right
|
||
|
|
ble.s @2 ; already past, cancel scroll
|
||
|
|
add d1,d0
|
||
|
|
bpl.s pinDone
|
||
|
|
sub d0,2(a2) ; bug found in MacDTS <12/19/88smb>
|
||
|
|
bra.s pinDone
|
||
|
|
@1
|
||
|
|
move teDestRect+left(a3),d1 ; add destRect.left
|
||
|
|
sub teViewRect+left(a3),d1 ; diff. viewRect.left
|
||
|
|
bpl.S @2 ; already past, cancel scroll
|
||
|
|
add d1,d0
|
||
|
|
bmi.s pinDone
|
||
|
|
@2
|
||
|
|
sub d0,2(a2) ; adjust scroll
|
||
|
|
pinDone
|
||
|
|
|
||
|
|
move.l (a2)+,d3 ; get dv,dh pair
|
||
|
|
bsr ptchScroll ; and go scroll it <19>
|
||
|
|
|
||
|
|
bsr ActCaret ; just activate, don't draw ** <C207/14oct86/MBK> **
|
||
|
|
Bra epilog8
|
||
|
|
ELSE ; <19>
|
||
|
|
jmpROM ROMinTEPinScroll
|
||
|
|
ENDIF ; <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTESelView
|
||
|
|
Bsr ptchStdEntry ; doo dah...
|
||
|
|
jmpROM ROMinTESelView
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEAutoView
|
||
|
|
Bsr ptchStdEntry ; doo dah...
|
||
|
|
jmpROM ROMinTEAutoView
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEGetOffset
|
||
|
|
; <1/4/91smb> Must patch more since DoFind is now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEGetOffset
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
Move.L teSelPoint(A3),-(SP) ; save selPoint
|
||
|
|
; Find the point and get char index of it in D6
|
||
|
|
Move.L (A2)+,teSelPoint(A3) ; pass selPoint
|
||
|
|
import ptchDoFind ; <19>
|
||
|
|
jsr ptchDoFind ; juggle dispStart/End and do find
|
||
|
|
Move.W D6,(A2) ; dispStart
|
||
|
|
|
||
|
|
Move.L (SP)+,teSelPoint(A3) ; restore selPoint
|
||
|
|
bra.s Epilog8 ; is Epilog8 in this proc? (if not, use jmpROM ROMEpilog8 ????????????)
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMinTEGetOffset
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTESetStyle
|
||
|
|
; <7Dec89smb>
|
||
|
|
; Testing possible additive combination of mode which could include
|
||
|
|
; the font bit before call to SetKeyboard2Font.
|
||
|
|
; <16Dec89smb>
|
||
|
|
; Remove TEDispatch return address from stack.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTESetStyle
|
||
|
|
addq.l #4,sp ; Clean up from ptchStdEntry jump.<16Dec89smb>
|
||
|
|
tst.w teSize(A3) ; check style flag
|
||
|
|
Bpl.S @DontSet ; if not, sorry, can't set it
|
||
|
|
|
||
|
|
jsrROM ROMSetRsrved ; save the style in the grafport
|
||
|
|
|
||
|
|
; mode may be an additive combination so must test the font bit <3Dec89smb>
|
||
|
|
move.w 6(a2),d0 ; <3Dec89smb>
|
||
|
|
btst #fontBit,d0 ; is mode = doFont? <3Dec89smb>
|
||
|
|
beq.s @KeybdOK ; <3Dec89smb>
|
||
|
|
;; cmpi.w #doFont,6(a2) ; is mode = doFont? <12July89smb>
|
||
|
|
;; bne.s @KeybdOK ; <12July89smb>
|
||
|
|
import ptchSetKeyboard2Font
|
||
|
|
jsr ptchSetKeyboard2Font ; synch keyboard to new font <10Nov88smb>
|
||
|
|
@KeybdOK
|
||
|
|
jmpROM ROM@KeybdOK
|
||
|
|
@DontSet
|
||
|
|
MoveQ #14,D0
|
||
|
|
jmpROM ROMStdExit2
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEUpdate
|
||
|
|
; <16Oct89smb>
|
||
|
|
; Added updating of outlined region in TEUpdate.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEUpdate
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
Move.L (A2)+,A0 ; get rect
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchRefresh ; <19>
|
||
|
|
jsr ptchRefresh ; <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMRefresh
|
||
|
|
ENDIF
|
||
|
|
; if window is active, don't bother with outlining. <16Oct89smb>
|
||
|
|
tst.b teActive(a3)
|
||
|
|
beq.s @TestOutline
|
||
|
|
|
||
|
|
jmpROM ROMEpilog8
|
||
|
|
|
||
|
|
@TestOutline
|
||
|
|
; if outlining is on, redraw outline! <16Oct89smb>
|
||
|
|
with OutlineFrame
|
||
|
|
link a6,#OutlineFrameSz ; only link if outlining
|
||
|
|
move teSelStart(a3),d0 ; is this a selection point?
|
||
|
|
cmp teSelEnd(a3),d0
|
||
|
|
bne.s @drawRegion ; fall through for caret processing
|
||
|
|
|
||
|
|
; is outlining desired?
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq.s @drawRegion ; outline bit not on
|
||
|
|
; if caret on invert it
|
||
|
|
tst.b teCarOn(a3)
|
||
|
|
beq.s @noDraw
|
||
|
|
jsrROM ROMDrawIt
|
||
|
|
@noDraw
|
||
|
|
; turn on flag in case off - want to display an outlined caret
|
||
|
|
st teCarOn(a3) ; will be turned off in HideCaret
|
||
|
|
@drawRegion
|
||
|
|
bsr InitOutline
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFOutlineHilite,d0
|
||
|
|
beq.s @noOutline ; outline bit not on
|
||
|
|
st teActive(a3) ; flag as active for hiliting
|
||
|
|
jsrROM ROMHideCaret ; hide the caret
|
||
|
|
jsrROM ROMHiLite ; Frame new region
|
||
|
|
sf teActive(a3) ; flag as inactive
|
||
|
|
sf paintFlag(a6) ; don't paint region!
|
||
|
|
bsr TEOutlineHilite
|
||
|
|
@noOutline
|
||
|
|
unlk a6
|
||
|
|
jmpROM ROMEpilog8
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
SysErr
|
||
|
|
_SysError ; go bye-bye with error in d0
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTESetSelect
|
||
|
|
; <7Dec89smb> Added new routine ClickKeyboard2Font for unsynching keyboard
|
||
|
|
; and font.
|
||
|
|
; <9/6/90smb> If inline input is active, then don't unsynch the keyboard.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTESetSelect
|
||
|
|
bsr ptchStdEntry
|
||
|
|
jsrROM ROMClearRsrved ; clear out reserved style
|
||
|
|
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
jsrROM ROMHiLite
|
||
|
|
|
||
|
|
move 14(a6),teSelEnd(a3) ; Jam the selection end
|
||
|
|
move 18(a6),teSelStart(a3) ; jam selStart
|
||
|
|
jsrROM ROMCleanUpSel ; sort and clean up selection
|
||
|
|
|
||
|
|
; set the current font in the grafort so can synch the keyboard to the font <10Nov88smb>
|
||
|
|
tst.w teSize(a3) ; if unstyled, can't synch keyboard to font <1Dec88smb>
|
||
|
|
bpl.s @DoneWithSynch
|
||
|
|
|
||
|
|
move.w teSelStart(a3),d0
|
||
|
|
beq.s @BufferStart ; <6Dec89smb>
|
||
|
|
sub.w #1,d0 ; backup one to get previous style <6Dec89smb>
|
||
|
|
@BufferStart
|
||
|
|
move.w d0,d3 ; save offset position <6Dec89smb>
|
||
|
|
jsrROM ROMGetCurStyle
|
||
|
|
jsrROM ROMSetStyle
|
||
|
|
move.w d3,d0 ; <6Dec89smb>
|
||
|
|
IF hasInlineInput THEN ; <16>
|
||
|
|
; if inline input is on then don't unsynchronize the keyboard! <16>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d1 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFInlineInput,d1 ; is Inline Input active?
|
||
|
|
bne.s @DoneWithSynch ; yes, so don't unsynch!
|
||
|
|
ENDIF ; <16>
|
||
|
|
import ClickKeyboard2Font
|
||
|
|
jsr ClickKeyboard2Font ; <3Dec89smb>
|
||
|
|
@DoneWithSynch
|
||
|
|
jmpROM ROM@NoSynchInSetSelect
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEClick
|
||
|
|
; <7Dec89smb>
|
||
|
|
; Added new routine ClickKeyboard2Font for unsynching keyboard
|
||
|
|
; and font.
|
||
|
|
; <1/23/90emt/smb>
|
||
|
|
; Added humane scrolling to DefClikProc.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEClick
|
||
|
|
Bsr ptchStdEntry
|
||
|
|
jsrROM ROMClearRsrved ; clear out reserved style
|
||
|
|
|
||
|
|
; Find the new point and get index of it in d6
|
||
|
|
move.l 14(a6),teSelPoint(a3) ; pass selPoint
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchDoFind ; <19>
|
||
|
|
jsr ptchDoFind ; you guessed it: it's patched now! <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMDoFind ; juggle dispStart/End and do find
|
||
|
|
ENDIF ; <19>
|
||
|
|
|
||
|
|
jsrROM ROMHideCaret ; Remove caret
|
||
|
|
|
||
|
|
subq #4,sp ; make room for the tickCount
|
||
|
|
_TickCount
|
||
|
|
move.l (SP)+,d0 ; Ticks in D0
|
||
|
|
|
||
|
|
sub.l teClikTime(a3),d0 ; see if double click
|
||
|
|
IF SysVers>= $605 THEN
|
||
|
|
add.l d0,teClikTime(a3) ; Update click time for click proc. <4>
|
||
|
|
ENDIF
|
||
|
|
cmp.l DoubleTime,d0 ; 1/2 second click time
|
||
|
|
sle d5 ; D5 = 0 if single click
|
||
|
|
cmp teClikLoc(a3),d6 ; see if same location
|
||
|
|
seq d1
|
||
|
|
and.b d1,d5 ; D5 ST if double click
|
||
|
|
ror.l #8,d5 ; get switch in high D5
|
||
|
|
|
||
|
|
move d6,teClikLoc(a3) ; double click only if not moved
|
||
|
|
|
||
|
|
; synch the keyboard to the font <10Nov88smb>
|
||
|
|
tst.w teSize(a3) ; if unstyled, synch keyboard to font
|
||
|
|
IF forLocalizability THEN ; even if we dont have all info <34g-YDS-9/2/91>
|
||
|
|
bmi.w @Styled ; styles !!!
|
||
|
|
tst.w teLength(A3) ; do we have text at all ?
|
||
|
|
beq.w @DoneWithPsynching ; don't synch if no text !!!
|
||
|
|
|
||
|
|
IF 0 THEN ; now using 'itlb' flag in CubeE <46>
|
||
|
|
; 6.1 : synch only r->l, for 7.0 synch for double byte
|
||
|
|
;; tst.b WordRedraw ; is it a R->L script ? <37>
|
||
|
|
;; bge.w @DoneWithPsynching ; don't synch. <37>
|
||
|
|
; Really want to synchronize for unstyled text in ALL scripts. However, this will cause problems for <37>
|
||
|
|
; input methods, so we will skip this code in this case. (WordRedraw only indicates the <37>
|
||
|
|
; types of scripts installed and not the current one…) <37>
|
||
|
|
subq #2,sp ; result space for Font2Script & GetScript <37>
|
||
|
|
move.w teFont(a3),-(sp) ; app font id <37>
|
||
|
|
_Font2Script ; it's a non-roman char so get script font <37>
|
||
|
|
move.w (sp)+,d0 ; <37>
|
||
|
|
beq @UseFont ; if Roman then always synchronize <37>
|
||
|
|
cmp.w #smEastEurRoman,d0 ; Extended Roman? <40>
|
||
|
|
beq @DoneWithPsynching ; If so, never synchronize <40>
|
||
|
|
subq #4,sp ; result space <37>
|
||
|
|
move.w d0,-(sp) ; script <37>
|
||
|
|
move.w #smScriptRedraw,-(sp) ; <37>
|
||
|
|
_GetScript ; <37>
|
||
|
|
move.l (sp)+,d1 ; <37><39>
|
||
|
|
tst.b d1 ; leave in d1 for later <37><39>
|
||
|
|
bgt @DoneWithPsynching ; if double-byte script don't synchronize <37>
|
||
|
|
; otherwise, we have a single-byte non-Roman font <37>
|
||
|
|
; IF SysVers > $610 THEN
|
||
|
|
; move.l teDispatchH(a3),a0 ; <11-YDS-8/5/91>
|
||
|
|
; move.l (a0),a0
|
||
|
|
; move.l newTEFlags(a0),d0 ; move into reg the flags
|
||
|
|
; btst #teFInlineInput,d0 ; are we in an inline input window ?
|
||
|
|
; bne.w @DoneWithPsynching ; yes, don't synch keyboard.
|
||
|
|
; ENDIF
|
||
|
|
|
||
|
|
ELSE ; now using 'itlb' flag in CubeE <46>
|
||
|
|
|
||
|
|
; optimize for Roman-only: do not have to synch font & kbd <51>
|
||
|
|
with smgrRecord ; <51>
|
||
|
|
GetSMgrCore a0 ; load SMgr globals pointer. <51>
|
||
|
|
cmp.b #1,smgrEnabled(a0) ; how many scripts enabled? <51>
|
||
|
|
beq @DoneWithPsynching ; skip synchronization for Roman-only system <51>
|
||
|
|
endwith ; <51>
|
||
|
|
|
||
|
|
subq #6,sp ; result space for Font2Script & GetScript <46>
|
||
|
|
move.w teFont(a3),-(sp) ; app font id <46>
|
||
|
|
_Font2Script ; get script font <46>
|
||
|
|
; script left on stack ; <46>
|
||
|
|
move.w #smScriptFlags,-(sp) ; now get script-specific flags <46>
|
||
|
|
_GetScript ; <46>
|
||
|
|
move.l (sp)+,d0 ; <46>
|
||
|
|
and.l #(1<<smsfSynchUnstyledTE),d0 ; leave only the synchronize bit <46>
|
||
|
|
beq @DoneWithPsynching ; 0=> do not synchronize <46>
|
||
|
|
; otherwise synchronize
|
||
|
|
ENDIF ; now using 'itlb' flag in CubeE <46>
|
||
|
|
|
||
|
|
move.w d6,d3 ; don't trash d6
|
||
|
|
tst.b teLftClick(a3) ; check if the click was on the previos char.
|
||
|
|
bne.s @2 ; else sub 1
|
||
|
|
sub.w #1,d3 ; see the char we clicked (from 0 !!!)
|
||
|
|
@2
|
||
|
|
; Check char to determine how to synch
|
||
|
|
move.l teTextH(a3),a2 ; handle to text <39>
|
||
|
|
move.l (a2),a0 ; ptr to text <39>
|
||
|
|
move.b 0(a0,d3.w),d0 ; get character <39>
|
||
|
|
cmp.b #$20,d0 ; control char? <39>
|
||
|
|
blo @DoneWithPsynching ; if so, don't synch <39>
|
||
|
|
move.b d1,-(sp) ; save scriptRedraw <39>
|
||
|
|
subq #2,sp ; room for return
|
||
|
|
move.l a0,-(sp) ; push text ptr on stack <39>
|
||
|
|
move.w d3,-(sp) ; offset on stack
|
||
|
|
_CharType ; what char is it
|
||
|
|
move.w (sp)+,d0 ; take result
|
||
|
|
move.b (sp)+,d1 ; recover scriptRedraw <39>
|
||
|
|
|
||
|
|
; Mask off what interested in: the Type ($000F) and the Direction ($2000) <37>
|
||
|
|
; Want a char whose Direction is LR (smCharLeft, $0000) and whose Type is Roman <37>
|
||
|
|
; which can be smCharAscii (1) or smCharEuro (7). smCharPunct (0) should not synch the font. <37>
|
||
|
|
;
|
||
|
|
; New approach. Different behavior for bidi and non-bidi scripts, because of caret <39>
|
||
|
|
; requirements for bidi scripts. <39>
|
||
|
|
bne.s @doBidi ; check scriptRedraw for bidi <39>
|
||
|
|
; For non-bidirectional scripts, set keyboard to Roman for Roman letters, <39>
|
||
|
|
; sync to font for script letters, dont sync for anything else. <39>
|
||
|
|
and.w #smcTypeMask,d0 ; isolate info we need <39>
|
||
|
|
cmp.w #smCharPunct,d0 ; non-letter? <39>
|
||
|
|
beq.s @DoneWithPsynching ; if so, don't synch keyboard <39>
|
||
|
|
cmp.w #smCharAscii,d0 ; low-ASCII Roman? <39>
|
||
|
|
beq.s @isRoman ; if so, go set keyboard <39>
|
||
|
|
cmp.w #smCharEuro,d0 ; Extended ASCII Roman? <39>
|
||
|
|
beq.s @isRoman ; if so, go set keyboard <39>
|
||
|
|
bra.s @UseFont ; otherwise, sync keyboard to font <39>
|
||
|
|
; For bidirectional scripts, don't synch control chars (stripped out above) or low-ASCII <39>
|
||
|
|
; (L-R) digits; synch other L-R chars to Roman, and everything else to font script. <39>
|
||
|
|
@doBidi ; <39>
|
||
|
|
and.w #smcTypeMask+smcClassMask+smcRightMask,d0 ; isolate info we need <39>
|
||
|
|
cmp.w #smCharPunct+smPunctNumber+smCharLeft,d0 ; is char a low-ASCII digit? <39>
|
||
|
|
beq.s @DoneWithPsynching ; if so, don't synch <39>
|
||
|
|
and.w #smcRightMask,d0 ; now just check direction <39>
|
||
|
|
beq.s @isRoman ; if left-right, sync to Roman <39>
|
||
|
|
|
||
|
|
; Otherwise, synch the font to the script of the character
|
||
|
|
@UseFont
|
||
|
|
subq #2,sp ; room for return
|
||
|
|
move.w teFont(a3),-(sp) ; app font id
|
||
|
|
_Font2script ; it's a non-roman char so get app font
|
||
|
|
; leave script on stack
|
||
|
|
bra.s @SetKbd
|
||
|
|
|
||
|
|
@isRoman move.w #smRoman,-(sp) ; we think it is roman
|
||
|
|
@SetKbd
|
||
|
|
move.w (sp), d0 ; script param on the stack
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0 ;
|
||
|
|
move.b d0, lastScript(a0) ; push script numberused to highligt (d0) to lastScript
|
||
|
|
_KeyScript ; set keyboard
|
||
|
|
bra.s @DoneWithPsynching
|
||
|
|
ELSE
|
||
|
|
bpl.s @DoneWithPsynching
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@Styled move.w d6,d0
|
||
|
|
beq.s @BufferStart ; <6Dec89smb>
|
||
|
|
IF forLocalizability THEN ; <34e-YDS-9/2/91>
|
||
|
|
tst.b WordRedraw ; do we have a R->L script
|
||
|
|
bge.s @BufferStart ; no, take the prev allways
|
||
|
|
tst.b teLftClick(a3) ; check if the click was on the previos char.
|
||
|
|
bne.s @BufferStart ; else sub 1
|
||
|
|
ENDIF
|
||
|
|
sub.w #1,d0 ; backup one to get previous style <6Dec89smb>
|
||
|
|
@BufferStart
|
||
|
|
move.w d0,d3 ; save offset position <6Dec89smb>
|
||
|
|
jsrROM ROMGetCurStyle ; returns ptr to current style in a0
|
||
|
|
jsrROM ROMSetStyle ; set the font in the grafport
|
||
|
|
move.w d3,d0 ; char offset needed in ClickKeyboard2Font <6Dec89smb>
|
||
|
|
import ClickKeyboard2Font
|
||
|
|
jsr ClickKeyboard2Font ; sink up! <3Dec89smb>
|
||
|
|
@DoneWithPsynching
|
||
|
|
;--------------------
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
; Must patch out the rest of this routine for the other DoFind call (since it's
|
||
|
|
; embedded in a loop!) <19>
|
||
|
|
;------
|
||
|
|
; D6 now contains the character location at which to look
|
||
|
|
;
|
||
|
|
; Find out if we want an extended selection or a normal one
|
||
|
|
; For an extended selection, fake out the loop below by fooling it into thinking
|
||
|
|
; we've already entered it "normally" but with the old selection already
|
||
|
|
; hilighted, etc.
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; preserve teHandle for hook calls <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
Tst.B 12(A6) ; see if extend flag is on
|
||
|
|
Beq.S notExtended
|
||
|
|
|
||
|
|
MoveM teSelStart(A3),D0-D1 ; get old selection
|
||
|
|
Cmp D6,D0 ; chk side of new loc
|
||
|
|
Bhs.S useRight
|
||
|
|
Move D0,A2 ; save anchor left
|
||
|
|
Move D0,A4 ; and anchor right
|
||
|
|
Bra.S goToIt
|
||
|
|
useRight
|
||
|
|
Move D1,A2 ; save anchor left
|
||
|
|
Move D1,A4 ; and anchor right
|
||
|
|
goToIt
|
||
|
|
Move D6,D5
|
||
|
|
Bra.S goSelect
|
||
|
|
|
||
|
|
notExtended
|
||
|
|
; a4 ok here due to bra to this point <29>
|
||
|
|
jsrROM ROMHiLite ; Remove old selection
|
||
|
|
MoveQ #teWordSelect,D2 ; say "ClickExpand, word selection" <EHB 01Oct85>
|
||
|
|
jsrROM ROMClickExpand ; <C971/RWW102887>NO
|
||
|
|
; D0/D1 now contain the "bounds" of this click
|
||
|
|
MoveM D0-D1,teSelStart(A3)
|
||
|
|
Move D0,A2 ; save anchor left
|
||
|
|
Move D1,A4 ; and anchor right
|
||
|
|
Move D6,D5 ; save "old" D6
|
||
|
|
; remember whether initial click was to left or right of character
|
||
|
|
Move.B teLftClick(A3),teLftCaret(A3)
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save current use of a4 across calls <29>
|
||
|
|
move.l 4(sp),a4 ; restore teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
jsrROM ROMShowCaret ; feedback to user
|
||
|
|
jsrROM ROMHiLite
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore TEClick's use of a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
waitLoop
|
||
|
|
Move.L teClikProc(A3),D0 ; call the click proc
|
||
|
|
Beq.S noClikProc
|
||
|
|
Move.L D0,A0
|
||
|
|
Jsr (A0)
|
||
|
|
Beq done1 ; if returns zero abort drag
|
||
|
|
|
||
|
|
noClikProc
|
||
|
|
Clr -(SP) ; make room for result
|
||
|
|
_WaitMouseUp ; see if button still down
|
||
|
|
Tst.b (SP)+ ; pop result <38>
|
||
|
|
Beq.S done1
|
||
|
|
|
||
|
|
Pea teSelPoint(A3) ; pass address for point
|
||
|
|
_GetMouse
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save current use of a4 across calls <29>
|
||
|
|
move.l 4(sp),a4 ; restore teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
import ptchDoFind
|
||
|
|
jsr ptchDoFind ; juggle dispStart/End and do find <19>
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore TEClick's use of a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
Cmp D6,D5 ; see if change
|
||
|
|
Beq.S waitLoop
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save current use of a4 across calls <29>
|
||
|
|
move.l 4(sp),a4 ; restore teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
jsrROM ROMHideCaret
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore TEClick's use of a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
; There was a change so highlight only the new part. This is a really tricky part...
|
||
|
|
; The thing we're trying to do is highlight only the part that changes of the
|
||
|
|
; selection which is being dragged out in this loop
|
||
|
|
|
||
|
|
goSelect
|
||
|
|
MoveQ #teWordDrag,D2 ; say "ClickExpand, word dragging"
|
||
|
|
jsrROM ROMClickExpand ; Get new points
|
||
|
|
|
||
|
|
Lea teSelEnd(A3),A0 ; point between selStart/End
|
||
|
|
|
||
|
|
Cmp D6,A4 ; see if less than anchor right
|
||
|
|
Blo.S notToLeft ; skip if not to left of anchor
|
||
|
|
Move -(A0),D3 ; save previous left
|
||
|
|
Move D0,(A0)+ ; save new left (in teSelStart!)
|
||
|
|
Move D0,D4 ; save dispEnd too
|
||
|
|
Swap D3
|
||
|
|
Swap D4
|
||
|
|
Move A4,D3 ; save other dispStart
|
||
|
|
Move (A0),D4 ; save other dispEnd (old teSelEnd)
|
||
|
|
Move A4,(A0)
|
||
|
|
Bra.S hiliteIt
|
||
|
|
|
||
|
|
|
||
|
|
notToLeft
|
||
|
|
Cmp D6,A2 ; see if greater than anchor left
|
||
|
|
Bhi.S keepWaiting ; skip if not to right of anchor
|
||
|
|
Move (A0),D3 ; save previous right
|
||
|
|
Move D1,(A0) ; save new right
|
||
|
|
Move D1,D4 ; save dispEnd too
|
||
|
|
Swap D3
|
||
|
|
Swap D4
|
||
|
|
Move -(A0),D3 ; save other dispEnd
|
||
|
|
Move A2,D4 ; save other dispStart
|
||
|
|
Move A2,(A0)+
|
||
|
|
|
||
|
|
|
||
|
|
hiliteIt
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save current use of a4 across calls <29>
|
||
|
|
move.l 4(sp),a4 ; restore teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
MoveQ #teHighlight,D7 ; set mark mode
|
||
|
|
;; bsr ptchTEDoText ; do one half <25>
|
||
|
|
jsrROM ROMDoText ; use the low mem TEDoText hook!! <25>
|
||
|
|
|
||
|
|
Swap D3 ; get other dispStart/End
|
||
|
|
Swap D4 ; and hilight too
|
||
|
|
;; bsr ptchTEDoText ; and other half <25>
|
||
|
|
jsrROM ROMDoText ; use the low mem TEDoText hook!! <25>
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore TEClick's use of a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
keepWaiting
|
||
|
|
Move D6,D5 ; save new end
|
||
|
|
|
||
|
|
Bra.S waitLoop ; continue on
|
||
|
|
done1
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore teHandle for the last time <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
jsrROM ROMShowCaret ; redisplay caret
|
||
|
|
|
||
|
|
; ** <C139/23Sep86/MBK> ** Save tick count at the end of TEClick so that
|
||
|
|
; extra TextEdit computing time will not be counted between clicks
|
||
|
|
|
||
|
|
SubQ #4,SP ; make room for the tickCount
|
||
|
|
_TickCount
|
||
|
|
Move.L (SP)+,teClikTime(A3) ; remember click time
|
||
|
|
|
||
|
|
epilog10
|
||
|
|
MoveQ #10,D0
|
||
|
|
jmpROM ROMStdExit
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
jmpROM ROM@NoSynchInTEClick
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEKeyStdEntry,StdEntry,StdEntry2
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Added testing of buffer bit at end of routine. Also added
|
||
|
|
; a new entry point for TEKey.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEKeyStdEntry
|
||
|
|
; Added new entry point for TEKey since need to save/clear textBuffering flag around this routine.<28Sept89smb>
|
||
|
|
moveq #0,d0 ; not a style trap
|
||
|
|
move.l (sp)+,a0 ; save return address
|
||
|
|
move.l (sp)+,a1 ; save newTEFlags
|
||
|
|
link a6,#stdLink ; stack frame
|
||
|
|
movem.l d2-d7/a2-a4,-(SP)
|
||
|
|
move.l a1,-(sp) ; newTEFlags to restore
|
||
|
|
move.l a0,-(sp) ; push return address back on stack
|
||
|
|
bra.s NotStyleTrap
|
||
|
|
ptchStdEntry
|
||
|
|
MoveQ #0,D0 ; not a style trap ** <C105/28aug86/MBK **
|
||
|
|
ptchStdEntry2
|
||
|
|
Move.L (SP)+,A0 ; save return address
|
||
|
|
Link A6,#stdLink ; stack frame
|
||
|
|
MoveM.L D2-D7/A2-A4,-(SP)
|
||
|
|
Move.L A0,-(SP) ; push return address back on stack
|
||
|
|
|
||
|
|
Tst.W D0 ; is it a style trap? ** <C105/28aug86/MBK **
|
||
|
|
Beq.S NotStyleTrap ; if not, skip this ** <C105/28aug86/MBK **
|
||
|
|
|
||
|
|
Move.W inHandle(A6),D0 ; get the selector ** <C105/28aug86/MBK **
|
||
|
|
LeaROM ROMAddrTable,A0 ; table of addresses ** <C105/28aug86/MBK **
|
||
|
|
Add.W D0,D0 ; each entry is 2 bytes ** <C381/5nov86/MBK **
|
||
|
|
Move.W 0(A0,D0),D0 ; get offset to the trap** <C381/5nov86/MBK **
|
||
|
|
Lea 0(A0,D0),A0 ; get trap's addr ** <C381/5nov86/MBK **
|
||
|
|
Move.L A0,D3 ; save addr in D3 ** <C381/5nov86/MBK **
|
||
|
|
|
||
|
|
Move.L inHandle+2(A6),A4 ; get TEHandle ** <C105/28aug86/MBK **
|
||
|
|
Bra.S StyleTrap
|
||
|
|
NotStyleTrap
|
||
|
|
MoveQ #0,D3 ; use D3 as a flag ** <C105/28aug86/MBK **
|
||
|
|
Move.L inHandle(A6),A4 ; Pop handle into A4
|
||
|
|
|
||
|
|
; Modified to use _HGetState ** <C105/5sep86/MBK> **
|
||
|
|
StyleTrap
|
||
|
|
Move.L A4,A0 ; set up for GetState
|
||
|
|
_HGetState ; get handle flags
|
||
|
|
Move.B D0,saveHandle(A6) ; save handle flags
|
||
|
|
|
||
|
|
Pea savePort(A6) ; save incoming port
|
||
|
|
_GetPort ;
|
||
|
|
|
||
|
|
Move.L A4,A0 ; get the TEHandle
|
||
|
|
_HLock
|
||
|
|
|
||
|
|
Move.L (A4),A3 ; Dereference into A3 ** <C381/8nov86/MBK **
|
||
|
|
|
||
|
|
; Do all safety related entry stuff
|
||
|
|
Move.L teGrafPort(A3),A2 ; save "thePort" for below
|
||
|
|
Move.L A2,-(SP) ; set to our port
|
||
|
|
_SetPort
|
||
|
|
|
||
|
|
; Get clip from this port into rgn defined above
|
||
|
|
SubQ #4,SP ; make room for clip
|
||
|
|
_NewRgn
|
||
|
|
Move.L (SP),saveClip(A6) ; save user's clip in frame
|
||
|
|
Move.L (SP),-(SP) ; stay on stack for sectrgn below
|
||
|
|
_GetClip ;
|
||
|
|
|
||
|
|
Pea teViewRect(A3) ; clip to viewRect
|
||
|
|
_ClipRect
|
||
|
|
|
||
|
|
; First param on stack from above. Do not pass go. Do not collect $200
|
||
|
|
Move.L clipRgn(A2),-(SP)
|
||
|
|
Move.L (SP),-(SP) ; destination
|
||
|
|
_SectRgn
|
||
|
|
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
; Set up font, etc. AFTER saving the grafport information! <19>
|
||
|
|
move.l teGrafPort(a3),a0 ; pt to GrafPort
|
||
|
|
move.w txFont(a0),saveFont(a6) ; save current font
|
||
|
|
bclr #7,txFace+1(a0) ; in case direction set here <30May89smb>
|
||
|
|
move.w txFace(a0),saveFace(a6) ; save current face
|
||
|
|
move.w txSize(a0),saveSize(a6) ; save current size
|
||
|
|
pea saveColor(a6) ; place to save color ** <C182/60ct86/MBK> **
|
||
|
|
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bmi.s DontSet ; don't set style ** MBK 6/20/86 **
|
||
|
|
|
||
|
|
move.l teFontStuff(A3),txFont(A0) ; set the font/face
|
||
|
|
move.l teFontStuff+4(A3),txFont+4(A0) ; set the mode/size
|
||
|
|
|
||
|
|
DontSet
|
||
|
|
ELSE
|
||
|
|
Move.L teGrafPort(A3),A0 ; pt to GrafPort
|
||
|
|
|
||
|
|
Tst.W teSize(A3) ; check style flag
|
||
|
|
Bmi.S DontSet ; don't set style ** MBK 6/20/86 **
|
||
|
|
|
||
|
|
Move.L teFontStuff(A3),txFont(A0) ; set the font/face
|
||
|
|
Move.L teFontStuff+4(A3),txFont+4(A0) ; set the mode/size
|
||
|
|
|
||
|
|
DontSet Move.W txFont(A0),saveFont(A6) ; save current font
|
||
|
|
bclr #7,txFace+1(a0) ; in case direction set here <30May89smb>
|
||
|
|
Move.W txFace(A0),saveFace(A6) ; save current face
|
||
|
|
Move.W txSize(A0),saveSize(A6) ; save current size
|
||
|
|
Pea saveColor(A6) ; place to save color ** <C182/60ct86/MBK> **
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
Move.W teMode(A3),txMode(A0) ; do set the mode ** <C815/13feb87/MBK **
|
||
|
|
_GetForeColor ; for Ikki ** <C182/6oct86/MBK> **
|
||
|
|
|
||
|
|
Move.L teTextH(A3),A0 ; get handle size
|
||
|
|
|
||
|
|
_HGetState ; get the text handle's tag
|
||
|
|
Move.B D0,saveTH(A6) ; and save the flags
|
||
|
|
_HLock ; and lock it
|
||
|
|
|
||
|
|
_GetHandleSize ; get its size
|
||
|
|
Move D0,teLength(A3) ; stuff its length
|
||
|
|
|
||
|
|
; Clean up the selection (This must be the last guy because of alternate entry)
|
||
|
|
|
||
|
|
CleanUpSel
|
||
|
|
Move teLength(A3),D0 ; get the text length
|
||
|
|
|
||
|
|
Move teSelEnd(A3),D1 ; make sure selEnd is cool
|
||
|
|
Sub D0,D1 ; selEnd-length
|
||
|
|
Bls.S okSelEnd ; if >0 then bad selend
|
||
|
|
Move D0,teSelEnd(A3) ; set to length if > length
|
||
|
|
okSelEnd
|
||
|
|
|
||
|
|
Move teSelStart(A3),D1 ; make sure selStart is cool
|
||
|
|
Sub teSelEnd(A3),D1 ; selStart-selend
|
||
|
|
Bls.S okSelStart ; if >0 then bad selStart
|
||
|
|
Sub D1,teSelStart(A3) ; set to selend if > selend
|
||
|
|
okSelStart
|
||
|
|
jsrROM ROMSelSort ; I wish i could fall into it
|
||
|
|
|
||
|
|
Tst.L D3 ; addr of style trap? ** <C105/28aug86/MBK **
|
||
|
|
Beq.S @2 ; if not, skip this ** <C105/28aug86/MBK **
|
||
|
|
|
||
|
|
Move.L D3,A0 ; return it in A0 ** <C381/5nov86/MBK **
|
||
|
|
Lea inHandle+6(A6),A2 ; pt to next param ** <C105/28aug86/MBK **
|
||
|
|
Bra.S endEntry ; that's it ** <C105/28aug86/MBK **
|
||
|
|
|
||
|
|
@2 Lea inHandle+4(A6),A2 ; Point to next to last param
|
||
|
|
; (1st on stack after handle)
|
||
|
|
endEntry
|
||
|
|
; dump text buffer before processing any calls <28Sept89smb>
|
||
|
|
move.l a0,-(sp)
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops
|
||
|
|
btst #teFTextBuffering,d0 ; <28Sept89smb>
|
||
|
|
beq.s @noBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
move.l (sp)+,a0
|
||
|
|
|
||
|
|
; if the selector corresponds to TEFeatureFlag then go to patched code here <28Sept89smb>
|
||
|
|
cmpROM ROMTEFeatureFlag,a0
|
||
|
|
beq.s ptchTEFeatureFlag
|
||
|
|
; if the selector corresponds to TEGetPoint then go to patched code here <16Nov89smb>
|
||
|
|
cmpROM ROMTEGetPoint,a0
|
||
|
|
beq ptchTEGetPoint
|
||
|
|
; if the selector corresponds to TESetStyle then go to patched code here <7Dec89smb>
|
||
|
|
cmpROM ROMTESetStyle,a0
|
||
|
|
beq.s ptchTESetStyle
|
||
|
|
Rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchTEFeatureFlag
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Moved newTEFlags longword into a register for modulo 32 bit
|
||
|
|
; operations.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEFeatureFlag
|
||
|
|
adda.l #4,sp ; pop TEDispatch's return address
|
||
|
|
moveq #0,d0
|
||
|
|
moveq #0,d1
|
||
|
|
move.w (a2)+,d0 ; action
|
||
|
|
move.w (a2)+,d1 ; verb bit (which feature to affect)
|
||
|
|
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d2 ; move into reg for modulo 32 bit ops <15Sept89smb>
|
||
|
|
clr.w (a2) ; <6Oct89smb> necessary so the return result of 'clear' is correct.
|
||
|
|
btst d1,d2 ; <15Sept89smb>
|
||
|
|
sne (a2) ; save result
|
||
|
|
|
||
|
|
tst.w d0 ; whatcha wanna do?
|
||
|
|
blt.s @done ; action = testFlag; result already on stack
|
||
|
|
beq.s @clear
|
||
|
|
bset d1,d2 ; action = setFlag <15Sept89smb>
|
||
|
|
bra.s @done
|
||
|
|
@clear
|
||
|
|
bclr d1,d2 ; action = clearFlag <15Sept89smb>
|
||
|
|
@done
|
||
|
|
move.l d2,newTEFlags(a0) ; <15Sept89smb>
|
||
|
|
tst.b (a2) ; <13Sept89smb>
|
||
|
|
beq.s @OK
|
||
|
|
move.w #1,(a2)
|
||
|
|
@OK
|
||
|
|
moveq #10,d0 ; # of bytes on stack (include selector!)
|
||
|
|
jmpROM ROMStdExit2
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEGetPoint
|
||
|
|
; <16Nov89smb> Need TEFormatOrder record due to VisibleLength
|
||
|
|
; changes in LineWidth (which is called from here by LineRect.)
|
||
|
|
; <7Dec89smb> Fixed use of teForceLeft justification.
|
||
|
|
; <16Dec89smb> Remove TEDispatch return address from stack.
|
||
|
|
; <1/8/90smb> Special case of 0 length in teRec returned invalid results.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEGetPoint
|
||
|
|
|
||
|
|
addq.l #4,sp ; Clean up from ptchStdEntry jump.<16Dec89smb>
|
||
|
|
move.w (a2)+,d0 ; get the offset
|
||
|
|
move.l a2,-(sp) ; preserve parameter ptr
|
||
|
|
move.w d0,-(sp) ; preserve offset
|
||
|
|
cmp.w teLength(a3),d0 ; pin it to the length
|
||
|
|
blo.s @LengthOK ; ok if less or same
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; special case of 0 length and any offset: set the point to the DestRect's left/right edge and use
|
||
|
|
; the lineHeight + the DestRect's top. <1/8/90smb>
|
||
|
|
cmpi.w #0,teLength(a3) ; is it a 0 length record? <1/8/90smb>
|
||
|
|
bne.s @OffsetGELength ; bra if length <> 0 => offset >= length
|
||
|
|
; set up return point to be valid (or at least more correct than it was!)
|
||
|
|
lea teDestRect+8(a3),a0 ; point past destRect
|
||
|
|
lea teSelRect+8(a3),a1 ; and past stack rect
|
||
|
|
move.l -(a0),-(a1) ; copying teDestRect to teSelRect
|
||
|
|
move.l -(a0),-(a1) ; copying teDestRect to teSelRect
|
||
|
|
|
||
|
|
move top(a1),bottom(a1) ; temporarily the same
|
||
|
|
moveq #0,d0 ; current line
|
||
|
|
jsrROM ROMGetHite ; height of this line returned in d1
|
||
|
|
add d1,bottom(a1) ; add line height to get bottom bound of line rect
|
||
|
|
addq #1,teSelRect+left(A3) ; indent for caret in case L just
|
||
|
|
adda.l #2,sp ; pop offset
|
||
|
|
bra.s @AssumeLeftJust
|
||
|
|
; finished w/ changes <1/8/90smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@OffsetGELength
|
||
|
|
|
||
|
|
move.w teLength(a3),d0 ; else pin to end
|
||
|
|
move.w d0,(sp) ; replace offset
|
||
|
|
subq #1,d0 ; just for GetLine
|
||
|
|
|
||
|
|
@LengthOK
|
||
|
|
lea teLines(a3),a2 ; pt to start of array
|
||
|
|
jsrROM ROMGetLine ; get ptr to line it's on
|
||
|
|
|
||
|
|
with TextFrame,TEFormatOrder ; <1Nov89smb>
|
||
|
|
link a6,#TextFrameSz ; for LineRect: calls FormatOrder code <1Nov89smb>
|
||
|
|
jsrROM ROMLineRect ; sets up selRect from destRect and justification
|
||
|
|
unlk a6 ; <1Nov89smb>
|
||
|
|
move.w (a2),d6 ; start of line
|
||
|
|
move.w (sp)+,d7 ; offset to measure to
|
||
|
|
|
||
|
|
; If the last char is a CR, the h coord should be at the beginning of the next line after the CR
|
||
|
|
; (the v coord was correct, but the h was at the point preceding the CR on the previous line).
|
||
|
|
cmp.w teLength(a3),d7 ; is offset = text length?
|
||
|
|
bne.s @DoEndOfLine ; skip CR test if not
|
||
|
|
move.l teTextH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
cmp.b #returnChar,-1(a0,d7) ; if last char = CR then...
|
||
|
|
bne.s @DoEndOfLine
|
||
|
|
@AssumeLeftJust
|
||
|
|
; assume left justification
|
||
|
|
move.w teSelRect+left(a3),d0
|
||
|
|
move.w teJust(a3),d1
|
||
|
|
bne.s @DoNonLeftJust
|
||
|
|
move.w TESysJust,d1
|
||
|
|
beq.s @DoTheJustThing
|
||
|
|
|
||
|
|
@DoNonLeftJust
|
||
|
|
; <7Dec89smb> move test to teForceLeft to where it's useful!
|
||
|
|
cmp.w #teForceLeft,d1 ; <7Dec89smb>
|
||
|
|
beq.s @DoTheJustThing ; <7Dec89smb>
|
||
|
|
jmpROM ROMinTEGetPoint ; right or center justification
|
||
|
|
@DoEndOfLine
|
||
|
|
IF forLocalizability THEN ; fix for TEGetPoint Bug <34h-YDS-9/2/91>
|
||
|
|
move.l ExpandMem,a0 ; do we have more then the roman script
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a0)
|
||
|
|
beq.s @romanMeas ; use MeasureIt
|
||
|
|
link a6,#TextFrameSz ; DoMeasure uses a stack frame
|
||
|
|
bsr ptchWholeDoMeasure ; measure with LR styles
|
||
|
|
unlk a6
|
||
|
|
add.w teSelRect+left(A3),d0 ; add in justification
|
||
|
|
bra.s @DoTheJustThing
|
||
|
|
ENDIF
|
||
|
|
@romanMeas jmpROM ROM@DoEndOfLine
|
||
|
|
|
||
|
|
@DoTheJustThing
|
||
|
|
jmpROM ROM@DoTheJustThing
|
||
|
|
endWith
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchDumpBuffer
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Added call to SetFont2Keyboard, wasn't fetching handle
|
||
|
|
; correctly for disposing, turned off buffering bit in newTEFlags,
|
||
|
|
; and fixed setup before PasteGuts call.
|
||
|
|
; <16Nov89smb>
|
||
|
|
; Replaced use of emBufferPtr by dereferencing emBufferHandle; misc.
|
||
|
|
; other cleanup.
|
||
|
|
; <7Dec89smb> Changed d2.l to d2.w to get character at correct address.
|
||
|
|
; <1/29/90smb> No longer call SetFont2Keyboard.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDumpBuffer
|
||
|
|
dumpRegs reg d0-d7/a1-a2 ; don't save a3/a4! creating a dangling ptr w/ a3 <20>
|
||
|
|
|
||
|
|
movem.l dumpRegs,-(sp)
|
||
|
|
moveq.l #0,d3
|
||
|
|
move.l ExpandMem,a2 ; <1Feb89smb> buffer is 0 -> n-1
|
||
|
|
lea ExpandMemRec.emBufferLen(a2),a2 ; changed to lea <12July89smb>
|
||
|
|
move.w (a2),d2 ; buffer length, n
|
||
|
|
; test if buffer is empty
|
||
|
|
beq @Empty ; nothing to dump
|
||
|
|
|
||
|
|
; test last (n-1) character in buffer to see if is double-byte char
|
||
|
|
subq.w #1,d2
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb> pointer to buffer of chars
|
||
|
|
move.l ExpandMemRec.emBufferHandle(a1),a1 ; <13Nov89smb>
|
||
|
|
move.l (a1),a1 ; deref for pointer <13Nov89smb>
|
||
|
|
|
||
|
|
movem.l a1/d2,-(sp) ; preserve, for unstyled too!<17Sept89smb>
|
||
|
|
tst.w teSize(a3) ; if unstyled, can't synch font to keyboard <12Sept89smb>
|
||
|
|
bpl.s @NoSynch ; <12Sept89smb>
|
||
|
|
move.w teSelStart(a3),d0 ; pass current position <12Sept89smb>
|
||
|
|
beq.s @ZeroOffset ; skip test if zero <12Sept89smb>
|
||
|
|
sub.w #1,d0 ; backup one to get previous style <12Sept89smb>
|
||
|
|
@ZeroOffset
|
||
|
|
; just need to use the current position's font: no need to call SetFont2Keyboard! <1/29/90smb>
|
||
|
|
;; <1/29/90smb> bsr SetFont2Keyboard ; <12Sept89smb>
|
||
|
|
jsrROM ROMGetCurStyle ; <1/29/90smb>
|
||
|
|
jsrROM ROMSetStyle ; <1/29/90smb>
|
||
|
|
movem.l (sp),a1/d2 ; restore but don't pop yet <16Nov89smb>
|
||
|
|
@NoSynch
|
||
|
|
clr.w -(sp) ; room for return
|
||
|
|
move.l a1,-(sp) ; use a1 now not the contents of it! <13Nov89smb>
|
||
|
|
move.w d2,-(sp) ; offset in buffer
|
||
|
|
_CharByte
|
||
|
|
move.w (sp)+,d7 ; pop result
|
||
|
|
movem.l (sp)+,a1/d2 ; restore <13Nov89smb>
|
||
|
|
tst.w d7 ; high byte of character?
|
||
|
|
bge.s @GoDump ; no
|
||
|
|
|
||
|
|
; yep, gotta save it
|
||
|
|
move.b (a1,d2.w),d3 ; changed to d2.w <7Dec89smb>
|
||
|
|
subq.w #1,(a2) ; new length to paste
|
||
|
|
beq.s @Only1Char ; short cut <13Nov89smb>
|
||
|
|
@GoDump
|
||
|
|
; must turn off buffering bit since PasteGuts calls _TEPinScroll which calls StdEntry.
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),-(sp)
|
||
|
|
bclr #teFTextBuffering,newTEFlags+3(a0)
|
||
|
|
|
||
|
|
;setUp for buffer dump
|
||
|
|
move.l a1,d6 ; pointer to text to insert (for PasteGuts) <13Nov89smb>
|
||
|
|
moveq #0,d5 ; need high word cleared (for PasteGuts) <14Sept89smb>
|
||
|
|
move.w (a2),d5 ; length of text to insert
|
||
|
|
movem.l d3/a1/a2,-(sp)
|
||
|
|
moveq #0,d7 ; want to call ExtendStyle
|
||
|
|
jsrROM ROMPasteGuts
|
||
|
|
movem.l (sp)+,d3/a1/a2
|
||
|
|
|
||
|
|
; restore buffering bit
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l (sp)+,newTEFlags(a0)
|
||
|
|
|
||
|
|
; test if need to rebuffer 1st byte of double-byte character.
|
||
|
|
tst.b d3 ; place holder for character
|
||
|
|
beq.s @DeleteHandle
|
||
|
|
|
||
|
|
; last byte in buffer was 1st byte of a double-byte charaacter. Rebuffer it.
|
||
|
|
move.b d3,(a1) ; <13Nov89smb>
|
||
|
|
@Only1Char
|
||
|
|
move.w #1,(a2) ; incr length for byte
|
||
|
|
bra.s @Empty
|
||
|
|
|
||
|
|
@DeleteHandle
|
||
|
|
; deallocate the handle
|
||
|
|
move.l ExpandMem,a0
|
||
|
|
move.l ExpandMemRec.emBufferHandle(a0),a0 ; get to handle! <19Sept89smb>
|
||
|
|
_DisposHandle
|
||
|
|
bne SysErr ; <19Sept89smb>
|
||
|
|
move.w #0,(a2) ; set buffer length to zero. Used as a flag.
|
||
|
|
IF hasBufferingFix THEN ; <17>
|
||
|
|
move.l ExpandMem,a0 ; length is initially zero so clear storage for handle <17>
|
||
|
|
clr.l ExpandMemRec.emBufferHandle(a0) ; flags a disposed handle <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
@Empty
|
||
|
|
movem.l (sp)+,dumpRegs
|
||
|
|
rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchBufferChar
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Test the length, rather than the ptr, to determine if a byte
|
||
|
|
; already buffered.
|
||
|
|
; <16Nov89smb>
|
||
|
|
; Must set the emBufferLen since it is used to determine if a
|
||
|
|
; char has been buffered.
|
||
|
|
; <7Dec89smb>
|
||
|
|
; Now using emBufferHandle for storage instead of emBufferPtr.
|
||
|
|
; <1/9/90smb>
|
||
|
|
; Now using TEDispatchRec for storage instead of ExpandMem.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchBufferChar
|
||
|
|
; now buffering a double-byte character in the newTEFlags space off the dispatch record. <1/9/90smb> move.l teDispatchH(a3),a0
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
lea TwoByteCharBuffer(a0),a0 ; move into reg for modulo 32 bit ops
|
||
|
|
tst.b (a0) ; test for existance of first byte
|
||
|
|
beq.s Empty
|
||
|
|
|
||
|
|
move.b 1(a2),1(a0) ; 2nd byte of double byte char
|
||
|
|
move.l a0,D6 ; pointer to 2byte character (f. PasteGuts)
|
||
|
|
add.w #1,D5 ; length = 2 bytes (f. PasteGuts)
|
||
|
|
bra.s GoPaste
|
||
|
|
|
||
|
|
Empty ; possible first byte of 2 byte char
|
||
|
|
move.b 1(a2),(a0) ; buffer character; 2 byte?
|
||
|
|
tst.w teSize(A3) ; check style flag
|
||
|
|
bpl.S @DontSet ; don't set style
|
||
|
|
|
||
|
|
move.w teSelStart(a3),d0 ; pass current position
|
||
|
|
beq.s @1 ; skip test if zero
|
||
|
|
sub.w #1,d0 ; backup one to get previous style
|
||
|
|
@1
|
||
|
|
; On a Kanji script system when the styled teRec is created, the current grafport's font is
|
||
|
|
; the font in the initial style run of 0 characters. If it's created with a Roman
|
||
|
|
; font and then the keyboard is switched to Japanese to enter Kanji, via the input window
|
||
|
|
; (different unstyled teRec), the font for the 0th posn is still Roman, rather than Kanji,
|
||
|
|
; when it's used here. Hence must set the grafport via the SetFont2Keyboard code. <2Sept89smb>
|
||
|
|
import ptchSetFont2Keyboard
|
||
|
|
jsr ptchSetFont2Keyboard ; <2Sept89smb>
|
||
|
|
@DontSet
|
||
|
|
; now test with charbyte
|
||
|
|
clr.w -(sp) ; room for return
|
||
|
|
move.l d6,-(sp) ; pointer to character
|
||
|
|
move.w #0,-(sp) ; offset in buffer
|
||
|
|
_CharByte
|
||
|
|
tst.w (sp)+ ; high byte of character?
|
||
|
|
GoPaste
|
||
|
|
rts
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchTEBufferText
|
||
|
|
; <28Sept89smb>
|
||
|
|
; Test the length to determine if a byte already buffered. Also,
|
||
|
|
; if dumped the buffer here, loop again to add the char.
|
||
|
|
; <16Nov89smb>
|
||
|
|
; Must dereference the emBufferHandle rather than use the emBufferPtr.
|
||
|
|
; <2/28/90smb> Must set d0 before calling SetFont2Keyboard.
|
||
|
|
; <9/19/90smb> Preserve the expandmem ptr around the SetFont2Keyboard call,
|
||
|
|
; and test if the buffer was dumped during that call. <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEBufferText
|
||
|
|
; does a pointer to a buffer already exist?
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
;; tst.w ExpandMemRec.emBufferLen(a1) ; <14Sept89smb> test for zero len <18>
|
||
|
|
tst.l ExpandMemRec.emBufferHandle(a1) ; test for no buffer (using handle now for consistency) <18>
|
||
|
|
bne.s @HaveBuffer
|
||
|
|
@GetBuffer
|
||
|
|
moveq #BufferSize,d0 ; longize <17>
|
||
|
|
IF SysVers>=$700 THEN
|
||
|
|
bsr ptchGetHandle ; <20>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMGetHandle ; allocate handle for buffer; in a0
|
||
|
|
ENDIF
|
||
|
|
; dereference the handle and save
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb>
|
||
|
|
move.l a0,ExpandMemRec.emBufferHandle(a1) ; save handle
|
||
|
|
|
||
|
|
@HaveBuffer
|
||
|
|
; if keybd changes in the middle of buffering must dump the buffer and synch the font to the keybd. <1/26/90smb>
|
||
|
|
; must set d0 to the current position before calling SetFont2Keyboard<2/28/90smb>
|
||
|
|
tst.w teSize(a3) ; check style flag
|
||
|
|
bpl.S @DontSet ; don't set style
|
||
|
|
move.w teSelStart(a3),d0 ; pass current position <2/28/90smb>
|
||
|
|
beq.s @SynchUp ; skip test if zero <2/28/90smb>
|
||
|
|
sub.w #1,d0 ; backup one to get previous style <2/28/90smb>
|
||
|
|
@SynchUp
|
||
|
|
import ptchSetFont2Keyboard
|
||
|
|
jsr ptchSetFont2Keyboard ; <1/26/90smb>
|
||
|
|
IF hasBufferingFix THEN ; <17>
|
||
|
|
move.l ExpandMem,a1 ; reload ExpandMem ptr <17>
|
||
|
|
; SetFont2Keyboard may have called DumpBuffer so test for a deallocated handle <17>
|
||
|
|
tst.l ExpandMemRec.emBufferHandle(a1) ; is this zero? <17>
|
||
|
|
beq.s @GetBuffer ; if so, then get another storage handle <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
@DontSet
|
||
|
|
move.l ExpandMemRec.emBufferHandle(a1),a0 ; get handle of storage space <13Nov89smb>
|
||
|
|
move.l (a0),a0 ; get to storage space <13Nov89smb>
|
||
|
|
IF hasBufferingFix THEN ; <17>
|
||
|
|
moveq #0,d0 ; longize <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
move.w ExpandMemRec.emBufferLen(a1),d0 ; <1Feb89smb> length = number of bytes already in buffer
|
||
|
|
; have we maxed out on the buffer?
|
||
|
|
cmpi.w #BufferSize,d0
|
||
|
|
bne.s @MoreRoom
|
||
|
|
bsr.s ptchDumpBuffer
|
||
|
|
IF hasBufferingFix THEN ; <17>
|
||
|
|
tst.l ExpandMemRec.emBufferHandle(a1) ; the high byte of a char may be in the buffer <17>
|
||
|
|
beq.s @GetBuffer ; if empty then ok to get another handle <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
bra.s @GetBuffer
|
||
|
|
ENDIF ; <17>
|
||
|
|
@MoreRoom
|
||
|
|
jmpROM ROM@MoreRoom
|
||
|
|
|
||
|
|
IF SysVers>= $700 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchGetHandle
|
||
|
|
; <17Jan90smb> Allocate this handle in the System heap now
|
||
|
|
; rather than the application's heap since it's a global buffer. <20>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetHandle
|
||
|
|
_NewHandle ,SYS,CLEAR ; allocate & clear a block in System heap now <20>
|
||
|
|
jmpROM ROMinGetHandle ; back to you, ROM…
|
||
|
|
ENDIF
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchGetWidth
|
||
|
|
; <14Nov89smb> Added a fix to only measure up to the visible length.
|
||
|
|
; <2/8/90smb> Must patch TEWidthHook which is called here.
|
||
|
|
; <9/20/90smb> Call TETextWidthHook now. <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetWidth
|
||
|
|
tst.w teSize(A3) ; record with style?
|
||
|
|
bpl.s @Unstyled ; if not, A0 is nothing
|
||
|
|
; styled text
|
||
|
|
Move.L teStylesH(a3),a1 ; get style handle
|
||
|
|
Move.L (a1),a1 ; dereference
|
||
|
|
Sub.L a1,a0 ; save as offset
|
||
|
|
@Unstyled
|
||
|
|
Move.L a0,-(SP) ; save A0
|
||
|
|
Move.L teTextH(a3),a0 ; get text handle
|
||
|
|
Move.L (a0),a0 ; dereference
|
||
|
|
|
||
|
|
; get start of text into a0, max(d7,d0)-d6 into d1 <27June88smb>
|
||
|
|
|
||
|
|
add.w d6,a0 ; point at real start of text
|
||
|
|
move.w d7,d1 ; get the end
|
||
|
|
|
||
|
|
; adjust the start of the next style run to max at the end of the line <22Sept88smb>
|
||
|
|
cmp.w 2(a2),d0 ; length > end of line
|
||
|
|
bls.s @GotStyleEnd ; ok
|
||
|
|
move.w 2(a2),d0 ; fix it.
|
||
|
|
@GotStyleEnd
|
||
|
|
|
||
|
|
; pick the min of the style run end and the text end <26Sept88smb>
|
||
|
|
sub.w d6,d0 ; sub start of text from end
|
||
|
|
sub.w d6,d1 ; sub start of text from offset
|
||
|
|
blt.s @FullStyleRun ; d1 outside of range <26Sept88smb>
|
||
|
|
|
||
|
|
cmp.w d0,d1 ; d1 higher than range,
|
||
|
|
IF forLocalizability THEN ; <34k-YDS-9/2/91>
|
||
|
|
bgt.s @FullStyleRun ; allow measure when equal too (for R->L)
|
||
|
|
ELSE
|
||
|
|
bcc.s @FullStyleRun ; bail: want to bra on equal too. <19June89smb> <26June89smb> made unsigned
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
; if drawing, then try this out! use textWidth for draw and C2P for caret. <21Sept88smb>
|
||
|
|
move.l ExpandMem,a1 ; <1Feb89smb> full line flag
|
||
|
|
tst.b ExpandMemRec.emMeasureLine(a1) ; line width flag set?
|
||
|
|
beq.s @UseChar2Pixel ; no, do real stuff <22Sept88smb>
|
||
|
|
|
||
|
|
; we are measuring the whole line, BUT we only want to measure up to visible length <6Nov89smb>
|
||
|
|
cmp.w d0,d1 ; take the minimum <6Nov89smb>
|
||
|
|
bhs.s @FullStyleRun ; d0 < d1, so skip <6Nov89smb>
|
||
|
|
move.w d1,d0 ; stuff the visibleLength <6Nov89smb>
|
||
|
|
|
||
|
|
;; replaced next 4 lines <2/8/90smb>
|
||
|
|
;;@FullStyleRun
|
||
|
|
;; jmpROM ROM@FullStyleRun
|
||
|
|
;;@UseChar2Pixel
|
||
|
|
;; jmpROM ROM@UseChar2Pixel
|
||
|
|
; the rest of this routine is new as of <2/8/90smb>
|
||
|
|
@FullStyleRun
|
||
|
|
; don't test interior of style run
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
moveq #0,d1 ; wants offset here <17>
|
||
|
|
import TETextWidthHook ; <17>
|
||
|
|
jsr TETextWidthHook ; hook out TextWidth <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
clr.w -(sp) ; allocate return <21Sept88smb>
|
||
|
|
move.l a0,-(sp) ; pointer
|
||
|
|
move.w #0,-(sp) ; no first byte
|
||
|
|
move.w d0,-(sp) ; bytecount
|
||
|
|
_TextWidth ; go for it
|
||
|
|
move.w (sp)+,d1 ; got the width
|
||
|
|
ENDIF ; <17>
|
||
|
|
bra @Continue ; rejoin <21Sept88smb>
|
||
|
|
|
||
|
|
@UseChar2Pixel
|
||
|
|
MoveQ #smHilite,D2 ; hilite flag <27June88smb>
|
||
|
|
swap d2 ; hilite in high word; slop in low <27June88smb> ** <C139/22Sep86/MBK> **
|
||
|
|
|
||
|
|
import ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
jsr ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
@Continue
|
||
|
|
Move.L (SP)+,A0 ; restore A0
|
||
|
|
|
||
|
|
Tst.W teSize(A3) ; record with style?
|
||
|
|
Bpl.S @done ; if not, A0 is nothing
|
||
|
|
|
||
|
|
Move.L teStylesH(A3),A1 ; get style handle
|
||
|
|
Move.L (A1),A1 ; dereference
|
||
|
|
Add.L A1,A0 ; restore as pointer
|
||
|
|
@done
|
||
|
|
Rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; ptchGetRLPosition
|
||
|
|
; <20Nov89smb>
|
||
|
|
; Test if the CR is at the end of the document by checking if
|
||
|
|
; at end of lineStarts array. This is necessary since we're
|
||
|
|
; using 2(a2) as a condition for getting the next style run. However,
|
||
|
|
; if there isn't another style run, we read random memory and
|
||
|
|
; sometimes crash! Called only by CaretDisplay.
|
||
|
|
; <9/20/90smb> Patched to call ptchMeasureWholeRun for
|
||
|
|
; TextWidth hook.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetRLPosition
|
||
|
|
RLPosnRegs reg a0
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
movem.l RLPosnRegs,-(sp)
|
||
|
|
sf doneFlag(a6)
|
||
|
|
clr.w highCaret(a6) ; set lineEndFlag and highCaret to F. <6mar89smb>
|
||
|
|
st gotOneRun(a6)
|
||
|
|
clr.l d2 ; used for direction params for C2P
|
||
|
|
|
||
|
|
; save original edges of selection rectangle
|
||
|
|
move.l a2,-(sp)
|
||
|
|
lea teSelRect+top(a3),a1
|
||
|
|
lea selRectT(a6),a2
|
||
|
|
move.l (a1)+,(a2)+
|
||
|
|
move.l (a1)+,(a2)+
|
||
|
|
move.l (sp)+,a2
|
||
|
|
|
||
|
|
tst.b onBoundaryFlag(a6) ; cursor on boundary of run
|
||
|
|
beq @InRLMiddle
|
||
|
|
tst.w teSize(a3) ; need to test if on a block boundary for
|
||
|
|
bpl @InRLMiddle ; old-styled TE <1Dec88smb>
|
||
|
|
|
||
|
|
; on a boundary so must test scripts of surrounding style runs (backing-store order) to
|
||
|
|
; determine if on a cluster boundary.
|
||
|
|
jsrROM ROMGetDirection ; get this style run's direction in byte of d1 <7June89smb>
|
||
|
|
tst.b prevStyleFlag(a6) ; test if at end or beginning of cursor style run
|
||
|
|
beq.s @GotCursorStyle
|
||
|
|
|
||
|
|
; got script for style run previous to cursor style run
|
||
|
|
move.b d1,previousScriptDir(a6) ; <7June89smb>
|
||
|
|
|
||
|
|
; test for EOL cluster boundary since in previous style run <8Nov88smb>
|
||
|
|
cmp.w 2(a2),d3 ; is cursor posn at EOL?
|
||
|
|
beq @LineEnd
|
||
|
|
|
||
|
|
; if already at EOL then make sure not looking beyond lineStarts array <20Nov89smb>
|
||
|
|
move.l a0,-(sp)
|
||
|
|
lea 2(a2),a0
|
||
|
|
lea teLines(a3),a1 ; <20Nov89smb>
|
||
|
|
move.w teNLines(a3),d0 ; get num of lines <20Nov89smb>
|
||
|
|
add.w d0,d0 ; double for words <20Nov89smb>
|
||
|
|
adda.w d0,a1 ; <20Nov89smb>
|
||
|
|
cmpa.l a1,a0 ; <20Nov89smb>
|
||
|
|
movem.l (sp)+,a0 ; <20Nov89smb>
|
||
|
|
bgt.s @LineEnd ; bra if beyond end <20Nov89smb>
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <34a-YDS-9/2/91> - big apple link bug <3>
|
||
|
|
; had to patch since we call SetUp2Rectangles
|
||
|
|
; truly in the lineStarts array!
|
||
|
|
move.l a0,-(sp) ; save <21June89smb>
|
||
|
|
addq.l #stStartSize,a0 ; in previous style run, so need next style run
|
||
|
|
bra.s @GetScript
|
||
|
|
|
||
|
|
@GotCursorStyle
|
||
|
|
; got script for cursor style run
|
||
|
|
move.b d1,cursorScriptDir(a6) ; <7June89smb>
|
||
|
|
; test for BOL cluster boundary since in cursor style run <8Nov88smb>
|
||
|
|
cmp.w (a2),d3 ; is cursor posn at BOL?
|
||
|
|
beq.s @LineEnd
|
||
|
|
move.l a0,-(sp) ; save <21June89smb>
|
||
|
|
subq.l #stStartSize,a0 ; at beginning so need to check previous style run
|
||
|
|
|
||
|
|
@GetScript
|
||
|
|
; get the other style run's direction (in display order!)
|
||
|
|
jsrROM ROMGetDirection ; <7June89smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
beq.s @GotPrevStyleNow
|
||
|
|
move.b d1,cursorScriptDir(a6) ; <7June89smb>
|
||
|
|
bra.s @CmpDirs ; <7June8smb>
|
||
|
|
|
||
|
|
@GotPrevStyleNow
|
||
|
|
move.b d1,previousScriptDir(a6) ; <7June89smb>
|
||
|
|
|
||
|
|
@CmpDirs
|
||
|
|
move.l (sp)+,a0 ; restore <21June89smb>
|
||
|
|
; compare scripts to see if on a cluster boundary
|
||
|
|
move.b cursorScriptDir(a6),d0
|
||
|
|
cmp.b previousScriptDir(a6),d0
|
||
|
|
bne.s @ClusterBoundary
|
||
|
|
; same script so display one cursor
|
||
|
|
jsrROM ROMOneCursor ; added for simplicity <12/13/88smb>
|
||
|
|
bra.s @done ; <12/13/88smb>
|
||
|
|
|
||
|
|
;**********************
|
||
|
|
|
||
|
|
@ClusterBoundary
|
||
|
|
; on a cluster boundary: need split cursors
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
beq.s @GetScriptDirection ; in cursor script
|
||
|
|
move.b previousScriptDir(a6),d0
|
||
|
|
|
||
|
|
@GetScriptDirection
|
||
|
|
move.b d0,scriptDirection(a6)
|
||
|
|
cmp.b TESysJust,d0 ; added <22Dec88smb>
|
||
|
|
bne.s @DiffDirections ; added <22Dec88smb>
|
||
|
|
st highCaret(a6) ; added <22Dec88smb>
|
||
|
|
@DiffDirections
|
||
|
|
tst.b d0
|
||
|
|
bne.s @RLScript
|
||
|
|
@LRScript
|
||
|
|
; if in previous style and LR script direction then measure since at end of style run
|
||
|
|
; if in cursor style, width is 0 since at beginning of run so, have width to use <7Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne.s @MeasureRun ; bra to measure if in prevStyle's run
|
||
|
|
bra.s @SetUpTwoRects
|
||
|
|
@RLScript
|
||
|
|
; if in cursor style and RL script direction then measure since at beginning of style run
|
||
|
|
; if in previous style and RL script direction AND
|
||
|
|
; if RL flow, width is 0 since at end of run, so have width to use <7Nov88smb>
|
||
|
|
; if LR flow, then measure since at beginning of RL script run <8Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne.s @SetUpTwoRects ; bra to measure since in prevStyle's run <12July89smb>
|
||
|
|
|
||
|
|
@MeasureRun
|
||
|
|
import ptchMeasureWholeRun
|
||
|
|
jsr ptchMeasureWholeRun
|
||
|
|
add.w d0,d5
|
||
|
|
|
||
|
|
@SetUpTwoRects
|
||
|
|
; Setup two rectangles for the split cursors.
|
||
|
|
bsr.s ptchSetUp2Rectangles ; moved init of rects into proc <12July89smb>
|
||
|
|
bra.s @done
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
jmpROM ROMinGetRLPosn
|
||
|
|
@GotCursorStyle
|
||
|
|
jmpROM ROM@GotCursorStyle
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
@LineEnd jmpROM ROM@LineEnd
|
||
|
|
@InRLMiddle jmpROM ROM@InRLMiddle
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <34a-YDS-9/2/91> <3>
|
||
|
|
@done jmpROM ROM@RLDone
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <34a-YDS-9/2/91> <3>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; ptchSetUp2Rectangles
|
||
|
|
; 34a-YDS-9/2/91> - patched to fix big apple link bug
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchSetUp2Rectangles
|
||
|
|
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
|
||
|
|
add.w d5,teSelRect+left(a3) ; left edge of rectangle
|
||
|
|
add.w d5,teSelRect+right(a3) ; right edge of rectangle
|
||
|
|
; Use half a line heighth for split cursors.
|
||
|
|
move.w teSelRect+bottom(a3),d2
|
||
|
|
add.w teSelRect+top(a3),d2 ; get line height <12July89smb> performance
|
||
|
|
asr.w #1,d2 ; 1/2 line height - fix Applink bug <3.1>
|
||
|
|
jmpROM ROMinSetUp2Rectangles
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchGetLRPosition
|
||
|
|
; <2/8/90smb> Must patch TEWidthHook which is called here.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetLRPosition
|
||
|
|
move.l a0,-(sp)
|
||
|
|
; call Char2Pixel to get the pixel position for the cursor
|
||
|
|
move.l teTextH(a3),a1 ; get text handle
|
||
|
|
move.l (a1),a1 ; dereference
|
||
|
|
add.w startChar(a0),a1 ; add beginning of the style run to get to desired line
|
||
|
|
exg a1,a0 ; C2P wants text ptr here
|
||
|
|
|
||
|
|
; test if style run begins on previous line, and if so adjust text ptr & offset posn in run
|
||
|
|
moveq #0,d4
|
||
|
|
move.w (a2),d0
|
||
|
|
cmp.w startChar(a1),d0
|
||
|
|
bls.s @StyleStartOK ; <26June89smb> made unsigned
|
||
|
|
; pin to lineStart
|
||
|
|
sub.w startChar(a1),d0 ; |begin of line - begin of style run|
|
||
|
|
add.w d0,a0 ; fix text ptr
|
||
|
|
move.w d0,d4 ; save difference for length adjustment
|
||
|
|
move.w d3,d1 ; cursor posn: C2P wants offset here
|
||
|
|
sub.w (a2),d1 ; offset from start of line
|
||
|
|
bra.s @getLength
|
||
|
|
|
||
|
|
@StyleStartOK
|
||
|
|
move.w d3,d1
|
||
|
|
sub.w startChar(a1),d1 ; cursor posn relative to start of style run
|
||
|
|
|
||
|
|
@getLength
|
||
|
|
; test if style run ends on next line, and if so, pin to end of this line & adjust length
|
||
|
|
move.l a0,-(sp) ; <6Mar89smb>
|
||
|
|
move.l a1,a0 ; <6Mar89smb>
|
||
|
|
jsrROM ROMFixFormatEnd ; <6Mar89smb>
|
||
|
|
move.l (sp)+,a0 ; <6Mar89smb>
|
||
|
|
cmp.w 2(a2),d0
|
||
|
|
bls.s @UseStyleEnd ; <26June89smb> made unsigned
|
||
|
|
move.w 2(a2),d0 ; pin to line end
|
||
|
|
|
||
|
|
@UseStyleEnd
|
||
|
|
sub.w startChar(a1),d0 ; length of style run
|
||
|
|
sub.w d4,d0 ; adjust for lineStart
|
||
|
|
|
||
|
|
swap d2 ; direction:slop
|
||
|
|
|
||
|
|
import ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
jsr ptchTEWidthHook ; returns in d1 <2/8/90smb>
|
||
|
|
move.l (sp)+,a0
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; ptchOnLineEnd
|
||
|
|
;
|
||
|
|
; <34a-YDS-9/2/91> had to patch it to fix big carret bug.
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
ptchOnLineEnd
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
|
||
|
|
; at EOL/BOL. Is the style run of different persuasion then the line direction? <8Nov88smb>
|
||
|
|
jsrROM ROMGetDirection ; <30May89smb>
|
||
|
|
cmp.b TESysJust,d1 ; test if TESysJust = script direction <30May89smb>
|
||
|
|
bne.s @EOLClusterBoundary ; if not then on a EOL cluster boundary
|
||
|
|
|
||
|
|
; on a line end but the style run has the same direction as the line, so only one cursor.
|
||
|
|
st doneFlag(a6) ; modified <12/13/88smb>
|
||
|
|
tst.b d1 ; <30May89smb>
|
||
|
|
bne.s @RLDirection
|
||
|
|
|
||
|
|
; LR direction
|
||
|
|
; if in previous style and LR script direction, then measure since at end of style run
|
||
|
|
; if in cursor style, width is 0 since at beginning of run, so have width to use <7Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
bne @MeasureRun ; bra to measure if in prevStyle's run
|
||
|
|
bra @finis
|
||
|
|
|
||
|
|
@RLDirection
|
||
|
|
; if in cursor style and RL script direction then measure since at beginning of style run
|
||
|
|
; if in previous style and RL script direction AND
|
||
|
|
; if RL flow, width is 0 since at end of run so, have width to use <7Nov88smb>
|
||
|
|
; if LR flow, then measure since at beginning of RL script run <8Nov88smb>
|
||
|
|
tst.b prevStyleFlag(a6)
|
||
|
|
beq @MeasureRun ; bra to measure if in cursor's run
|
||
|
|
tst.b TESysJust
|
||
|
|
beq @MeasureRun ; LR flow but RL script
|
||
|
|
bra @finis
|
||
|
|
|
||
|
|
;***********
|
||
|
|
|
||
|
|
@EOLClusterBoundary
|
||
|
|
; on a cluster boundary at a line end => script direction different from line direction.
|
||
|
|
; need split cursors
|
||
|
|
tst.b d1 ; <30May89smb>
|
||
|
|
beq.s @LRdirection
|
||
|
|
; RL script direction
|
||
|
|
cmp.w 2(a2),d3
|
||
|
|
beq.s @AtDisplayR ; bra if d3 = lineEnd
|
||
|
|
bra.s @AtDisplayL ; d3 = lineStart
|
||
|
|
|
||
|
|
@LRdirection
|
||
|
|
; LR script direction
|
||
|
|
cmp.w (a2),d3
|
||
|
|
beq.s @AtDisplayR ; bra if d3 = lineStart
|
||
|
|
;-----------------------------------------------------------------------------------------
|
||
|
|
@AtDisplayL
|
||
|
|
; at left end of display line
|
||
|
|
; if in LR flow, RL script direction, at BOL, OR if in RL flow, LR script direction, at EOL then
|
||
|
|
; 1st cursor at left edge of screen (high caret) and
|
||
|
|
; 2nd cursor at measured end of this style run (low caret)
|
||
|
|
|
||
|
|
move.w selRectL(a6),teSelRect+left(a3) ; 1st cursor at L. edge
|
||
|
|
move.w selRectL(a6),teSelRect+right(a3)
|
||
|
|
|
||
|
|
; measure style run for second cursor
|
||
|
|
import ptchMeasureWholeRun
|
||
|
|
jsr ptchMeasureWholeRun
|
||
|
|
add.w d0,d5
|
||
|
|
st doneFlag(a6)
|
||
|
|
st lineEndFlag(a6)
|
||
|
|
; use half a line heighth for split cursors
|
||
|
|
move.w teSelRect+bottom(a3),d2
|
||
|
|
add.w teSelRect+top(a3),d2 ; get line height <12July89smb> performance
|
||
|
|
asr.w #1,d2 ; 1/2 line height - fix Applink bug
|
||
|
|
move.w d2,teSelRect+bottom(a3) ; new bottom (raised by 1/2 the heighth) <12July89smb>
|
||
|
|
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb> must save for processing at a higher level!
|
||
|
|
st ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
; The high cursor (T) goes with the line ending. the top edge is ok. Adjust the bottom. Can only
|
||
|
|
; set the top and bottom edges now. May need to measure more style runs. <12/13/88smb>
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; top, left, bottom, right <12July89smb>
|
||
|
|
move.w teSelRect+bottom(a3),(a0)+ ; top edge
|
||
|
|
addq #2,a0
|
||
|
|
move.w selRectB(a6),(a0) ; use original bottom
|
||
|
|
bra.s @finis
|
||
|
|
;-----------------------------------------------------------------------------------------
|
||
|
|
@AtDisplayR
|
||
|
|
; at right end of display line
|
||
|
|
; if in LR flow, RL script direction, at EOL, OR if in RL flow, LR script direction, at BOL then
|
||
|
|
; 1st cursor at present measured width (low caret) and
|
||
|
|
; 2nd cursor at end of all style runs on the display line (high caret) (continue measuring till out of runs)
|
||
|
|
|
||
|
|
add.w d5,teSelRect+left(a3) ; 1st cursor at present measured width
|
||
|
|
add.w d5,teSelRect+right(a3)
|
||
|
|
|
||
|
|
; Setup two rectangles for the split cursors. The low cursor goes with this script run. So,
|
||
|
|
; adjust the top edge of the rectangle. <12/13/88smb>
|
||
|
|
|
||
|
|
st lineEndFlag(a6)
|
||
|
|
; use half a line heighth for split cursors
|
||
|
|
move.w teSelRect+bottom(a3),d2
|
||
|
|
add.w teSelRect+top(a3),d2 ; get line height <12July89smb> performance
|
||
|
|
asr.w #1,d2 ; 1/2 line height - fix Applink bug <3.1>
|
||
|
|
move.w d2,teSelRect+top(a3) ; new top (lower by 1/2 the heighth) <12July89smb>
|
||
|
|
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb> must save for processing at a higher level!
|
||
|
|
st ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
|
||
|
|
; say high caret in Cursor2Rect space <21Dec88smb> - for TESelView
|
||
|
|
ori.w #$00FF,ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
|
||
|
|
; The high cursor (T) goes with the line ending. the top edge is ok. Adjust the bottom. Can only
|
||
|
|
; set the top and bottom edges now. May need to measure more style runs. <12/13/88smb>
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; top, left, bottom, right <12July89smb>
|
||
|
|
move.w selRectT(a6),(a0)+ ; use original top of line
|
||
|
|
addq #2,a0
|
||
|
|
move.w teSelRect+top(a3),(a0) ; bottom edge
|
||
|
|
bra.s @finis
|
||
|
|
@MeasureRun
|
||
|
|
import ptchMeasureWholeRun
|
||
|
|
jsr ptchMeasureWholeRun
|
||
|
|
add.w d0,d5
|
||
|
|
add.w d5,teSelRect+left(a3) ; left edge of rectangle
|
||
|
|
add.w d5,teSelRect+right(a3) ; right edge of rectangle
|
||
|
|
@finis
|
||
|
|
rts
|
||
|
|
endwith
|
||
|
|
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchCaretInsideRun
|
||
|
|
; <7Dec89smb> Set flags in caret display code to indicate when
|
||
|
|
; in the middle of a style run but on a line end.
|
||
|
|
; <2/8/90smb> Must patch TEWidthHook which is called from PixelWidths.
|
||
|
|
; <4/4/90smb> Adding forgotten code for scrolling down bug fix!
|
||
|
|
; <9/6/90smb> Revisited scrolling down bug: must also bra if equal.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchCaretInsideRun
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
; cursor is in the middle of this run, so call C2P twice to see if split cursors necessary
|
||
|
|
st doneFlag(a6)
|
||
|
|
move.w #smRightCaret,d2 ; second offset to measure
|
||
|
|
swap d2
|
||
|
|
move.w #smLeftCaret,d2 ; first offset to measure
|
||
|
|
|
||
|
|
; parameters for PixelWidths routine (calls Char2Pixel twice)
|
||
|
|
move.l a0,a1 ; save pointer to current style run
|
||
|
|
move.w d5,-(sp) ; save pixel width from MeasureAndHilite routine
|
||
|
|
move.w d3,d0
|
||
|
|
sub.w startChar(a1),d0 ; cursor posn relative to start of style run
|
||
|
|
; pin to lineStart <5Dec88smb>
|
||
|
|
move.w (a2),d1 ; lineStart <5Dec88smb>
|
||
|
|
cmp.w startChar(a1),d1 ; <5Dec88smb>
|
||
|
|
bls.s @UseStyleStart ; <5Dec88smb> <26June89smb> made unsigned
|
||
|
|
sub.w startChar(a1),d1 ; |beginning of line - beginning of style run| <5Dec88smb>
|
||
|
|
sub.w d1,d0 ; pin to lineStart! <5Dec88smb>
|
||
|
|
; may be at lineStart
|
||
|
|
bne.s @UseStyleStart ; <6Dec89smb>
|
||
|
|
; if at offset 0 of this line then at the lineStart and may need to measure more style runs <6Dec89smb>
|
||
|
|
sf doneFlag(a6) ; <6Dec89smb>
|
||
|
|
st lineEndFlag(a6) ; <6Dec89smb>
|
||
|
|
@UseStyleStart
|
||
|
|
;;<2/8/90smb> jmpROM ROM@UseStyleStart
|
||
|
|
; added 2 more lines since patching PixelWidths
|
||
|
|
move.w d0,d1 ; same posn just different direction
|
||
|
|
import ptchPixelWidths ; <2/8/90smb>
|
||
|
|
bsr ptchPixelWidths ; returns pixelwidths in d5 (R block) & d6 (L block)
|
||
|
|
;;<4/490smb> jmpROM ROMbeyond@UseStyleStart
|
||
|
|
;-----------------------------------------------------------------------------------------
|
||
|
|
; adding omitted code for scrolling down bug fix! <4/4/90smb>
|
||
|
|
; <3May89smb> this is a special case that makes this UGLY! If LR text and RL line direction
|
||
|
|
; and (offset = SOL or EOL), then must setup teSelRect a little differently with the
|
||
|
|
; results returned from C2P.
|
||
|
|
tst.b TESysJust
|
||
|
|
beq.s @LRdownstream
|
||
|
|
; RL line direction. a0 contains the current style.
|
||
|
|
jsrROM ROMGetDirection ; returns script direction in d1
|
||
|
|
cmp.b TESysJust,d1
|
||
|
|
beq.s @RLdownstream ; RL line direction & RL script run
|
||
|
|
; Otherwise, RL line and LR script
|
||
|
|
cmp.w d5,d6
|
||
|
|
beq.s @RLdownstream
|
||
|
|
tst.w d5
|
||
|
|
beq.s @ZeroWidth
|
||
|
|
exg d5,d6 ; want 0 width in d5: L&R edges are already set in teSelRect.
|
||
|
|
@ZeroWidth
|
||
|
|
add.w (sp),d6
|
||
|
|
bra.s @SetUp2nd ; set up the second rectangle
|
||
|
|
|
||
|
|
; test line direction to determine where high caret and low caret should display. <12/13/88smb>
|
||
|
|
;; tst.b TESysJust
|
||
|
|
;; bne.s @RLdownstream
|
||
|
|
; <3May89smb> done with mods.
|
||
|
|
|
||
|
|
; L-R is the downstream direction. d6 is the L block's width. <12/13/88smb>
|
||
|
|
; Want downstream script's width in d5. Simplifies set up for second rectangle.
|
||
|
|
@LRdownstream
|
||
|
|
exg d5,d6
|
||
|
|
@RLdownstream
|
||
|
|
; R-L is the downstream direction. d5 is the R block's width. <12/13/88smb>
|
||
|
|
add.w (sp),d5 ; add pixel width of previous runs on line
|
||
|
|
add.w d5,teSelRect+left(a3)
|
||
|
|
add.w d5,teSelRect+right(a3)
|
||
|
|
add.w (sp),d6
|
||
|
|
; test for one cursor
|
||
|
|
cmp.w d5,d6
|
||
|
|
beq.w @finis
|
||
|
|
|
||
|
|
; Setup two rectangles for the split cursors.
|
||
|
|
; The high cursor (T): the top edge is ok. Adjust the bottom. <12/13/88smb>
|
||
|
|
; use half a line heighth for split cursors
|
||
|
|
@SetUp2nd
|
||
|
|
move.w teSelRect+bottom(a3),d2
|
||
|
|
|
||
|
|
IF NOT forLocalizability THEN ; <34a-YDS-9/2/91>
|
||
|
|
bls.s @ScrollDownBug ; scrolling down in hebrew applelink <1/15/90smb> <14>
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
add.w teSelRect+top(a3),d2 ; get line height <12July89smb> performance
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <34a-YDS-9/2/91>
|
||
|
|
asr.w #1,d2 ; 1/2 line height - fix Applink bug <3.1>
|
||
|
|
ELSE
|
||
|
|
lsr.w #1,d2 ; 1/2 line height
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
move.w d2,teSelRect+bottom(a3) ; new bottom (raised by 1/2 the heighth) <12July89smb>
|
||
|
|
|
||
|
|
; need two cursors because have arabic/english in same run OR on a cluster boundary
|
||
|
|
move.l ExpandMem,a0 ; <1Feb89smb> must save for processing at a higher level!
|
||
|
|
st ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
; <7July89smb> indicate that high caret is not stored in ExpandMem space.
|
||
|
|
andi.w #$FF00,ExpandMemRec.emTwoCursorsFlag(a0)
|
||
|
|
|
||
|
|
; set up low cursor (perpendicular symbol). <12/13/88smb>
|
||
|
|
; top edge of rectangle
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0 ; top, left, bottom, right <12July89smb>
|
||
|
|
move.w teSelRect+bottom(a3),(a0)+ ; new top of line (same as other rect's bottom edge)
|
||
|
|
add.w selRectL(a6),d6 ; add original L. edge
|
||
|
|
move.w d6,(a0) ; left
|
||
|
|
sub.w #1,(a0)+ ; cursor posn
|
||
|
|
move.w selRectB(a6),(a0)+ ; use original bottom of line
|
||
|
|
move.w d6,(a0) ; right (same as left)
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN
|
||
|
|
;YS - added to support single carret option
|
||
|
|
; handles unstyled text !!!! <34c-YDS-9/2/91>
|
||
|
|
clr.l -(sp) ; make space for function result
|
||
|
|
move #smGenFlags,-(sp) ; put smSysScript verb to get the SMGR general flags
|
||
|
|
_GetEnvirons ; now wh have the general flags
|
||
|
|
Move.l (sp)+, d5 ; take return value.
|
||
|
|
and.l #(1<<smfDualCaret),d5 ; leave only the right bit
|
||
|
|
bne.w @finis ; leave the split carret as is ?
|
||
|
|
|
||
|
|
clr.l -(sp) ; we will need a place on the stack anyway !
|
||
|
|
Tst.b teCarOn(A3) ; if caret on, we would like to calculate the same caret allways
|
||
|
|
bne.s @1 ; carret is going on, calculate a new one <34p-YDS-9/2/91>
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0
|
||
|
|
move.b lastScript(a0),d5 ; push script numberused to highligt (d5) to lastScript
|
||
|
|
bra.s @2
|
||
|
|
|
||
|
|
@1 move #smKeyScript,-(sp) ; we will call _GetEnvirons to get the current active (keyboard) script.
|
||
|
|
_GetEnvirons ; now we know who the active script
|
||
|
|
Move.l (sp), d5 ; take return value (the script number (long !!!)), leave place for return value
|
||
|
|
move.l teDispatchH(a3),a0 ; get teDispatchH addres
|
||
|
|
move.l (a0),a0
|
||
|
|
move.b d5, lastScript(a0) ; push script numberused to highligt (d5) to lastScript
|
||
|
|
|
||
|
|
@2 move.w d5, -(sp) ; push the script (word !!!) for the next call we will need
|
||
|
|
|
||
|
|
move #smScriptRight,-(sp) ; is that script a right to left script ?
|
||
|
|
_GetScript ; we have smScriptRightflag the stack
|
||
|
|
move.l (sp)+, d0 ; do = result
|
||
|
|
move.l ExpandMem,a0 ; get the scplit cursor addres into A0
|
||
|
|
lea ExpandMemRec.emCursor2Rect(a0),a0
|
||
|
|
cmp.b TESysJust, d0
|
||
|
|
beq.s @UseTop
|
||
|
|
@UseBottom
|
||
|
|
move.w teSelRect+top(a3),top(a0) ; strech lower cursor
|
||
|
|
move.w teSelRect+top(a3),teSelRect+bottom(a3) ; make top = bottom in upper cursor
|
||
|
|
bra.s @finis
|
||
|
|
@UseTop
|
||
|
|
move.w bottom(a0),teSelRect+bottom(a3) ; strech upper cursor
|
||
|
|
move.w bottom(a0),top(a0) ; make top = bottom in lower cursor
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
@finis
|
||
|
|
addq.l #2,sp ; restore stack (d5 pushed)
|
||
|
|
rts
|
||
|
|
IF NOT forLocalizability THEN ; <34a-YDS-9/2/91>
|
||
|
|
@ScrollDownBug
|
||
|
|
; when scrolling down the selRect top & bottom are negative. this causes a large caret while divided
|
||
|
|
move.l ExpandMem,a0 ; <1/15/90smb>
|
||
|
|
sf ExpandMemRec.emTwoCursorsFlag(a0) ; <1/15/90smb>
|
||
|
|
addq.l #2,sp ; restore stack (d5 pushed)
|
||
|
|
rts
|
||
|
|
ENDIF
|
||
|
|
endwith
|
||
|
|
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTrimMeasure
|
||
|
|
; <7Aug89smb> Added SMgr VisibleLength for trimming white space
|
||
|
|
; off the display right of a line.
|
||
|
|
; <31Oct89smb> Fixed TETrimMeasure to call VisibleLength at the
|
||
|
|
; appropriate times for unstyled text: LineRect uses the line direction
|
||
|
|
; and justification to determine when to call it.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTrimMeasure
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
; <31Oct89smb>
|
||
|
|
; We need to strip off trailing spaces IF they are trailing in display order (on the L. in a
|
||
|
|
; R-L line and on the R. in a L-R line.)
|
||
|
|
; if the line direction = teJust (corrected for teSysJust), then go directly to MeasureIt.
|
||
|
|
; if teJust = teJustCenter OR teJust = teJustLeft, skip
|
||
|
|
|
||
|
|
cmp d6,d7 ; nothing to measure? <31Oct89smb>
|
||
|
|
bls zeroExit ; <31Oct89smb>
|
||
|
|
move.w teJust(a3),d0 ; <31Oct89smb>
|
||
|
|
bge @MeasureIt ; <31Oct89smb>
|
||
|
|
; if teJust = teSysJust, skip
|
||
|
|
cmp.w teSysJust,d0 ; <31Oct89smb>
|
||
|
|
beq @MeasureIt ; <31Oct89smb> implies teSysJust = RL
|
||
|
|
; ow, the line direction = LR and teJust = right
|
||
|
|
tst.b WordRedraw ; test if Arabic installed w/ line direction LR
|
||
|
|
beq @RomanTrim ; bra for Roman
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; Adding call to GetStylesInOrder in order to call VisibleLength for a line's style runs.
|
||
|
|
; We need to traverse the style runs in display order but backwards! This is because it's
|
||
|
|
; possible to have style runs at the end of a line containing only blanks (silly but true!)
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
move.l d5,-(sp)
|
||
|
|
clr.w d5 ; flag that signifies we are done w/ VisibleLength
|
||
|
|
move.w d6,-(sp) ; save original lineStart
|
||
|
|
tst.w teSize(a3) ; do something different for unstyled! <7Nov89smb>
|
||
|
|
bmi.s @GetStyles ; bra if styled edit record
|
||
|
|
|
||
|
|
; old-style record: one style for the whole record. My code is expecting a0 to contain a ptr to
|
||
|
|
; the startChar for the current style so must fake the setup.
|
||
|
|
clr.l firstStyleRun(a6)
|
||
|
|
clr.l secondStyleRun(a6)
|
||
|
|
move.w teLength(a3),secondStyleRun(a6)
|
||
|
|
lea firstStyleRun(a6),a0
|
||
|
|
move.l a0,a2StyleRun(a6) ; save style run of lineStart as a ptr
|
||
|
|
;;<16Nov89smb> move.w #1,d2
|
||
|
|
;;<16Nov89smb> move.w d2,numberOfRuns(a6) ; save
|
||
|
|
; cleared since don't need to go thru initial @styleLoop code. <16Nov89smb>
|
||
|
|
clr.w d2 ;<16Nov89smb>
|
||
|
|
clr.w numberOfRuns(a6) ;<16Nov89smb>
|
||
|
|
|
||
|
|
lea.l fmtOrdering(a6),a1
|
||
|
|
move.l a1,fmtOrderingPtr(a6)
|
||
|
|
;;<16Nov89smb> move.w #1,fmtOrderingIndex(a6) ; decrement below @styleLoop
|
||
|
|
clr.w fmtOrderingIndex(a6) ;<16Nov89smb>
|
||
|
|
clr.w (a1)
|
||
|
|
;;<16Nov89smb> bra.s @styleLoop
|
||
|
|
bra.s @UnStyled ;<16Nov89smb>
|
||
|
|
|
||
|
|
@GetStyles
|
||
|
|
move.w d6,d0 ; start of selection
|
||
|
|
move.w d7,d1 ; end of selection
|
||
|
|
bsr ptchTEGetFormatOrder
|
||
|
|
|
||
|
|
move.w numberOfRuns(a6),d2
|
||
|
|
move.w d2,fmtOrderingIndex(a6) ; start w/ the last style run
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
@styleLoop
|
||
|
|
subq #1,fmtOrderingIndex(a6) ; decr the style run counter
|
||
|
|
bsr ptchGetNextDisplayStyle
|
||
|
|
subq #1,d2 ; dec the style counter
|
||
|
|
|
||
|
|
;;<16Nov89smb> tst.w teSize(a3) ; record with style?
|
||
|
|
;;<16Nov89smb> bpl.s @UnStyled ; if not, go do it the old way
|
||
|
|
jsrROM ROMSetStyle ; set current style
|
||
|
|
@UnStyled
|
||
|
|
; If we've already found the first (or visibly last) non-blank style run on the line, the flag
|
||
|
|
; will be set and we need to loop to determine if this is the greatest style run offset. <7Dec89smb>
|
||
|
|
tst.b d5 ; <7Dec89smb>
|
||
|
|
bne.s @GetStyleEnd ; yep <7Dec89smb>
|
||
|
|
; must be blanks on the line end <7Dec89smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; call VisibleLength to correctly determine the text to measure
|
||
|
|
movem.l d2/a0/a2,-(sp)
|
||
|
|
; pin to style run boundaries
|
||
|
|
move.w startChar(a0),d6
|
||
|
|
jsrROM ROMFixFormatEnd ; if last format run, must decrement end offset
|
||
|
|
|
||
|
|
move.l teTextH(a3),a0 ; get text handle
|
||
|
|
move.l (a0),a0 ; dereference
|
||
|
|
|
||
|
|
add.w d6,a0 ; set to LineStart
|
||
|
|
sub.w d6,d0
|
||
|
|
clr.l -(sp) ; longint return
|
||
|
|
move.l a0,-(sp) ; textPtr
|
||
|
|
swap d0 ; clear high word
|
||
|
|
clr.w d0
|
||
|
|
swap d0
|
||
|
|
move.l d0,-(sp) ; textLen
|
||
|
|
_VisibleLength
|
||
|
|
|
||
|
|
move.l (sp)+,d7 ; length of visible text
|
||
|
|
movem.l (sp)+,d2/a0/a2
|
||
|
|
beq.s @LoopExit ; if all blanks, keep looping
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
add.w d6,d7 ; non-blank => done; get real position
|
||
|
|
; set flag in high word saying done w/ VisibleLength
|
||
|
|
st d5
|
||
|
|
@GetStyleEnd
|
||
|
|
; Once we encounter a non-blank style run, we need to loop through all the previous style runs
|
||
|
|
; on the line, searching for the largest end offset that is larger then the VisibleLength offset.
|
||
|
|
; Get the maximum of the style run's end offset and the visibleLength offset.
|
||
|
|
; per Mark Davis. I'm a believer now! <6Dec89smb>
|
||
|
|
; d7 = visibleLength initially; is replaced by the end offset of a style run which is larger.
|
||
|
|
; a0 = ptr to current style run
|
||
|
|
jsrROM ROMFixFormatEnd ; if last format run, must decrement end offset
|
||
|
|
cmp.w d0,d7
|
||
|
|
bge.s @LoopExit ; VisibleLength is the larger, keep looping
|
||
|
|
move.w d0,d7 ; prev style run is max.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; if all blanks, keep looping
|
||
|
|
@LoopExit
|
||
|
|
tst.w d2 ; more styles?<1Nov89smb>
|
||
|
|
bne.s @styleLoop ; yes, loop again
|
||
|
|
move.w (sp)+,d6 ; restore original lineStart
|
||
|
|
move.l (sp)+,d5
|
||
|
|
@MeasureIt
|
||
|
|
jmpROM ROMMeasureIt ; if all blanks on this line, will terminate in MeasureIt
|
||
|
|
|
||
|
|
@RomanTrim
|
||
|
|
jmpROM ROM@RomanTrim
|
||
|
|
zeroExit
|
||
|
|
moveq #0,D0 ; nothing to measure
|
||
|
|
Rts
|
||
|
|
endWith
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
; If a Roman system then use old TrimMeasure code rather than SMgr VisibleLength <2Aug89smb>
|
||
|
|
tst.b teSysJust
|
||
|
|
bne.s @VisLen ; use VisibleLength for RL line direction
|
||
|
|
tst.b WordRedraw ; test for Arabic w/ line direction LR
|
||
|
|
beq.s @RomanTrim ; bra for Roman
|
||
|
|
|
||
|
|
; Use SMgr VisibleLength to measure visible text <2Aug89smb>
|
||
|
|
@VisLen
|
||
|
|
move.l teTextH(A3),A0 ; get text handle
|
||
|
|
move.l (A0),A0 ; dereference
|
||
|
|
|
||
|
|
add.w d6,a0 ; set to LineStart
|
||
|
|
sub.w d6,d7
|
||
|
|
clr.l -(sp) ; longint return
|
||
|
|
move.l a0,-(sp) ; textPtr
|
||
|
|
swap d7 ; clear high word
|
||
|
|
clr.w d7
|
||
|
|
swap d7
|
||
|
|
move.l d7,-(sp) ; textLen
|
||
|
|
_VisibleLength
|
||
|
|
|
||
|
|
move.l (sp)+,d7 ; length of visible text
|
||
|
|
add.w d6,d7 ; get real position
|
||
|
|
jmpROM ROMMeasureIt
|
||
|
|
@RomanTrim
|
||
|
|
jmpROM ROM@RomanTrim
|
||
|
|
ENDIF
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoErase
|
||
|
|
; <9/20/90smb> New. Call TETextWidthHook now.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoErase
|
||
|
|
with TextFrame,TEFormatOrder
|
||
|
|
Move.W teSelRect+left(A3),-(SP) ; save left side for draw
|
||
|
|
Cmp.W (A2),D3 ; at start of line?
|
||
|
|
|
||
|
|
Beq.s @GoErase ; don't worry if so
|
||
|
|
|
||
|
|
; If the mode is XOR, we must erase the previous character as well as redrawing it.
|
||
|
|
; Redrawing the character in XOR without erasing it first just erases it. This means
|
||
|
|
; the italics problem will not be fixed in this mode.
|
||
|
|
Cmp.W #srcXor,teMode(A3) ; is drawing mode XOR?
|
||
|
|
Beq.s @GoErase ; do it the old way if so
|
||
|
|
|
||
|
|
Tst.W teSize(A3) ; TERec with style?
|
||
|
|
Bpl.S @MeasureChar ; skip style setup if not
|
||
|
|
|
||
|
|
; determine if display order is different from backin-store order <28Sept88smb>
|
||
|
|
tst.b WordRedraw ; $FF if a R->L directional script installed
|
||
|
|
bge.s @getStyleOld ; nope, only L->R directional text
|
||
|
|
|
||
|
|
Move.W D3,D0 ; start offset
|
||
|
|
Move.W D4,D1 ; end of selection
|
||
|
|
bsr ptchGetStylesInOrder ; <15Nov88smb>
|
||
|
|
bra.s @SetPort
|
||
|
|
|
||
|
|
@getStyleOld
|
||
|
|
Move.W D3,D0 ; selection start
|
||
|
|
Move.W D0,D1 ; don't care about end
|
||
|
|
jsrROM ROMGetCurStyle ; get its style <7Oct88smb> replaces GetFirstStyle call
|
||
|
|
jsrROM ROMGetNumStyles ; # of styles between offsets <7Oct88smb>
|
||
|
|
@SetPort
|
||
|
|
jsrROM ROMSetStyle ; set the port
|
||
|
|
@MeasureChar
|
||
|
|
move.l teTextH(a3),a0 ; text handle <17>
|
||
|
|
move.l (a0),a0 ; wants text ptr here <17>
|
||
|
|
move.w d3,d1 ; wants offset here <17>
|
||
|
|
moveq #1,d0 ; wants length here <17>
|
||
|
|
import TETextWidthHook ; <17>
|
||
|
|
jsr TETextWidthHook ; hook out TextWidth <17>
|
||
|
|
|
||
|
|
; Don't want to erase the prev character because that destroys part of the character
|
||
|
|
; before it (if it's italics or a kerned font). However, the last pixel should be erased
|
||
|
|
; in case the application leaves a caret drawn there (like Mac3D does).
|
||
|
|
Tst.W D0 ; nothing to do if no width ** <C485/04dec86/MBK> **
|
||
|
|
Beq.S @ZeroWidth ; else subtract one from char width ** <C485/04dec86/MBK> **
|
||
|
|
SubQ.W #1,D0 ; to fix caret erase problem ** <C485/04dec86/MBK> **
|
||
|
|
@ZeroWidth jmpROM ROM@ZeroWidth ; <17>
|
||
|
|
@GoErase jmpROM ROM@GoErase ; <17>
|
||
|
|
endWith
|
||
|
|
ENDIF ; <17>
|
||
|
|
ENDPROC ; one proc since many interdependencies <9Aug89smb>
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchMeasureWidth
|
||
|
|
; <29Aug89smb> A bug occurs in hilighting when the line direction
|
||
|
|
; is RL on a system whose normal line direction is from L-R. The
|
||
|
|
; code does not completely determine if its done measuring style
|
||
|
|
; runs for hiliting.
|
||
|
|
; <17Dec89smb> Have to patch a bug in HiliteMiddle.
|
||
|
|
; <9/20/90smb> Patched to call ptchMeasureWholeRun for
|
||
|
|
; TextWidth hook.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchMeasureWidth PROC EXPORT
|
||
|
|
import ptchHiliteMiddle
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
|
||
|
|
; is this d3's style run?
|
||
|
|
move.w styleRunIndex(a6),d0
|
||
|
|
cmp.w d3FmtIndex(a6),d0
|
||
|
|
beq.s @MeasureD3Run
|
||
|
|
tst.b sameStyle(a6)
|
||
|
|
bne @justMeasure ; bra if [d3,d4] in same style
|
||
|
|
|
||
|
|
; is this d4's style run?
|
||
|
|
cmp.w d4FmtIndex(a6),d0
|
||
|
|
beq.s @MeasureD4Run
|
||
|
|
blt.s @inBetween ; bra to check if inbetween d3 & d4 runs
|
||
|
|
jmpROM ROM@justMeasure ; not to be hilited: just measure <17Dec89smb> changed to jmpROM
|
||
|
|
|
||
|
|
@MeasureD3Run
|
||
|
|
; measure [d3,end of style]
|
||
|
|
move.w d3,saveD3(a6)
|
||
|
|
move.w d4,saveD4(a6)
|
||
|
|
tst.b sameStyle(a6)
|
||
|
|
bne.s @TestDirection ; when in RL text may need to measure the rest of the line
|
||
|
|
jsrROM ROMFixFormatEnd
|
||
|
|
move.w d0,d4
|
||
|
|
bra.s @dontQuit
|
||
|
|
|
||
|
|
@MeasureD4Run
|
||
|
|
; measure [begin of style,d4]
|
||
|
|
move.w d3,saveD3(a6)
|
||
|
|
move.w d4,saveD4(a6)
|
||
|
|
move.w startChar(a0),d3
|
||
|
|
@TestDirection
|
||
|
|
tst.b teSysJust ; RL line direction (Roman, Kanji or Arabic)? <29Aug89smb>
|
||
|
|
bne.s @dontQuit ; yep, not done at this style run <29Aug89smb>
|
||
|
|
tst.b WordRedraw ; <4Oct89smb
|
||
|
|
blt.s @dontQuit ; <4Oct89smb
|
||
|
|
;------------------------------------------------
|
||
|
|
; added <17Dec89smb> to patch HiliteMiddle
|
||
|
|
@hiliteIt
|
||
|
|
st doneFlag(a6) ; once hilited d4
|
||
|
|
@dontQuit
|
||
|
|
tst.b hiliteInbetween(a6)
|
||
|
|
beq.s @HiliteOffsetRun ; nothing inbetween: just hilite the offset's run
|
||
|
|
bsr ptchHiliteMiddle ; hilite runs prior to offset run, then the offset run <17Dec89smb>
|
||
|
|
jmpROM ROM@HiliteOffsetRun
|
||
|
|
|
||
|
|
@inBetween
|
||
|
|
; test if style run in between d3 and d4's style runs!
|
||
|
|
cmp.w d3FmtIndex(a6),d0
|
||
|
|
bhi.s @hiliteRun ; bra to be hilited <26June89smb> made unsigned
|
||
|
|
|
||
|
|
; not inbetween therefore, only measure. don't hilite
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
import ptchMeasureWholeRun ; <17>
|
||
|
|
bsr ptchMeasureWholeRun ; <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
jsrROM ROMMeasureWholeRun
|
||
|
|
ENDIF ; <17>
|
||
|
|
add.w d0,totalWidth(a6)
|
||
|
|
tst.b hiliteInbetween(a6)
|
||
|
|
beq.s @exit
|
||
|
|
bsr ptchHiliteMiddle ; hilite runs prior to non-hilited run <17Dec89smb>
|
||
|
|
move.w totalWidth(a6),d0
|
||
|
|
add.w d0,anchorL(a6) ; new left anchor
|
||
|
|
jmpROM ROM@exit
|
||
|
|
|
||
|
|
@justMeasure jmpROM ROM@justMeasure
|
||
|
|
@HiliteOffsetRun
|
||
|
|
jmpROM ROM@HiliteOffsetRun
|
||
|
|
@hiliteRun jmpROM ROM@hiliteRun
|
||
|
|
@exit jmpROM ROM@exit
|
||
|
|
|
||
|
|
;------------------------------------------------
|
||
|
|
;; replaced <17Dec89smb>
|
||
|
|
;; jmpROM ROM@hiliteIt
|
||
|
|
;;@dontQuit jmpROM ROM@dontQuit
|
||
|
|
;;@inBetween jmpROM ROM@inBetween
|
||
|
|
;------------------------------------------------
|
||
|
|
endWith
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchInvrtRectangle
|
||
|
|
; <7Dec89smb> Fixed LR highlighting bug at line ends.
|
||
|
|
; <2/8/90smb> Must patch TEWidthHook which is called from PixelWidths.
|
||
|
|
; <9/6/90smb> If inline input is active then don't hilite to the ends
|
||
|
|
; of the selRect.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchInvrtRectangle PROC EXPORT
|
||
|
|
|
||
|
|
InvrtRectRegs reg d0/d1/a0/a1
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
|
||
|
|
move.w d2,-(sp)
|
||
|
|
;; moved below since saved in PixelWidths <5Dec89smb> Movem.l InvrtRectRegs,-(sp)
|
||
|
|
move.w d5,-(sp) ; save pixel width from MeasureAndHilite routine
|
||
|
|
|
||
|
|
move.w #smHilite,d2 ; 1st offset's direction param
|
||
|
|
swap d2
|
||
|
|
move.w #smHilite,d2 ; 2nd offset's direction param
|
||
|
|
;;<2/8/90smb> jsrROM ROMPixelWidths ; Calls Char2Pixel for each element of hilite pair
|
||
|
|
; returns pixelwidths of both elements in d5 & d6
|
||
|
|
import ptchPixelWidths ; <2/8/90smb>
|
||
|
|
bsr ptchPixelWidths ; now patching PixelWidths due to TEWidthHook <2/8/90smb>.
|
||
|
|
|
||
|
|
; Check pixel widths for stroke direction.
|
||
|
|
|
||
|
|
cmp.w d5,d6 ; which is true left/right edge of rectangle
|
||
|
|
bcs.s @rightLeft ; bra if right-left text
|
||
|
|
|
||
|
|
add.w selRectR(a6),d5 ; need dest rect right edge added on
|
||
|
|
add.w (sp),d5 ; add pixel width of previous runs on line
|
||
|
|
add.w selRectR(a6),d6 ; need dest rect right edge added on
|
||
|
|
add.w (sp),d6 ; add pixel width of previous runs on line
|
||
|
|
bra.s @edgesOK
|
||
|
|
|
||
|
|
@rightLeft
|
||
|
|
; right to left
|
||
|
|
add.w selRectL(a6),d5 ; need dest rect left edge added on
|
||
|
|
add.w (sp),d5 ; add pixel width of previous runs on line
|
||
|
|
add.w selRectL(a6),d6 ; need dest rect left edge added on
|
||
|
|
add.w (sp),d6 ; add pixel width of previous runs on line
|
||
|
|
exg d5,d6 ; swap for R-L text.
|
||
|
|
|
||
|
|
@edgesOK ; call InvertRect on pair (set up selRect)
|
||
|
|
Movem.l InvrtRectRegs,-(sp) ; <5Dec89smb>
|
||
|
|
move.w d5,teSelRect+left(A3) ; left edge of rectangle
|
||
|
|
move.w d6,teSelRect+right(A3) ; right
|
||
|
|
|
||
|
|
Move.L teHiHook(A3),D0 ; do the inversion via hook if exists
|
||
|
|
jsrROM ROMInvertHook ; hilite it
|
||
|
|
|
||
|
|
Movem.l (sp)+,InvrtRectRegs
|
||
|
|
Move.w (sp)+,d5 ; restore pixel width from MeasureAndHilite routine
|
||
|
|
|
||
|
|
; Test whether should also hilite visible (screen) line start and end. Must first determine
|
||
|
|
; whether style run should be pinned to the start of the line.
|
||
|
|
move.w (a2),d2 ; <22Dec88smb>
|
||
|
|
cmp.w startChar(a0),d2 ; <22Dec88smb>
|
||
|
|
bls.s @UseStyleStart ; <22Dec88smb> <26June89smb> made unsigned
|
||
|
|
; pin to lineStart to get buffer position of offsets
|
||
|
|
add.w d2,d0 ; <22Dec88smb>
|
||
|
|
add.w d2,d1 ; <22Dec88smb>
|
||
|
|
bra.s @TestEnds
|
||
|
|
@UseStyleStart
|
||
|
|
add.w startChar(a0),d0 ; buffer position of 1st offset in line
|
||
|
|
add.w startChar(a0),d1 ; buffer position of 2nd offset in line
|
||
|
|
@TestEnds
|
||
|
|
cmp.w d0,d1 ; <5Dec89smb>
|
||
|
|
bcc.s @OffsetsOK ; <5Dec89smb>
|
||
|
|
exg d0,d1 ; swap for R-L text <5Dec89smb>
|
||
|
|
@OffsetsOK
|
||
|
|
IF hasInlineInput THEN ; <16>
|
||
|
|
; if inline input is on then don't hilite to the end of the selRect! <16>
|
||
|
|
movem.l a0/d2,-(sp) ; must preserve <16>
|
||
|
|
move.l teDispatchH(a3),a0 ; <16>
|
||
|
|
move.l (a0),a0 ; <16>
|
||
|
|
move.l newTEFlags(a0),d2 ; move into reg for modulo 32 bit ops <16>
|
||
|
|
btst #teFInlineInput,d2 ; is Inline Input active? <16>
|
||
|
|
movem.l (sp)+,a0/d2 ; restore now <16>
|
||
|
|
bne.s @NoLineEnds ; yes, so don't hilite line ends! <16>
|
||
|
|
ENDIF ; <16>
|
||
|
|
jsrROM ROMHiliteLineEnds
|
||
|
|
@NoLineEnds ; <16>
|
||
|
|
Move.w (sp)+,d2
|
||
|
|
|
||
|
|
Rts
|
||
|
|
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchHiliteMiddle
|
||
|
|
; <17Dec89smb> I need to save d2 since it contains the
|
||
|
|
; line's style run count left to be processed. InvertHook
|
||
|
|
; wipes it out.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchHiliteMiddle PROC EXPORT
|
||
|
|
with SharedFrame,TEFormatOrder
|
||
|
|
|
||
|
|
movem.l d0/d2/a0,-(sp) ; <17Dec89smb>
|
||
|
|
; do middle rectangle
|
||
|
|
move.w selRectL(a6), teSelRect+left(a3) ; left edge
|
||
|
|
move.w anchorL(a6),d0
|
||
|
|
add.w d0,teSelRect+left(a3)
|
||
|
|
move.w selRectR(a6), teSelRect+right(a3) ; right edge
|
||
|
|
move.w anchorR(a6),d0
|
||
|
|
add.w d0,teSelRect+right(a3)
|
||
|
|
; top and bottom edges should be the same
|
||
|
|
Move.L teHiHook(A3),D0 ; do the inversion via hook if exists
|
||
|
|
jsrROM ROMInvertHook ; hilite it
|
||
|
|
sf hiliteInbetween(a6)
|
||
|
|
|
||
|
|
movem.l (sp)+,d0/d2/a0 ; <17Dec89smb>
|
||
|
|
Rts
|
||
|
|
endWith
|
||
|
|
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
PROC
|
||
|
|
EXPORT ptchInstallIntDispatch
|
||
|
|
EXPORT ptchTENew
|
||
|
|
EXPORT ptchTEStylNew
|
||
|
|
EXPORT OldChar2Pixel ; <2/8/90smb>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchInstallIntDispatch
|
||
|
|
; <1/9/90smb> Adding storage for double-byte characters
|
||
|
|
; at the end of the dispatch record.
|
||
|
|
; <2/8/90smb> Added new hook nWidthHook for SMgr-compatible C2P
|
||
|
|
; and restored WidthHook to use old TE C2P.
|
||
|
|
; <9/20/90> Should be using patched C2P for nWidthHook. Also
|
||
|
|
; initializing new TextWidthHook in the dispatch table. <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchInstallIntDispatch
|
||
|
|
moveq #intDispSize,d0
|
||
|
|
jsrROM ROMMyNewHandle
|
||
|
|
move.l a0,teDispatchH(a3) ; install it in the record
|
||
|
|
move.l (a0),a0
|
||
|
|
|
||
|
|
leaROM ROMXEOLHook,a1
|
||
|
|
Move.l a1,EOLHook(a0)
|
||
|
|
|
||
|
|
leaROM ROMXDRAWHook,a1
|
||
|
|
move.l a1,DRAWHook(a0)
|
||
|
|
|
||
|
|
lea OldChar2Pixel,a1 ; install old routine here <2/8/90smb>
|
||
|
|
move.l a1,WIDTHHook(a0)
|
||
|
|
|
||
|
|
leaROM ROMPixel2Char,a1
|
||
|
|
move.l a1,HITTESTHook(a0)
|
||
|
|
|
||
|
|
clr.l newTEFlags(a0)
|
||
|
|
|
||
|
|
clr.l newTEFlags+4(a0) ; <1/9/90smb> storage for double-byte char
|
||
|
|
|
||
|
|
; added for SMgr's C2P interface <2/8/90smb>
|
||
|
|
IF hasTextWidthHook THEN ; use patched version of C2P <17>
|
||
|
|
lea ptchTEChar2Pixel,a1 ; oops, should have used this before! <17>
|
||
|
|
ELSE ; <17>
|
||
|
|
leaROM ROMChar2Pixel,a1 ; install SMgr-compatible routine here <2/8/90smb>
|
||
|
|
ENDIF ; <17>
|
||
|
|
move.l a1,nWIDTHHook(a0) ; <2/8/90smb>
|
||
|
|
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
; added so developers can hook the TextWidth calls in TextEdit <17>
|
||
|
|
lea OldChar2Pixel,a1 ; install TextWidth routine as the default for the hook <17>
|
||
|
|
move.l a1,TextWidthHook(a0) ; <17>
|
||
|
|
ENDIF
|
||
|
|
rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTENew
|
||
|
|
; <1/9/90smb> Need to patch the dispatch record install code,
|
||
|
|
; InstallIntDispatch.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTENew
|
||
|
|
Link A6,#0
|
||
|
|
MoveM.L D2-D7/A2-A4,-(SP) ; Save regs
|
||
|
|
|
||
|
|
Clr.L 16(A6) ; return NIL
|
||
|
|
|
||
|
|
MoveQ #teRecSize,D0 ; Allocate a record
|
||
|
|
_NewHandle ,CLEAR
|
||
|
|
Bne badExit ; escape if error <C971/RWW102887>NO
|
||
|
|
|
||
|
|
Move.L A0,A4 ; save handle
|
||
|
|
|
||
|
|
_HLock ; get object handle and lock it
|
||
|
|
Move.L (A4),A3 ; dereference it
|
||
|
|
|
||
|
|
MoveQ #0,D0 ; get text handle
|
||
|
|
_NewHandle
|
||
|
|
Bne badExit ; escape if error <C971/RWW102887>NO
|
||
|
|
Move.L A0,teTextH(A3)
|
||
|
|
|
||
|
|
; Dest and view rect must be together in record
|
||
|
|
Lea teDestRect(A3),A0 ; point to rects in beginning
|
||
|
|
Move.L 12(A6),A2 ; Get dest rectangle arg
|
||
|
|
Move.L (A2)+,(A0)+ ; save away in record
|
||
|
|
Move.L (A2)+,(A0)+
|
||
|
|
Move.L 8(A6),A2 ; Get view rectangle arg
|
||
|
|
Move.L (A2)+,(A0)+ ; save away in record
|
||
|
|
Move.L (A2)+,(A0)+
|
||
|
|
|
||
|
|
; Get line height, etc. for font
|
||
|
|
jsrROM ROMGetSize ; get ascent & hite ** <C207/10oct86/MBK> **
|
||
|
|
Move.W D0,teAscent(A3) ; save in ascent ** <C207/10oct86/MBK> **
|
||
|
|
Move.W D1,teLineHite(A3) ; save in line height ** <C207/10oct86/MBK> **
|
||
|
|
|
||
|
|
; Get the font and face and save away
|
||
|
|
Move.L GrafGlobals(A5),A2 ; get lisagraf globals and then
|
||
|
|
Move.L thePort(A2),A2 ; thePort
|
||
|
|
Move.L A2,teGrafPort(A3) ; save this port
|
||
|
|
Move.L txFont(A2),teFontStuff(A3) ; save the font/face
|
||
|
|
Move.L txFont+4(A2),teFontStuff+4(A3) ; save the mode/size
|
||
|
|
|
||
|
|
; set the direction of the font in the high bit of the high-order byte <30May89smb>
|
||
|
|
move.l a0,-(sp) ; save
|
||
|
|
move.w teFontStuff(a3),d1 ; font
|
||
|
|
lea teFace+1(a3),a0 ; store direction here
|
||
|
|
jsrROM ROMSetDirection
|
||
|
|
move.l (sp)+,a0
|
||
|
|
|
||
|
|
Move.L TEWdBreak,teWordBreak(A3) ; Set global word breaker
|
||
|
|
|
||
|
|
ENDIF ; Endif applies to: IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
|
||
|
|
; Fixed a bug in DefClikProc so have to load the patch address for builds >= 6.0.5
|
||
|
|
IF SysVers>= $605 THEN
|
||
|
|
import ptchDefClikProc ; <1/23/90smb> <4>
|
||
|
|
lea ptchDefClikProc,A0 ; setup default click proc <4>
|
||
|
|
ELSEIF Scripts604 THEN
|
||
|
|
leaROM ROMDefClikProc,A0 ; setup default click proc
|
||
|
|
ENDIF
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
Move.L A0,teClikProc(A3)
|
||
|
|
|
||
|
|
Bsr ptchInstallIntDispatch ; install new internal dispatch tbl <C971/RWW110387>
|
||
|
|
jmpROM ROMinTENew
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTEStylNew
|
||
|
|
; <1/9/90smb> Need to patch the dispatch record install code,
|
||
|
|
; InstallIntDispatch.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEStylNew
|
||
|
|
Link A6,#0
|
||
|
|
MoveM.L D2-D7/A2-A4,-(SP) ; Save regs
|
||
|
|
|
||
|
|
Clr.L 16(A6) ; return NIL
|
||
|
|
|
||
|
|
MoveQ #teRecSize,D0 ; Allocate a record
|
||
|
|
_NewHandle ,CLEAR
|
||
|
|
Bne badExit ; escape if error <C971/RWW102887>NO
|
||
|
|
|
||
|
|
Move.L A0,A4 ; save handle
|
||
|
|
|
||
|
|
_HLock ; get object handle and lock it
|
||
|
|
Move.L (A4),A3 ; dereference it
|
||
|
|
|
||
|
|
MoveQ #0,D0 ; get text handle
|
||
|
|
_NewHandle
|
||
|
|
Bne badExit ; escape if error <C971/RWW102887>NO
|
||
|
|
Move.L A0,teTextH(A3)
|
||
|
|
|
||
|
|
; Dest and view rect must be together in record
|
||
|
|
Lea teDestRect(A3),A0 ; point to rects in beginning
|
||
|
|
Move.L 12(A6),A2 ; Get dest rectangle arg
|
||
|
|
Move.L (A2)+,(A0)+ ; save away in record
|
||
|
|
Move.L (A2)+,(A0)+
|
||
|
|
Move.L 8(A6),A2 ; Get view rectangle arg
|
||
|
|
Move.L (A2)+,(A0)+ ; save away in record
|
||
|
|
Move.L (A2)+,(A0)+
|
||
|
|
|
||
|
|
; Set size to -1 to indicate this is a stylish record & allocate handle to style
|
||
|
|
Move.W #-1,teSize(A3) ; set style flag (Go style)
|
||
|
|
MoveQ #teStylSize,D0 ; min size is for 1 style descriptor
|
||
|
|
jsrROM ROMMyNewHandle ; get handle to style info ** <C381/7nov86/MBK> **
|
||
|
|
Move.L A0,teStylesH(A3) ; former txFont location
|
||
|
|
|
||
|
|
; Get Style Handle for storing font, face, size, and color
|
||
|
|
MoveQ #stRecSize,D0 ; size of style descriptor
|
||
|
|
jsrROM ROMMyNewHandle ; get StyleHandle <C971/RWW102887>NO
|
||
|
|
Move.L teStylesH(A3),A2 ; handle to style info
|
||
|
|
Move.L (A2),A2 ; dereference
|
||
|
|
Move.L A0,styleTab(A2) ; store handle to styles array
|
||
|
|
|
||
|
|
; Get handle to array of largest line height on each line
|
||
|
|
MoveQ #4,D0 ; Make room for one entry in line height array
|
||
|
|
jsrROM ROMMyNewHandle ; allocate handle to line hites <C971/RWW102887>NO
|
||
|
|
Move.L A0,A1 ; save handle
|
||
|
|
|
||
|
|
Move.L teStylesH(A3),A0 ; handle to style info
|
||
|
|
Move.L (A0),A0 ; dereference
|
||
|
|
Move.L A1,lhTab(A0) ; store line hites handle
|
||
|
|
|
||
|
|
; Save the GrafPort and save default style from GrafPort
|
||
|
|
Move.L GrafGlobals(A5),A1 ; get lisagraf globals and then
|
||
|
|
Move.L thePort(A1),A1 ; thePort
|
||
|
|
Move.L A1,teGrafPort(A3) ; save this port
|
||
|
|
Move.W txMode(A1),teMode(A3) ; save the mode
|
||
|
|
|
||
|
|
MoveQ #1,D0 ; length of text + 1
|
||
|
|
jsrROM ROMGetDefStyle ; save default style in StyleRec
|
||
|
|
|
||
|
|
; Store one entry in line height array
|
||
|
|
Move.L teStylesH(A3),A0 ; style handle
|
||
|
|
Move.L (A0),A0 ; dereference
|
||
|
|
Move.L lhTab(A0),A1 ; handle to line height table
|
||
|
|
Move.L (A1),A1 ; dereference
|
||
|
|
Move.L styleTab(A0),A0 ; handle to StyleRec's
|
||
|
|
Move.L (A0),A0 ; dereference
|
||
|
|
|
||
|
|
Move.W stAscent(A0),2(A1) ; save ascent
|
||
|
|
Move.W stHeight(A0),(A1) ; save line height
|
||
|
|
|
||
|
|
Move.W #$FFFF,teAscent(A3) ; won't be used unless somebody
|
||
|
|
Move.W #$FFFF,teLineHite(A3) ; sets the ascent and line height
|
||
|
|
|
||
|
|
Move.L TEWdBreak,teWordBreak(A3) ; Set global word breaker
|
||
|
|
ENDIF
|
||
|
|
; Endif applies to: IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
; Fixed a bug in DefClikProc so have to load the patch address for builds >= 6.0.5
|
||
|
|
IF SysVers>= $605 THEN
|
||
|
|
import ptchDefClikProc ; <1/23/90smb> <4>
|
||
|
|
lea ptchDefClikProc,A0 ; setup default click proc <4>
|
||
|
|
ELSEIF Scripts604 THEN
|
||
|
|
leaROM ROMDefClikProc,A0 ; setup default click proc
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
Move.L A0,teClikProc(A3)
|
||
|
|
|
||
|
|
Bsr ptchInstallIntDispatch ; install new internal dispatch tbl <C971/RWW110387>
|
||
|
|
jmpROM ROMinTEStylNew
|
||
|
|
|
||
|
|
badExit
|
||
|
|
Move.W #dsMemFullErr,D0 ; memory full error
|
||
|
|
_SysError ; go away and never come back
|
||
|
|
rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; OldChar2Pixel
|
||
|
|
;
|
||
|
|
; Using if the old WidthHook is preferred over the nWidthHook.
|
||
|
|
; Never come here for script systems; always use new Char2Pixel.
|
||
|
|
; See ScriptChar2Pixel and TEWidthHook dispatch code. <2/8/90smb>
|
||
|
|
; Also coming here as the default for TextWidthHook (see TETextWidthHook) <17>
|
||
|
|
;
|
||
|
|
; Entry: a0 ptr to text
|
||
|
|
; d0.w length of text to be measured
|
||
|
|
; d1.w offset into text
|
||
|
|
;
|
||
|
|
; Exit: d1.w width of measured text
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
OldChar2Pixel
|
||
|
|
subq #2,sp ; room for result
|
||
|
|
move.l a0,-(sp) ; pass pointer
|
||
|
|
move.w d1,-(sp) ; offset
|
||
|
|
move.w d0,-(sp) ; length
|
||
|
|
_TextWidth ; get width
|
||
|
|
move.w (sp)+,d1 ; resulting width
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
IF SysVers>= $605 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDefClikProc
|
||
|
|
; <1/23/90emt/smb> Added humane scrolling (slower) to DefClikProc
|
||
|
|
; (also see TEClick).
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDefClikProc PROC EXPORT
|
||
|
|
MoveM.L D0-D7/A0-A4,-(SP) ; save ALL regs
|
||
|
|
Move.L teDispatchH(A3),A0 ; <PMAB381/RWW020488>
|
||
|
|
Move.L (A0),A0 ; <PMAB381/RWW020488>
|
||
|
|
Move.L newTEFlags(A0),D0 ; <PMAB381/RWW020488>
|
||
|
|
BTst #teFAutoScr,D0 ; <PMAB381/RWW020488>
|
||
|
|
|
||
|
|
Beq.S doneAuto ; if not, must skip
|
||
|
|
|
||
|
|
Lea teViewRect+8(A3),A0 ; point to view rect
|
||
|
|
Lea TempRect+8,A2 ; copy into TempRect
|
||
|
|
Move.L -(A0),-(A2)
|
||
|
|
Move.L -(A0),-(A2)
|
||
|
|
|
||
|
|
SubQ #4,SP ; room for pt
|
||
|
|
Move.L SP,-(SP)
|
||
|
|
_GetMouse
|
||
|
|
Move (SP)+,D6 ; get V coordinate
|
||
|
|
Move (SP)+,D7 ; get H coordinate
|
||
|
|
|
||
|
|
MoveQ #0,D4 ; horz scroll amt
|
||
|
|
Move teLineHite(A3),D1 ; vert scroll amt
|
||
|
|
Bpl.S @1 ; use if not negative ** <C207/13oct86/MBK> **
|
||
|
|
|
||
|
|
Move.W D6,D0 ; find D6 line ** <C207/13oct86/MBK> **
|
||
|
|
Cmp.W teDestRect+bottom(A3),D0 ; pt below the rect? ** <C207/13oct86/MBK> **
|
||
|
|
Ble.S @0 ; okay if less or same ** <C207/13oct86/MBK> **
|
||
|
|
|
||
|
|
Move.W teDestRect+bottom(A3),D0 ; else reset to bottom ** <C207/13oct86/MBK> **
|
||
|
|
|
||
|
|
@0
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
import ptchPtToLine ; <19>
|
||
|
|
bsr ptchPtToLine ; try to find its line # in the patched version! <19>
|
||
|
|
ELSE
|
||
|
|
jsrROM ROMPtToLine ; try to find its line # ** <C207/13oct86/MBK> **
|
||
|
|
ENDIF ; <19>
|
||
|
|
Bge.S noAuto ; no scroll if line doesn't exist ** <C207/13oct86/MBK> ** <4>
|
||
|
|
jsrROM ROMGetHite ; else get its height
|
||
|
|
|
||
|
|
@1 Cmp (A2)+,D6 ; subtract top of viewRect
|
||
|
|
Blt.S scrollUp ; scroll up
|
||
|
|
|
||
|
|
Cmp (A2)+,D7 ; subtract left of viewRect
|
||
|
|
Blt.S scrollLeft ; scroll left
|
||
|
|
|
||
|
|
Cmp (A2)+,D6 ; subtract bottom of viewRect
|
||
|
|
Bgt.S scrollDown ; scroll down
|
||
|
|
|
||
|
|
Cmp (A2)+,D7 ; subtract right of viewRect
|
||
|
|
Bgt.S scrollRight ; scroll right
|
||
|
|
|
||
|
|
noAuto ; <4>
|
||
|
|
clr.l teClikTime(a3) ; clear it out because we're not scrolling <4>
|
||
|
|
doneAuto
|
||
|
|
MoveQ #1,D0 ; cc's <> 0
|
||
|
|
MoveM.L (SP)+,D0-D7/A0-A4 ; restore ALL regs
|
||
|
|
Rts
|
||
|
|
|
||
|
|
scrollDown
|
||
|
|
Neg D1 ; flip direction
|
||
|
|
scrollUp
|
||
|
|
Bra.S scrollEm
|
||
|
|
|
||
|
|
scrollRight
|
||
|
|
Neg D1 ; flip direction
|
||
|
|
scrollLeft
|
||
|
|
Exg D4,D1 ; switch axes
|
||
|
|
scrollEm
|
||
|
|
|
||
|
|
; Finally do the scroll
|
||
|
|
lea -10(sp), sp ; reserve space for call to ScrollDelay <4>
|
||
|
|
move.w #1,-(sp) ; itemsVisible = smallest possible (1) <4>
|
||
|
|
move d4,-(sp) ; pass dh
|
||
|
|
move d1,-(sp) ; pass dv
|
||
|
|
move.l 8(a6),-(sp) ; tehandle
|
||
|
|
|
||
|
|
subq.l #4,sp ; <4>
|
||
|
|
_TickCount ; Get a time stamp. <4>
|
||
|
|
move.l (sp)+,d1 ; Copy it into D1. <4>
|
||
|
|
move.l d1,10(sp) ; And put it on the stack for ScrollDelay. <4>
|
||
|
|
|
||
|
|
; Note: teClikTime is a state variable in the TERecord which is used by TEClick.
|
||
|
|
; Fortunately, TEClick does not use at all within its body; it only checks its
|
||
|
|
; value on entry and sets it on exit. This code relies on it also being set on
|
||
|
|
; entry, just after it has been tested. Of course, this restricts its use to
|
||
|
|
; click procs, but that's okay.
|
||
|
|
|
||
|
|
move.l teClikTime(a3),d0 ; See if it's a new scroll <4>
|
||
|
|
bne.s @gotTime ; Skip if not <4>
|
||
|
|
move.l d1,teClikTime(a3) ; Otherwise, put in a new stamp <4>
|
||
|
|
move.l d1,d0 ; in D0 too <4>
|
||
|
|
|
||
|
|
@gotTime
|
||
|
|
move.l d0,14(sp) ; D0 is startTicks for ScrollDelay <4>
|
||
|
|
_TEPinScroll ;_TEPinScroll ** <C381/6nov86/MBK> **
|
||
|
|
|
||
|
|
_ScrollDelay ; <4>
|
||
|
|
AddQ.L #2,SP ; Toss the result <4>
|
||
|
|
Bra.S doneAuto ; <C971/RWW102887>NO
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF Scripts604 | SysVers>= $605 THEN
|
||
|
|
PROC
|
||
|
|
EXPORT ptchTEWidthHook
|
||
|
|
EXPORT ScriptChar2Pixel
|
||
|
|
EXPORT TETextWidthHook ; <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; ptchTEWidthHook
|
||
|
|
; modified <2/8/90smb>
|
||
|
|
; This internal interface still uses TextEdit's old Char2Pixel routine
|
||
|
|
; for backwards compatibility for developers. Specifically, if a developer
|
||
|
|
; has been using this interface, and chains his routine in, the new Char2Pixel
|
||
|
|
; routine would have broken his application. We now have a new interface,
|
||
|
|
; ScriptChar2Pixel (below) that allows a developer to replace our new
|
||
|
|
; Char2Pixel routine or chain with it instead.
|
||
|
|
;
|
||
|
|
; However, if a script system is installed, we override this hook and
|
||
|
|
; automatically use the new hook. Also, if a developer has not replaced our
|
||
|
|
; internal measuring routine (OldChar2Pixel) then we use the new routine.
|
||
|
|
; Hence, the only time we use the OldChar2Pixel code is when a developer has
|
||
|
|
; used this hook. <2/8/90smb>
|
||
|
|
;
|
||
|
|
; Measures from start of text to offset, length means length of style run!!!!
|
||
|
|
;
|
||
|
|
; ENTRY:
|
||
|
|
; a0.l => ptr to text to measure
|
||
|
|
; d0.w = Length of text to be measured
|
||
|
|
; d1.w = Offset into text
|
||
|
|
; d2.l = Slop (low word)
|
||
|
|
; Hilite flag (high word)
|
||
|
|
;
|
||
|
|
; EXIT:
|
||
|
|
; d1.w = Width of measured text
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEWidthHook
|
||
|
|
; If a non-Roman system then use new WidthHook routine.
|
||
|
|
move.l ExpandMem,a1 ; <2/8/90smb>
|
||
|
|
cmpi.b #1,ExpandMemRec.emScriptsInstalled(a1) ; total number of installed scripts
|
||
|
|
bne.s ScriptChar2Pixel ; <2/8/90smb>
|
||
|
|
|
||
|
|
; Test if the hook contains our internal address <2/8/90smb>
|
||
|
|
move.l teDispatchH(a3),a1
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l WIDTHHook(a1),a1
|
||
|
|
|
||
|
|
; if the address of the TEWidthHook is our own OldChar2Pixel routine then use the
|
||
|
|
; new Char2Pixel routine. Otherwise, use the old routine. <2/8/90smb>
|
||
|
|
pea OldChar2Pixel ; <2/8/90smb>
|
||
|
|
cmpa.l (sp)+,a1 ; <2/8/90smb>
|
||
|
|
beq.s ScriptChar2Pixel ; <2/8/90smb>
|
||
|
|
|
||
|
|
; set up the length and offset correctly for the OldChar2Pixel (at this point they have
|
||
|
|
; been set up for the new Char2Pixel that calls the SMgr's C2P routine.
|
||
|
|
; adjust the length to reflect the length to measure (from the offset) rather than the
|
||
|
|
; whole length of the text that the SMgr's C2P expects. <2/8/90smb>
|
||
|
|
move.w d1,d0 ; the C2P offset (d1) should be the byte count or length (d0) <2/8/90smb>
|
||
|
|
move.w #0,d1 ; set the offset to 0. <2/8/90smb>
|
||
|
|
|
||
|
|
jmp (a1) ; default is to call OldChar2Pixel which calls TextWidth
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; ScriptChar2Pixel
|
||
|
|
;
|
||
|
|
; new <2/8/90smb>
|
||
|
|
; This internal interface uses the new width hook which allows
|
||
|
|
; a developer to replace TextEdit's new Char2Pixel code that
|
||
|
|
; uses the Script Manager's Char2Pixel routine.
|
||
|
|
;
|
||
|
|
; If a developer chains in his routine w/o understanding our new interface
|
||
|
|
; (ie - he expects the old TEWidthHook registers to be used) then his code
|
||
|
|
; will not work.
|
||
|
|
;
|
||
|
|
; Stock version only calls new Char2Pixel.
|
||
|
|
;
|
||
|
|
; Measures from start of text to offset, length means length of style run!!!!
|
||
|
|
;
|
||
|
|
; ENTRY:
|
||
|
|
; a0.l => ptr to text buffer
|
||
|
|
; a2.l => ptr to current lineStart (from teLines)
|
||
|
|
; d0.w = overall style run length, pinned to the line end
|
||
|
|
; d1.w = offset position within the style run, pinned to the line start
|
||
|
|
; d2.l = slop (low word) (see SMgr C2P routine)
|
||
|
|
; direction flag (high word) (see SMgr C2P routine)
|
||
|
|
;
|
||
|
|
; EXIT:
|
||
|
|
; d1.w = width of measured text
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ScriptChar2Pixel ; renamed from nTEWidthHook <17>
|
||
|
|
move.l teDispatchH(a3),a1
|
||
|
|
move.l (a1),a1
|
||
|
|
move.l nWIDTHHook(a1),a1 ; default is Char2Pixel
|
||
|
|
jmp (a1)
|
||
|
|
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; TETextWidthHook <17>
|
||
|
|
;
|
||
|
|
; new <9/19/90smb>
|
||
|
|
;
|
||
|
|
; This internal interface uses the new TextWidth hook which allows
|
||
|
|
; a developer to replace the TextWidth calls in TextEdit with their
|
||
|
|
; own measuring code.
|
||
|
|
;
|
||
|
|
; The default is to use the OldChar2Pixel routine which calls
|
||
|
|
; _TextWidth.
|
||
|
|
;
|
||
|
|
; ENTRY:
|
||
|
|
; a0.l => ptr to text to measure
|
||
|
|
; d0.w = Length of text to be measured
|
||
|
|
; d1.w = Offset into text
|
||
|
|
;
|
||
|
|
; EXIT:
|
||
|
|
; d0.l,
|
||
|
|
; d1.l = Width of measured text, with result in low word and high word clear
|
||
|
|
; (using both registers since some callers use d0 for the result and
|
||
|
|
; others use d1)
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
TETextWidthHook
|
||
|
|
move.l teDispatchH(a3),a1 ; <17>
|
||
|
|
move.l (a1),a1 ; <17>
|
||
|
|
move.l TextWidthHook(a1),a1 ; <17>
|
||
|
|
jsr (a1) ; result in d1.w <17>
|
||
|
|
moveq #0,d0 ; <17>
|
||
|
|
move.w d1,d0 ; result in longized d0 <17>
|
||
|
|
move.w d0,d1 ; result in longized d1 <17>
|
||
|
|
rts ; <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchPixelWidths
|
||
|
|
; <2/8/90smb> Must patch TEWidthHook which is called here.
|
||
|
|
; <6/12/90smb> Must test for EOD and if hit it, use style end.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchPixelWidths PROC EXPORT
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN
|
||
|
|
; remove a4 from these lists of registers <29>
|
||
|
|
PixelWidthRegs reg d0-d4/a0-a2 ; <29>
|
||
|
|
C2Pparams reg d0/a0/a1 ; length, direction, textPtr, styleRunPtr <29>
|
||
|
|
ELSE ; <29>
|
||
|
|
PixelWidthRegs reg d0-d4/a0-a2/a4
|
||
|
|
C2Pparams reg d0/a0/a1/a4 ; length, direction, textPtr, styleRunPtr, direction locale
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
movem.l PixelWidthRegs,-(sp)
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save the teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
move.l ExpandMem,a4 ; <1Feb89smb>
|
||
|
|
move.l d2,ExpandMemRec.emDirection(a4) ; <27Oct88smb> direction for both offsets passed in
|
||
|
|
|
||
|
|
Movea.l a0,a1 ; save beginning posn of current style
|
||
|
|
Move.L teTextH(a3),a0 ; get text handle
|
||
|
|
Move.L (a0),A0 ; dereference
|
||
|
|
Add.w (a1),a0 ; add beginning of the style run to get to desired line
|
||
|
|
|
||
|
|
; 1st offset's width
|
||
|
|
move.w d1,-(sp) ; save 2nd offset
|
||
|
|
; test if style run starts on previous line, and if so adjust textptr & offset posn in run
|
||
|
|
move.w d0,d1 ; Char2Pixel wants the start offset here
|
||
|
|
|
||
|
|
moveq #0,d4
|
||
|
|
move.w (a2),d0 ; linestart
|
||
|
|
cmp.w startChar(a1),d0
|
||
|
|
bls.s @getLength ; bra if so => offset is ok <26June89smb> made unsigned
|
||
|
|
|
||
|
|
; pin to beginning of this line
|
||
|
|
sub.w startChar(a1),d0 ; |begin of line - begin of the style run|
|
||
|
|
add.w d0,a0 ; fix text ptr
|
||
|
|
move.w d0,d4 ; save difference for length adjustment
|
||
|
|
@getLength
|
||
|
|
; test if style run ends on next line, and if so pin to end of this line & adjust length
|
||
|
|
move.l a0,-(sp) ; <6Mar89smb>
|
||
|
|
move.l a1,a0 ; <6Mar89smb>
|
||
|
|
jsrROM ROMFixFormatEnd ; <6Mar89smb> returns in d0
|
||
|
|
move.l (sp)+,a0 ; <6Mar89smb>
|
||
|
|
move.w teLength(a3),d2 ; <13>
|
||
|
|
cmp.w (a2),d2 ; at the end of the text? <13>
|
||
|
|
beq.s @UseStyleEnd ; yes -> use style end <13>
|
||
|
|
cmp.w 2(a2),d0 ; style contained in the line?
|
||
|
|
bls.s @UseStyleEnd ; yes -> use style end.
|
||
|
|
move.w 2(a2),d0 ; pin to end of line.
|
||
|
|
@UseStyleEnd
|
||
|
|
sub.w startChar(a1),d0 ; Char2Pixel wants the length here
|
||
|
|
sub.w d4,d0 ; adjust for lineStart
|
||
|
|
|
||
|
|
clr.l d2 ; <27Oct88smb>
|
||
|
|
move.l ExpandMem,a4 ; <1Feb89smb>
|
||
|
|
lea ExpandMemRec.emDirection(a4),a4 ; changed to lea <12July89smb>
|
||
|
|
move.w (a4)+,d2 ; <27Oct88smb>
|
||
|
|
swap d2 ; 1st offset's direction in high word; slop in low
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l a4,-(sp) ; save direction values <29>
|
||
|
|
move.l 6(sp),a4 ; restore teHandle to a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
movem.l C2Pparams,-(sp) ; save to be used again
|
||
|
|
import ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
bsr ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
move.w d1,d5 ; 1st element's pixel width
|
||
|
|
|
||
|
|
; 2nd offset's width
|
||
|
|
; restore params: length, direction, textPtr, styleRunPtr, direction locale
|
||
|
|
movem.l (sp)+,C2Pparams
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore direction values <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
move.w (sp)+,d1 ; restore offset2
|
||
|
|
|
||
|
|
clr.l d2 ; <7Nov88smb>
|
||
|
|
move.w (a4),d2 ; <27Oct88smb>
|
||
|
|
swap d2 ; 2nd offset's direction in high word; slop in low
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore teHandle <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
bsr ptchTEWidthHook ; <2/8/90smb>
|
||
|
|
move.w d1,d6 ; 2nd element's pixel width
|
||
|
|
|
||
|
|
movem.l (sp)+,PixelWidthRegs
|
||
|
|
rts
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
PROC ; <17>
|
||
|
|
EXPORT ptchMeasureWholeRun ; <17>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchMeasureWholeRun
|
||
|
|
; <9/20/90smb> New. Call TETextWidthHook now.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchMeasureWholeRun
|
||
|
|
|
||
|
|
WholeRunRegs reg d2/a0/a4
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
movem.l d2/a0,-(sp) ; <29>
|
||
|
|
move.l a4,-(sp) ; separate out so can restore teHandle to a4 before hook call <29>
|
||
|
|
ELSE ; <29>
|
||
|
|
movem.l WholeRunRegs,-(sp)
|
||
|
|
ENDIF ; <29>
|
||
|
|
|
||
|
|
movea.l a0,a1 ; save beginning posn of current style
|
||
|
|
move.l teTextH(a3),a0 ; get text handle
|
||
|
|
move.l (a0),a0 ; dereference
|
||
|
|
add.w (a1),a0 ; add beginning of the style run to get to desired line
|
||
|
|
move.l a0,a4
|
||
|
|
movea.l a1,a0 ; restore current style run
|
||
|
|
|
||
|
|
; If style run starts on previous line, then pin text pointer to start of current line
|
||
|
|
moveq #0,d1 ; used to adjust length
|
||
|
|
move.w (a2),d0 ; beginning of line
|
||
|
|
cmp.w startChar(a0),d0
|
||
|
|
bls.s @getLength ; bra if lineStart is prior or equal to the styleRun start <21June89smb>
|
||
|
|
|
||
|
|
; Adjust text pointer and length for lineStart within styleRun
|
||
|
|
sub.w startChar(a0),d0 ; difference from start of styleRun to lineStart
|
||
|
|
add.w d0,a4 ; pin pointer to beginning of line
|
||
|
|
move.w d0,d1 ; save for length adjustment below
|
||
|
|
|
||
|
|
; If style run ends on next line, then use the current line's end for determining length!
|
||
|
|
@getLength
|
||
|
|
jsrROM ROMFixFormatEnd ; <6Mar89smb> returns end of style run in d0
|
||
|
|
cmp.w 2(a2),d0 ; inside the line's end?
|
||
|
|
bls.s @UseStyleEnd ; <26June89smb> made unsigned
|
||
|
|
move.w 2(a2),d0 ; use the line's end
|
||
|
|
@UseStyleEnd
|
||
|
|
sub.w startChar(a0),d0
|
||
|
|
sub.w d1,d0 ; adjust for LineStart
|
||
|
|
tst.w teSize(a3) ; <1Dec88smb>
|
||
|
|
bpl.s @DontSet
|
||
|
|
|
||
|
|
movem.l d0/d1,-(sp) ; SetStyle mucks with this guy - not good!
|
||
|
|
jsrROM ROMSetStyle ; set grafport style from current style in a0
|
||
|
|
movem.l (sp)+,d0/d1
|
||
|
|
|
||
|
|
@DontSet
|
||
|
|
;get PixelWidth of this style on this line
|
||
|
|
move.l a4,a0 ; wants text ptr here <17>
|
||
|
|
moveq #0,d1 ; wants offset here <17>
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
move.l (sp)+,a4 ; restore teHandle to a4 <29>
|
||
|
|
ENDIF ; <29>
|
||
|
|
import TETextWidthHook ; <17>
|
||
|
|
bsr TETextWidthHook ; hook out TextWidth <17>
|
||
|
|
IF SysVers >= $700 THEN ; <29>
|
||
|
|
movem.l (sp)+,d2/a0 ; already restored a4 before TETextWidthHook call <29>
|
||
|
|
ELSE ; <29>
|
||
|
|
movem.l (sp)+,WholeRunRegs
|
||
|
|
ENDIF ; <29>
|
||
|
|
rts
|
||
|
|
ENDPROC ; <17>
|
||
|
|
ENDIF ; IF hasTextWidthHook <17>
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
IF SysVers >= $700 THEN ; <19>
|
||
|
|
PROC ; <19>
|
||
|
|
EXPORT ptchReCalLines ; <19>
|
||
|
|
EXPORT ptchPtToLine ; <19>
|
||
|
|
EXPORT ptchDoFind ;
|
||
|
|
EXPORT ptchPinDisplay ; <19>
|
||
|
|
EXPORT ptchPinA0Rect ; <19>
|
||
|
|
EXPORT ptchRefresh ; <19>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchReCalLines
|
||
|
|
; <1/4/91smb> KT bug: Only draw line when wordRedraw is <1 (was
|
||
|
|
; testing <> 0).
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchReCalLines
|
||
|
|
link a6,#RecalLink
|
||
|
|
movem.l d3/d5-d6/a2,-(sp) ; save regs (SEE .EQU ABOVE)
|
||
|
|
|
||
|
|
move.w teNLines(a3),oldNLines(a6) ; save old # of lines ** <C229/28oct86/MBK> **
|
||
|
|
clr.w teNLines(a3) ; prime nLines:=0
|
||
|
|
|
||
|
|
clr.w savedD2(a6) ; default redraw beginning
|
||
|
|
move teLength(a3),savedD4(a6); default redraw end
|
||
|
|
tst.w teLength(a3) ; any text?
|
||
|
|
beq ClrLineSts ; <19Mar89smb> if not, nothing to recal
|
||
|
|
|
||
|
|
; D3 contains the start point to recal from, so find the line containing D3
|
||
|
|
lea teLines(a3),a2 ; point to line starts
|
||
|
|
moveq #teFromRecal,d2 ; say ReCalLines is calling <EHB 01Oct85>
|
||
|
|
move teSelStart(a3),d0 ; put start position in D0 <EHB 01Oct85>
|
||
|
|
jsrROM ROMFindWord ; get word around selstart for...<C971/RWW102887>NO vectored so jsr to ROM addr <21>
|
||
|
|
move d0,d3 ; comparison
|
||
|
|
|
||
|
|
stage1
|
||
|
|
move (a2)+,d6 ; i(start):=lineStarts[line]
|
||
|
|
move d6,savedD2(a6) ; save away as default redraw start
|
||
|
|
|
||
|
|
cmp (a2),d3 ; while selWord<lineStarts[line+1]
|
||
|
|
blo.s stage2x ; if inclusive
|
||
|
|
beq.s stage2y ; if at next line start
|
||
|
|
|
||
|
|
addq #1,teNLines(A3) ; one more line, keep looking for
|
||
|
|
bra.s stage1 ; line containing selStart(D3)
|
||
|
|
|
||
|
|
; Return the refresh start in savedD2
|
||
|
|
|
||
|
|
stage2x
|
||
|
|
jsrROM ROMFindLine ; get line after D6 <C971/RWW102887>NO vectored so jsr to ROM addr <21>
|
||
|
|
cmp d0,d3 ; did the line break change?
|
||
|
|
bhs.s stageBad ; if so, must redraw whole thing
|
||
|
|
stageGood ; <EHB 05-Nov-85>
|
||
|
|
tst.b WordRedraw ; should we redraw the whole word? <EHB 31-Oct-85>
|
||
|
|
bgt.s stageBad ; => yes, app wants whole word <EHB 31-Oct-85>
|
||
|
|
blt.s stage2A ; => app wants whole line <EHB 01-Nov-85>
|
||
|
|
|
||
|
|
move teSelStart(a3),d3 ; return selStart
|
||
|
|
stageBad
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <42-YDS-2/5/92>
|
||
|
|
Cmp.w #teForceLeft,teJust(A3) ; are we forcing left ?
|
||
|
|
Beq.S @1 ; if so, skip the TESysJust test.
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
tst.W teJust(A3) ; see what format, for right or
|
||
|
|
bne.S stage2A ; centered, must use linestart
|
||
|
|
|
||
|
|
tst.W TESysJust ; check text direction ** <C105/14aug86/MBK> **
|
||
|
|
bne.s stage2A ; not left ** <C105/14aug86/MBK> **
|
||
|
|
|
||
|
|
; Special case: redraw line didn't work because stage2x jumped here w/o checking the redraw flag.
|
||
|
|
@1 tst.b WordRedraw ; should we redraw the whole word? ** <C454/21nov86/MBK> **
|
||
|
|
blt.s stage2A ; => app wants whole line <19> replaced bne.s w/ original blt.s above
|
||
|
|
|
||
|
|
move d3,savedD2(a6) ; return word start-1
|
||
|
|
beq.s stage2A
|
||
|
|
IF SysVers >= $700 THEN ; fix for KanjiTalk redrawing <27>
|
||
|
|
; must call DoubleByte here to backup to the correct position <27>
|
||
|
|
subq #1,savedD2(a6)
|
||
|
|
tst.b wordRedraw ; if Roman then don't call DoubleByte <27>
|
||
|
|
beq.s stage2A ; <27>
|
||
|
|
movem.l d0-d4/d6/d7/a2,-(sp) ; save regs across call (better safe than sorry!) <27>
|
||
|
|
move.w d3,d6 ; DoubleByte wants offset here <27>
|
||
|
|
move.w #-1,d3 ; incremental direction to move <27>
|
||
|
|
jsrROM ROMDoubleByte ; <27>
|
||
|
|
move.w d6,savedD2(a6) ; <27>
|
||
|
|
movem.l (sp)+,d0-d4/d6/d7/a2 ; <27>
|
||
|
|
ELSE ; <27>
|
||
|
|
subq #1,savedD2(a6)
|
||
|
|
ENDIF ; <27>
|
||
|
|
bra.s stage2A ; <21>
|
||
|
|
|
||
|
|
stage2y jmpROM ROMstage2y
|
||
|
|
stage2A jmpROM ROMstage2A
|
||
|
|
ClrLineSts jmpROM ROMClrLineSts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchPtToLine
|
||
|
|
; <1/4/91smb> Fixed bug # 35646 (fixed for SS-6.0.4 and 6.0.5
|
||
|
|
; in ptch0) - up-arrow key doesn't get to beginning of text.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchPtToLine
|
||
|
|
MoveM.L D2/D6-D7/A0,-(SP)
|
||
|
|
|
||
|
|
Sub teDestRect+top(A3),D0 ; origin to destRect
|
||
|
|
Ext.L D0 ; extend to long
|
||
|
|
Move.W teNLines(A3),D7 ; save total # of lines
|
||
|
|
Beq.S @4 ; if none, quit now
|
||
|
|
|
||
|
|
; special check for negative, return negative! <1/30/90smb>
|
||
|
|
tst.l d0 ; before start of rect? <1/30/90smb>
|
||
|
|
blt.s @4 ; yes, return above top line <1/30/90smb>
|
||
|
|
jmpROM ROMinPtToLine
|
||
|
|
|
||
|
|
@4 Cmp D7,D0 ; compare the max # lines
|
||
|
|
MoveM.L (SP)+,D2/D6-D7/A0
|
||
|
|
Rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchDoFind
|
||
|
|
; <1/4/91smb> Must be patched since calls PtToLine, which is
|
||
|
|
; now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchDoFind
|
||
|
|
|
||
|
|
; find out which text line it's on
|
||
|
|
Move teSelPoint+v(A3),D0 ; i:=(selPoint.v-destRect.top)
|
||
|
|
Bsr ptchPtToLine ; line index in D0
|
||
|
|
jmpROM ROMinDoFind ; <19>
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchPinDisplay
|
||
|
|
; PROCEDURE ptchPinA0Rect
|
||
|
|
; <1/4/91smb> Must be patched since calls PtToLine, which is
|
||
|
|
; now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchPinDisplay
|
||
|
|
Lea teViewRect(A3),A0 ; use viewRect
|
||
|
|
ptchPinA0Rect
|
||
|
|
Move top(A0),D0 ; load D0 w/top
|
||
|
|
|
||
|
|
Bsr.S ptchPtToLine ; turn into a lineStart in d0 <19>
|
||
|
|
Bge.S @4 ; escape if top gone
|
||
|
|
Add D0,D0 ; double for array ref.
|
||
|
|
Blt.S @1
|
||
|
|
Cmp teLines(A3,D0),D3 ; pin D3 to viewRect.top
|
||
|
|
Bhs.S @0
|
||
|
|
Move teLines(A3,D0),D3 ; dispStart = lines[i]
|
||
|
|
@0
|
||
|
|
Cmp teLines(A3,D0),D4 ; pin D4 to viewRect.top
|
||
|
|
Bhs.S @1
|
||
|
|
Move teLines(A3,D0),D4 ; dispEnd = lines[i]
|
||
|
|
@1
|
||
|
|
Move bottom(A0),D0 ; get bottom in D0
|
||
|
|
SubQ #1,D0
|
||
|
|
Bsr.S ptchPtToLine ; <19>
|
||
|
|
jmpROM ROMinPinDisplay
|
||
|
|
|
||
|
|
@4
|
||
|
|
Move D3,D4 ; nothing in range
|
||
|
|
Rts
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchRefresh
|
||
|
|
; <1/4/91smb> Must be patched since calls PinA0Rect, which is
|
||
|
|
; now patched.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchRefresh
|
||
|
|
|
||
|
|
MoveQ #0,D3 ; min/max redraw pins in DoDraw
|
||
|
|
MoveQ #-1,D4
|
||
|
|
Bsr ptchPinA0Rect ; pass A0 rect to Pin code <19>
|
||
|
|
jmpROM ROMinRefresh
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
IF SysVers>=$700 THEN
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <41-YDS-1/30/92>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTextBox
|
||
|
|
; bug #1018683 , for TextBox with #teForceLeft, don't set
|
||
|
|
; the justification to the system just.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
PROC
|
||
|
|
EXPORT ptchTextBox
|
||
|
|
ptchTextBox
|
||
|
|
Link A6,#0
|
||
|
|
MoveM.L D2-D7/A2-A4,-(SP) ; save StdRegs on stack
|
||
|
|
|
||
|
|
Tst.W TBJust(A6) ; “left” justified? <C971/RWW110987>
|
||
|
|
Bne.S @05 ; no => skip this <C971/RWW110987>
|
||
|
|
|
||
|
|
Move.W TESysJust,TBJust(A6) ; he meant, “default justification” <C971/RWW110987>
|
||
|
|
|
||
|
|
@05 jmpROM RONInTextBox
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <43-YDS-2/6/92>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTextBoxAfterGetFontInfo
|
||
|
|
; <2/6/92YDS> Patched to handle the font info of an associated font
|
||
|
|
; if has one.
|
||
|
|
; come from patch on _GetFontInfo in TextBox.
|
||
|
|
; If we are here, it is unstyled text & we dont have a teRecord !
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTextBoxAfterGetFontInfo ComeFromAfterPatchProc _GetFontInfo,ROMAfterGetFInfoInTextBox,(IIci) ; <30>
|
||
|
|
|
||
|
|
; see <43> <43-YDS-2/6/92>.we are in
|
||
|
|
; an un styled record, give the hight of the assoc
|
||
|
|
; font or the script font (the bigger)
|
||
|
|
Subq #2,sp ; make room on stack
|
||
|
|
_FontScript ; get the script
|
||
|
|
Move.W (SP)+, D4 ; into D4
|
||
|
|
Beq.W @DoNothing ; it roman ! do nothing
|
||
|
|
Subq #4,sp ; make room on stack, will use it later
|
||
|
|
Move.W D4, -(SP) ; push script number on stack for later
|
||
|
|
Move.L GrafGlobals(A5),A3 ; get lisagraf globals and then
|
||
|
|
Move.L thePort(A3),A3 ; thePort
|
||
|
|
Move.W txFont(A3),D5 ; get the font <44-YDS-4/2/92>
|
||
|
|
Cmp.W #sysFont, D5 ; is it system font ?
|
||
|
|
Beq.S @SystemFont ; yes
|
||
|
|
Cmp.W #applFont, D5 ; is it app font ?
|
||
|
|
Beq.S @AppFont ; yes
|
||
|
|
Subq #4,sp ; make room on stack for result
|
||
|
|
Move.W D4, -(SP) ; push script # on stack
|
||
|
|
Move.W #smScriptSysFond, -(SP) ; push verb
|
||
|
|
_GetScript ; get the system pref fond id
|
||
|
|
Move.L (SP)+, D0 ; take result font
|
||
|
|
Cmp.W D5, D0 ; are you sure it's not system font ?
|
||
|
|
Beq.S @SystemFont ; it is !
|
||
|
|
Subq #4,sp ; make room on stack for result
|
||
|
|
Move.W D4, -(SP) ; push script # on stack
|
||
|
|
Move.W #smScriptAppFond, -(SP) ; push verb
|
||
|
|
_GetScript ; get the application pref fond id
|
||
|
|
Move.L (SP)+, D0 ; take result font
|
||
|
|
Cmp.W D5, D0 ; are you sure it's not application font ?
|
||
|
|
Beq.S @AppFont ; it is !
|
||
|
|
@OtherFont Move.W #smScriptFntBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
Bra.S @GetTheFont ; so push the right verb
|
||
|
|
@SystemFont Move.W #smScriptSysBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
Bra.S @GetTheFont ; so push the right verb
|
||
|
|
@AppFont Move.W #smScriptAppBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
@GetTheFont _GetScript ; so push the right verb
|
||
|
|
Move.L (SP)+, D0 ; get the associated font
|
||
|
|
Tst.W D0 ; test the low byte <44-YDS-4/2/92>
|
||
|
|
Beq.S @DoNothing ; no associated font ? bail out !
|
||
|
|
Move.W D0, txFont(A3) ; set the font to the assoc font
|
||
|
|
SubQ #8,SP ; space on stack
|
||
|
|
Move.L SP,-(SP) ; push addres
|
||
|
|
_GetFontInfo ; get the assoc font info
|
||
|
|
Move.W D5, txFont(A3) ; restore port font
|
||
|
|
Move.W (SP), D0 ; get assoc font ascent
|
||
|
|
Cmp.W 8(SP), D0 ; compare with script font ascent
|
||
|
|
Bgt.S @3
|
||
|
|
Move.W D0, 8(SP) ; let the bigger one win !
|
||
|
|
@3 AddQ #8,SP ; strip stack
|
||
|
|
@DoNothing
|
||
|
|
jmpROM ROMAfterGetFInfoInTextBox ; …it's back to you, TE!
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchTextBoxPreserveGlyph
|
||
|
|
; <1/21/91smb> Patched to set PreserveGlyph FALSE before
|
||
|
|
; drawing, and then restoring it afterwards.
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTextBoxPreserveGlyph ComeFromAfterPatchProc _MoveTo,AfterMoveToInTextBox,(IIci) ; <30>
|
||
|
|
;;ptchTextBoxPreserveGlyph ComeFromAfterPatchProc _DrawText,AfterMoveToInTextBox,(IIci) ; <30>
|
||
|
|
; come from patch on _MoveTo in TextBox
|
||
|
|
tst.w TBJust(a6) ; look at justification and leave high byte for others
|
||
|
|
beq.s @2 ; if left go do it
|
||
|
|
IF forLocalizability THEN ; <41-YDS-1/30/92> don't forget to check
|
||
|
|
Cmp.W #teForceLeft,TBJust(A6) ; for #teForceLeft here
|
||
|
|
Beq.S @2 ;
|
||
|
|
ENDIF
|
||
|
|
; assume centered
|
||
|
|
move.l TBBox(a6),a0 ; point to rect
|
||
|
|
move right(a0),d0 ; calc width
|
||
|
|
sub left(a0),d0
|
||
|
|
sub d3,d0 ; subtract text width
|
||
|
|
subq #1,d0 ; caret space TE compatibility
|
||
|
|
|
||
|
|
tst.w TBJust(a6) ; look at justification
|
||
|
|
bmi.s @1 ; if right skip right shift
|
||
|
|
asr #1,d0 ; divide by two
|
||
|
|
@1
|
||
|
|
move d0,-(sp) ; move over
|
||
|
|
clr -(sp) ; dv = 0
|
||
|
|
_Move
|
||
|
|
@2
|
||
|
|
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
; Turn PreserveGlyph off before drawing, but save its previous setting <22>
|
||
|
|
clr.w -(sp) ; boolean result <22>
|
||
|
|
_GetPreserveGlyph ; <22>
|
||
|
|
; leave result on stack
|
||
|
|
tst.w (sp) ; preserve or squash? (byte result but cleared word)
|
||
|
|
beq.s @IsFalse ; <22>
|
||
|
|
move.b #0,-(sp) ; set PreserveGlyph FALSE <22>
|
||
|
|
_SetPreserveGlyph ; <22>
|
||
|
|
@IsFalse
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
|
||
|
|
move.l TBText(a6),-(sp) ; pass text
|
||
|
|
clr -(sp)
|
||
|
|
move TBLength+2(a6),-(sp) ; pass length (low word)
|
||
|
|
_DrawText
|
||
|
|
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
; Restore PreserveGlyph
|
||
|
|
; previous PreserveGlyph value still on stack
|
||
|
|
_SetPreserveGlyph ; <22>
|
||
|
|
;----------------------------------------------- <22>
|
||
|
|
|
||
|
|
jmpROM ROMGo14Exit ; …it's back to you, TE!
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
IF forLocalizability THEN ; <43-YDS-2/6/92>
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
; PROCEDURE ptchGetSizeAfterGetFontInfo
|
||
|
|
; <2/6/92YDS> Patched to handle the font info of an associated font
|
||
|
|
; if has one.
|
||
|
|
; come from patch on _GetFontInfo in GetSize
|
||
|
|
; can be styled or unstyled. A3 is the teRect.
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchGetSizeAfterGetFontInfo ComeFromAfterPatchProc _GetFontInfo,ROMAfterGetFInfoInGetSize,(IIci) ; <30>
|
||
|
|
|
||
|
|
; see <43> <43-YDS-2/6/92>.if we are in
|
||
|
|
; an un styled record, give the hight of the assoc
|
||
|
|
; font or the script font (the bigger)
|
||
|
|
Tst.W teSize(a3) ; is it styled ?
|
||
|
|
Bmi.W @NoAssocFont ; if yes, don't do anything
|
||
|
|
Move.L D3, -(SP) ; save d3 on stack for now
|
||
|
|
Subq #2,sp ; make room on stack
|
||
|
|
_FontScript ; get the script
|
||
|
|
Move.W (SP)+, D3 ; into D3
|
||
|
|
Beq.W @DoNothing ; it roman ! do nothing
|
||
|
|
Subq #4,sp ; make room on stack, will use it later
|
||
|
|
Move.W D3, -(SP) ; push script number on stack for later
|
||
|
|
Cmp.W #sysFont, teFont(A3) ; is it system font ?
|
||
|
|
Beq.S @SystemFont ; yes
|
||
|
|
Cmp.W #applFont, teFont(A3) ; is it app font ?
|
||
|
|
Beq.S @AppFont ; yes
|
||
|
|
Subq #4,sp ; make room on stack for result
|
||
|
|
Move.W D3, -(SP) ; push script # on stack
|
||
|
|
Move.W #smScriptSysFond, -(SP) ; push verb
|
||
|
|
_GetScript ; get the system pref fond id
|
||
|
|
Move.L (SP)+, D0 ; take result font
|
||
|
|
Cmp.W teFont(A3), D0 ; are you sure it's not system font ?
|
||
|
|
Beq.S @SystemFont ; it is !
|
||
|
|
Subq #4,sp ; make room on stack for result
|
||
|
|
Move.W D3, -(SP) ; push script # on stack
|
||
|
|
Move.W #smScriptAppFond, -(SP) ; push verb
|
||
|
|
_GetScript ; get the application pref fond id
|
||
|
|
Move.L (SP)+, D0 ; take result font
|
||
|
|
Cmp.W teFont(A3), D0 ; are you sure it's not application font ?
|
||
|
|
Beq.S @AppFont ; it is !
|
||
|
|
@OtherFont Move.W #smScriptFntBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
Bra.S @GetTheFont ; so push the right verb
|
||
|
|
@SystemFont Move.W #smScriptSysBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
Bra.S @GetTheFont ; so push the right verb
|
||
|
|
@AppFont Move.W #smScriptAppBase ,-(SP) ; we have result space & script # on stack allready
|
||
|
|
@GetTheFont _GetScript ; so push the right verb
|
||
|
|
Move.L (SP)+, D0 ; get the associated font
|
||
|
|
Tst.W D0 ; teat the low word <44-YDS-4/2/92>
|
||
|
|
Beq.S @DoNothing ; no associated font ? bail out !
|
||
|
|
Move.L (SP)+, D3 ; restore D3, we need a fresh stack
|
||
|
|
Move.L teGrafPort(A3),A0 ; get thePort
|
||
|
|
Move.W D0, txFont(A0) ; set the font to the assoc font
|
||
|
|
SubQ #8,SP ; space on stack
|
||
|
|
Move.L SP,-(SP) ; push addres
|
||
|
|
_GetFontInfo ; get the assoc font info
|
||
|
|
Move.L teGrafPort(A3),A0 ; get thePort
|
||
|
|
Move.W teFont(A3), txFont(A0) ; restore the font
|
||
|
|
Move.W (SP)+, D0 ; get assoc font ascent
|
||
|
|
Cmp.W 6(SP), D0 ; compare with script font ascent
|
||
|
|
Bgt.S @1
|
||
|
|
Move.W D0, 6(SP) ; let the bigger one win !
|
||
|
|
@1 Move.W (SP)+, D0 ; get assoc font descent
|
||
|
|
Cmp.W 6(SP), D0 ; compare with script font ascent
|
||
|
|
Bgt.S @2
|
||
|
|
Move.W D0, 6(SP) ; let the bigger one win !
|
||
|
|
@2 AddQ #2,SP ; skip max wid
|
||
|
|
Move.W (SP)+, D0 ; get assoc font leading
|
||
|
|
Cmp.W 6(SP), D0 ; compare with script font ascent
|
||
|
|
Bgt.S @3
|
||
|
|
Move.W D0, 6(SP) ; let the bigger one win !
|
||
|
|
@3 Bra.S @NoAssocFont ; back to normal !
|
||
|
|
@DoNothing
|
||
|
|
Move.L (SP)+, D3 ; restore D3,
|
||
|
|
@NoAssocFont
|
||
|
|
jmpROM ROMAfterGetFInfoInGetSize ; …it's back to you, TE!
|
||
|
|
ENDPROC
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; PROCEDURE ptchTEDispose
|
||
|
|
;
|
||
|
|
; <1/16/91smb> Patched to call DumpBuffer (since not
|
||
|
|
; everyone calls TEIdle like they should) to empty
|
||
|
|
; text buffer, clear byte count, and dispose of handle. <20>
|
||
|
|
;
|
||
|
|
; Entry: teHandle on stack
|
||
|
|
;
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
ptchTEDispose PROC EXPORT
|
||
|
|
|
||
|
|
link a6,#0
|
||
|
|
movem.l d2-d7/a2-a4,-(SP) ; save stdregs
|
||
|
|
move.l 8(a6),a4 ; Pop handle into A4
|
||
|
|
move.l (a4),a3 ; Dereference into A3
|
||
|
|
|
||
|
|
; dump text buffer before exiting (cleanup!) <21>
|
||
|
|
move.l teDispatchH(a3),a0
|
||
|
|
move.l (a0),a0
|
||
|
|
move.l newTEFlags(a0),d0 ; move into reg for modulo 32 bit ops <20>
|
||
|
|
btst #teFTextBuffering,d0
|
||
|
|
beq.s @noBuffer
|
||
|
|
import ptchDumpBuffer
|
||
|
|
bsr ptchDumpBuffer ; dump text from buffer
|
||
|
|
@noBuffer
|
||
|
|
jmpROM ROMinTEDispose ; finish disposing all other handles
|
||
|
|
ENDPROC
|
||
|
|
|
||
|
|
;---------------------------------------------------------------------- <29>
|
||
|
|
; PROCEDURE ptchHiliteTextPreserveA4 <29>
|
||
|
|
; <2/12/91smb> Patched to preserve a4 across call to <29>
|
||
|
|
; ptchInvrtRectangle. <29>
|
||
|
|
;---------------------------------------------------------------------- <29>
|
||
|
|
ptchHiliteTextPreserveA4 ComeFromAfterPatchProc _ScriptUtil,AfterHiliteText,(IIci) ; <29>
|
||
|
|
; come from patch on _HiliteText in teHiliteText <29>
|
||
|
|
|
||
|
|
HiliteTxtRegs reg d2-d4/a0/a1 ; <29>
|
||
|
|
|
||
|
|
movem.l (sp)+,HiliteTxtRegs ; <29>
|
||
|
|
|
||
|
|
; HiliteText returns 3 pairs of possibly disjoint char offsets within a style run for highlighting. <29>
|
||
|
|
moveq #2,d7 ; set up dbra:counter for OffsetTable pairs <29>
|
||
|
|
@tblLoop ; <29>
|
||
|
|
move.w (a4)+,d0 ; get offset1 of pair <29>
|
||
|
|
move.w (a4)+,d1 ; get offset2 of pair <29>
|
||
|
|
cmp.w d0,d1 ; equal? <29>
|
||
|
|
beq.s @nxtPair ; yes,skip: pair is empty <29>
|
||
|
|
|
||
|
|
; process a pair from HiLiteText <29>
|
||
|
|
move.l a4,-(sp) ; preserve pairs counter and offset pairs <29>
|
||
|
|
; want to restore a4 to contain the teHandle <29>
|
||
|
|
move.l 4(sp),a4 ; teHandle on the stack <29>
|
||
|
|
bsr ptchInvrtRectangle ; skip the vector to avoid wiping out a4! <29>
|
||
|
|
move.l (sp)+,a4 ; <29>
|
||
|
|
|
||
|
|
@nxtPair ; <29>
|
||
|
|
dbra d7,@tblLoop ; loop thru record <29>
|
||
|
|
move.l (sp)+,a4 ; restore original value <22Dec88smb> <29>
|
||
|
|
rts ; <29>
|
||
|
|
ENDPROC ; <29>
|
||
|
|
ENDIF ; IF SysVers>=$700 THEN
|
||
|
|
;----------------------------------------------------------------------
|
||
|
|
|
||
|
|
MakePatch ptchSetFont2Keyboard,ExpandMemRec.vSetFont2Keyboard
|
||
|
|
MakePatch ptchCursorMovement,ExpandMemRec.vCursorMovement
|
||
|
|
MakePatch ptchTEGetFormatOrder,ExpandMemRec.vteGetFormatOrder
|
||
|
|
MakePatch ptchCaretDisplay,ExpandMemRec.vCaretDisplay
|
||
|
|
MakePatch ptchGetStylesInOrder,ExpandMemRec.vGetStylesInOrder
|
||
|
|
MakePatch ptchOnSameLine,ExpandMemRec.vOnSameLine
|
||
|
|
MakePatch ptchTestRunDirection,ExpandMemRec.vTestRunDirection
|
||
|
|
MakePatch ptchMeasureWidth,ExpandMemRec.vMeasureWidth
|
||
|
|
MakePatch ptchTEBufferText,ExpandMemRec.vTEBufferText
|
||
|
|
MakePatch ptchDumpBuffer,ExpandMemRec.vDumpBuffer
|
||
|
|
MakePatch ptchBufferChar,ExpandMemRec.vBufferChar
|
||
|
|
MakePatch ptchGetWidth,ExpandMemRec.vGetWidth
|
||
|
|
MakePatch ptchGetRLPosition,ExpandMemRec.vGetRLPosition
|
||
|
|
MakePatch ptchCaretInsideRun,ExpandMemRec.vCaretInsideRun
|
||
|
|
MakePatch ptchInvrtRectangle,ExpandMemRec.vInvrtRectangle
|
||
|
|
MakePatch ptchSetKeyboard2Font,ExpandMemRec.vSetKeyboard2Font
|
||
|
|
MakePatch ptchGetLRPosition,ExpandMemRec.vGetLRPosition
|
||
|
|
MakePatch ptchPixelWidths,ExpandMemRec.vPixelWidths
|
||
|
|
IF hasTextWidthHook THEN ; <17>
|
||
|
|
MakePatch ptchMeasureWholeRun,ExpandMemRec.vMeasureWholeRun ; <17>
|
||
|
|
MakePatch ptchDoErase,ExpandMemRec.vDoErase ; <17>
|
||
|
|
ENDIF ; <17>
|
||
|
|
IF forLocalizability THEN
|
||
|
|
MakePatch ptchOnLineEnd,ExpandMemRec.vOnLineEnd ; <34a-YDS-9/2/91>
|
||
|
|
ENDIF
|
||
|
|
MakePatch ptchTEInit,$A9CC
|
||
|
|
MakePatch ptchTEStylNew,$A83E
|
||
|
|
MakePatch ptchTESetSelect,$A9D1
|
||
|
|
MakePatch ptchTENew,$A9D2
|
||
|
|
MakePatch ptchTEUpdate,$A9D3
|
||
|
|
MakePatch ptchTEClick,$A9D4
|
||
|
|
MakePatch ptchTEDispatch,$A83D
|
||
|
|
MakePatch ptchTEGetText,$A9CB
|
||
|
|
MakePatch ptchTESetText,$A9CF
|
||
|
|
MakePatch ptchTECalText,$A9D0
|
||
|
|
MakePatch ptchTECopy,$A9D5
|
||
|
|
MakePatch ptchTECut,$A9D6
|
||
|
|
MakePatch ptchTEIdle,$A9DA
|
||
|
|
MakePatch ptchTEPaste,$A9DB
|
||
|
|
MakePatch ptchTEInsert,$A9DE
|
||
|
|
MakePatch ptchTESetJust,$A9DF
|
||
|
|
MakePatch ptchTEScroll,$A9DD
|
||
|
|
MakePatch ptchTEPinScroll,$A812
|
||
|
|
MakePatch ptchTESelView,$A811
|
||
|
|
MakePatch ptchTEAutoView,$A813
|
||
|
|
MakePatch ptchTEGetOffset,$A83C
|
||
|
|
MakePatch ptchTEKey,$A9DC
|
||
|
|
MakePatch ptchTEDelete,$A9D7
|
||
|
|
MakePatch ptchTEActivate,$A9D8
|
||
|
|
MakePatch ptchTEDeactivate,$A9D9
|
||
|
|
MakePatch ptchTrimMeasure,TETrimMeasure
|
||
|
|
MakePatch ptchTEDoText,TEDoText
|
||
|
|
IF SysVers>= $700 THEN ; <19>
|
||
|
|
MakePatch ptchReCalLines,TERecal ; <19>
|
||
|
|
MakePatch ptchTEDispose, $A9CD ; <20>
|
||
|
|
ENDIF ; <19>
|
||
|
|
IF forLocalizability THEN ; <41-YDS-1/30/92>, istall a new patch
|
||
|
|
MakePatch ptchTextBox, $A9CE
|
||
|
|
ENDIF
|
||
|
|
GestaltTEInstall InstallProc
|
||
|
|
IMPORT GestaltTEciVersion
|
||
|
|
move.l #gestaltTextEditVersion, d0
|
||
|
|
leaResident GestaltTEciVersion, a0
|
||
|
|
_NewGestalt
|
||
|
|
rts
|
||
|
|
EndProc
|
||
|
|
|
||
|
|
END
|
||
|
|
;———————————————————————————————————————————————————————————
|
||
|
|
;****************** EOP (End of Patch!) **************
|
||
|
|
;———————————————————————————————————————————————————————————
|
||
|
|
|