The Trunk: EToys-nice.292.mcz

> Nicolas Cellier uploaded a new version of EToys to project The Trunk:
> http://source.squeak.org/trunk/EToys-nice.292.mcz
>
> ==================== Summary ====================
>
> Name: EToys-nice.292
> Author: nice
> Time: 15 April 2017, 3:44:39.800437 pm
> UUID: 39acfe15-791f-41c6-8aad-d679664643e7
> Ancestors: EToys-eem.291
>
> Remove the Multi*Scanner, MultiNewParagraph, MultiComposer because they have
> no additional value.
>
> =============== Diff against EToys-eem.291 ===============
>
> Item was changed:
>   SystemOrganization addCategory: #'Etoys-Buttons'!
>   SystemOrganization addCategory: #'Etoys-CustomEvents'!
>   SystemOrganization addCategory: #'Etoys-Experimental'!
>   SystemOrganization addCategory: #'Etoys-Outliner'!
>   SystemOrganization addCategory: #'Etoys-Protocols'!
>   SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'!
>   SystemOrganization addCategory: #'Etoys-Scripting'!
>   SystemOrganization addCategory: #'Etoys-Scripting Support'!
>   SystemOrganization addCategory: #'Etoys-Scripting Tiles'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-BroomMorphs-Connectors'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting
> Support'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-External'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Graphics-Tools-Intersection'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Graphics-Tools-Simplification'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Graphics-Tools-Triangulation'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-MorphicExtras-Postscript Filters'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-WebCam'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Multilingual-Languages'!
> - SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Scanning'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Multilingual-TextConversion'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Network-HTML-Formatter'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser
> Entities'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Network-HTML-Tokenizer'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet
> WordNet'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type
> Vocabularies'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-System-Clipboard-Extended'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions
> Kernel'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-File Contents
> Browser'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'!
>   SystemOrganization addCategory:
> #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'!
>   SystemOrganization addCategory: #'Etoys-Stacks'!
>   SystemOrganization addCategory: #'Etoys-StarSqueak'!
>   SystemOrganization addCategory: #'Etoys-Support'!
>   SystemOrganization addCategory: #'Etoys-Tests'!
>   SystemOrganization addCategory: #'Etoys-Tile Scriptors'!
>   SystemOrganization addCategory: #'Etoys-Widgets'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-Support'!
>   SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'!
>   SystemOrganization addCategory: #'Etoys-OLPC-Display'!
>   SystemOrganization addCategory: #'Etoys-ReleaseBuilder'!
>   SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'!
>
> Item was removed:
> - ----- Method:
> GrafPort>>displayScannerForMulti:foreground:background:ignoreColorChanges:
> (in category '*Etoys-Squeakland-accessing') -----
> - displayScannerForMulti: para foreground: foreColor background: backColor
> ignoreColorChanges: shadowMode
> -
> - ((para isMemberOf: MultiNewParagraph) or: [para text string
> isByteString]) ifTrue: [
> - ^ (MultiDisplayScanner new text: para presentationText textStyle: para
> textStyle
> - foreground: foreColor background: backColor fillBlt: self
> - ignoreColorChanges: shadowMode)
> - setPort: self clone
> - ].
> - ^ (DisplayScanner new text: para text textStyle: para textStyle
> - foreground: foreColor background: backColor fillBlt: self
> - ignoreColorChanges: shadowMode)
> - setPort: self clone
> - !
>
> Item was removed:
> - MultiCharacterScanner subclass: #MultiCanvasCharacterScanner
> - instanceVariableNames: 'canvas fillBlt foregroundColor runX lineY'
> - classVariableNames: ''
> - poolDictionaries: ''
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>canvas: (in category
> 'accessing') -----
> - canvas: aCanvas
> - "set the canvas to draw on"
> - canvas ifNotNil: [ self inform: 'initializing twice!!' ].
> - canvas := aCanvas!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>cr (in category 'stop
> conditions') -----
> - cr
> - "When a carriage return is encountered, simply increment the pointer
> - into the paragraph."
> -
> - lastIndex := lastIndex + 1.
> - ^false!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>crossedX (in category 'stop
> conditions') -----
> - crossedX
> - "This condition will sometimes be reached 'legally' during display, when,
> - for instance the space that caused the line to wrap actually extends over
> - the right boundary. This character is allowed to display, even though it
> - is technically outside or straddling the clipping ectangle since it is in
> - the normal case not visible and is in any case appropriately clipped by
> - the scanner."
> -
> - "self fillLeading."
> - ^ true !
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>displayLine:offset:leftInRun:
> (in category 'scanning') -----
> - displayLine: textLine  offset: offset  leftInRun: leftInRun
> - |  nowLeftInRun done startLoc startIndex stopCondition |
> - "largely copied from DisplayScanner's routine"
> -
> - line := textLine.
> - foregroundColor ifNil: [ foregroundColor := Color black ].
> - leftMargin := (line leftMarginForAlignment: alignment) + offset x.
> -
> - rightMargin := line rightMargin + offset x.
> - lineY := line top + offset y.
> - lastIndex := textLine first.
> - leftInRun <= 0
> - ifTrue: [self setStopConditions.  "also sets the font"
> - nowLeftInRun := text runLengthFor: lastIndex]
> - ifFalse: [nowLeftInRun := leftInRun].
> - runX := destX := leftMargin.
> -
> - runStopIndex := lastIndex + (nowLeftInRun - 1) min: line last.
> - spaceCount := 0.
> - done := false.
> -
> - [done] whileFalse: [
> - "remember where this portion of the line starts"
> - startLoc := destX@destY.
> - startIndex := lastIndex.
> -
> - "find the end of this portion of the line"
> - stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: text string rightX: rightMargin stopConditions: stopConditions
> - kern: kern "displaying: false".
> -
> - "display that portion of the line"
> - canvas drawString: text string
> - from: startIndex to: lastIndex
> - at: startLoc
> - font: font
> - color: foregroundColor.
> -
> - "handle the stop condition"
> - done := self perform: stopCondition
> - ].
> -
> - ^runStopIndex - lastIndex!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>doesDisplaying (in category
> 'private') -----
> - doesDisplaying
> - ^false   "it doesn't do displaying using copyBits"!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>endOfRun (in category 'stop
> conditions') -----
> - endOfRun
> - "The end of a run in the display case either means that there is actually
> - a change in the style (run code) to be associated with the string or the
> - end of this line has been reached."
> - | runLength |
> -
> - lastIndex = line last ifTrue: [^true].
> - runX := destX.
> - runLength := text runLengthFor: (lastIndex := lastIndex + 1).
> - runStopIndex := lastIndex + (runLength - 1) min: line last.
> - self setStopConditions.
> - ^ false!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>paddedSpace (in category 'stop
> conditions') -----
> - paddedSpace
> - "Each space is a stop condition when the alignment is right justified.
> - Padding must be added to the base width of the space according to
> - which space in the line this space is and according to the amount of
> - space that remained at the end of the line when it was composed."
> -
> - destX := destX + spaceWidth + (line justifiedPadFor: spaceCount).
> -
> - lastIndex := lastIndex + 1.
> - ^ false!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>setFont (in category 'private')
> -----
> - setFont
> - foregroundColor ifNil: [foregroundColor := Color black].
> - super setFont.
> - baselineY := lineY + line baseline.
> - destY := baselineY - font ascent.!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>setStopConditions (in category
> 'stop conditions') -----
> - setStopConditions
> - "Set the font and the stop conditions for the current run."
> -
> - self setFont.
> - self setConditionArray: (textStyle alignment = Justified ifTrue:
> [#paddedSpace]).
> - !
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>tab (in category 'stop
> conditions') -----
> - tab
> -
> - destX := (alignment == Justified and: [self leadingTab not])
> - ifTrue: "imbedded tabs in justified text are weird"
> - [destX + (textStyle tabWidth - (line justifiedTabDeltaFor: spaceCount))
> max: destX]
> - ifFalse:
> - [textStyle nextTabXFrom: destX
> - leftMargin: leftMargin
> - rightMargin: rightMargin].
> -
> - lastIndex := lastIndex + 1.
> - ^ false!
>
> Item was removed:
> - ----- Method: MultiCanvasCharacterScanner>>textColor: (in category
> 'private') -----
> - textColor: color
> - foregroundColor := color!
>
> Item was removed:
> - MultiCharacterScanner subclass: #MultiCharacterBlockScanner
> - instanceVariableNames: 'characterPoint characterIndex lastCharacter
> lastCharacterExtent lastSpaceOrTabExtent nextLeftMargin specialWidth'
> - classVariableNames: ''
> - poolDictionaries: ''
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>buildCharacterBlockIn: (in
> category 'private') -----
> - buildCharacterBlockIn: para
> - | lineIndex runLength lineStop done stopCondition |
> - "handle nullText"
> - (para numberOfLines = 0 or: [text size = 0])
> - ifTrue: [^ CharacterBlock new stringIndex: 1  "like being off end of
> string"
> - text: para text
> - topLeft: (para leftMarginForDisplayForLine: 1 alignment: (alignment
> ifNil:[textStyle alignment]))
> - @ para compositionRectangle top
> - extent: 0 @ textStyle lineGrid].
> - "find the line"
> - lineIndex := para lineIndexOfTop: characterPoint y.
> - destY := para topAtLineIndex: lineIndex.
> - line := para lines at: lineIndex.
> - rightMargin := para rightMarginForDisplay.
> -
> - (lineIndex = para numberOfLines and:
> - [(destY + line lineHeight) < characterPoint y])
> - ifTrue: ["if beyond lastLine, force search to last character"
> - self characterPointSetX: rightMargin]
> - ifFalse: [characterPoint y < (para compositionRectangle) top
> - ifTrue: ["force search to first line"
> - characterPoint := (para compositionRectangle) topLeft].
> - characterPoint x > rightMargin
> - ifTrue: [self characterPointSetX: rightMargin]].
> - destX := (leftMargin := para leftMarginForDisplayForLine: lineIndex
> alignment: (alignment ifNil:[textStyle alignment])).
> - nextLeftMargin := para leftMarginForDisplayForLine: lineIndex+1
> alignment: (alignment ifNil:[textStyle alignment]).
> - lastIndex := line first.
> -
> - self setStopConditions. "also sets font"
> - runLength := (text runLengthFor: line first).
> - characterIndex == nil
> - ifTrue: [lineStop := line last  "characterBlockAtPoint"]
> - ifFalse: [lineStop := characterIndex  "characterBlockForIndex"].
> - (runStopIndex := lastIndex + (runLength - 1)) > lineStop
> - ifTrue: [runStopIndex := lineStop].
> - lastCharacterExtent := 0 @ line lineHeight.
> - spaceCount := 0. done  := false.
> - self handleIndentation.
> -
> - [done]
> - whileFalse:
> - [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: text string rightX: characterPoint x
> - stopConditions: stopConditions kern: kern.
> -
> - "see setStopConditions for stopping conditions for character block
> operations."
> - self lastCharacterExtentSetX: (font widthOf: (text at: lastIndex)).
> - (self perform: stopCondition) ifTrue:
> - [characterIndex == nil
> - ifTrue: ["characterBlockAtPoint"
> - ^ CharacterBlock new stringIndex: lastIndex text: text
> - topLeft: characterPoint + (font descentKern @ 0)
> - extent: lastCharacterExtent]
> - ifFalse: ["characterBlockForIndex"
> - ^ CharacterBlock new stringIndex: lastIndex text: text
> - topLeft: characterPoint + ((font descentKern) - kern @ 0)
> - extent: lastCharacterExtent]]]!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>characterBlockAtPoint:in: (in
> category 'scanning') -----
> - characterBlockAtPoint: aPoint in: aParagraph
> - "Answer a CharacterBlock for character in aParagraph at point aPoint. It
> - is assumed that aPoint has been transformed into coordinates appropriate
> - to the text's destination form rectangle and the composition rectangle."
> -
> - self initializeFromParagraph: aParagraph clippedBy: aParagraph
> clippingRectangle.
> - characterPoint := aPoint.
> - ^self buildCharacterBlockIn: aParagraph!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>characterBlockAtPoint:index:in:
> (in category 'scanning') -----
> - characterBlockAtPoint: aPoint index: index in: textLine
> - "This method is the Morphic characterBlock finder.  It combines
> - MVC's characterBlockAtPoint:, -ForIndex:, and buildCharcterBlock:in:"
> - | runLength lineStop done stopCondition |
> - line := textLine.
> - rightMargin := line rightMargin.
> - lastIndex := line first.
> - self setStopConditions. "also sets font"
> - characterIndex := index.  " == nil means scanning for point"
> - characterPoint := aPoint.
> - (characterPoint isNil or: [characterPoint y > line bottom])
> - ifTrue: [characterPoint := line bottomRight].
> - (text isEmpty or: [(characterPoint y < line top or: [characterPoint x <
> line left])
> - or: [characterIndex notNil and: [characterIndex < line first]]])
> - ifTrue: [^ (CharacterBlock new stringIndex: line first text: text
> - topLeft: line leftMargin@line top extent: 0 @ textStyle lineGrid)
> - textLine: line].
> - destX := leftMargin := line leftMarginForAlignment: alignment.
> - destY := line top.
> - runLength := text runLengthFor: line first.
> - characterIndex
> - ifNotNil: [lineStop := characterIndex  "scanning for index"]
> - ifNil: [lineStop := line last  "scanning for point"].
> - runStopIndex := lastIndex + (runLength - 1) min: lineStop.
> - lastCharacterExtent := 0 @ line lineHeight.
> - spaceCount := 0.
> -
> - done  := false.
> - [done] whileFalse:
> - [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: text string rightX: characterPoint x
> - stopConditions: stopConditions kern: kern.
> - "see setStopConditions for stopping conditions for character block
> operations."
> - self lastCharacterExtentSetX: (specialWidth
> - ifNil: [font widthOf: (text at: lastIndex)]
> - ifNotNil: [specialWidth]).
> - (self perform: stopCondition) ifTrue:
> - [characterIndex
> - ifNil: [
> - "Result for characterBlockAtPoint: "
> - (stopCondition ~~ #cr and: [ lastIndex == line last
> - and: [ aPoint x > ((characterPoint x) + (lastCharacterExtent x / 2))
> ]])
> - ifTrue: [ "Correct for right half of last character in line"
> - ^ (CharacterBlock new stringIndex: lastIndex + 1
> - text: text
> - topLeft: characterPoint + (lastCharacterExtent x @ 0) + (font
> descentKern @ 0)
> - extent:  0 @ lastCharacterExtent y)
> - textLine: line ].
> - ^ (CharacterBlock new stringIndex: lastIndex
> - text: text topLeft: characterPoint + (font descentKern @ 0)
> - extent: lastCharacterExtent - (font baseKern @ 0))
> - textLine: line]
> - ifNotNil: ["Result for characterBlockForIndex: "
> - ^ (CharacterBlock new stringIndex: characterIndex
> - text: text topLeft: characterPoint + ((font descentKern) - kern @
> 0)
> - extent: lastCharacterExtent)
> - textLine: line]]]!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>characterBlockForIndex:in: (in
> category 'scanning') -----
> - characterBlockForIndex: targetIndex in: aParagraph
> - "Answer a CharacterBlock for character in aParagraph at targetIndex. The
> - coordinates in the CharacterBlock will be appropriate to the intersection
> - of the destination form rectangle and the composition rectangle."
> -
> - self
> - initializeFromParagraph: aParagraph
> - clippedBy: aParagraph clippingRectangle.
> - characterIndex := targetIndex.
> - characterPoint :=
> - aParagraph rightMarginForDisplay @
> - (aParagraph topAtLineIndex:
> - (aParagraph lineIndexOfCharacterIndex: characterIndex)).
> - ^self buildCharacterBlockIn: aParagraph!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>characterPointSetX: (in category
> 'private') -----
> - characterPointSetX: xVal
> - characterPoint := xVal @ characterPoint y!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>cr (in category 'stop
> conditions') -----
> - cr
> - "Answer a CharacterBlock that specifies the current location of the mouse
> - relative to a carriage return stop condition that has just been
> - encountered. The ParagraphEditor convention is to denote selections by
> - CharacterBlocks, sometimes including the carriage return (cursor is at
> - the end) and sometimes not (cursor is in the middle of the text)."
> -
> - ((characterIndex ~= nil
> - and: [characterIndex > text size])
> - or: [(line last = text size)
> - and: [(destY + line lineHeight) < characterPoint y]])
> - ifTrue: ["When off end of string, give data for next character"
> - destY := destY +  line lineHeight.
> - baselineY := line lineHeight.
> - lastCharacter := nil.
> - characterPoint := (nextLeftMargin ifNil: [leftMargin]) @ destY.
> - lastIndex := lastIndex + 1.
> - self lastCharacterExtentSetX: 0.
> - ^ true].
> - lastCharacter := CR.
> - characterPoint := destX @ destY.
> - self lastCharacterExtentSetX: rightMargin - destX.
> - ^true!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>crossedX (in category 'stop
> conditions') -----
> - crossedX
> - "Text display has wrapping. The scanner just found a character past the x
> - location of the cursor. We know that the cursor is pointing at a
> character
> - or before one."
> -
> - | leadingTab currentX |
> - characterIndex == nil ifFalse: [
> - "If the last character of the last line is a space,
> - and it crosses the right margin, then locating
> - the character block after it is impossible without this hack."
> - characterIndex > text size ifTrue: [
> - lastIndex := characterIndex.
> - characterPoint := (nextLeftMargin ifNil: [leftMargin]) @ (destY + line
> lineHeight).
> - ^true]].
> - characterPoint x <= (destX + (lastCharacterExtent x // 2))
> - ifTrue: [lastCharacter := (text at: lastIndex).
> - characterPoint := destX @ destY.
> - ^true].
> - lastIndex >= line last
> - ifTrue: [lastCharacter := (text at: line last).
> - characterPoint := destX @ destY.
> - ^true].
> -
> - "Pointing past middle of a character, return the next character."
> - lastIndex := lastIndex + 1.
> - lastCharacter := text at: lastIndex.
> - currentX := destX + lastCharacterExtent x + kern.
> - self lastCharacterExtentSetX: (font widthOf: lastCharacter).
> - characterPoint := currentX @ destY.
> - lastCharacter = Space ifFalse: [^ true].
> -
> - "Yukky if next character is space or tab."
> - alignment = Justified ifTrue:
> - [self lastCharacterExtentSetX:
> - (lastCharacterExtent x + (line justifiedPadFor: (spaceCount + 1))).
> - ^ true].
> -
> - true ifTrue: [^ true].
> - "NOTE:  I find no value to the following code, and so have defeated it -
> DI"
> -
> - "See tabForDisplay for illumination on the following awfulness."
> - leadingTab := true.
> - line first to: lastIndex - 1 do:
> - [:index | (text at: index) ~= Tab ifTrue: [leadingTab := false]].
> - (alignment ~= Justified or: [leadingTab])
> - ifTrue: [self lastCharacterExtentSetX: (textStyle nextTabXFrom: currentX
> - leftMargin: leftMargin rightMargin: rightMargin) -
> - currentX]
> - ifFalse: [self lastCharacterExtentSetX:  (((currentX + (textStyle
> tabWidth -
> - (line justifiedTabDeltaFor: spaceCount))) -
> - currentX) max: 0)].
> - ^ true!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>endOfRun (in category 'stop
> conditions') -----
> - endOfRun
> - "Before arriving at the cursor location, the selection has encountered an
> - end of run. Answer false if the selection continues, true otherwise. Set
> - up indexes for building the appropriate CharacterBlock."
> -
> - | runLength lineStop |
> - (((characterIndex ~~ nil and:
> - [runStopIndex < characterIndex and: [runStopIndex < text size]])
> - or: [characterIndex == nil and: [lastIndex < line last]]) or: [
> - ((lastIndex < line last)
> - and: [((text at: lastIndex) leadingChar ~= (text at: lastIndex+1)
> leadingChar)
> - and: [lastIndex ~= characterIndex]])])
> - ifTrue: ["We're really at the end of a real run."
> - runLength := (text runLengthFor: (lastIndex := lastIndex + 1)).
> - characterIndex ~~ nil
> - ifTrue: [lineStop := characterIndex "scanning for index"]
> - ifFalse: [lineStop := line last "scanning for point"].
> - (runStopIndex := lastIndex + (runLength - 1)) > lineStop
> - ifTrue: [runStopIndex := lineStop].
> - self setStopConditions.
> - ^false].
> -
> - lastCharacter := text at: lastIndex.
> - characterPoint := destX @ destY.
> - ((lastCharacter = Space and: [alignment = Justified])
> - or: [lastCharacter = Tab and: [lastSpaceOrTabExtent notNil]])
> - ifTrue: [lastCharacterExtent := lastSpaceOrTabExtent].
> - characterIndex ~~ nil
> - ifTrue: ["If scanning for an index and we've stopped on that index,
> - then we back destX off by the width of the character stopped on
> - (it will be pointing at the right side of the character) and return"
> - runStopIndex = characterIndex
> - ifTrue: [self characterPointSetX: destX - lastCharacterExtent x.
> - ^true].
> - "Otherwise the requested index was greater than the length of the
> - string.  Return string size + 1 as index, indicate further that off
> the
> - string by setting character to nil and the extent to 0."
> - lastIndex :=  lastIndex + 1.
> - lastCharacter := nil.
> - self lastCharacterExtentSetX: 0.
> - ^true].
> -
> - "Scanning for a point and either off the end of the line or off the end
> of the string."
> - runStopIndex = text size
> - ifTrue: ["off end of string"
> - lastIndex :=  lastIndex + 1.
> - lastCharacter := nil.
> - self lastCharacterExtentSetX: 0.
> - ^true].
> - "just off end of line without crossing x"
> - lastIndex := lastIndex + 1.
> - ^true!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>indentationLevel: (in category
> 'scanning') -----
> - indentationLevel: anInteger
> - super indentationLevel: anInteger.
> - nextLeftMargin := leftMargin.
> - indentationLevel timesRepeat: [
> - nextLeftMargin := textStyle nextTabXFrom: nextLeftMargin
> - leftMargin: leftMargin
> - rightMargin: rightMargin]!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>lastCharacterExtentSetX: (in
> category 'private') -----
> - lastCharacterExtentSetX: xVal
> - lastCharacterExtent := xVal @ lastCharacterExtent y!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>lastSpaceOrTabExtentSetX: (in
> category 'private') -----
> - lastSpaceOrTabExtentSetX: xVal
> - lastSpaceOrTabExtent := xVal @ lastSpaceOrTabExtent y!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>paddedSpace (in category 'stop
> conditions') -----
> - paddedSpace
> - "When the line is justified, the spaces will not be the same as the
> font's
> - space character. A padding of extra space must be considered in trying
> - to find which character the cursor is pointing at. Answer whether the
> - scanning has crossed the cursor."
> -
> - | pad |
> - pad := 0.
> - spaceCount := spaceCount + 1.
> - pad := line justifiedPadFor: spaceCount.
> - lastSpaceOrTabExtent := lastCharacterExtent copy.
> - self lastSpaceOrTabExtentSetX:  spaceWidth + pad.
> - (destX + lastSpaceOrTabExtent x)  >= characterPoint x
> - ifTrue: [lastCharacterExtent := lastSpaceOrTabExtent copy.
> - ^self crossedX].
> - lastIndex := lastIndex + 1.
> - destX := destX + lastSpaceOrTabExtent x.
> - ^ false
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>placeEmbeddedObject: (in
> category 'scanning') -----
> - placeEmbeddedObject: anchoredMorph
> - "Workaround: The following should really use #textAnchorType"
> - anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
> - (super placeEmbeddedObject: anchoredMorph) ifFalse: [^ false].
> - specialWidth := anchoredMorph width.
> - ^ true!
>
> Item was removed:
> - ----- Method:
> MultiCharacterBlockScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanning') -----
> - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
> sourceString rightX: rightX stopConditions: stops kern: kernDelta
> -
> - | encoding f nextDestX maxAscii startEncoding char charValue |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> -
> - [lastIndex <= stopIndex] whileTrue: [
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - char := (sourceString at: lastIndex).
> - charValue := char charCode.
> - charValue > maxAscii ifTrue: [charValue := maxAscii].
> - (encoding = 0 and: [(stopConditions at: charValue + 1) ~~ nil]) ifTrue:
> [
> - ^ stops at: charValue + 1
> - ].
> - nextDestX := destX + (self widthOf: char inFont: font).
> - nextDestX > rightX ifTrue: [^ stops at: CrossedX].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>setFont (in category 'stop
> conditions') -----
> - setFont
> - specialWidth := nil.
> - super setFont!
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>setStopConditions (in category
> 'stop conditions') -----
> - setStopConditions
> - "Set the font and the stop conditions for the current run."
> -
> - self setFont.
> - self setConditionArray: (alignment = Justified ifTrue: [#paddedSpace]).
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterBlockScanner>>tab (in category 'stop
> conditions') -----
> - tab
> - | currentX |
> - currentX := (alignment == Justified and: [self leadingTab not])
> - ifTrue: "imbedded tabs in justified text are weird"
> - [destX + (textStyle tabWidth - (line justifiedTabDeltaFor: spaceCount))
> max: destX]
> - ifFalse:
> - [textStyle
> - nextTabXFrom: destX
> - leftMargin: leftMargin
> - rightMargin: rightMargin].
> - lastSpaceOrTabExtent := lastCharacterExtent copy.
> - self lastSpaceOrTabExtentSetX: (currentX - destX max: 0).
> - currentX >= characterPoint x
> - ifTrue:
> - [lastCharacterExtent := lastSpaceOrTabExtent copy.
> - ^ self crossedX].
> - destX := currentX.
> - lastIndex := lastIndex + 1.
> - ^false!
>
> Item was removed:
> - Object subclass: #MultiCharacterScanner
> - instanceVariableNames: 'destX lastIndex xTable destY stopConditions text
> textStyle alignment leftMargin rightMargin font line runStopIndex spaceCount
> spaceWidth emphasisCode kern indentationLevel wantsColumnBreaks presentation
> presentationLine numOfComposition baselineY firstDestX'
> - classVariableNames: 'DefaultStopConditions NilCondition
> PaddedSpaceCondition SpaceCondition'
> - poolDictionaries: 'TextConstants'
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner class>>initialize (in category 'class
> initialization') -----
> - initialize
> - "
> - MultiCharacterScanner initialize
> - "
> - | a |
> - a := Array new: 258.
> - a at: 1 + 1 put: #embeddedObject.
> - a at: Tab asciiValue + 1 put: #tab.
> - a at: CR asciiValue + 1 put: #cr.
> - a at: EndOfRun put: #endOfRun.
> - a at: CrossedX put: #crossedX.
> - NilCondition := a copy.
> - DefaultStopConditions := a copy.
> -
> - PaddedSpaceCondition := a copy.
> - PaddedSpaceCondition at: Space asciiValue + 1 put: #paddedSpace.
> -
> - SpaceCondition := a copy.
> - SpaceCondition at: Space asciiValue + 1 put: #space.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>addCharToPresentation: (in category
> 'multilingual scanning') -----
> - addCharToPresentation: char
> -
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>addEmphasis: (in category 'private')
> -----
> - addEmphasis: code
> - "Set the bold-ital-under-strike emphasis."
> - emphasisCode := emphasisCode bitOr: code!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>addKern: (in category 'private')
> -----
> - addKern: kernDelta
> - "Set the current kern amount."
> - kern := kern + kernDelta!
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>basicScanCharactersFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanning') -----
> - basicScanCharactersFrom: startIndex to: stopIndex in: sourceString rightX:
> rightX stopConditions: stops kern: kernDelta
> - "Primitive. This is the inner loop of text display--but see
> - scanCharactersFrom: to:rightX: which would get the string,
> - stopConditions and displaying from the instance. March through source
> - String from startIndex to stopIndex. If any character is flagged with a
> - non-nil entry in stops, then return the corresponding value. Determine
> - width of each character from xTable, indexed by map.
> - If dextX would exceed rightX, then return stops at: 258.
> - Advance destX by the width of the character. If stopIndex has been
> - reached, then return stops at: 257. Optional.
> - See Object documentation whatIsAPrimitive."
> - | ascii nextDestX char |
> - <primitive: 103>
> - lastIndex := startIndex.
> - [lastIndex <= stopIndex]
> - whileTrue:
> - [char := (sourceString at: lastIndex).
> - ascii := char asciiValue + 1.
> - (stops at: ascii) == nil ifFalse: [^stops at: ascii].
> - "Note: The following is querying the font about the width
> - since the primitive may have failed due to a non-trivial
> - mapping of characters to glyphs or a non-existing xTable."
> - nextDestX := destX + (font widthOf: char).
> - nextDestX > rightX ifTrue: [^stops at: CrossedX].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1].
> - lastIndex := stopIndex.
> - ^stops at: EndOfRun!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>columnBreak (in category 'scanning')
> -----
> - columnBreak
> -
> - ^true!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>combinableChar:for: (in category
> 'scanner methods') -----
> - combinableChar: char for: prevEntity
> -
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>embeddedObject (in category
> 'scanning') -----
> - embeddedObject
> - | savedIndex |
> - savedIndex := lastIndex.
> - text attributesAt: lastIndex do:[:attr|
> - attr anchoredMorph ifNotNil:[
> - "Following may look strange but logic gets reversed.
> - If the morph fits on this line we're not done (return false for true)
> - and if the morph won't fit we're done (return true for false)"
> - (self placeEmbeddedObject: attr anchoredMorph) ifFalse:[^true]]].
> - lastIndex := savedIndex + 1. "for multiple(!!) embedded morphs"
> - ^false!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>handleIndentation (in category
> 'scanning') -----
> - handleIndentation
> - self indentationLevel timesRepeat: [
> - self plainTab]!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>indentationLevel (in category
> 'scanning') -----
> - indentationLevel
> - "return the number of tabs that are currently being placed at the
> beginning of each line"
> - ^indentationLevel ifNil:[0]!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>indentationLevel: (in category
> 'scanning') -----
> - indentationLevel: anInteger
> - "set the number of tabs to put at the beginning of each line"
> - indentationLevel := anInteger!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>initialize (in category 'initialize')
> -----
> - initialize
> - destX := destY := leftMargin := 0.!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>initializeFromParagraph:clippedBy:
> (in category 'private') -----
> - initializeFromParagraph: aParagraph clippedBy: clippingRectangle
> -
> - text := aParagraph text.
> - textStyle := aParagraph textStyle.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>initializeStringMeasurer (in category
> 'initialize') -----
> - initializeStringMeasurer
> - stopConditions := Array new: 258.
> - stopConditions at: CrossedX put: #crossedX.
> - stopConditions at: EndOfRun put: #endOfRun.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>isBreakableAt:in:in: (in category
> 'scanner methods') -----
> - isBreakableAt: index in: sourceString in: encodingClass
> -
> - ^ encodingClass isBreakableAt: index in: sourceString.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>leadingTab (in category 'scanning')
> -----
> - leadingTab
> - "return true if only tabs lie to the left"
> - line first to: lastIndex do:
> - [:i | (text at: i) == Tab ifFalse: [^ false]].
> - ^ true!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>measureString:inFont:from:to: (in
> category 'scanning') -----
> - measureString: aString inFont: aFont from: startIndex to: stopIndex
> - "WARNING: In order to use this method the receiver has to be set up using
> #initializeStringMeasurer"
> - destX := destY := lastIndex := 0.
> - baselineY := aFont ascent.
> - xTable := aFont xTable.
> - font := aFont.  " added Dec 03, 2004 "
> - " map := aFont characterToGlyphMap."
> - self scanCharactersFrom: startIndex to: stopIndex in: aString rightX:
> 999999 stopConditions: stopConditions kern: 0.
> - ^destX!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>placeEmbeddedObject: (in category
> 'scanning') -----
> - placeEmbeddedObject: anchoredMorph
> - "Place the anchoredMorph or return false if it cannot be placed.
> - In any event, advance destX by its width."
> - | w |
> - "Workaround: The following should really use #textAnchorType"
> - anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
> - destX := destX + (w := anchoredMorph width).
> - (destX > rightMargin and: [(leftMargin + w) <= rightMargin])
> - ifTrue: ["Won't fit, but would on next line"
> - ^ false].
> - lastIndex := lastIndex + 1.
> - self setFont.  "Force recalculation of emphasis for next run"
> - ^ true!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>plainTab (in category 'scanning')
> -----
> - plainTab
> - "This is the basic method of adjusting destX for a tab."
> - destX := (alignment == Justified and: [self leadingTab not])
> - ifTrue: "embedded tabs in justified text are weird"
> - [destX + (textStyle tabWidth - (line justifiedTabDeltaFor: spaceCount))
> max: destX]
> - ifFalse:
> - [textStyle nextTabXFrom: destX
> - leftMargin: leftMargin
> - rightMargin: rightMargin]!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>registerBreakableIndex (in category
> 'multilingual scanning') -----
> - registerBreakableIndex
> -
> - "Record left x and character index of the line-wrappable point.
> - The default implementation here does nothing."
> -
> - ^ false.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>removeLastCharFromPresentation (in
> category 'multilingual scanning') -----
> - removeLastCharFromPresentation
> - !
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanCharactersFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanning') -----
> - scanCharactersFrom: startIndex to: stopIndex in: sourceString rightX:
> rightX stopConditions: stops kern: kernDelta
> -
> - | startEncoding selector |
> - (sourceString isByteString) ifTrue: [^ self basicScanCharactersFrom:
> startIndex to: stopIndex in: sourceString rightX: rightX stopConditions:
> stops kern: kernDelta.].
> -
> - (sourceString isWideString) ifTrue: [
> - startIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding :=  (sourceString at: startIndex) leadingChar.
> - selector := EncodedCharSet scanSelectorAt: startEncoding.
> - ^ self perform: selector withArguments: (Array with: startIndex with:
> stopIndex with: sourceString with: rightX with: stopConditions with:
> kernDelta).
> - ].
> -
> - ^ stops at: EndOfRun
> - !
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanJapaneseCharactersFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanner methods') -----
> - scanJapaneseCharactersFrom: startIndex to: stopIndex in: sourceString
> rightX: rightX stopConditions: stops kern: kernDelta
> -
> - | ascii encoding f nextDestX maxAscii startEncoding |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - "xTable := f xTable.
> - maxAscii := xTable size - 2."
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - (font isMemberOf: HostFont) ifTrue: [
> - f := font.
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> - ].
> - [lastIndex <= stopIndex] whileTrue: [
> - "self halt."
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - ascii := (sourceString at: lastIndex) charCode.
> - ascii > maxAscii ifTrue: [ascii := maxAscii].
> - (encoding = 0 and: [(stopConditions at: ascii + 1) ~~ nil]) ifTrue: [^
> stops at: ascii + 1].
> - (self isBreakableAt: lastIndex in: sourceString in: (EncodedCharSet
> charsetAt: encoding)) ifTrue: [
> - self registerBreakableIndex.
> - ].
> - nextDestX := destX + (font widthOf: (sourceString at: lastIndex)).
> - nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue: [^ stops at:
> CrossedX]].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanner methods') -----
> - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
> sourceString rightX: rightX stopConditions: stops kern: kernDelta
> -
> - | charCode encoding f maxAscii startEncoding combining combined
> combiningIndex c |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - spaceWidth := font widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - spaceWidth := font widthOf: Space.
> - ].
> -
> - combining := nil.
> - [lastIndex <= stopIndex] whileTrue: [
> - charCode := (sourceString at: lastIndex) charCode.
> - c := (sourceString at: lastIndex).
> - combining ifNil: [
> - combining := CombinedChar new.
> - combining add: c.
> - combiningIndex := lastIndex.
> - lastIndex := lastIndex + 1.
> - ] ifNotNil: [
> - (combining add: c) ifFalse: [
> - self addCharToPresentation: (combined := combining combined).
> - combining := CombinedChar new.
> - combining add: c.
> - charCode := combined charCode.
> - encoding := combined leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1.
> - (encoding = 0 and: [(stopConditions at: charCode + 1) ~~ nil])
> ifTrue: [
> - ^ stops at: charCode + 1
> - ] ifFalse: [
> - ^ stops at: EndOfRun
> - ].
> - ].
> - charCode > maxAscii ifTrue: [charCode := maxAscii].
> - ""
> - (encoding = 0 and: [(stopConditions at: charCode + 1) ~~ nil]) ifTrue:
> [
> - combining ifNotNil: [
> - self addCharToPresentation: (combining combined).
> - ].
> - ^ stops at: charCode + 1
> - ].
> - (self isBreakableAt: lastIndex in: sourceString in: Latin1Environment)
> ifTrue: [
> - self registerBreakableIndex.
> - ].
> - destX > rightX ifTrue: [
> - destX ~= firstDestX ifTrue: [
> - lastIndex := combiningIndex.
> - self removeLastCharFromPresentation.
> - ^ stops at: CrossedX]].
> - combiningIndex := lastIndex.
> - lastIndex := lastIndex + 1.
> - ] ifTrue: [
> - lastIndex := lastIndex + 1.
> - numOfComposition := numOfComposition + 1.
> - ].
> - ].
> - ].
> - lastIndex := stopIndex.
> - combining ifNotNil: [
> - combined := combining combined.
> - self addCharToPresentation: combined.
> - "assuming that there is always enough space for at least one character".
> - destX := destX + (self widthOf: combined inFont: font).
> - ].
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanMultiCharactersFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanning') -----
> - scanMultiCharactersFrom: startIndex to: stopIndex in: sourceString rightX:
> rightX stopConditions: stops kern: kernDelta
> -
> - | ascii encoding f nextDestX maxAscii startEncoding |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> -
> - [lastIndex <= stopIndex] whileTrue: [
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - ascii := (sourceString at: lastIndex) charCode.
> - ascii > maxAscii ifTrue: [ascii := maxAscii].
> - (encoding = 0 and: [ascii < stopConditions size and: [(stopConditions
> at: ascii + 1) ~~ nil]]) ifTrue: [^ stops at: ascii + 1].
> - (self isBreakableAt: lastIndex in: sourceString in: Latin1Environment)
> ifTrue: [
> - self registerBreakableIndex.
> - ].
> - nextDestX := destX + (font widthOf: (sourceString at: lastIndex)).
> - nextDestX > rightX ifTrue: [destX ~= firstDestX ifTrue: [^ stops at:
> CrossedX]].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanMultiCharactersR2LFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanner methods') -----
> - scanMultiCharactersR2LFrom: startIndex to: stopIndex in: sourceString
> rightX: rightX stopConditions: stops kern: kernDelta
> -
> - "Note that 'rightX' really means 'endX' in R2L context.  Ie.  rightX is
> usually smaller than destX."
> - | ascii encoding f nextDestX maxAscii startEncoding |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> -
> - [lastIndex <= stopIndex] whileTrue: [
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - ascii := (sourceString at: lastIndex) charCode.
> - ascii > maxAscii ifTrue: [ascii := maxAscii].
> - (encoding = 0 and: [(stopConditions at: ascii + 1) ~~ nil]) ifTrue: [^
> stops at: ascii + 1].
> - (self isBreakableAt: lastIndex in: sourceString in: Latin1Environment)
> ifTrue: [
> - self registerBreakableIndex.
> - ].
> - nextDestX := destX - (font widthOf: (sourceString at: lastIndex)).
> - nextDestX < rightX ifTrue: [^ stops at: CrossedX].
> - destX := nextDestX - kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method:
> MultiCharacterScanner>>scanSimChineseCharactersFrom:to:in:rightX:stopConditions:kern:
> (in category 'scanner methods') -----
> - scanSimChineseCharactersFrom: startIndex to: stopIndex in: sourceString
> rightX: rightX stopConditions: stops kern: kernDelta
> -
> - | ascii encoding f nextDestX maxAscii startEncoding |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - "xTable := f xTable.
> - maxAscii := xTable size - 2."
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - (font isMemberOf: HostFont) ifTrue: [
> - f := font.
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> - ].
> - [lastIndex <= stopIndex] whileTrue: [
> - "self halt."
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - ascii := (sourceString at: lastIndex) charCode.
> - ascii > maxAscii ifTrue: [ascii := maxAscii].
> - (encoding = 0 and: [(stopConditions at: ascii + 1) ~~ nil]) ifTrue: [^
> stops at: ascii + 1].
> - (self isBreakableAt: lastIndex in: sourceString in: (EncodedCharSet
> charsetAt: encoding)) ifTrue: [
> - self registerBreakableIndex.
> - ].
> - nextDestX := destX + (font widthOf: (sourceString at: lastIndex)).
> - nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue: [^ stops at:
> CrossedX]].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>setActualFont: (in category
> 'private') -----
> - setActualFont: aFont
> - "Set the basal font to an isolated font reference."
> -
> - font := aFont!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>setAlignment: (in category 'private')
> -----
> - setAlignment: style
> - alignment := style.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>setConditionArray: (in category
> 'private') -----
> - setConditionArray: aSymbol
> -
> - aSymbol == #paddedSpace ifTrue: [^stopConditions := PaddedSpaceCondition
> "copy"].
> - "aSymbol == #space ifTrue: [^stopConditions := SpaceCondition copy]."
> - aSymbol == nil ifTrue: [^stopConditions := NilCondition "copy"].
> - self error: 'undefined stopcondition for space character'.
> - !
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>setFont (in category 'private') -----
> - setFont
> - | priorFont |
> - "Set the font and other emphasis."
> - priorFont := font.
> - text == nil ifFalse:[
> - emphasisCode := 0.
> - kern := 0.
> - indentationLevel := 0.
> - alignment := textStyle alignment.
> - font := nil.
> - (text attributesAt: lastIndex forStyle: textStyle)
> - do: [:att | att emphasizeScanner: self]].
> - font == nil ifTrue:
> - [self setFont: textStyle defaultFontIndex].
> - font := font emphasized: emphasisCode.
> - priorFont ifNotNil: [destX := destX + priorFont descentKern].
> - destX := destX - font descentKern.
> - "NOTE: next statement should be removed when clipping works"
> - leftMargin ifNotNil: [destX := destX max: leftMargin].
> - kern := kern - font baseKern.
> -
> - "Install various parameters from the font."
> - spaceWidth := font widthOf: Space.
> - xTable := font xTable.
> - " map := font characterToGlyphMap."
> - stopConditions := DefaultStopConditions.!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>setFont: (in category 'private')
> -----
> - setFont: fontNumber
> - "Set the font by number from the textStyle."
> -
> - self setActualFont: (textStyle fontAt: fontNumber)!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>text:textStyle: (in category
> 'private') -----
> - text: t textStyle: ts
> - text := t.
> - textStyle := ts!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>textColor: (in category 'private')
> -----
> - textColor: ignored
> - "Overridden in DisplayScanner"!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>wantsColumnBreaks: (in category
> 'initialize') -----
> - wantsColumnBreaks: aBoolean
> -
> - wantsColumnBreaks := aBoolean!
>
> Item was removed:
> - ----- Method: MultiCharacterScanner>>widthOf:inFont: (in category
> 'multilingual scanning') -----
> - widthOf: char inFont: aFont
> -
> - (char isMemberOf: CombinedChar) ifTrue: [
> - ^ aFont widthOf: char base.
> - ] ifFalse: [
> - ^ aFont widthOf: char.
> - ].
> -
> -
> - !
>
> Item was removed:
> - MultiCharacterScanner subclass: #MultiCompositionScanner
> - instanceVariableNames: 'spaceX lineHeight baseline breakableIndex
> lineHeightAtBreak baselineAtBreak breakAtSpace lastWidth'
> - classVariableNames: ''
> - poolDictionaries: ''
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>addCharToPresentation: (in category
> 'multilingual scanning') -----
> - addCharToPresentation: char
> -
> - presentation nextPut: char.
> - lastWidth := self widthOf: char inFont: font.
> - destX := destX + lastWidth.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>columnBreak (in category 'stop
> conditions') -----
> - columnBreak
> -
> - "Answer true. Set up values for the text line interval currently being
> - composed."
> -
> - line stop: lastIndex.
> - presentationLine stop: lastIndex - numOfComposition.
> - spaceX := destX.
> - line paddingWidth: rightMargin - spaceX.
> - presentationLine paddingWidth: rightMargin - spaceX.
> - ^true!
>
> Item was removed:
> - ----- Method:
> MultiCompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:
> (in category 'scanning') -----
> - composeFrom: startIndex inRectangle: lineRectangle
> - firstLine: firstLine leftSide: leftSide rightSide: rightSide
> - "Answer an instance of TextLineInterval that represents the next line in
> the paragraph."
> - | runLength done stopCondition |
> - "Set up margins"
> - leftMargin := lineRectangle left.
> - leftSide ifTrue: [leftMargin := leftMargin +
> - (firstLine ifTrue: [textStyle firstIndent]
> - ifFalse: [textStyle restIndent])].
> - destX := spaceX := leftMargin.
> - firstDestX := destX.
> - rightMargin := lineRectangle right.
> - rightSide ifTrue: [rightMargin := rightMargin - textStyle rightIndent].
> - lastIndex := startIndex. "scanning sets last index"
> - destY := lineRectangle top.
> - lineHeight := baseline := 0.  "Will be increased by setFont"
> - self setStopConditions. "also sets font"
> - runLength := text runLengthFor: startIndex.
> - runStopIndex := (lastIndex := startIndex) + (runLength - 1).
> - line := (TextLine start: lastIndex stop: 0 internalSpaces: 0
> paddingWidth: 0)
> - rectangle: lineRectangle.
> - presentationLine := (TextLine start: lastIndex stop: 0 internalSpaces: 0
> paddingWidth: 0)
> - rectangle: lineRectangle.
> - numOfComposition := 0.
> - spaceCount := 0.
> - self handleIndentation.
> - leftMargin := destX.
> - line leftMargin: leftMargin.
> - presentationLine leftMargin: leftMargin.
> -
> - presentation := TextStream on: (Text fromString: (WideString new: text
> size)).
> -
> - done := false.
> - [done]
> - whileFalse:
> - [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: text string rightX: rightMargin stopConditions: stopConditions
> - kern: kern.
> - "See setStopConditions for stopping conditions for composing."
> - (self perform: stopCondition)
> - ifTrue: [presentationLine lineHeight: lineHeight + textStyle leading
> - baseline: baseline + textStyle leading.
> - ^ line lineHeight: lineHeight + textStyle leading
> - baseline: baseline + textStyle leading]]!
>
> Item was removed:
> - ----- Method:
> MultiCompositionScanner>>composeLine:fromCharacterIndex:inParagraph: (in
> category 'scanning') -----
> - composeLine: lineIndex fromCharacterIndex: startIndex inParagraph:
> aParagraph
> - "Answer an instance of TextLineInterval that represents the next line in
> the paragraph."
> - | runLength done stopCondition |
> - destX := spaceX := leftMargin := aParagraph
> leftMarginForCompositionForLine: lineIndex.
> - destY := 0.
> - rightMargin := aParagraph rightMarginForComposition.
> - leftMargin >= rightMargin ifTrue: [self error: 'No room between margins
> to compose'].
> - lastIndex := startIndex. "scanning sets last index"
> - lineHeight := textStyle lineGrid.  "may be increased by setFont:..."
> - baseline := textStyle baseline.
> - baselineY := destY + baseline.
> - self setStopConditions. "also sets font"
> - self handleIndentation.
> - runLength := text runLengthFor: startIndex.
> - runStopIndex := (lastIndex := startIndex) + (runLength - 1).
> - line := TextLineInterval
> - start: lastIndex
> - stop: 0
> - internalSpaces: 0
> - paddingWidth: 0.
> - presentationLine := TextLineInterval
> - start: lastIndex
> - stop: 0
> - internalSpaces: 0
> - paddingWidth: 0.
> - numOfComposition := 0.
> - presentation := TextStream on: (Text fromString: (WideString new: text
> size)).
> - spaceCount := 0.
> - done := false.
> - [done]
> - whileFalse:
> - [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: text string rightX: rightMargin stopConditions: stopConditions
> - kern: kern.
> - "See setStopConditions for stopping conditions for composing."
> - (self perform: stopCondition)
> - ifTrue: [presentationLine lineHeight: lineHeight + textStyle leading
> - baseline: baseline + textStyle leading.
> - ^line lineHeight: lineHeight + textStyle leading
> - baseline: baseline + textStyle leading]]!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>cr (in category 'stop conditions')
> -----
> - cr
> - "Answer true. Set up values for the text line interval currently being
> - composed."
> -
> - line stop: lastIndex.
> - presentationLine stop: lastIndex - numOfComposition.
> - spaceX := destX.
> - line paddingWidth: rightMargin - spaceX.
> - presentationLine paddingWidth: rightMargin - spaceX.
> - ^true!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>crossedX (in category 'stop
> conditions') -----
> - crossedX
> - "There is a word that has fallen across the right edge of the composition
> - rectangle. This signals the need for wrapping which is done to the last
> - space that was encountered, as recorded by the space stop condition."
> -
> - (breakAtSpace) ifTrue: [
> - spaceCount >= 1 ifTrue:
> - ["The common case. First back off to the space at which we wrap."
> - line stop: breakableIndex.
> - presentationLine stop: breakableIndex - numOfComposition.
> - lineHeight := lineHeightAtBreak.
> - baseline := baselineAtBreak.
> - spaceCount := spaceCount - 1.
> - breakableIndex := breakableIndex - 1.
> -
> - "Check to see if any spaces preceding the one at which we wrap.
> - Double space after punctuation, most likely."
> - [(spaceCount > 1 and: [(text at: breakableIndex) = Space])]
> - whileTrue:
> - [spaceCount := spaceCount - 1.
> - "Account for backing over a run which might
> - change width of space."
> - font := text fontAt: breakableIndex withStyle: textStyle.
> - breakableIndex := breakableIndex - 1.
> - spaceX := spaceX - (font widthOf: Space)].
> - line paddingWidth: rightMargin - spaceX.
> - presentationLine paddingWidth: rightMargin - spaceX.
> - presentationLine internalSpaces: spaceCount.
> - line internalSpaces: spaceCount]
> - ifFalse:
> - ["Neither internal nor trailing spaces -- almost never happens."
> - lastIndex := lastIndex - 1.
> - [destX <= rightMargin]
> - whileFalse:
> - [destX := destX - (font widthOf: (text at: lastIndex)).
> - lastIndex := lastIndex - 1].
> - spaceX := destX.
> - line paddingWidth: rightMargin - destX.
> - presentationLine paddingWidth: rightMargin - destX.
> - presentationLine stop: (lastIndex max: line first).
> - line stop: (lastIndex max: line first)].
> - ^true
> - ].
> -
> - (breakableIndex isNil or: [breakableIndex < line first]) ifTrue: [
> - "Any breakable point in this line.  Just wrap last character."
> - breakableIndex := lastIndex - 1.
> - lineHeightAtBreak := lineHeight.
> - baselineAtBreak := baseline.
> - ].
> -
> - "It wasn't a space, but anyway this is where we break the line."
> - line stop: breakableIndex.
> - presentationLine stop: breakableIndex.
> - lineHeight := lineHeightAtBreak.
> - baseline := baselineAtBreak.
> - ^ true.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>endOfRun (in category 'stop
> conditions') -----
> - endOfRun
> - "Answer true if scanning has reached the end of the paragraph.
> - Otherwise step conditions (mostly install potential new font) and answer
> - false."
> -
> - | runLength |
> - lastIndex = text size
> - ifTrue: [line stop: lastIndex.
> - presentationLine stop: lastIndex - numOfComposition.
> - spaceX := destX.
> - line paddingWidth: rightMargin - destX.
> - presentationLine paddingWidth: rightMargin - destX.
> - ^true]
> - ifFalse: [
> - "(text at: lastIndex) charCode = 32 ifTrue: [destX := destX +
> spaceWidth]."
> - runLength := (text runLengthFor: (lastIndex := lastIndex + 1)).
> - runStopIndex := lastIndex + (runLength - 1).
> - self setStopConditions.
> - ^false]
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>forParagraph: (in category
> 'intialize-release') -----
> - forParagraph: aParagraph
> - "Initialize the receiver for scanning the given paragraph."
> -
> - self
> - initializeFromParagraph: aParagraph
> - clippedBy: aParagraph clippingRectangle.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>getPresentation (in category
> 'multilingual scanning') -----
> - getPresentation
> -
> - ^ presentation contents.
> -
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>getPresentationLine (in category
> 'multilingual scanning') -----
> - getPresentationLine
> -
> - ^ presentationLine.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>isBreakableAt:in:in: (in category
> 'multilingual scanning') -----
> - isBreakableAt: index in: sourceString in: encodingClass
> -
> - ^ encodingClass isBreakableAt: index in: sourceString.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>placeEmbeddedObject: (in category
> 'stop conditions') -----
> - placeEmbeddedObject: anchoredMorph
> - | descent |
> - "Workaround: The following should really use #textAnchorType"
> - anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
> - (super placeEmbeddedObject: anchoredMorph) ifFalse: ["It doesn't fit"
> - "But if it's the first character then leave it here"
> - lastIndex < line first ifFalse:[
> - line stop: lastIndex-1.
> - ^ false]].
> - descent := lineHeight - baseline.
> - lineHeight := lineHeight max: anchoredMorph height.
> - baseline := lineHeight - descent.
> - line stop: lastIndex.
> - presentationLine stop: lastIndex - numOfComposition.
> - ^ true!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>presentation (in category
> 'accessing') -----
> - presentation
> -
> - ^ presentation.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>presentationLine (in category
> 'accessing') -----
> - presentationLine
> -
> - ^ presentationLine.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>registerBreakableIndex (in category
> 'multilingual scanning') -----
> - registerBreakableIndex
> -
> - "Record left x and character index of the line-wrappable point.
> - Used for wrap-around. Answer whether the character has crossed the
> - right edge of the composition rectangle of the paragraph."
> -
> - (text at: lastIndex) = Character space ifTrue: [
> - breakAtSpace := true.
> - spaceX := destX.
> - spaceCount := spaceCount + 1.
> - lineHeightAtBreak := lineHeight.
> - baselineAtBreak := baseline.
> - breakableIndex := lastIndex.
> - destX > rightMargin ifTrue: [^self crossedX].
> - ] ifFalse: [
> - breakAtSpace := false.
> - lineHeightAtBreak := lineHeight.
> - baselineAtBreak := baseline.
> - breakableIndex := lastIndex - 1.
> - ].
> - ^ false.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>removeLastCharFromPresentation (in
> category 'multilingual scanning') -----
> - removeLastCharFromPresentation
> -
> - presentation ifNotNil: [
> - presentation position: presentation position - 1.
> - ].
> - destX := destX - lastWidth.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>rightX (in category 'accessing')
> -----
> - rightX
> - "Meaningful only when a line has just been composed -- refers to the
> - line most recently composed. This is a subtrefuge to allow for easy
> - resizing of a composition rectangle to the width of the maximum line.
> - Useful only when there is only one line in the form or when each line
> - is terminated by a carriage return. Handy for sizing menus and lists."
> -
> - breakAtSpace ifTrue: [^ spaceX].
> -
> - ^ destX.
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>setActualFont: (in category
> 'scanning') -----
> - setActualFont: aFont
> - "Keep track of max height and ascent for auto lineheight"
> - | descent |
> - super setActualFont: aFont.
> - "'   ', lastIndex printString, '   ' displayAt: (lastIndex * 15)@0."
> - lineHeight == nil
> - ifTrue: [descent := font descent.
> - baseline := font ascent.
> - lineHeight := baseline + descent]
> - ifFalse: [descent := lineHeight - baseline max: font descent.
> - baseline := baseline max: font ascent.
> - lineHeight := lineHeight max: baseline + descent]!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>setFont (in category 'stop
> conditions') -----
> - setFont
> - super setFont.
> - breakAtSpace := false.
> - wantsColumnBreaks == true ifTrue: [
> - stopConditions := stopConditions copy.
> - stopConditions at: TextComposer characterForColumnBreak asciiValue + 1
> put: #columnBreak.
> - ].
> - !
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>setStopConditions (in category
> 'stop conditions') -----
> - setStopConditions
> - "Set the font and the stop conditions for the current run."
> -
> - self setFont!
>
> Item was removed:
> - ----- Method: MultiCompositionScanner>>tab (in category 'stop conditions')
> -----
> - tab
> - "Advance destination x according to tab settings in the paragraph's
> - textStyle. Answer whether the character has crossed the right edge of
> - the composition rectangle of the paragraph."
> -
> - destX := textStyle
> - nextTabXFrom: destX leftMargin: leftMargin rightMargin: rightMargin.
> - destX > rightMargin ifTrue: [^self crossedX].
> - lastIndex := lastIndex + 1.
> - ^false
> - !
>
> Item was removed:
> - MultiCharacterScanner subclass: #MultiDisplayScanner
> - instanceVariableNames: 'bitBlt lineY runX foregroundColor backgroundColor
> fillBlt lineHeight paragraph paragraphColor morphicOffset
> ignoreColorChanges'
> - classVariableNames: ''
> - poolDictionaries: ''
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner class>>defaultFont (in category
> 'queries') -----
> - defaultFont
> - ^ TextStyle defaultFont!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>cr (in category 'stop conditions')
> -----
> - cr
> - "When a carriage return is encountered, simply increment the pointer
> - into the paragraph."
> -
> - lastIndex := lastIndex + 1.
> - ^false!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>crossedX (in category 'stop
> conditions') -----
> - crossedX
> - "This condition will sometimes be reached 'legally' during display, when,
> - for instance the space that caused the line to wrap actually extends over
> - the right boundary. This character is allowed to display, even though it
> - is technically outside or straddling the clipping ectangle since it is in
> - the normal case not visible and is in any case appropriately clipped by
> - the scanner."
> -
> - ^ true !
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>displayLine:offset:leftInRun: (in
> category 'scanning') -----
> - displayLine: textLine offset: offset leftInRun: leftInRun
> - "The call on the primitive (scanCharactersFrom:to:in:rightX:) will be
> interrupted according to an array of stop conditions passed to the scanner
> at which time the code to handle the stop condition is run and the call on
> the primitive continued until a stop condition returns true (which means the
> line has terminated).  leftInRun is the # of characters left to scan in the
> current run; when 0, it is time to call setStopConditions."
> - | done stopCondition nowLeftInRun startIndex string lastPos |
> - line := textLine.
> - morphicOffset := offset.
> - lineY := line top + offset y.
> - lineHeight := line lineHeight.
> - rightMargin := line rightMargin + offset x.
> - lastIndex := line first.
> - leftInRun <= 0 ifTrue: [self setStopConditions].
> - leftMargin := (line leftMarginForAlignment: alignment) + offset x.
> - destX := runX := leftMargin.
> - fillBlt == nil ifFalse:
> - ["Not right"
> - fillBlt destX: line left destY: lineY
> - width: line width left height: lineHeight; copyBits].
> - lastIndex := line first.
> - leftInRun <= 0
> - ifTrue: [nowLeftInRun := text runLengthFor: lastIndex]
> - ifFalse: [nowLeftInRun := leftInRun].
> - baselineY := lineY + line baseline.
> - destY := baselineY - font ascent.
> - runStopIndex := lastIndex + (nowLeftInRun - 1) min: line last.
> - spaceCount := 0.
> - done := false.
> - string := text string.
> - [done] whileFalse:[
> - startIndex := lastIndex.
> - lastPos := destX@destY.
> - stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: string rightX: rightMargin stopConditions: stopConditions
> - kern: kern.
> - lastIndex >= startIndex ifTrue:[
> - font displayString: string on: bitBlt
> - from: startIndex
> - "XXXX: The following is an interesting bug. All stopConditions exept
> #endOfRun
> - have lastIndex past the last character displayed. #endOfRun sets it *on*
> the character.
> - If we display up until lastIndex then we will also display invisible
> characters like
> - CR and tab. This problem should be fixed in the scanner (i.e., position
> lastIndex
> - consistently) but I don't want to deal with the fallout right now so we
> keep the
> - fix minimally invasive."
> - to: (stopCondition == #endOfRun ifTrue:[lastIndex]
> ifFalse:[lastIndex-1])
> - at: lastPos kern: kern baselineY: baselineY].
> - "see setStopConditions for stopping conditions for displaying."
> - done := self perform: stopCondition.
> - "lastIndex > runStopIndex ifTrue: [done := true]."
> - ].
> - ^ runStopIndex - lastIndex   "Number of characters remaining in the
> current run"!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>displayLines:in:clippedBy: (in category
> 'MVC-compatibility') -----
> - displayLines: linesInterval in: aParagraph clippedBy: visibleRectangle
> - "The central display routine. The call on the primitive
> - (scanCharactersFrom:to:in:rightX:) will be interrupted according to an
> - array of stop conditions passed to the scanner at which time the code to
> - handle the stop condition is run and the call on the primitive continued
> - until a stop condition returns true (which means the line has
> - terminated)."
> - | runLength done stopCondition leftInRun startIndex string lastPos |
> - "leftInRun is the # of characters left to scan in the current run;
> - when 0, it is time to call 'self setStopConditions'"
> - morphicOffset := 0@0.
> - leftInRun := 0.
> - self initializeFromParagraph: aParagraph clippedBy: visibleRectangle.
> - ignoreColorChanges := false.
> - paragraph := aParagraph.
> - foregroundColor := paragraphColor := aParagraph foregroundColor.
> - backgroundColor := aParagraph backgroundColor.
> - aParagraph backgroundColor isTransparent
> - ifTrue: [fillBlt := nil]
> - ifFalse: [fillBlt := bitBlt copy.  "Blt to fill spaces, tabs, margins"
> - fillBlt sourceForm: nil; sourceOrigin: 0@0.
> - fillBlt fillColor: aParagraph backgroundColor].
> - rightMargin := aParagraph rightMarginForDisplay.
> - lineY := aParagraph topAtLineIndex: linesInterval first.
> - bitBlt destForm deferUpdatesIn: visibleRectangle while: [
> - linesInterval do:
> - [:lineIndex |
> - leftMargin := aParagraph leftMarginForDisplayForLine: lineIndex
> alignment: (alignment ifNil:[textStyle alignment]).
> - destX := (runX := leftMargin).
> - line := aParagraph lines at: lineIndex.
> - lineHeight := line lineHeight.
> - fillBlt == nil ifFalse:
> - [fillBlt destX: visibleRectangle left destY: lineY
> - width: visibleRectangle width height: lineHeight; copyBits].
> - lastIndex := line first.
> - leftInRun <= 0
> - ifTrue: [self setStopConditions.  "also sets the font"
> - leftInRun := text runLengthFor: line first].
> - baselineY := lineY + line baseline.
> - destY := baselineY - font ascent.  "Should have happened in setFont"
> - runLength := leftInRun.
> - runStopIndex := lastIndex + (runLength - 1) min: line last.
> - leftInRun := leftInRun - (runStopIndex - lastIndex + 1).
> - spaceCount := 0.
> - done := false.
> - string := text string.
> - self handleIndentation.
> - [done] whileFalse:[
> - startIndex := lastIndex.
> - lastPos := destX@destY.
> - stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex
> - in: string rightX: rightMargin stopConditions: stopConditions
> - kern: kern.
> - lastIndex >= startIndex ifTrue:[
> - font displayString: string on: bitBlt
> - from: startIndex to: lastIndex at: lastPos kern: kern baselineY:
> baselineY].
> - "see setStopConditions for stopping conditions for displaying."
> - done := self perform: stopCondition].
> - fillBlt == nil ifFalse:
> - [fillBlt destX: destX destY: lineY width: visibleRectangle right-destX
> height: lineHeight; copyBits].
> - lineY := lineY + lineHeight]]!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>endOfRun (in category 'stop
> conditions') -----
> - endOfRun
> - "The end of a run in the display case either means that there is actually
> - a change in the style (run code) to be associated with the string or the
> - end of this line has been reached."
> - | runLength |
> - lastIndex = line last ifTrue: [^true].
> - runX := destX.
> - runLength := text runLengthFor: (lastIndex := lastIndex + 1).
> - runStopIndex := lastIndex + (runLength - 1) min: line last.
> - self setStopConditions.
> - ^ false!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>initializeFromParagraph:clippedBy: (in
> category 'MVC-compatibility') -----
> - initializeFromParagraph: aParagraph clippedBy: clippingRectangle
> -
> - super initializeFromParagraph: aParagraph clippedBy: clippingRectangle.
> - bitBlt := BitBlt asGrafPort toForm: aParagraph destinationForm.
> - bitBlt sourceX: 0; width: 0. "Init BitBlt so that the first call to a
> primitive will not fail"
> - bitBlt combinationRule: Form paint.
> - bitBlt colorMap:
> - (Bitmap with: 0      "Assumes 1-bit deep fonts"
> - with: (bitBlt destForm pixelValueFor: aParagraph foregroundColor)).
> - bitBlt clipRect: clippingRectangle.
> - !
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>isBreakableAt:in:in: (in category
> 'multilingual scanning') -----
> - isBreakableAt: index in: sourceString in: encodingClass
> -
> - ^ false.
> - !
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>paddedSpace (in category 'stop
> conditions') -----
> - paddedSpace
> - "Each space is a stop condition when the alignment is right justified.
> - Padding must be added to the base width of the space according to
> - which space in the line this space is and according to the amount of
> - space that remained at the end of the line when it was composed."
> -
> - spaceCount := spaceCount + 1.
> - destX := destX + spaceWidth + (line justifiedPadFor: spaceCount).
> - lastIndex := lastIndex + 1.
> - ^ false!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>placeEmbeddedObject: (in category
> 'scanning') -----
> - placeEmbeddedObject: anchoredMorph
> - anchoredMorph relativeTextAnchorPosition ifNotNil:[
> - anchoredMorph position:
> - anchoredMorph relativeTextAnchorPosition +
> - (anchoredMorph owner textBounds origin x @ 0)
> - - (0@morphicOffset y) + (0@lineY).
> - ^true
> - ].
> - (super placeEmbeddedObject: anchoredMorph) ifFalse: [^ false].
> - anchoredMorph isMorph ifTrue: [
> - anchoredMorph position: ((destX - anchoredMorph width)@lineY) -
> morphicOffset
> - ] ifFalse: [
> - destY := lineY.
> - baselineY := lineY + anchoredMorph height..
> - runX := destX.
> - anchoredMorph
> - displayOn: bitBlt destForm
> - at: destX - anchoredMorph width @ destY
> - clippingBox: bitBlt clipRect
> - ].
> - ^ true!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>plainTab (in category 'stop
> conditions') -----
> - plainTab
> - | oldX |
> - oldX := destX.
> - super plainTab.
> - fillBlt == nil ifFalse:
> - [fillBlt destX: oldX destY: destY width: destX - oldX height: font
> height; copyBits]!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>presentationText: (in category
> 'private') -----
> - presentationText: t
> -
> - text := t.
> - !
>
> Item was removed:
> - ----- Method:
> MultiDisplayScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:stopConditions:kern:
> (in category 'multilingual scanning') -----
> - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
> sourceString rightX: rightX stopConditions: stops kern: kernDelta
> -
> - | encoding f nextDestX maxAscii startEncoding char charValue |
> - lastIndex := startIndex.
> - lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops at:
> EndOfRun].
> - startEncoding := (sourceString at: startIndex) leadingChar.
> - font ifNil: [font := (TextConstants at: #DefaultMultiStyle) fontArray at:
> 1].
> - ((font isMemberOf: StrikeFontSet) or: [font isKindOf: TTCFontSet])
> ifTrue: [
> - [f := font fontArray at: startEncoding + 1]
> - on: Exception do: [:ex | f := font fontArray at: 1].
> - f ifNil: [ f := font fontArray at: 1].
> - maxAscii := f maxAscii.
> - spaceWidth := f widthOf: Space.
> - ] ifFalse: [
> - maxAscii := font maxAscii.
> - ].
> -
> - [lastIndex <= stopIndex] whileTrue: [
> - encoding := (sourceString at: lastIndex) leadingChar.
> - encoding ~= startEncoding ifTrue: [lastIndex := lastIndex - 1. ^ stops
> at: EndOfRun].
> - char := (sourceString at: lastIndex).
> - charValue := char charCode.
> - charValue > maxAscii ifTrue: [charValue := maxAscii].
> - (encoding = 0 and: [(stopConditions at: charValue + 1) ~~ nil]) ifTrue:
> [
> - ^ stops at: charValue + 1
> - ].
> - nextDestX := destX + (self widthOf: char inFont: font).
> - nextDestX > rightX ifTrue: [^ stops at: CrossedX].
> - destX := nextDestX + kernDelta.
> - lastIndex := lastIndex + 1.
> - ].
> - lastIndex := stopIndex.
> - ^ stops at: EndOfRun!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>setDestForm: (in category 'private')
> -----
> - setDestForm: df
> - bitBlt setDestForm: df.!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>setFont (in category 'private') -----
> - setFont
> - foregroundColor := paragraphColor.
> - super setFont.  "Sets font and emphasis bits, and maybe foregroundColor"
> - font installOn: bitBlt foregroundColor: foregroundColor backgroundColor:
> Color transparent.
> - text ifNotNil:[
> - baselineY := lineY + line baseline.
> - destY := baselineY - font ascent].
> - !
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>setPort: (in category 'private') -----
> - setPort: aBitBlt
> - "Install the BitBlt to use"
> - bitBlt := aBitBlt.
> - bitBlt sourceX: 0; width: 0. "Init BitBlt so that the first call to a
> primitive will not fail"
> - bitBlt sourceForm: nil. "Make sure font installation won't be confused"
> - !
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>setStopConditions (in category 'stop
> conditions') -----
> - setStopConditions
> - "Set the font and the stop conditions for the current run."
> -
> - self setFont.
> - self setConditionArray: (alignment = Justified ifTrue: [#paddedSpace]).
> -
> - "
> - alignment = Justified ifTrue: [
> - stopConditions == DefaultStopConditions
> - ifTrue:[stopConditions := stopConditions copy].
> - stopConditions at: Space asciiValue + 1 put: #paddedSpace]
> - "!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>tab (in category 'stop conditions')
> -----
> - tab
> - self plainTab.
> - lastIndex := lastIndex + 1.
> - ^ false!
>
> Item was removed:
> - ----- Method:
> MultiDisplayScanner>>text:textStyle:foreground:background:fillBlt:ignoreColorChanges:
> (in category 'private') -----
> - text: t textStyle: ts foreground: foreColor background: backColor fillBlt:
> blt ignoreColorChanges: shadowMode
> - text := t.
> - textStyle := ts.
> - foregroundColor := paragraphColor := foreColor.
> - (backgroundColor := backColor) isTransparent ifFalse:
> - [fillBlt := blt.
> - fillBlt fillColor: backgroundColor].
> - ignoreColorChanges := shadowMode!
>
> Item was removed:
> - ----- Method: MultiDisplayScanner>>textColor: (in category 'private')
> -----
> - textColor: textColor
> - ignoreColorChanges ifTrue: [^ self].
> - foregroundColor := textColor!
>
> Item was removed:
> - NewParagraph subclass: #MultiNewParagraph
> - instanceVariableNames: 'presentationText presentationLines'
> - classVariableNames: ''
> - poolDictionaries: 'TextConstants'
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiNewParagraph>>displayOn:using:at: (in category
> 'fonts-display') -----
> - displayOn: aCanvas using: displayScanner at: somePosition
> - "Send all visible lines to the displayScanner for display"
> -
> - | visibleRectangle offset leftInRun line |
> - visibleRectangle := aCanvas clipRect.
> - offset := somePosition - positionWhenComposed.
> - leftInRun := 0.
> - (self lineIndexForPoint: visibleRectangle topLeft)
> - to: (self lineIndexForPoint: visibleRectangle bottomRight)
> - do: [:i | line := lines at: i.
> - self displaySelectionInLine: line on: aCanvas.
> - line first <= line last ifTrue:
> - [leftInRun := displayScanner displayLine: line
> - offset: offset leftInRun: leftInRun]].
> - !
>
> Item was removed:
> - ----- Method: MultiNewParagraph>>displayOnTest:using:at: (in category
> 'fonts-display') -----
> - displayOnTest: aCanvas using: displayScanner at: somePosition
> - "Send all visible lines to the displayScanner for display"
> -
> - | visibleRectangle offset leftInRun line |
> - (presentationText isNil or: [presentationLines isNil]) ifTrue: [
> - ^ self displayOn: aCanvas using: displayScanner at: somePosition.
> - ].
> - visibleRectangle := aCanvas clipRect.
> - offset := somePosition - positionWhenComposed.
> - leftInRun := 0.
> - (self lineIndexForPoint: visibleRectangle topLeft)
> - to: (self lineIndexForPoint: visibleRectangle bottomRight)
> - do: [:i | line := presentationLines at: i.
> - self displaySelectionInLine: line on: aCanvas.
> - line first <= line last ifTrue:
> - [leftInRun := displayScanner displayLine: line
> - offset: offset leftInRun: leftInRun]].
> - !
>
> Item was removed:
> - ----- Method:
> MultiNewParagraph>>multiComposeLinesFrom:to:delta:into:priorLines:atY: (in
> category 'composition') -----
> - multiComposeLinesFrom: start to: stop delta: delta into: lineColl
> priorLines: priorLines
> - atY: startingY
> - "While the section from start to stop has changed, composition may ripple
> all the way to the end of the text.  However in a rectangular container, if
> we ever find a line beginning with the same character as before (ie
> corresponding to delta in the old lines), then we can just copy the old
> lines from there to the end of the container, with adjusted indices and
> y-values"
> -
> - | newResult composer presentationInfo |
> -
> - composer := MultiTextComposer new.
> - presentationLines := nil.
> - presentationText := nil.
> - newResult := composer
> - multiComposeLinesFrom: start
> - to: stop
> - delta: delta
> - into: lineColl
> - priorLines: priorLines
> - atY: startingY
> - textStyle: textStyle
> - text: text
> - container: container
> - wantsColumnBreaks: wantsColumnBreaks == true.
> - lines := newResult first asArray.
> - maxRightX := newResult second.
> - presentationInfo := composer getPresentationInfo.
> - presentationLines := presentationInfo first asArray.
> - presentationText := presentationInfo second.
> - "maxRightX printString displayAt: 0@0."
> - ^maxRightX
> - !
>
> Item was removed:
> - ----- Method: MultiNewParagraph>>presentationLines (in category
> 'accessing') -----
> - presentationLines
> -
> - ^ presentationLines.
> - !
>
> Item was removed:
> - ----- Method: MultiNewParagraph>>presentationText (in category
> 'accessing') -----
> - presentationText
> -
> - ^ presentationText.
> - !
>
> Item was removed:
> - TextComposer subclass: #MultiTextComposer
> - instanceVariableNames: 'presentation presentationLines'
> - classVariableNames: ''
> - poolDictionaries: 'TextConstants'
> - category: 'Etoys-Squeakland-Multilingual-Scanning'!
>
> Item was removed:
> - ----- Method: MultiTextComposer>>composeEachRectangleIn: (in category 'as
> yet unclassified') -----
> - composeEachRectangleIn: rectangles
> -
> - | myLine lastChar |
> -
> - 1 to: rectangles size do: [:i |
> - currCharIndex <= theText size ifFalse: [^false].
> - myLine := scanner
> - composeFrom: currCharIndex
> - inRectangle: (rectangles at: i)
> - firstLine: isFirstLine
> - leftSide: i=1
> - rightSide: i=rectangles size.
> - lines addLast: myLine.
> - presentationLines addLast: scanner getPresentationLine.
> - presentation ifNil: [presentation := scanner getPresentation]
> - ifNotNil: [presentation := presentation, scanner getPresentation].
> - actualHeight := actualHeight max: myLine lineHeight.  "includes font
> changes"
> - currCharIndex := myLine last + 1.
> - lastChar := theText at: myLine last.
> - lastChar = Character cr ifTrue: [^#cr].
> - wantsColumnBreaks ifTrue: [
> - lastChar = TextComposer characterForColumnBreak ifTrue:
> [^#columnBreak].
> - ].
> - ].
> - ^false!
>
> Item was removed:
> - ----- Method: MultiTextComposer>>getPresentationInfo (in category 'as yet
> unclassified') -----
> - getPresentationInfo
> -
> - ^ Array with: presentationLines with: presentation.
> - !
>
> Item was removed:
> - ----- Method:
> MultiTextComposer>>multiComposeLinesFrom:to:delta:into:priorLines:atY:textStyle:text:container:wantsColumnBreaks:
> (in category 'as yet unclassified') -----
> - multiComposeLinesFrom: argStart to: argStop delta: argDelta into:
> argLinesCollection priorLines: argPriorLines atY: argStartY textStyle:
> argTextStyle text: argText container: argContainer wantsColumnBreaks:
> argWantsColumnBreaks
> -
> - wantsColumnBreaks := argWantsColumnBreaks.
> - lines := argLinesCollection.
> - presentationLines := argLinesCollection copy.
> - theTextStyle := argTextStyle.
> - theText := argText.
> - theContainer := argContainer.
> - deltaCharIndex := argDelta.
> - currCharIndex := startCharIndex := argStart.
> - stopCharIndex := argStop.
> - prevLines := argPriorLines.
> - currentY := argStartY.
> - defaultLineHeight := theTextStyle lineGrid.
> - maxRightX := theContainer left.
> - possibleSlide := stopCharIndex < theText size and: [theContainer
> isMemberOf: Rectangle].
> - nowSliding := false.
> - prevIndex := 1.
> - scanner := MultiCompositionScanner new text: theText textStyle:
> theTextStyle.
> - scanner wantsColumnBreaks: wantsColumnBreaks.
> - isFirstLine := true.
> - self composeAllLines.
> - isFirstLine ifTrue: ["No space in container or empty text"
> - self
> - addNullLineWithIndex: startCharIndex
> - andRectangle: (theContainer topLeft extent: 0@defaultLineHeight)
> - ] ifFalse: [
> - self fixupLastLineIfCR
> - ].
> - ^{lines asArray. maxRightX}
> -
> - !
>
>
>
>

> Exactly!
> Multilingual features have been merged back into regular classes, so we
> don't need a fork anymore.
>
> 2017-10-05 21:03 GMT+02:00 H. Hirzel <[hidden email]>:
>
>> Note regarding the thread 'MorphicProject subclass: #EtoysProject'
>>
>> Answer 'NewParagraph' when asked for a replacement class for
>> 'MultiNewParagraph'
>>
>> On Sat, 15 Apr 2017 13:45:33 0000, [hidden email]
>> <[hidden email]> wrote:
>> > Nicolas Cellier uploaded a new version of EToys to project The Trunk:
>> > http://source.squeak.org/trunk/EToys-nice.292.mcz
>> >
>> > ==================== Summary ====================
>> >
>> > Name: EToys-nice.292
>> > Author: nice
>> > Time: 15 April 2017, 3:44:39.800437 pm
>> > UUID: 39acfe15-791f-41c6-8aad-d679664643e7
>> > Ancestors: EToys-eem.291
>> >
>> > Remove the Multi*Scanner, MultiNewParagraph, MultiComposer because they
>> have
>> > no additional value.
>> >
>> > =============== Diff against EToys-eem.291 ===============
>> >
>> > Item was changed:
>> >   SystemOrganization addCategory: #'Etoys-Buttons'!
>> >   SystemOrganization addCategory: #'Etoys-CustomEvents'!
>> >   SystemOrganization addCategory: #'Etoys-Experimental'!
>> >   SystemOrganization addCategory: #'Etoys-Outliner'!
>> >   SystemOrganization addCategory: #'Etoys-Protocols'!
>> >   SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'!
>> >   SystemOrganization addCategory: #'Etoys-Scripting'!
>> >   SystemOrganization addCategory: #'Etoys-Scripting Support'!
>> >   SystemOrganization addCategory: #'Etoys-Scripting Tiles'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-BroomMorphs-Base'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-BroomMorphs-Connectors'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting
>> > Support'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting
>> Tiles'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-
>> SpeechBubbles'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile
>> Scriptors'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Graphics-External'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Graphics-Tools-Intersection'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Graphics-Tools-Simplification'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Graphics-Tools-Triangulation'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-
>> MorphicExtras-Charts'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-MorphicExtras-Postscript Filters'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-
>> MorphicExtras-WebCam'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-
>> MorphicExtras-Widgets'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-
>> Components'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-
>> Experimental'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-
>> Games-Chess'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Morphic-Mentoring'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-
>> Navigators'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Multilingual-Languages'!
>> > - SystemOrganization addCategory: #'Etoys-Squeakland-
>> Multilingual-Scanning'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Multilingual-TextConversion'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Network-HTML-Formatter'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-
>> HTML-Forms'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-
>> HTML-Parser'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Network-HTML-Parser
>> > Entities'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Network-HTML-Tokenizer'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet
>> > WordNet'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Protocols-Type
>> > Vocabularies'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-System-Clipboard-Extended'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions
>> > Kernel'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-File
>> > Contents
>> > Browser'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process
>> Browser'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'!
>> >   SystemOrganization addCategory:
>> > #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'!
>> >   SystemOrganization addCategory: #'Etoys-Stacks'!
>> >   SystemOrganization addCategory: #'Etoys-StarSqueak'!
>> >   SystemOrganization addCategory: #'Etoys-Support'!
>> >   SystemOrganization addCategory: #'Etoys-Tests'!
>> >   SystemOrganization addCategory: #'Etoys-Tile Scriptors'!
>> >   SystemOrganization addCategory: #'Etoys-Widgets'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-Support'!
>> >   SystemOrganization addCategory: #'Etoys-Squeakland-SISS-
>> Serialization'!
>> >   SystemOrganization addCategory: #'Etoys-OLPC-Display'!
>> >   SystemOrganization addCategory: #'Etoys-ReleaseBuilder'!
>> >   SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > GrafPort>>displayScannerForMulti:foreground:background:
>> ignoreColorChanges:
>> > (in category '*Etoys-Squeakland-accessing') -----
>> > - displayScannerForMulti: para foreground: foreColor background:
>> backColor
>> > ignoreColorChanges: shadowMode
>> > -
>> > -     ((para isMemberOf: MultiNewParagraph) or: [para text string
>> > isByteString]) ifTrue: [
>> > -             ^ (MultiDisplayScanner new text: para presentationText
>> textStyle: para
>> > textStyle
>> > -                             foreground: foreColor background:
>> backColor fillBlt: self
>> > -                             ignoreColorChanges: shadowMode)
>> > -                     setPort: self clone
>> > -     ].
>> > -     ^ (DisplayScanner new text: para text textStyle: para textStyle
>> > -                     foreground: foreColor background: backColor
>> fillBlt: self
>> > -                     ignoreColorChanges: shadowMode)
>> > -             setPort: self clone
>> > - !
>> >
>> > Item was removed:
>> > - MultiCharacterScanner subclass: #MultiCanvasCharacterScanner
>> > -     instanceVariableNames: 'canvas fillBlt foregroundColor runX
>> > lineY'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: ''
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>canvas: (in category
>> > 'accessing') -----
>> > - canvas: aCanvas
>> > -     "set the canvas to draw on"
>> > -     canvas ifNotNil: [ self inform: 'initializing twice!!' ].
>> > -     canvas := aCanvas!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>cr (in category 'stop
>> > conditions') -----
>> > - cr
>> > -     "When a carriage return is encountered, simply increment the
>> pointer
>> > -     into the paragraph."
>> > -
>> > -     lastIndex := lastIndex + 1.
>> > -     ^false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>crossedX (in category
>> > 'stop
>> > conditions') -----
>> > - crossedX
>> > -     "This condition will sometimes be reached 'legally' during
>> display, when,
>> > -     for instance the space that caused the line to wrap actually
>> extends over
>> > -     the right boundary. This character is allowed to display, even
>> though it
>> > -     is technically outside or straddling the clipping ectangle since
>> it is in
>> > -     the normal case not visible and is in any case appropriately
>> clipped by
>> > -     the scanner."
>> > -
>> > -     "self fillLeading."
>> > -     ^ true !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>
>> displayLine:offset:leftInRun:
>> > (in category 'scanning') -----
>> > - displayLine: textLine  offset: offset  leftInRun: leftInRun
>> > -     |  nowLeftInRun done startLoc startIndex stopCondition |
>> > -     "largely copied from DisplayScanner's routine"
>> > -
>> > -     line := textLine.
>> > -     foregroundColor ifNil: [ foregroundColor := Color black ].
>> > -     leftMargin := (line leftMarginForAlignment: alignment) + offset
>> > x.
>> > -
>> > -     rightMargin := line rightMargin + offset x.
>> > -     lineY := line top + offset y.
>> > -     lastIndex := textLine first.
>> > -     leftInRun <= 0
>> > -             ifTrue: [self setStopConditions.  "also sets the font"
>> > -                             nowLeftInRun := text runLengthFor:
>> lastIndex]
>> > -             ifFalse: [nowLeftInRun := leftInRun].
>> > -     runX := destX := leftMargin.
>> > -
>> > -     runStopIndex := lastIndex + (nowLeftInRun - 1) min: line last.
>> > -     spaceCount := 0.
>> > -     done := false.
>> > -
>> > -     [done] whileFalse: [
>> > -             "remember where this portion of the line starts"
>> > -             startLoc := destX@destY.
>> > -             startIndex := lastIndex.
>> > -
>> > -             "find the end of this portion of the line"
>> > -             stopCondition := self scanCharactersFrom: lastIndex to:
>> runStopIndex
>> > -                                             in: text string rightX:
>> rightMargin stopConditions: stopConditions
>> > -                                             kern: kern "displaying:
>> false".
>> > -
>> > -             "display that portion of the line"
>> > -             canvas drawString: text string
>> > -                     from: startIndex to: lastIndex
>> > -                     at: startLoc
>> > -                     font: font
>> > -                     color: foregroundColor.
>> > -
>> > -             "handle the stop condition"
>> > -             done := self perform: stopCondition
>> > -     ].
>> > -
>> > -     ^runStopIndex - lastIndex!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>doesDisplaying (in
>> > category
>> > 'private') -----
>> > - doesDisplaying
>> > -     ^false   "it doesn't do displaying using copyBits"!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>endOfRun (in category
>> > 'stop
>> > conditions') -----
>> > - endOfRun
>> > -     "The end of a run in the display case either means that there is
>> actually
>> > -     a change in the style (run code) to be associated with the string
>> or the
>> > -     end of this line has been reached."
>> > -     | runLength |
>> > -
>> > -     lastIndex = line last ifTrue: [^true].
>> > -     runX := destX.
>> > -     runLength := text runLengthFor: (lastIndex := lastIndex + 1).
>> > -     runStopIndex := lastIndex + (runLength - 1) min: line last.
>> > -     self setStopConditions.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>paddedSpace (in category
>> 'stop
>> > conditions') -----
>> > - paddedSpace
>> > -     "Each space is a stop condition when the alignment is right
>> justified.
>> > -     Padding must be added to the base width of the space according to
>> > -     which space in the line this space is and according to the amount
>> of
>> > -     space that remained at the end of the line when it was composed."
>> > -
>> > -     destX := destX + spaceWidth + (line justifiedPadFor: spaceCount).
>> > -
>> > -     lastIndex := lastIndex + 1.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>setFont (in category
>> 'private')
>> > -----
>> > - setFont
>> > -     foregroundColor ifNil: [foregroundColor := Color black].
>> > -     super setFont.
>> > -     baselineY := lineY + line baseline.
>> > -     destY := baselineY - font ascent.!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>setStopConditions (in
>> category
>> > 'stop conditions') -----
>> > - setStopConditions
>> > -     "Set the font and the stop conditions for the current run."
>> > -
>> > -     self setFont.
>> > -     self setConditionArray: (textStyle alignment = Justified ifTrue:
>> > [#paddedSpace]).
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>tab (in category 'stop
>> > conditions') -----
>> > - tab
>> > -
>> > -     destX := (alignment == Justified and: [self leadingTab not])
>> > -             ifTrue:         "imbedded tabs in justified text are
>> > weird"
>> > -                     [destX + (textStyle tabWidth - (line
>> justifiedTabDeltaFor: spaceCount))
>> > max: destX]
>> > -             ifFalse:
>> > -                     [textStyle nextTabXFrom: destX
>> > -                             leftMargin: leftMargin
>> > -                             rightMargin: rightMargin].
>> > -
>> > -     lastIndex := lastIndex + 1.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCanvasCharacterScanner>>textColor: (in category
>> > 'private') -----
>> > - textColor: color
>> > -     foregroundColor := color!
>> >
>> > Item was removed:
>> > - MultiCharacterScanner subclass: #MultiCharacterBlockScanner
>> > -     instanceVariableNames: 'characterPoint characterIndex
>> > lastCharacter
>> > lastCharacterExtent lastSpaceOrTabExtent nextLeftMargin specialWidth'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: ''
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>buildCharacterBlockIn: (in
>> > category 'private') -----
>> > - buildCharacterBlockIn: para
>> > -     | lineIndex runLength lineStop done stopCondition |
>> > -     "handle nullText"
>> > -     (para numberOfLines = 0 or: [text size = 0])
>> > -             ifTrue: [^ CharacterBlock new stringIndex: 1  "like being
>> off end of
>> > string"
>> > -                                     text: para text
>> > -                                     topLeft: (para
>> leftMarginForDisplayForLine: 1 alignment: (alignment
>> > ifNil:[textStyle alignment]))
>> > -                                                             @ para
>> compositionRectangle top
>> > -                                     extent: 0 @ textStyle lineGrid].
>> > -     "find the line"
>> > -     lineIndex := para lineIndexOfTop: characterPoint y.
>> > -     destY := para topAtLineIndex: lineIndex.
>> > -     line := para lines at: lineIndex.
>> > -     rightMargin := para rightMarginForDisplay.
>> > -
>> > -     (lineIndex = para numberOfLines and:
>> > -             [(destY + line lineHeight) < characterPoint y])
>> > -                     ifTrue: ["if beyond lastLine, force search to
>> > last
>> character"
>> > -                                     self characterPointSetX:
>> rightMargin]
>> > -                     ifFalse:        [characterPoint y < (para
>> compositionRectangle) top
>> > -                                             ifTrue: ["force search to
>> first line"
>> > -
>>  characterPoint := (para compositionRectangle) topLeft].
>> > -                                     characterPoint x > rightMargin
>> > -                                             ifTrue: [self
>> characterPointSetX: rightMargin]].
>> > -     destX := (leftMargin := para leftMarginForDisplayForLine:
>> > lineIndex
>> > alignment: (alignment ifNil:[textStyle alignment])).
>> > -     nextLeftMargin := para leftMarginForDisplayForLine: lineIndex+1
>> > alignment: (alignment ifNil:[textStyle alignment]).
>> > -     lastIndex := line first.
>> > -
>> > -     self setStopConditions.         "also sets font"
>> > -     runLength := (text runLengthFor: line first).
>> > -     characterIndex == nil
>> > -             ifTrue: [lineStop := line last  "characterBlockAtPoint"]
>> > -             ifFalse:        [lineStop := characterIndex
>> "characterBlockForIndex"].
>> > -     (runStopIndex := lastIndex + (runLength - 1)) > lineStop
>> > -             ifTrue: [runStopIndex := lineStop].
>> > -     lastCharacterExtent := 0 @ line lineHeight.
>> > -     spaceCount := 0. done  := false.
>> > -     self handleIndentation.
>> > -
>> > -     [done]
>> > -     whileFalse:
>> > -     [stopCondition := self scanCharactersFrom: lastIndex to:
>> runStopIndex
>> > -                     in: text string rightX: characterPoint x
>> > -                     stopConditions: stopConditions kern: kern.
>> > -
>> > -     "see setStopConditions for stopping conditions for character
>> > block
>> >       operations."
>> > -     self lastCharacterExtentSetX: (font widthOf: (text at:
>> > lastIndex)).
>> > -     (self perform: stopCondition) ifTrue:
>> > -             [characterIndex == nil
>> > -                     ifTrue: ["characterBlockAtPoint"
>> > -                                     ^ CharacterBlock new stringIndex:
>> lastIndex text: text
>> > -                                             topLeft: characterPoint +
>> (font descentKern @ 0)
>> > -                                             extent:
>> lastCharacterExtent]
>> > -                     ifFalse: ["characterBlockForIndex"
>> > -                                     ^ CharacterBlock new stringIndex:
>> lastIndex text: text
>> > -                                             topLeft: characterPoint +
>> ((font descentKern) - kern @ 0)
>> > -                                             extent:
>> lastCharacterExtent]]]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>characterBlockAtPoint:in:
>> (in
>> > category 'scanning') -----
>> > - characterBlockAtPoint: aPoint in: aParagraph
>> > -     "Answer a CharacterBlock for character in aParagraph at point
>> aPoint. It
>> > -     is assumed that aPoint has been transformed into coordinates
>> appropriate
>> > -     to the text's destination form rectangle and the composition
>> rectangle."
>> > -
>> > -     self initializeFromParagraph: aParagraph clippedBy: aParagraph
>> > clippingRectangle.
>> > -     characterPoint := aPoint.
>> > -     ^self buildCharacterBlockIn: aParagraph!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterBlockScanner>>characterBlockAtPoint:index:
>> in:
>> > (in category 'scanning') -----
>> > - characterBlockAtPoint: aPoint index: index in: textLine
>> > -     "This method is the Morphic characterBlock finder.  It combines
>> > -     MVC's characterBlockAtPoint:, -ForIndex:, and
>> buildCharcterBlock:in:"
>> > -     | runLength lineStop done stopCondition |
>> > -     line := textLine.
>> > -     rightMargin := line rightMargin.
>> > -     lastIndex := line first.
>> > -     self setStopConditions.         "also sets font"
>> > -     characterIndex := index.  " == nil means scanning for point"
>> > -     characterPoint := aPoint.
>> > -     (characterPoint isNil or: [characterPoint y > line bottom])
>> > -             ifTrue: [characterPoint := line bottomRight].
>> > -     (text isEmpty or: [(characterPoint y < line top or:
>> [characterPoint x <
>> > line left])
>> > -                             or: [characterIndex notNil and:
>> [characterIndex < line first]]])
>> > -             ifTrue: [^ (CharacterBlock new stringIndex: line first
>> text: text
>> > -                                     topLeft: line leftMargin@line top
>> extent: 0 @ textStyle lineGrid)
>> > -                                     textLine: line].
>> > -     destX := leftMargin := line leftMarginForAlignment: alignment.
>> > -     destY := line top.
>> > -     runLength := text runLengthFor: line first.
>> > -     characterIndex
>> > -             ifNotNil:       [lineStop := characterIndex  "scanning
>> > for
>> index"]
>> > -             ifNil:  [lineStop := line last  "scanning for point"].
>> > -     runStopIndex := lastIndex + (runLength - 1) min: lineStop.
>> > -     lastCharacterExtent := 0 @ line lineHeight.
>> > -     spaceCount := 0.
>> > -
>> > -     done  := false.
>> > -     [done] whileFalse:
>> > -             [stopCondition := self scanCharactersFrom: lastIndex to:
>> runStopIndex
>> > -                     in: text string rightX: characterPoint x
>> > -                     stopConditions: stopConditions kern: kern.
>> > -             "see setStopConditions for stopping conditions for
>> character block
>> >       operations."
>> > -             self lastCharacterExtentSetX: (specialWidth
>> > -                     ifNil: [font widthOf: (text at: lastIndex)]
>> > -                     ifNotNil: [specialWidth]).
>> > -             (self perform: stopCondition) ifTrue:
>> > -                     [characterIndex
>> > -                             ifNil: [
>> > -                                     "Result for
>> > characterBlockAtPoint:
>> "
>> > -                                     (stopCondition ~~ #cr and: [
>> lastIndex == line last
>> > -                                             and: [ aPoint x >
>> ((characterPoint x) + (lastCharacterExtent x / 2))
>> > ]])
>> > -                                                     ifTrue: [
>> > "Correct
>> for right half of last character in line"
>> > -                                                             ^
>> (CharacterBlock new stringIndex: lastIndex + 1
>> > -
>>      text: text
>> > -
>>      topLeft: characterPoint + (lastCharacterExtent x @ 0) + (font
>> > descentKern @ 0)
>> > -
>>      extent:  0 @ lastCharacterExtent y)
>> > -
>>  textLine: line ].
>> > -                                             ^ (CharacterBlock new
>> stringIndex: lastIndex
>> > -                                                     text: text
>> topLeft: characterPoint + (font descentKern @ 0)
>> > -                                                     extent:
>> lastCharacterExtent - (font baseKern @ 0))
>> > -
>>  textLine: line]
>> > -                             ifNotNil: ["Result for
>> characterBlockForIndex: "
>> > -                                             ^ (CharacterBlock new
>> stringIndex: characterIndex
>> > -                                                     text: text
>> topLeft: characterPoint + ((font descentKern) - kern @
>> > 0)
>> > -                                                     extent:
>> lastCharacterExtent)
>> > -
>>  textLine: line]]]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>characterBlockForIndex:in:
>> (in
>> > category 'scanning') -----
>> > - characterBlockForIndex: targetIndex in: aParagraph
>> > -     "Answer a CharacterBlock for character in aParagraph at
>> targetIndex. The
>> > -     coordinates in the CharacterBlock will be appropriate to the
>> intersection
>> > -     of the destination form rectangle and the composition rectangle."
>> > -
>> > -     self
>> > -             initializeFromParagraph: aParagraph
>> > -             clippedBy: aParagraph clippingRectangle.
>> > -     characterIndex := targetIndex.
>> > -     characterPoint :=
>> > -             aParagraph rightMarginForDisplay @
>> > -                     (aParagraph topAtLineIndex:
>> > -                             (aParagraph lineIndexOfCharacterIndex:
>> characterIndex)).
>> > -     ^self buildCharacterBlockIn: aParagraph!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>characterPointSetX: (in
>> category
>> > 'private') -----
>> > - characterPointSetX: xVal
>> > -     characterPoint := xVal @ characterPoint y!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>cr (in category 'stop
>> > conditions') -----
>> > - cr
>> > -     "Answer a CharacterBlock that specifies the current location of
>> the mouse
>> > -     relative to a carriage return stop condition that has just been
>> > -     encountered. The ParagraphEditor convention is to denote
>> selections by
>> > -     CharacterBlocks, sometimes including the carriage return (cursor
>> is at
>> > -     the end) and sometimes not (cursor is in the middle of the
>> > text)."
>> > -
>> > -     ((characterIndex ~= nil
>> > -             and: [characterIndex > text size])
>> > -                     or: [(line last = text size)
>> > -                             and: [(destY + line lineHeight) <
>> characterPoint y]])
>> > -             ifTrue: ["When off end of string, give data for next
>> character"
>> > -                             destY := destY +  line lineHeight.
>> > -                             baselineY := line lineHeight.
>> > -                             lastCharacter := nil.
>> > -                             characterPoint := (nextLeftMargin ifNil:
>> [leftMargin]) @ destY.
>> > -                             lastIndex := lastIndex + 1.
>> > -                             self lastCharacterExtentSetX: 0.
>> > -                             ^ true].
>> > -             lastCharacter := CR.
>> > -             characterPoint := destX @ destY.
>> > -             self lastCharacterExtentSetX: rightMargin - destX.
>> > -             ^true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>crossedX (in category 'stop
>> > conditions') -----
>> > - crossedX
>> > -     "Text display has wrapping. The scanner just found a character
>> past the x
>> > -     location of the cursor. We know that the cursor is pointing at a
>> > character
>> > -     or before one."
>> > -
>> > -     | leadingTab currentX |
>> > -     characterIndex == nil ifFalse: [
>> > -             "If the last character of the last line is a space,
>> > -             and it crosses the right margin, then locating
>> > -             the character block after it is impossible without this
>> hack."
>> > -             characterIndex > text size ifTrue: [
>> > -                     lastIndex := characterIndex.
>> > -                     characterPoint := (nextLeftMargin ifNil:
>> [leftMargin]) @ (destY + line
>> > lineHeight).
>> > -                     ^true]].
>> > -     characterPoint x <= (destX + (lastCharacterExtent x // 2))
>> > -             ifTrue: [lastCharacter := (text at: lastIndex).
>> > -                             characterPoint := destX @ destY.
>> > -                             ^true].
>> > -     lastIndex >= line last
>> > -             ifTrue: [lastCharacter := (text at: line last).
>> > -                             characterPoint := destX @ destY.
>> > -                             ^true].
>> > -
>> > -     "Pointing past middle of a character, return the next character."
>> > -     lastIndex := lastIndex + 1.
>> > -     lastCharacter := text at: lastIndex.
>> > -     currentX := destX + lastCharacterExtent x + kern.
>> > -     self lastCharacterExtentSetX: (font widthOf: lastCharacter).
>> > -     characterPoint := currentX @ destY.
>> > -     lastCharacter = Space ifFalse: [^ true].
>> > -
>> > -     "Yukky if next character is space or tab."
>> > -     alignment = Justified ifTrue:
>> > -             [self lastCharacterExtentSetX:
>> > -                     (lastCharacterExtent x +        (line
>> justifiedPadFor: (spaceCount + 1))).
>> > -             ^ true].
>> > -
>> > -     true ifTrue: [^ true].
>> > -     "NOTE:  I find no value to the following code, and so have
>> defeated it -
>> > DI"
>> > -
>> > -     "See tabForDisplay for illumination on the following awfulness."
>> > -     leadingTab := true.
>> > -     line first to: lastIndex - 1 do:
>> > -             [:index | (text at: index) ~= Tab ifTrue: [leadingTab :=
>> false]].
>> > -     (alignment ~= Justified or: [leadingTab])
>> > -             ifTrue: [self lastCharacterExtentSetX: (textStyle
>> nextTabXFrom: currentX
>> > -                                     leftMargin: leftMargin
>> rightMargin: rightMargin) -
>> > -                                             currentX]
>> > -             ifFalse:        [self lastCharacterExtentSetX:
>> (((currentX + (textStyle
>> > tabWidth -
>> > -                                             (line
>> justifiedTabDeltaFor: spaceCount))) -
>> > -                                                     currentX) max:
>> > 0)].
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>endOfRun (in category 'stop
>> > conditions') -----
>> > - endOfRun
>> > -     "Before arriving at the cursor location, the selection has
>> encountered an
>> > -     end of run. Answer false if the selection continues, true
>> otherwise. Set
>> > -     up indexes for building the appropriate CharacterBlock."
>> > -
>> > -     | runLength lineStop |
>> > -     (((characterIndex ~~ nil and:
>> > -             [runStopIndex < characterIndex and: [runStopIndex < text
>> size]])
>> > -                     or:     [characterIndex == nil and: [lastIndex <
>> line last]]) or: [
>> > -                             ((lastIndex < line last)
>> > -                             and: [((text at: lastIndex) leadingChar
>> > ~=
>> (text at: lastIndex+1)
>> > leadingChar)
>> > -                                     and: [lastIndex ~=
>> characterIndex]])])
>> > -             ifTrue: ["We're really at the end of a real run."
>> > -                             runLength := (text runLengthFor:
>> (lastIndex := lastIndex + 1)).
>> > -                             characterIndex ~~ nil
>> > -                                     ifTrue: [lineStop :=
>> characterIndex     "scanning for index"]
>> > -                                     ifFalse:        [lineStop := line
>> last                  "scanning for point"].
>> > -                             (runStopIndex := lastIndex + (runLength -
>> 1)) > lineStop
>> > -                                     ifTrue:         [runStopIndex :=
>> lineStop].
>> > -                             self setStopConditions.
>> > -                             ^false].
>> > -
>> > -     lastCharacter := text at: lastIndex.
>> > -     characterPoint := destX @ destY.
>> > -     ((lastCharacter = Space and: [alignment = Justified])
>> > -             or: [lastCharacter = Tab and: [lastSpaceOrTabExtent
>> notNil]])
>> > -             ifTrue: [lastCharacterExtent := lastSpaceOrTabExtent].
>> > -     characterIndex ~~ nil
>> > -             ifTrue: ["If scanning for an index and we've stopped on
>> that index,
>> > -                             then we back destX off by the width of
>> > the
>> character stopped on
>> > -                             (it will be pointing at the right side of
>> the character) and return"
>> > -                             runStopIndex = characterIndex
>> > -                                     ifTrue: [self characterPointSetX:
>> destX - lastCharacterExtent x.
>> > -                                                     ^true].
>> > -                             "Otherwise the requested index was
>> > greater
>> than the length of the
>> > -                             string.  Return string size + 1 as index,
>> indicate further that off
>> > the
>> > -                             string by setting character to nil and
>> > the
>> extent to 0."
>> > -                             lastIndex :=  lastIndex + 1.
>> > -                             lastCharacter := nil.
>> > -                             self lastCharacterExtentSetX: 0.
>> > -                             ^true].
>> > -
>> > -     "Scanning for a point and either off the end of the line or off
>> the end
>> > of the string."
>> > -     runStopIndex = text size
>> > -             ifTrue: ["off end of string"
>> > -                             lastIndex :=  lastIndex + 1.
>> > -                             lastCharacter := nil.
>> > -                             self lastCharacterExtentSetX: 0.
>> > -                             ^true].
>> > -     "just off end of line without crossing x"
>> > -     lastIndex := lastIndex + 1.
>> > -     ^true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>indentationLevel: (in
>> category
>> > 'scanning') -----
>> > - indentationLevel: anInteger
>> > -     super indentationLevel: anInteger.
>> > -     nextLeftMargin := leftMargin.
>> > -     indentationLevel timesRepeat: [
>> > -             nextLeftMargin := textStyle nextTabXFrom: nextLeftMargin
>> > -                                     leftMargin: leftMargin
>> > -                                     rightMargin: rightMargin]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>lastCharacterExtentSetX:
>> > (in
>> > category 'private') -----
>> > - lastCharacterExtentSetX: xVal
>> > -     lastCharacterExtent := xVal @ lastCharacterExtent y!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>lastSpaceOrTabExtentSetX:
>> (in
>> > category 'private') -----
>> > - lastSpaceOrTabExtentSetX: xVal
>> > -     lastSpaceOrTabExtent := xVal @ lastSpaceOrTabExtent y!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>paddedSpace (in category
>> 'stop
>> > conditions') -----
>> > - paddedSpace
>> > -     "When the line is justified, the spaces will not be the same as
>> > the
>> > font's
>> > -     space character. A padding of extra space must be considered in
>> trying
>> > -     to find which character the cursor is pointing at. Answer whether
>> the
>> > -     scanning has crossed the cursor."
>> > -
>> > -     | pad |
>> > -     pad := 0.
>> > -     spaceCount := spaceCount + 1.
>> > -     pad := line justifiedPadFor: spaceCount.
>> > -     lastSpaceOrTabExtent := lastCharacterExtent copy.
>> > -     self lastSpaceOrTabExtentSetX:  spaceWidth + pad.
>> > -     (destX + lastSpaceOrTabExtent x)  >= characterPoint x
>> > -             ifTrue: [lastCharacterExtent := lastSpaceOrTabExtent
>> > copy.
>> > -                             ^self crossedX].
>> > -     lastIndex := lastIndex + 1.
>> > -     destX := destX + lastSpaceOrTabExtent x.
>> > -     ^ false
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>placeEmbeddedObject: (in
>> > category 'scanning') -----
>> > - placeEmbeddedObject: anchoredMorph
>> > -     "Workaround: The following should really use #textAnchorType"
>> > -     anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
>> > -     (super placeEmbeddedObject: anchoredMorph) ifFalse: [^ false].
>> > -     specialWidth := anchoredMorph width.
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterBlockScanner>>scanMultiCharactersCombiningFr
>> om:to:in:rightX:stopConditions:kern:
>> > (in category 'scanning') -----
>> > - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
>> > sourceString rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | encoding f nextDestX maxAscii startEncoding char charValue |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             maxAscii := font maxAscii.
>> > -     ].
>> > -
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             char := (sourceString at: lastIndex).
>> > -             charValue := char charCode.
>> > -             charValue > maxAscii ifTrue: [charValue := maxAscii].
>> > -             (encoding = 0 and: [(stopConditions at: charValue + 1) ~~
>> nil]) ifTrue:
>> > [
>> > -                     ^ stops at: charValue + 1
>> > -             ].
>> > -             nextDestX := destX + (self widthOf: char inFont: font).
>> > -             nextDestX > rightX ifTrue: [^ stops at: CrossedX].
>> > -             destX := nextDestX + kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>setFont (in category 'stop
>> > conditions') -----
>> > - setFont
>> > -     specialWidth := nil.
>> > -     super setFont!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>setStopConditions (in
>> category
>> > 'stop conditions') -----
>> > - setStopConditions
>> > -     "Set the font and the stop conditions for the current run."
>> > -
>> > -     self setFont.
>> > -     self setConditionArray: (alignment = Justified ifTrue:
>> [#paddedSpace]).
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterBlockScanner>>tab (in category 'stop
>> > conditions') -----
>> > - tab
>> > -     | currentX |
>> > -     currentX := (alignment == Justified and: [self leadingTab not])
>> > -             ifTrue:         "imbedded tabs in justified text are
>> > weird"
>> > -                     [destX + (textStyle tabWidth - (line
>> justifiedTabDeltaFor: spaceCount))
>> > max: destX]
>> > -             ifFalse:
>> > -                     [textStyle
>> > -                             nextTabXFrom: destX
>> > -                             leftMargin: leftMargin
>> > -                             rightMargin: rightMargin].
>> > -     lastSpaceOrTabExtent := lastCharacterExtent copy.
>> > -     self lastSpaceOrTabExtentSetX: (currentX - destX max: 0).
>> > -     currentX >= characterPoint x
>> > -             ifTrue:
>> > -                     [lastCharacterExtent := lastSpaceOrTabExtent
>> > copy.
>> > -                     ^ self crossedX].
>> > -     destX := currentX.
>> > -     lastIndex := lastIndex + 1.
>> > -     ^false!
>> >
>> > Item was removed:
>> > - Object subclass: #MultiCharacterScanner
>> > -     instanceVariableNames: 'destX lastIndex xTable destY
>> stopConditions text
>> > textStyle alignment leftMargin rightMargin font line runStopIndex
>> spaceCount
>> > spaceWidth emphasisCode kern indentationLevel wantsColumnBreaks
>> presentation
>> > presentationLine numOfComposition baselineY firstDestX'
>> > -     classVariableNames: 'DefaultStopConditions NilCondition
>> > PaddedSpaceCondition SpaceCondition'
>> > -     poolDictionaries: 'TextConstants'
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner class>>initialize (in category
>> 'class
>> > initialization') -----
>> > - initialize
>> > - "
>> > -     MultiCharacterScanner initialize
>> > - "
>> > -     | a |
>> > -     a := Array new: 258.
>> > -     a at: 1 + 1 put: #embeddedObject.
>> > -     a at: Tab asciiValue + 1 put: #tab.
>> > -     a at: CR asciiValue + 1 put: #cr.
>> > -     a at: EndOfRun put: #endOfRun.
>> > -     a at: CrossedX put: #crossedX.
>> > -     NilCondition := a copy.
>> > -     DefaultStopConditions := a copy.
>> > -
>> > -     PaddedSpaceCondition := a copy.
>> > -     PaddedSpaceCondition at: Space asciiValue + 1 put: #paddedSpace.
>> > -
>> > -     SpaceCondition := a copy.
>> > -     SpaceCondition at: Space asciiValue + 1 put: #space.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>addCharToPresentation: (in
>> category
>> > 'multilingual scanning') -----
>> > - addCharToPresentation: char
>> > -
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>addEmphasis: (in category
>> 'private')
>> > -----
>> > - addEmphasis: code
>> > -     "Set the bold-ital-under-strike emphasis."
>> > -     emphasisCode := emphasisCode bitOr: code!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>addKern: (in category 'private')
>> > -----
>> > - addKern: kernDelta
>> > -     "Set the current kern amount."
>> > -     kern := kern + kernDelta!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>basicScanCharactersFrom:to:in:
>> rightX:stopConditions:kern:
>> > (in category 'scanning') -----
>> > - basicScanCharactersFrom: startIndex to: stopIndex in: sourceString
>> rightX:
>> > rightX stopConditions: stops kern: kernDelta
>> > -     "Primitive. This is the inner loop of text display--but see
>> > -     scanCharactersFrom: to:rightX: which would get the string,
>> > -     stopConditions and displaying from the instance. March through
>> source
>> > -     String from startIndex to stopIndex. If any character is flagged
>> with a
>> > -     non-nil entry in stops, then return the corresponding value.
>> Determine
>> > -     width of each character from xTable, indexed by map.
>> > -     If dextX would exceed rightX, then return stops at: 258.
>> > -     Advance destX by the width of the character. If stopIndex has
>> > been
>> > -     reached, then return stops at: 257. Optional.
>> > -     See Object documentation whatIsAPrimitive."
>> > -     | ascii nextDestX char |
>> > -     <primitive: 103>
>> > -     lastIndex := startIndex.
>> > -     [lastIndex <= stopIndex]
>> > -             whileTrue:
>> > -                     [char := (sourceString at: lastIndex).
>> > -                     ascii := char asciiValue + 1.
>> > -                     (stops at: ascii) == nil ifFalse: [^stops at:
>> ascii].
>> > -                     "Note: The following is querying the font about
>> the width
>> > -                     since the primitive may have failed due to a
>> non-trivial
>> > -                     mapping of characters to glyphs or a non-existing
>> xTable."
>> > -                     nextDestX := destX + (font widthOf: char).
>> > -                     nextDestX > rightX ifTrue: [^stops at: CrossedX].
>> > -                     destX := nextDestX + kernDelta.
>> > -                     lastIndex := lastIndex + 1].
>> > -     lastIndex := stopIndex.
>> > -     ^stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>columnBreak (in category
>> 'scanning')
>> > -----
>> > - columnBreak
>> > -
>> > -     ^true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>combinableChar:for: (in category
>> > 'scanner methods') -----
>> > - combinableChar: char for: prevEntity
>> > -
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>embeddedObject (in category
>> > 'scanning') -----
>> > - embeddedObject
>> > -     | savedIndex |
>> > -     savedIndex := lastIndex.
>> > -     text attributesAt: lastIndex do:[:attr|
>> > -             attr anchoredMorph ifNotNil:[
>> > -                     "Following may look strange but logic gets
>> reversed.
>> > -                     If the morph fits on this line we're not done
>> (return false for true)
>> > -                     and if the morph won't fit we're done (return
>> > true
>> for false)"
>> > -                     (self placeEmbeddedObject: attr anchoredMorph)
>> ifFalse:[^true]]].
>> > -     lastIndex := savedIndex + 1. "for multiple(!!) embedded morphs"
>> > -     ^false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>handleIndentation (in category
>> > 'scanning') -----
>> > - handleIndentation
>> > -     self indentationLevel timesRepeat: [
>> > -             self plainTab]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>indentationLevel (in category
>> > 'scanning') -----
>> > - indentationLevel
>> > -     "return the number of tabs that are currently being placed at the
>> > beginning of each line"
>> > -     ^indentationLevel ifNil:[0]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>indentationLevel: (in category
>> > 'scanning') -----
>> > - indentationLevel: anInteger
>> > -     "set the number of tabs to put at the beginning of each line"
>> > -     indentationLevel := anInteger!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>initialize (in category
>> 'initialize')
>> > -----
>> > - initialize
>> > -     destX := destY := leftMargin := 0.!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>initializeFromParagraph:
>> clippedBy:
>> > (in category 'private') -----
>> > - initializeFromParagraph: aParagraph clippedBy: clippingRectangle
>> > -
>> > -     text := aParagraph text.
>> > -     textStyle := aParagraph textStyle.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>initializeStringMeasurer (in
>> category
>> > 'initialize') -----
>> > - initializeStringMeasurer
>> > -     stopConditions := Array new: 258.
>> > -     stopConditions at: CrossedX put: #crossedX.
>> > -     stopConditions at: EndOfRun put: #endOfRun.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>isBreakableAt:in:in: (in
>> > category
>> > 'scanner methods') -----
>> > - isBreakableAt: index in: sourceString in: encodingClass
>> > -
>> > -     ^ encodingClass isBreakableAt: index in: sourceString.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>leadingTab (in category
>> 'scanning')
>> > -----
>> > - leadingTab
>> > -     "return true if only tabs lie to the left"
>> > -     line first to: lastIndex do:
>> > -             [:i | (text at: i) == Tab ifFalse: [^ false]].
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>measureString:inFont:from:to:
>> > (in
>> > category 'scanning') -----
>> > - measureString: aString inFont: aFont from: startIndex to: stopIndex
>> > -     "WARNING: In order to use this method the receiver has to be set
>> up using
>> > #initializeStringMeasurer"
>> > -     destX := destY := lastIndex := 0.
>> > -     baselineY := aFont ascent.
>> > -     xTable := aFont xTable.
>> > -     font := aFont.  " added Dec 03, 2004 "
>> > - "   map := aFont characterToGlyphMap."
>> > -     self scanCharactersFrom: startIndex to: stopIndex in: aString
>> rightX:
>> > 999999 stopConditions: stopConditions kern: 0.
>> > -     ^destX!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>placeEmbeddedObject: (in
>> > category
>> > 'scanning') -----
>> > - placeEmbeddedObject: anchoredMorph
>> > -     "Place the anchoredMorph or return false if it cannot be placed.
>> > -     In any event, advance destX by its width."
>> > -     | w |
>> > -     "Workaround: The following should really use #textAnchorType"
>> > -     anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
>> > -     destX := destX + (w := anchoredMorph width).
>> > -     (destX > rightMargin and: [(leftMargin + w) <= rightMargin])
>> > -             ifTrue: ["Won't fit, but would on next line"
>> > -                             ^ false].
>> > -     lastIndex := lastIndex + 1.
>> > -     self setFont.  "Force recalculation of emphasis for next run"
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>plainTab (in category
>> > 'scanning')
>> > -----
>> > - plainTab
>> > -     "This is the basic method of adjusting destX for a tab."
>> > -     destX := (alignment == Justified and: [self leadingTab not])
>> > -             ifTrue:         "embedded tabs in justified text are
>> > weird"
>> > -                     [destX + (textStyle tabWidth - (line
>> justifiedTabDeltaFor: spaceCount))
>> > max: destX]
>> > -             ifFalse:
>> > -                     [textStyle nextTabXFrom: destX
>> > -                             leftMargin: leftMargin
>> > -                             rightMargin: rightMargin]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>registerBreakableIndex (in
>> category
>> > 'multilingual scanning') -----
>> > - registerBreakableIndex
>> > -
>> > -     "Record left x and character index of the line-wrappable point.
>> > -     The default implementation here does nothing."
>> > -
>> > -     ^ false.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>removeLastCharFromPresentation
>> (in
>> > category 'multilingual scanning') -----
>> > - removeLastCharFromPresentation
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanCharactersFrom:to:in:
>> rightX:stopConditions:kern:
>> > (in category 'scanning') -----
>> > - scanCharactersFrom: startIndex to: stopIndex in: sourceString rightX:
>> > rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | startEncoding selector |
>> > -     (sourceString isByteString) ifTrue: [^ self
>> basicScanCharactersFrom:
>> > startIndex to: stopIndex in: sourceString rightX: rightX
>> > stopConditions:
>> > stops kern: kernDelta.].
>> > -
>> > -     (sourceString isWideString) ifTrue: [
>> > -             startIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^
>> stops at:
>> > EndOfRun].
>> > -             startEncoding :=  (sourceString at: startIndex)
>> leadingChar.
>> > -             selector := EncodedCharSet scanSelectorAt: startEncoding.
>> > -             ^ self perform: selector withArguments: (Array with:
>> startIndex with:
>> > stopIndex with: sourceString with: rightX with: stopConditions with:
>> > kernDelta).
>> > -     ].
>> > -
>> > -     ^ stops at: EndOfRun
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanJapaneseCharactersFrom:to:
>> in:rightX:stopConditions:kern:
>> > (in category 'scanner methods') -----
>> > - scanJapaneseCharactersFrom: startIndex to: stopIndex in: sourceString
>> > rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | ascii encoding f nextDestX maxAscii startEncoding |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             "xTable := f xTable.
>> > -             maxAscii := xTable size - 2."
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             (font isMemberOf: HostFont) ifTrue: [
>> > -                     f := font.
>> > -                     maxAscii := f maxAscii.
>> > -                     spaceWidth := f widthOf: Space.
>> > -             ] ifFalse: [
>> > -                     maxAscii := font maxAscii.
>> > -             ].
>> > -     ].
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             "self halt."
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             ascii := (sourceString at: lastIndex) charCode.
>> > -             ascii > maxAscii ifTrue: [ascii := maxAscii].
>> > -             (encoding = 0 and: [(stopConditions at: ascii + 1) ~~
>> nil]) ifTrue: [^
>> > stops at: ascii + 1].
>> > -             (self isBreakableAt: lastIndex in: sourceString in:
>> (EncodedCharSet
>> > charsetAt: encoding)) ifTrue: [
>> > -                     self registerBreakableIndex.
>> > -             ].
>> > -             nextDestX := destX + (font widthOf: (sourceString at:
>> lastIndex)).
>> > -             nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue:
>> > [^
>> stops at:
>> > CrossedX]].
>> > -             destX := nextDestX + kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:
>> stopConditions:kern:
>> > (in category 'scanner methods') -----
>> > - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
>> > sourceString rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | charCode encoding f maxAscii startEncoding combining combined
>> > combiningIndex c |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             spaceWidth := font widthOf: Space.
>> > -     ] ifFalse: [
>> > -             maxAscii := font maxAscii.
>> > -             spaceWidth := font widthOf: Space.
>> > -     ].
>> > -
>> > -     combining := nil.
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             charCode := (sourceString at: lastIndex) charCode.
>> > -             c := (sourceString at: lastIndex).
>> > -             combining ifNil: [
>> > -                     combining := CombinedChar new.
>> > -                     combining add: c.
>> > -                     combiningIndex := lastIndex.
>> > -                     lastIndex := lastIndex + 1.
>> > -             ] ifNotNil: [
>> > -                     (combining add: c) ifFalse: [
>> > -                             self addCharToPresentation: (combined :=
>> combining combined).
>> > -                             combining := CombinedChar new.
>> > -                             combining add: c.
>> > -                             charCode := combined charCode.
>> > -                             encoding := combined leadingChar.
>> > -                             encoding ~= startEncoding ifTrue:
>> [lastIndex := lastIndex - 1.
>> > -                                     (encoding = 0 and:
>> [(stopConditions at: charCode + 1) ~~ nil])
>> > ifTrue: [
>> > -                                             ^ stops at: charCode + 1
>> > -                                     ] ifFalse: [
>> > -                                              ^ stops at: EndOfRun
>> > -                                     ].
>> > -                             ].
>> > -                             charCode > maxAscii ifTrue: [charCode :=
>> maxAscii].
>> > -                             ""
>> > -                             (encoding = 0 and: [(stopConditions at:
>> charCode + 1) ~~ nil]) ifTrue:
>> > [
>> > -                                     combining ifNotNil: [
>> > -                                             self
>> addCharToPresentation: (combining combined).
>> > -                                     ].
>> > -                                     ^ stops at: charCode + 1
>> > -                             ].
>> > -                             (self isBreakableAt: lastIndex in:
>> sourceString in: Latin1Environment)
>> > ifTrue: [
>> > -                                     self registerBreakableIndex.
>> > -                             ].
>> > -                             destX > rightX ifTrue: [
>> > -                                     destX ~= firstDestX ifTrue: [
>> > -                                             lastIndex :=
>> combiningIndex.
>> > -                                             self
>> removeLastCharFromPresentation.
>> > -                                             ^ stops at: CrossedX]].
>> > -                             combiningIndex := lastIndex.
>> > -                             lastIndex := lastIndex + 1.
>> > -                     ] ifTrue: [
>> > -                             lastIndex := lastIndex + 1.
>> > -                             numOfComposition := numOfComposition + 1.
>> > -                     ].
>> > -             ].
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     combining ifNotNil: [
>> > -             combined := combining combined.
>> > -             self addCharToPresentation: combined.
>> > -             "assuming that there is always enough space for at least
>> one character".
>> > -             destX := destX + (self widthOf: combined inFont: font).
>> > -     ].
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanMultiCharactersFrom:to:in:
>> rightX:stopConditions:kern:
>> > (in category 'scanning') -----
>> > - scanMultiCharactersFrom: startIndex to: stopIndex in: sourceString
>> rightX:
>> > rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | ascii encoding f nextDestX maxAscii startEncoding |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             maxAscii := font maxAscii.
>> > -     ].
>> > -
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             ascii := (sourceString at: lastIndex) charCode.
>> > -             ascii > maxAscii ifTrue: [ascii := maxAscii].
>> > -             (encoding = 0 and: [ascii < stopConditions size and:
>> [(stopConditions
>> > at: ascii + 1) ~~ nil]]) ifTrue: [^ stops at: ascii + 1].
>> > -             (self isBreakableAt: lastIndex in: sourceString in:
>> Latin1Environment)
>> > ifTrue: [
>> > -                     self registerBreakableIndex.
>> > -             ].
>> > -             nextDestX := destX + (font widthOf: (sourceString at:
>> lastIndex)).
>> > -             nextDestX > rightX ifTrue: [destX ~= firstDestX ifTrue:
>> > [^
>> stops at:
>> > CrossedX]].
>> > -             destX := nextDestX + kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanMultiCharactersR2LFrom:to:
>> in:rightX:stopConditions:kern:
>> > (in category 'scanner methods') -----
>> > - scanMultiCharactersR2LFrom: startIndex to: stopIndex in: sourceString
>> > rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     "Note that 'rightX' really means 'endX' in R2L context.  Ie.
>> rightX is
>> > usually smaller than destX."
>> > -     | ascii encoding f nextDestX maxAscii startEncoding |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             maxAscii := font maxAscii.
>> > -     ].
>> > -
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             ascii := (sourceString at: lastIndex) charCode.
>> > -             ascii > maxAscii ifTrue: [ascii := maxAscii].
>> > -             (encoding = 0 and: [(stopConditions at: ascii + 1) ~~
>> nil]) ifTrue: [^
>> > stops at: ascii + 1].
>> > -             (self isBreakableAt: lastIndex in: sourceString in:
>> Latin1Environment)
>> > ifTrue: [
>> > -                     self registerBreakableIndex.
>> > -             ].
>> > -             nextDestX := destX - (font widthOf: (sourceString at:
>> lastIndex)).
>> > -             nextDestX < rightX ifTrue: [^ stops at: CrossedX].
>> > -             destX := nextDestX - kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCharacterScanner>>scanSimChineseCharactersFrom:
>> to:in:rightX:stopConditions:kern:
>> > (in category 'scanner methods') -----
>> > - scanSimChineseCharactersFrom: startIndex to: stopIndex in:
>> > sourceString
>> > rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | ascii encoding f nextDestX maxAscii startEncoding |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             "xTable := f xTable.
>> > -             maxAscii := xTable size - 2."
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             (font isMemberOf: HostFont) ifTrue: [
>> > -                     f := font.
>> > -                     maxAscii := f maxAscii.
>> > -                     spaceWidth := f widthOf: Space.
>> > -             ] ifFalse: [
>> > -                     maxAscii := font maxAscii.
>> > -             ].
>> > -     ].
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             "self halt."
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             ascii := (sourceString at: lastIndex) charCode.
>> > -             ascii > maxAscii ifTrue: [ascii := maxAscii].
>> > -             (encoding = 0 and: [(stopConditions at: ascii + 1) ~~
>> nil]) ifTrue: [^
>> > stops at: ascii + 1].
>> > -             (self isBreakableAt: lastIndex in: sourceString in:
>> (EncodedCharSet
>> > charsetAt: encoding)) ifTrue: [
>> > -                     self registerBreakableIndex.
>> > -             ].
>> > -             nextDestX := destX + (font widthOf: (sourceString at:
>> lastIndex)).
>> > -             nextDestX > rightX ifTrue: [firstDestX ~= destX ifTrue:
>> > [^
>> stops at:
>> > CrossedX]].
>> > -             destX := nextDestX + kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>setActualFont: (in category
>> > 'private') -----
>> > - setActualFont: aFont
>> > -     "Set the basal font to an isolated font reference."
>> > -
>> > -     font := aFont!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>setAlignment: (in category
>> 'private')
>> > -----
>> > - setAlignment: style
>> > -     alignment := style.
>> > -     !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>setConditionArray: (in category
>> > 'private') -----
>> > - setConditionArray: aSymbol
>> > -
>> > -     aSymbol == #paddedSpace ifTrue: [^stopConditions :=
>> PaddedSpaceCondition
>> > "copy"].
>> > -     "aSymbol == #space ifTrue: [^stopConditions := SpaceCondition
>> copy]."
>> > -     aSymbol == nil ifTrue: [^stopConditions := NilCondition "copy"].
>> > -     self error: 'undefined stopcondition for space character'.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>setFont (in category 'private')
>> -----
>> > - setFont
>> > -     | priorFont |
>> > -     "Set the font and other emphasis."
>> > -     priorFont := font.
>> > -     text == nil ifFalse:[
>> > -             emphasisCode := 0.
>> > -             kern := 0.
>> > -             indentationLevel := 0.
>> > -             alignment := textStyle alignment.
>> > -             font := nil.
>> > -             (text attributesAt: lastIndex forStyle: textStyle)
>> > -                     do: [:att | att emphasizeScanner: self]].
>> > -     font == nil ifTrue:
>> > -             [self setFont: textStyle defaultFontIndex].
>> > -     font := font emphasized: emphasisCode.
>> > -     priorFont ifNotNil: [destX := destX + priorFont descentKern].
>> > -     destX := destX - font descentKern.
>> > -     "NOTE: next statement should be removed when clipping works"
>> > -     leftMargin ifNotNil: [destX := destX max: leftMargin].
>> > -     kern := kern - font baseKern.
>> > -
>> > -     "Install various parameters from the font."
>> > -     spaceWidth := font widthOf: Space.
>> > -     xTable := font xTable.
>> > - "   map := font characterToGlyphMap."
>> > -     stopConditions := DefaultStopConditions.!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>setFont: (in category 'private')
>> > -----
>> > - setFont: fontNumber
>> > -     "Set the font by number from the textStyle."
>> > -
>> > -     self setActualFont: (textStyle fontAt: fontNumber)!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>text:textStyle: (in category
>> > 'private') -----
>> > - text: t textStyle: ts
>> > -     text := t.
>> > -     textStyle := ts!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>textColor: (in category
>> 'private')
>> > -----
>> > - textColor: ignored
>> > -     "Overridden in DisplayScanner"!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>wantsColumnBreaks: (in category
>> > 'initialize') -----
>> > - wantsColumnBreaks: aBoolean
>> > -
>> > -     wantsColumnBreaks := aBoolean!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCharacterScanner>>widthOf:inFont: (in category
>> > 'multilingual scanning') -----
>> > - widthOf: char inFont: aFont
>> > -
>> > -     (char isMemberOf: CombinedChar) ifTrue: [
>> > -             ^ aFont widthOf: char base.
>> > -     ] ifFalse: [
>> > -             ^ aFont widthOf: char.
>> > -     ].
>> > -
>> > -
>> > - !
>> >
>> > Item was removed:
>> > - MultiCharacterScanner subclass: #MultiCompositionScanner
>> > -     instanceVariableNames: 'spaceX lineHeight baseline breakableIndex
>> > lineHeightAtBreak baselineAtBreak breakAtSpace lastWidth'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: ''
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>addCharToPresentation: (in
>> category
>> > 'multilingual scanning') -----
>> > - addCharToPresentation: char
>> > -
>> > -     presentation nextPut: char.
>> > -     lastWidth := self widthOf: char inFont: font.
>> > -     destX := destX + lastWidth.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>columnBreak (in category 'stop
>> > conditions') -----
>> > - columnBreak
>> > -
>> > -     "Answer true. Set up values for the text line interval currently
>> being
>> > -     composed."
>> > -
>> > -     line stop: lastIndex.
>> > -     presentationLine stop: lastIndex - numOfComposition.
>> > -     spaceX := destX.
>> > -     line paddingWidth: rightMargin - spaceX.
>> > -     presentationLine paddingWidth: rightMargin - spaceX.
>> > -     ^true!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCompositionScanner>>composeFrom:inRectangle:
>> firstLine:leftSide:rightSide:
>> > (in category 'scanning') -----
>> > - composeFrom: startIndex inRectangle: lineRectangle
>> > -     firstLine: firstLine leftSide: leftSide rightSide: rightSide
>> > -     "Answer an instance of TextLineInterval that represents the next
>> line in
>> > the paragraph."
>> > -     | runLength done stopCondition |
>> > -     "Set up margins"
>> > -     leftMargin := lineRectangle left.
>> > -     leftSide ifTrue: [leftMargin := leftMargin +
>> > -                                             (firstLine ifTrue:
>> [textStyle firstIndent]
>> > -                                                             ifFalse:
>> [textStyle restIndent])].
>> > -     destX := spaceX := leftMargin.
>> > -     firstDestX := destX.
>> > -     rightMargin := lineRectangle right.
>> > -     rightSide ifTrue: [rightMargin := rightMargin - textStyle
>> rightIndent].
>> > -     lastIndex := startIndex.        "scanning sets last index"
>> > -     destY := lineRectangle top.
>> > -     lineHeight := baseline := 0.  "Will be increased by setFont"
>> > -     self setStopConditions. "also sets font"
>> > -     runLength := text runLengthFor: startIndex.
>> > -     runStopIndex := (lastIndex := startIndex) + (runLength - 1).
>> > -     line := (TextLine start: lastIndex stop: 0 internalSpaces: 0
>> > paddingWidth: 0)
>> > -                             rectangle: lineRectangle.
>> > -     presentationLine := (TextLine start: lastIndex stop: 0
>> internalSpaces: 0
>> > paddingWidth: 0)
>> > -                             rectangle: lineRectangle.
>> > -     numOfComposition := 0.
>> > -     spaceCount := 0.
>> > -     self handleIndentation.
>> > -     leftMargin := destX.
>> > -     line leftMargin: leftMargin.
>> > -     presentationLine leftMargin: leftMargin.
>> > -
>> > -     presentation := TextStream on: (Text fromString: (WideString new:
>> text
>> > size)).
>> > -
>> > -     done := false.
>> > -     [done]
>> > -             whileFalse:
>> > -                     [stopCondition := self scanCharactersFrom:
>> lastIndex to: runStopIndex
>> > -                             in: text string rightX: rightMargin
>> stopConditions: stopConditions
>> > -                             kern: kern.
>> > -                     "See setStopConditions for stopping conditions
>> > for
>> composing."
>> > -                     (self perform: stopCondition)
>> > -                             ifTrue: [presentationLine lineHeight:
>> lineHeight + textStyle leading
>> > -                                                     baseline:
>> > baseline
>> + textStyle leading.
>> > -                                             ^ line lineHeight:
>> lineHeight + textStyle leading
>> > -                                                     baseline:
>> > baseline
>> + textStyle leading]]!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiCompositionScanner>>composeLine:fromCharacterIndex:inParagraph:
>> > (in
>> > category 'scanning') -----
>> > - composeLine: lineIndex fromCharacterIndex: startIndex inParagraph:
>> > aParagraph
>> > -     "Answer an instance of TextLineInterval that represents the next
>> line in
>> > the paragraph."
>> > -     | runLength done stopCondition |
>> > -     destX := spaceX := leftMargin := aParagraph
>> > leftMarginForCompositionForLine: lineIndex.
>> > -     destY := 0.
>> > -     rightMargin := aParagraph rightMarginForComposition.
>> > -     leftMargin >= rightMargin ifTrue: [self error: 'No room between
>> margins
>> > to compose'].
>> > -     lastIndex := startIndex.        "scanning sets last index"
>> > -     lineHeight := textStyle lineGrid.  "may be increased by
>> setFont:..."
>> > -     baseline := textStyle baseline.
>> > -     baselineY := destY + baseline.
>> > -     self setStopConditions. "also sets font"
>> > -     self handleIndentation.
>> > -     runLength := text runLengthFor: startIndex.
>> > -     runStopIndex := (lastIndex := startIndex) + (runLength - 1).
>> > -     line := TextLineInterval
>> > -             start: lastIndex
>> > -             stop: 0
>> > -             internalSpaces: 0
>> > -             paddingWidth: 0.
>> > -     presentationLine := TextLineInterval
>> > -             start: lastIndex
>> > -             stop: 0
>> > -             internalSpaces: 0
>> > -             paddingWidth: 0.
>> > -     numOfComposition := 0.
>> > -     presentation := TextStream on: (Text fromString: (WideString new:
>> text
>> > size)).
>> > -     spaceCount := 0.
>> > -     done := false.
>> > -     [done]
>> > -             whileFalse:
>> > -                     [stopCondition := self scanCharactersFrom:
>> lastIndex to: runStopIndex
>> > -                             in: text string rightX: rightMargin
>> stopConditions: stopConditions
>> > -                             kern: kern.
>> > -                     "See setStopConditions for stopping conditions
>> > for
>> composing."
>> > -                     (self perform: stopCondition)
>> > -                             ifTrue: [presentationLine lineHeight:
>> lineHeight + textStyle leading
>> > -                                                     baseline:
>> > baseline
>> + textStyle leading.
>> > -                                             ^line lineHeight:
>> lineHeight + textStyle leading
>> > -                                                     baseline:
>> > baseline
>> + textStyle leading]]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>cr (in category 'stop
>> conditions')
>> > -----
>> > - cr
>> > -     "Answer true. Set up values for the text line interval currently
>> being
>> > -     composed."
>> > -
>> > -     line stop: lastIndex.
>> > -     presentationLine stop: lastIndex - numOfComposition.
>> > -     spaceX := destX.
>> > -     line paddingWidth: rightMargin - spaceX.
>> > -     presentationLine paddingWidth: rightMargin - spaceX.
>> > -     ^true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>crossedX (in category 'stop
>> > conditions') -----
>> > - crossedX
>> > -     "There is a word that has fallen across the right edge of the
>> composition
>> > -     rectangle. This signals the need for wrapping which is done to
>> > the
>> last
>> > -     space that was encountered, as recorded by the space stop
>> condition."
>> > -
>> > -     (breakAtSpace) ifTrue: [
>> > -             spaceCount >= 1 ifTrue:
>> > -                     ["The common case. First back off to the space at
>> which we wrap."
>> > -                     line stop: breakableIndex.
>> > -                     presentationLine stop: breakableIndex -
>> numOfComposition.
>> > -                     lineHeight := lineHeightAtBreak.
>> > -                     baseline := baselineAtBreak.
>> > -                     spaceCount := spaceCount - 1.
>> > -                     breakableIndex := breakableIndex - 1.
>> > -
>> > -                     "Check to see if any spaces preceding the one at
>> which we wrap.
>> > -                             Double space after punctuation, most
>> likely."
>> > -                     [(spaceCount > 1 and: [(text at: breakableIndex)
>> > =
>> Space])]
>> > -                             whileTrue:
>> > -                                     [spaceCount := spaceCount - 1.
>> > -                                     "Account for backing over a run
>> which might
>> > -                                             change width of space."
>> > -                                     font := text fontAt:
>> breakableIndex withStyle: textStyle.
>> > -                                     breakableIndex := breakableIndex
>> > -
>> 1.
>> > -                                     spaceX := spaceX - (font widthOf:
>> Space)].
>> > -                     line paddingWidth: rightMargin - spaceX.
>> > -                     presentationLine paddingWidth: rightMargin -
>> spaceX.
>> > -                     presentationLine internalSpaces: spaceCount.
>> > -                     line internalSpaces: spaceCount]
>> > -             ifFalse:
>> > -                     ["Neither internal nor trailing spaces -- almost
>> never happens."
>> > -                     lastIndex := lastIndex - 1.
>> > -                     [destX <= rightMargin]
>> > -                             whileFalse:
>> > -                                     [destX := destX - (font widthOf:
>> (text at: lastIndex)).
>> > -                                     lastIndex := lastIndex - 1].
>> > -                     spaceX := destX.
>> > -                     line paddingWidth: rightMargin - destX.
>> > -                     presentationLine paddingWidth: rightMargin -
>> > destX.
>> > -                     presentationLine stop: (lastIndex max: line
>> > first).
>> > -                     line stop: (lastIndex max: line first)].
>> > -             ^true
>> > -     ].
>> > -
>> > -     (breakableIndex isNil or: [breakableIndex < line first]) ifTrue:
>> > [
>> > -             "Any breakable point in this line.  Just wrap last
>> character."
>> > -             breakableIndex := lastIndex - 1.
>> > -             lineHeightAtBreak := lineHeight.
>> > -             baselineAtBreak := baseline.
>> > -     ].
>> > -
>> > -     "It wasn't a space, but anyway this is where we break the line."
>> > -     line stop: breakableIndex.
>> > -     presentationLine stop: breakableIndex.
>> > -     lineHeight := lineHeightAtBreak.
>> > -     baseline := baselineAtBreak.
>> > -     ^ true.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>endOfRun (in category 'stop
>> > conditions') -----
>> > - endOfRun
>> > -     "Answer true if scanning has reached the end of the paragraph.
>> > -     Otherwise step conditions (mostly install potential new font) and
>> answer
>> > -     false."
>> > -
>> > -     | runLength |
>> > -     lastIndex = text size
>> > -     ifTrue: [line stop: lastIndex.
>> > -                     presentationLine stop: lastIndex -
>> numOfComposition.
>> > -                     spaceX := destX.
>> > -                     line paddingWidth: rightMargin - destX.
>> > -                     presentationLine paddingWidth: rightMargin -
>> > destX.
>> > -                     ^true]
>> > -     ifFalse:        [
>> > -                     "(text at: lastIndex) charCode = 32 ifTrue:
>> > [destX
>> := destX +
>> > spaceWidth]."
>> > -                     runLength := (text runLengthFor: (lastIndex :=
>> lastIndex + 1)).
>> > -                     runStopIndex := lastIndex + (runLength - 1).
>> > -                     self setStopConditions.
>> > -                     ^false]
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>forParagraph: (in category
>> > 'intialize-release') -----
>> > - forParagraph: aParagraph
>> > -     "Initialize the receiver for scanning the given paragraph."
>> > -
>> > -     self
>> > -             initializeFromParagraph: aParagraph
>> > -             clippedBy: aParagraph clippingRectangle.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>getPresentation (in category
>> > 'multilingual scanning') -----
>> > - getPresentation
>> > -
>> > -     ^ presentation contents.
>> > -
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>getPresentationLine (in
>> category
>> > 'multilingual scanning') -----
>> > - getPresentationLine
>> > -
>> > -     ^ presentationLine.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>isBreakableAt:in:in: (in
>> category
>> > 'multilingual scanning') -----
>> > - isBreakableAt: index in: sourceString in: encodingClass
>> > -
>> > -     ^ encodingClass isBreakableAt: index in: sourceString.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>placeEmbeddedObject: (in
>> category
>> > 'stop conditions') -----
>> > - placeEmbeddedObject: anchoredMorph
>> > -     | descent |
>> > -     "Workaround: The following should really use #textAnchorType"
>> > -     anchoredMorph relativeTextAnchorPosition ifNotNil:[^true].
>> > -     (super placeEmbeddedObject: anchoredMorph) ifFalse: ["It doesn't
>> fit"
>> > -             "But if it's the first character then leave it here"
>> > -             lastIndex < line first ifFalse:[
>> > -                     line stop: lastIndex-1.
>> > -                     ^ false]].
>> > -     descent := lineHeight - baseline.
>> > -     lineHeight := lineHeight max: anchoredMorph height.
>> > -     baseline := lineHeight - descent.
>> > -     line stop: lastIndex.
>> > -     presentationLine stop: lastIndex - numOfComposition.
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>presentation (in category
>> > 'accessing') -----
>> > - presentation
>> > -
>> > -     ^ presentation.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>presentationLine (in category
>> > 'accessing') -----
>> > - presentationLine
>> > -
>> > -     ^ presentationLine.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>registerBreakableIndex (in
>> category
>> > 'multilingual scanning') -----
>> > - registerBreakableIndex
>> > -
>> > -     "Record left x and character index of the line-wrappable point.
>> > -     Used for wrap-around. Answer whether the character has crossed
>> > the
>> > -     right edge of the composition rectangle of the paragraph."
>> > -
>> > -     (text at: lastIndex) = Character space ifTrue: [
>> > -             breakAtSpace := true.
>> > -             spaceX := destX.
>> > -             spaceCount := spaceCount + 1.
>> > -             lineHeightAtBreak := lineHeight.
>> > -             baselineAtBreak := baseline.
>> > -             breakableIndex := lastIndex.
>> > -             destX > rightMargin ifTrue:     [^self crossedX].
>> > -     ] ifFalse: [
>> > -             breakAtSpace := false.
>> > -             lineHeightAtBreak := lineHeight.
>> > -             baselineAtBreak := baseline.
>> > -             breakableIndex := lastIndex - 1.
>> > -     ].
>> > -     ^ false.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>removeLastCharFromPresentation
>> (in
>> > category 'multilingual scanning') -----
>> > - removeLastCharFromPresentation
>> > -
>> > -     presentation ifNotNil: [
>> > -             presentation position: presentation position - 1.
>> > -     ].
>> > -     destX := destX - lastWidth.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>rightX (in category
>> 'accessing')
>> > -----
>> > - rightX
>> > -     "Meaningful only when a line has just been composed -- refers to
>> the
>> > -     line most recently composed. This is a subtrefuge to allow for
>> > easy
>> > -     resizing of a composition rectangle to the width of the maximum
>> line.
>> > -     Useful only when there is only one line in the form or when each
>> line
>> > -     is terminated by a carriage return. Handy for sizing menus and
>> lists."
>> > -
>> > -     breakAtSpace ifTrue: [^ spaceX].
>> > -
>> > -     ^ destX.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>setActualFont: (in category
>> > 'scanning') -----
>> > - setActualFont: aFont
>> > -     "Keep track of max height and ascent for auto lineheight"
>> > -     | descent |
>> > -     super setActualFont: aFont.
>> > -     "'   ', lastIndex printString, '   ' displayAt: (lastIndex *
>> 15)@0."
>> > -     lineHeight == nil
>> > -             ifTrue: [descent := font descent.
>> > -                             baseline := font ascent.
>> > -                             lineHeight := baseline + descent]
>> > -             ifFalse: [descent := lineHeight - baseline max: font
>> descent.
>> > -                             baseline := baseline max: font ascent.
>> > -                             lineHeight := lineHeight max: baseline +
>> descent]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>setFont (in category 'stop
>> > conditions') -----
>> > - setFont
>> > -     super setFont.
>> > -     breakAtSpace := false.
>> > -     wantsColumnBreaks == true ifTrue: [
>> > -             stopConditions := stopConditions copy.
>> > -             stopConditions at: TextComposer characterForColumnBreak
>> asciiValue + 1
>> > put: #columnBreak.
>> > -     ].
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>setStopConditions (in category
>> > 'stop conditions') -----
>> > - setStopConditions
>> > -     "Set the font and the stop conditions for the current run."
>> > -
>> > -     self setFont!
>> >
>> > Item was removed:
>> > - ----- Method: MultiCompositionScanner>>tab (in category 'stop
>> conditions')
>> > -----
>> > - tab
>> > -     "Advance destination x according to tab settings in the
>> > paragraph's
>> > -     textStyle. Answer whether the character has crossed the right
>> > edge
>> of
>> > -     the composition rectangle of the paragraph."
>> > -
>> > -     destX := textStyle
>> > -                             nextTabXFrom: destX leftMargin:
>> > leftMargin
>> rightMargin: rightMargin.
>> > -     destX > rightMargin ifTrue:     [^self crossedX].
>> > -     lastIndex := lastIndex + 1.
>> > -     ^false
>> > - !
>> >
>> > Item was removed:
>> > - MultiCharacterScanner subclass: #MultiDisplayScanner
>> > -     instanceVariableNames: 'bitBlt lineY runX foregroundColor
>> backgroundColor
>> > fillBlt lineHeight paragraph paragraphColor morphicOffset
>> > ignoreColorChanges'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: ''
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner class>>defaultFont (in category
>> > 'queries') -----
>> > - defaultFont
>> > -     ^ TextStyle defaultFont!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>cr (in category 'stop conditions')
>> > -----
>> > - cr
>> > -     "When a carriage return is encountered, simply increment the
>> pointer
>> > -     into the paragraph."
>> > -
>> > -     lastIndex := lastIndex + 1.
>> > -     ^false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>crossedX (in category 'stop
>> > conditions') -----
>> > - crossedX
>> > -     "This condition will sometimes be reached 'legally' during
>> display, when,
>> > -     for instance the space that caused the line to wrap actually
>> extends over
>> > -     the right boundary. This character is allowed to display, even
>> though it
>> > -     is technically outside or straddling the clipping ectangle since
>> it is in
>> > -     the normal case not visible and is in any case appropriately
>> clipped by
>> > -     the scanner."
>> > -
>> > -     ^ true !
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>displayLine:offset:leftInRun: (in
>> > category 'scanning') -----
>> > - displayLine: textLine offset: offset leftInRun: leftInRun
>> > -     "The call on the primitive (scanCharactersFrom:to:in:rightX:)
>> will be
>> > interrupted according to an array of stop conditions passed to the
>> scanner
>> > at which time the code to handle the stop condition is run and the call
>> on
>> > the primitive continued until a stop condition returns true (which
>> > means
>> the
>> > line has terminated).  leftInRun is the # of characters left to scan in
>> the
>> > current run; when 0, it is time to call setStopConditions."
>> > -     | done stopCondition nowLeftInRun startIndex string lastPos |
>> > -     line := textLine.
>> > -     morphicOffset := offset.
>> > -     lineY := line top + offset y.
>> > -     lineHeight := line lineHeight.
>> > -     rightMargin := line rightMargin + offset x.
>> > -     lastIndex := line first.
>> > -     leftInRun <= 0 ifTrue: [self setStopConditions].
>> > -     leftMargin := (line leftMarginForAlignment: alignment) + offset
>> > x.
>> > -     destX := runX := leftMargin.
>> > -     fillBlt == nil ifFalse:
>> > -             ["Not right"
>> > -             fillBlt destX: line left destY: lineY
>> > -                     width: line width left height: lineHeight;
>> copyBits].
>> > -     lastIndex := line first.
>> > -     leftInRun <= 0
>> > -             ifTrue: [nowLeftInRun := text runLengthFor: lastIndex]
>> > -             ifFalse: [nowLeftInRun := leftInRun].
>> > -     baselineY := lineY + line baseline.
>> > -     destY := baselineY - font ascent.
>> > -     runStopIndex := lastIndex + (nowLeftInRun - 1) min: line last.
>> > -     spaceCount := 0.
>> > -     done := false.
>> > -     string := text string.
>> > -     [done] whileFalse:[
>> > -             startIndex := lastIndex.
>> > -             lastPos := destX@destY.
>> > -             stopCondition := self scanCharactersFrom: lastIndex to:
>> runStopIndex
>> > -                                             in: string rightX:
>> rightMargin stopConditions: stopConditions
>> > -                                             kern: kern.
>> > -             lastIndex >= startIndex ifTrue:[
>> > -                     font displayString: string on: bitBlt
>> > -                             from: startIndex
>> > -     "XXXX: The following is an interesting bug. All stopConditions
>> exept
>> > #endOfRun
>> > -             have lastIndex past the last character displayed.
>> #endOfRun sets it *on*
>> > the character.
>> > -             If we display up until lastIndex then we will also
>> > display
>> invisible
>> > characters like
>> > -             CR and tab. This problem should be fixed in the scanner
>> (i.e., position
>> > lastIndex
>> > -             consistently) but I don't want to deal with the fallout
>> right now so we
>> > keep the
>> > -             fix minimally invasive."
>> > -                             to: (stopCondition == #endOfRun
>> ifTrue:[lastIndex]
>> > ifFalse:[lastIndex-1])
>> > -                             at: lastPos kern: kern baselineY:
>> baselineY].
>> > -             "see setStopConditions for stopping conditions for
>> displaying."
>> > -             done := self perform: stopCondition.
>> > -             "lastIndex > runStopIndex ifTrue: [done := true]."
>> > -     ].
>> > -     ^ runStopIndex - lastIndex   "Number of characters remaining in
>> > the
>> > current run"!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>displayLines:in:clippedBy: (in
>> category
>> > 'MVC-compatibility') -----
>> > - displayLines: linesInterval in: aParagraph clippedBy:
>> > visibleRectangle
>> > -     "The central display routine. The call on the primitive
>> > -     (scanCharactersFrom:to:in:rightX:) will be interrupted according
>> to an
>> > -     array of stop conditions passed to the scanner at which time the
>> code to
>> > -     handle the stop condition is run and the call on the primitive
>> continued
>> > -     until a stop condition returns true (which means the line has
>> > -     terminated)."
>> > -     | runLength done stopCondition leftInRun startIndex string
>> > lastPos
>> |
>> > -     "leftInRun is the # of characters left to scan in the current
>> > run;
>> > -             when 0, it is time to call 'self setStopConditions'"
>> > -     morphicOffset := 0@0.
>> > -     leftInRun := 0.
>> > -     self initializeFromParagraph: aParagraph clippedBy:
>> visibleRectangle.
>> > -     ignoreColorChanges := false.
>> > -     paragraph := aParagraph.
>> > -     foregroundColor := paragraphColor := aParagraph foregroundColor.
>> > -     backgroundColor := aParagraph backgroundColor.
>> > -     aParagraph backgroundColor isTransparent
>> > -             ifTrue: [fillBlt := nil]
>> > -             ifFalse: [fillBlt := bitBlt copy.  "Blt to fill spaces,
>> tabs, margins"
>> > -                             fillBlt sourceForm: nil; sourceOrigin:
>> > 0@0.
>> > -                             fillBlt fillColor: aParagraph
>> backgroundColor].
>> > -     rightMargin := aParagraph rightMarginForDisplay.
>> > -     lineY := aParagraph topAtLineIndex: linesInterval first.
>> > -     bitBlt destForm deferUpdatesIn: visibleRectangle while: [
>> > -             linesInterval do:
>> > -                     [:lineIndex |
>> > -                     leftMargin := aParagraph
>> leftMarginForDisplayForLine: lineIndex
>> > alignment: (alignment ifNil:[textStyle alignment]).
>> > -                     destX := (runX := leftMargin).
>> > -                     line := aParagraph lines at: lineIndex.
>> > -                     lineHeight := line lineHeight.
>> > -                     fillBlt == nil ifFalse:
>> > -                             [fillBlt destX: visibleRectangle left
>> destY: lineY
>> > -                                     width: visibleRectangle width
>> height: lineHeight; copyBits].
>> > -                     lastIndex := line first.
>> > -                     leftInRun <= 0
>> > -                             ifTrue: [self setStopConditions.  "also
>> sets the font"
>> > -                                             leftInRun := text
>> runLengthFor: line first].
>> > -                     baselineY := lineY + line baseline.
>> > -                     destY := baselineY - font ascent.  "Should have
>> happened in setFont"
>> > -                     runLength := leftInRun.
>> > -                     runStopIndex := lastIndex + (runLength - 1) min:
>> line last.
>> > -                     leftInRun := leftInRun - (runStopIndex -
>> > lastIndex
>> + 1).
>> > -                     spaceCount := 0.
>> > -                     done := false.
>> > -                     string := text string.
>> > -                     self handleIndentation.
>> > -                     [done] whileFalse:[
>> > -                             startIndex := lastIndex.
>> > -                             lastPos := destX@destY.
>> > -                             stopCondition := self scanCharactersFrom:
>> lastIndex to: runStopIndex
>> > -                                                     in: string
>> > rightX:
>> rightMargin stopConditions: stopConditions
>> > -                                                     kern: kern.
>> > -                             lastIndex >= startIndex ifTrue:[
>> > -                                     font displayString: string on:
>> bitBlt
>> > -                                             from: startIndex to:
>> lastIndex at: lastPos kern: kern baselineY:
>> > baselineY].
>> > -                             "see setStopConditions for stopping
>> conditions for displaying."
>> > -                             done := self perform: stopCondition].
>> > -                     fillBlt == nil ifFalse:
>> > -                             [fillBlt destX: destX destY: lineY width:
>> visibleRectangle right-destX
>> > height: lineHeight; copyBits].
>> > -                     lineY := lineY + lineHeight]]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>endOfRun (in category 'stop
>> > conditions') -----
>> > - endOfRun
>> > -     "The end of a run in the display case either means that there is
>> actually
>> > -     a change in the style (run code) to be associated with the string
>> or the
>> > -     end of this line has been reached."
>> > -     | runLength |
>> > -     lastIndex = line last ifTrue: [^true].
>> > -     runX := destX.
>> > -     runLength := text runLengthFor: (lastIndex := lastIndex + 1).
>> > -     runStopIndex := lastIndex + (runLength - 1) min: line last.
>> > -     self setStopConditions.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>initializeFromParagraph:clippedBy:
>> (in
>> > category 'MVC-compatibility') -----
>> > - initializeFromParagraph: aParagraph clippedBy: clippingRectangle
>> > -
>> > -     super initializeFromParagraph: aParagraph clippedBy:
>> clippingRectangle.
>> > -     bitBlt := BitBlt asGrafPort toForm: aParagraph destinationForm.
>> > -     bitBlt sourceX: 0; width: 0.    "Init BitBlt so that the first
>> call to a
>> > primitive will not fail"
>> > -     bitBlt combinationRule: Form paint.
>> > -     bitBlt colorMap:
>> > -             (Bitmap with: 0      "Assumes 1-bit deep fonts"
>> > -                             with: (bitBlt destForm pixelValueFor:
>> aParagraph foregroundColor)).
>> > -     bitBlt clipRect: clippingRectangle.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>isBreakableAt:in:in: (in category
>> > 'multilingual scanning') -----
>> > - isBreakableAt: index in: sourceString in: encodingClass
>> > -
>> > -     ^ false.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>paddedSpace (in category 'stop
>> > conditions') -----
>> > - paddedSpace
>> > -     "Each space is a stop condition when the alignment is right
>> justified.
>> > -     Padding must be added to the base width of the space according to
>> > -     which space in the line this space is and according to the amount
>> of
>> > -     space that remained at the end of the line when it was composed."
>> > -
>> > -     spaceCount := spaceCount + 1.
>> > -     destX := destX + spaceWidth + (line justifiedPadFor: spaceCount).
>> > -     lastIndex := lastIndex + 1.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>placeEmbeddedObject: (in category
>> > 'scanning') -----
>> > - placeEmbeddedObject: anchoredMorph
>> > -     anchoredMorph relativeTextAnchorPosition ifNotNil:[
>> > -             anchoredMorph position:
>> > -                     anchoredMorph relativeTextAnchorPosition +
>> > -                     (anchoredMorph owner textBounds origin x @ 0)
>> > -                     - (0@morphicOffset y) + (0@lineY).
>> > -             ^true
>> > -     ].
>> > -     (super placeEmbeddedObject: anchoredMorph) ifFalse: [^ false].
>> > -     anchoredMorph isMorph ifTrue: [
>> > -             anchoredMorph position: ((destX - anchoredMorph
>> width)@lineY) -
>> > morphicOffset
>> > -     ] ifFalse: [
>> > -             destY := lineY.
>> > -             baselineY := lineY + anchoredMorph height..
>> > -             runX := destX.
>> > -             anchoredMorph
>> > -                     displayOn: bitBlt destForm
>> > -                     at: destX - anchoredMorph width @ destY
>> > -                     clippingBox: bitBlt clipRect
>> > -     ].
>> > -     ^ true!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>plainTab (in category 'stop
>> > conditions') -----
>> > - plainTab
>> > -     | oldX |
>> > -     oldX := destX.
>> > -     super plainTab.
>> > -     fillBlt == nil ifFalse:
>> > -             [fillBlt destX: oldX destY: destY width: destX - oldX
>> height: font
>> > height; copyBits]!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>presentationText: (in category
>> > 'private') -----
>> > - presentationText: t
>> > -
>> > -     text := t.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiDisplayScanner>>scanMultiCharactersCombiningFrom:to:in:rightX:
>> stopConditions:kern:
>> > (in category 'multilingual scanning') -----
>> > - scanMultiCharactersCombiningFrom: startIndex to: stopIndex in:
>> > sourceString rightX: rightX stopConditions: stops kern: kernDelta
>> > -
>> > -     | encoding f nextDestX maxAscii startEncoding char charValue |
>> > -     lastIndex := startIndex.
>> > -     lastIndex > stopIndex ifTrue: [lastIndex := stopIndex. ^ stops
>> > at:
>> > EndOfRun].
>> > -     startEncoding := (sourceString at: startIndex) leadingChar.
>> > -     font ifNil: [font := (TextConstants at: #DefaultMultiStyle)
>> fontArray at:
>> > 1].
>> > -     ((font isMemberOf: StrikeFontSet) or: [font isKindOf:
>> > TTCFontSet])
>> > ifTrue: [
>> > -             [f := font fontArray at: startEncoding + 1]
>> > -                     on: Exception do: [:ex | f := font fontArray at:
>> 1].
>> > -             f ifNil: [ f := font fontArray at: 1].
>> > -             maxAscii := f maxAscii.
>> > -             spaceWidth := f widthOf: Space.
>> > -     ] ifFalse: [
>> > -             maxAscii := font maxAscii.
>> > -     ].
>> > -
>> > -     [lastIndex <= stopIndex] whileTrue: [
>> > -             encoding := (sourceString at: lastIndex) leadingChar.
>> > -             encoding ~= startEncoding ifTrue: [lastIndex := lastIndex
>> - 1. ^ stops
>> > at: EndOfRun].
>> > -             char := (sourceString at: lastIndex).
>> > -             charValue := char charCode.
>> > -             charValue > maxAscii ifTrue: [charValue := maxAscii].
>> > -             (encoding = 0 and: [(stopConditions at: charValue + 1) ~~
>> nil]) ifTrue:
>> > [
>> > -                     ^ stops at: charValue + 1
>> > -             ].
>> > -             nextDestX := destX + (self widthOf: char inFont: font).
>> > -             nextDestX > rightX ifTrue: [^ stops at: CrossedX].
>> > -             destX := nextDestX + kernDelta.
>> > -             lastIndex := lastIndex + 1.
>> > -     ].
>> > -     lastIndex := stopIndex.
>> > -     ^ stops at: EndOfRun!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>setDestForm: (in category
>> 'private')
>> > -----
>> > - setDestForm: df
>> > -     bitBlt setDestForm: df.!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>setFont (in category 'private')
>> -----
>> > - setFont
>> > -     foregroundColor := paragraphColor.
>> > -     super setFont.  "Sets font and emphasis bits, and maybe
>> foregroundColor"
>> > -     font installOn: bitBlt foregroundColor: foregroundColor
>> backgroundColor:
>> > Color transparent.
>> > -     text ifNotNil:[
>> > -             baselineY := lineY + line baseline.
>> > -             destY := baselineY - font ascent].
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>setPort: (in category 'private')
>> -----
>> > - setPort: aBitBlt
>> > -     "Install the BitBlt to use"
>> > -     bitBlt := aBitBlt.
>> > -     bitBlt sourceX: 0; width: 0.    "Init BitBlt so that the first
>> call to a
>> > primitive will not fail"
>> > -     bitBlt sourceForm: nil. "Make sure font installation won't be
>> confused"
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>setStopConditions (in category
>> 'stop
>> > conditions') -----
>> > - setStopConditions
>> > -     "Set the font and the stop conditions for the current run."
>> > -
>> > -     self setFont.
>> > -     self setConditionArray: (alignment = Justified ifTrue:
>> [#paddedSpace]).
>> > -
>> > - "
>> > -     alignment = Justified ifTrue: [
>> > -             stopConditions == DefaultStopConditions
>> > -                     ifTrue:[stopConditions := stopConditions copy].
>> > -             stopConditions at: Space asciiValue + 1 put:
>> > #paddedSpace]
>> > - "!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>tab (in category 'stop
>> > conditions')
>> > -----
>> > - tab
>> > -     self plainTab.
>> > -     lastIndex := lastIndex + 1.
>> > -     ^ false!
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiDisplayScanner>>text:textStyle:foreground:background:fillBlt:
>> ignoreColorChanges:
>> > (in category 'private') -----
>> > - text: t textStyle: ts foreground: foreColor background: backColor
>> fillBlt:
>> > blt ignoreColorChanges: shadowMode
>> > -     text := t.
>> > -     textStyle := ts.
>> > -     foregroundColor := paragraphColor := foreColor.
>> > -     (backgroundColor := backColor) isTransparent ifFalse:
>> > -             [fillBlt := blt.
>> > -             fillBlt fillColor: backgroundColor].
>> > -     ignoreColorChanges := shadowMode!
>> >
>> > Item was removed:
>> > - ----- Method: MultiDisplayScanner>>textColor: (in category 'private')
>> > -----
>> > - textColor: textColor
>> > -     ignoreColorChanges ifTrue: [^ self].
>> > -     foregroundColor := textColor!
>> >
>> > Item was removed:
>> > - NewParagraph subclass: #MultiNewParagraph
>> > -     instanceVariableNames: 'presentationText presentationLines'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: 'TextConstants'
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiNewParagraph>>displayOn:using:at: (in category
>> > 'fonts-display') -----
>> > - displayOn: aCanvas using: displayScanner at: somePosition
>> > -     "Send all visible lines to the displayScanner for display"
>> > -
>> > -     | visibleRectangle offset leftInRun line |
>> > -     visibleRectangle := aCanvas clipRect.
>> > -     offset := somePosition - positionWhenComposed.
>> > -     leftInRun := 0.
>> > -     (self lineIndexForPoint: visibleRectangle topLeft)
>> > -             to: (self lineIndexForPoint: visibleRectangle
>> > bottomRight)
>> > -             do: [:i | line := lines at: i.
>> > -                     self displaySelectionInLine: line on: aCanvas.
>> > -                     line first <= line last ifTrue:
>> > -                             [leftInRun := displayScanner displayLine:
>> line
>> > -                                                             offset:
>> offset leftInRun: leftInRun]].
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiNewParagraph>>displayOnTest:using:at: (in category
>> > 'fonts-display') -----
>> > - displayOnTest: aCanvas using: displayScanner at: somePosition
>> > -     "Send all visible lines to the displayScanner for display"
>> > -
>> > -     | visibleRectangle offset leftInRun line |
>> > -     (presentationText isNil or: [presentationLines isNil]) ifTrue: [
>> > -             ^ self displayOn: aCanvas using: displayScanner at:
>> somePosition.
>> > -     ].
>> > -     visibleRectangle := aCanvas clipRect.
>> > -     offset := somePosition - positionWhenComposed.
>> > -     leftInRun := 0.
>> > -     (self lineIndexForPoint: visibleRectangle topLeft)
>> > -             to: (self lineIndexForPoint: visibleRectangle
>> > bottomRight)
>> > -             do: [:i | line := presentationLines at: i.
>> > -                     self displaySelectionInLine: line on: aCanvas.
>> > -                     line first <= line last ifTrue:
>> > -                             [leftInRun := displayScanner displayLine:
>> line
>> > -                                                             offset:
>> offset leftInRun: leftInRun]].
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiNewParagraph>>multiComposeLinesFrom:to:delta:into:priorLines:atY:
>> (in
>> > category 'composition') -----
>> > - multiComposeLinesFrom: start to: stop delta: delta into: lineColl
>> > priorLines: priorLines
>> > -     atY: startingY
>> > -     "While the section from start to stop has changed, composition
>> > may
>> ripple
>> > all the way to the end of the text.  However in a rectangular
>> > container,
>> if
>> > we ever find a line beginning with the same character as before (ie
>> > corresponding to delta in the old lines), then we can just copy the old
>> > lines from there to the end of the container, with adjusted indices and
>> > y-values"
>> > -
>> > -     | newResult composer presentationInfo |
>> > -
>> > -     composer := MultiTextComposer new.
>> > -     presentationLines := nil.
>> > -     presentationText := nil.
>> > -     newResult := composer
>> > -             multiComposeLinesFrom: start
>> > -             to: stop
>> > -             delta: delta
>> > -             into: lineColl
>> > -             priorLines: priorLines
>> > -             atY: startingY
>> > -             textStyle: textStyle
>> > -             text: text
>> > -             container: container
>> > -             wantsColumnBreaks: wantsColumnBreaks == true.
>> > -     lines := newResult first asArray.
>> > -     maxRightX := newResult second.
>> > -     presentationInfo := composer getPresentationInfo.
>> > -     presentationLines := presentationInfo first asArray.
>> > -     presentationText := presentationInfo second.
>> > -     "maxRightX printString displayAt: 0@0."
>> > -     ^maxRightX
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiNewParagraph>>presentationLines (in category
>> > 'accessing') -----
>> > - presentationLines
>> > -
>> > -     ^ presentationLines.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method: MultiNewParagraph>>presentationText (in category
>> > 'accessing') -----
>> > - presentationText
>> > -
>> > -     ^ presentationText.
>> > - !
>> >
>> > Item was removed:
>> > - TextComposer subclass: #MultiTextComposer
>> > -     instanceVariableNames: 'presentation presentationLines'
>> > -     classVariableNames: ''
>> > -     poolDictionaries: 'TextConstants'
>> > -     category: 'Etoys-Squeakland-Multilingual-Scanning'!
>> >
>> > Item was removed:
>> > - ----- Method: MultiTextComposer>>composeEachRectangleIn: (in category
>> 'as
>> > yet unclassified') -----
>> > - composeEachRectangleIn: rectangles
>> > -
>> > -     | myLine lastChar |
>> > -
>> > -     1 to: rectangles size do: [:i |
>> > -             currCharIndex <= theText size ifFalse: [^false].
>> > -             myLine := scanner
>> > -                     composeFrom: currCharIndex
>> > -                     inRectangle: (rectangles at: i)
>> > -                     firstLine: isFirstLine
>> > -                     leftSide: i=1
>> > -                     rightSide: i=rectangles size.
>> > -             lines addLast: myLine.
>> > -             presentationLines addLast: scanner getPresentationLine.
>> > -             presentation ifNil: [presentation := scanner
>> getPresentation]
>> > -                     ifNotNil: [presentation := presentation, scanner
>> getPresentation].
>> > -             actualHeight := actualHeight max: myLine lineHeight.
>> "includes font
>> > changes"
>> > -             currCharIndex := myLine last + 1.
>> > -             lastChar := theText at: myLine last.
>> > -             lastChar = Character cr ifTrue: [^#cr].
>> > -             wantsColumnBreaks ifTrue: [
>> > -                     lastChar = TextComposer characterForColumnBreak
>> ifTrue:
>> > [^#columnBreak].
>> > -             ].
>> > -     ].
>> > -     ^false!
>> >
>> > Item was removed:
>> > - ----- Method: MultiTextComposer>>getPresentationInfo (in category 'as
>> yet
>> > unclassified') -----
>> > - getPresentationInfo
>> > -
>> > -     ^ Array with: presentationLines with: presentation.
>> > - !
>> >
>> > Item was removed:
>> > - ----- Method:
>> > MultiTextComposer>>multiComposeLinesFrom:to:delta:into:priorLines:atY:
>> textStyle:text:container:wantsColumnBreaks:
>> > (in category 'as yet unclassified') -----
>> > - multiComposeLinesFrom: argStart to: argStop delta: argDelta into:
>> > argLinesCollection priorLines: argPriorLines atY: argStartY textStyle:
>> > argTextStyle text: argText container: argContainer wantsColumnBreaks:
>> > argWantsColumnBreaks
>> > -
>> > -     wantsColumnBreaks := argWantsColumnBreaks.
>> > -     lines := argLinesCollection.
>> > -     presentationLines := argLinesCollection copy.
>> > -     theTextStyle := argTextStyle.
>> > -     theText := argText.
>> > -     theContainer := argContainer.
>> > -     deltaCharIndex := argDelta.
>> > -     currCharIndex := startCharIndex := argStart.
>> > -     stopCharIndex := argStop.
>> > -     prevLines := argPriorLines.
>> > -     currentY := argStartY.
>> > -     defaultLineHeight := theTextStyle lineGrid.
>> > -     maxRightX := theContainer left.
>> > -     possibleSlide := stopCharIndex < theText size and: [theContainer
>> > isMemberOf: Rectangle].
>> > -     nowSliding := false.
>> > -     prevIndex := 1.
>> > -     scanner := MultiCompositionScanner new text: theText textStyle:
>> > theTextStyle.
>> > -     scanner wantsColumnBreaks: wantsColumnBreaks.
>> > -     isFirstLine := true.
>> > -     self composeAllLines.
>> > -     isFirstLine ifTrue: ["No space in container or empty text"
>> > -             self
>> > -                     addNullLineWithIndex: startCharIndex
>> > -                     andRectangle: (theContainer topLeft extent:
>> 0@defaultLineHeight)
>> > -     ] ifFalse: [
>> > -             self fixupLastLineIfCR
>> > -     ].
>> > -     ^{lines asArray. maxRightX}
>> > -
>> > - !
>> >
>> >
>> >
>> >
>>
>>
>>
>