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, commits@source.squeak.org
<commits@source.squeak.org> 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>>scanMultiCharactersCombiningFr om: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>>scanMultiCharactersCombiningFr om: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}
> -
> - !
>
>
>
>