Regression

Darwin-arm64 / Tests-Darwin-arm64-CoInterpreter / MacOSX64.Glamour.Tests.Morphic.GLMFinderMorphicTest.testEmbeddedBrowserRefreshesRendering (from Glamour-Tests-Morphic)

Error Message

1

Stacktrace

SubscriptOutOfBounds
1
OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
RubParagraph>>characterBlockForIndex:
RubCurrentLineBarDecorator(RubParagraphDecorator)>>characterBlockForIndex:
RubEditingState>>markIndex:pointIndex:
[ self editingState markIndex: markIndex pointIndex: pointIndex ] in RubEditingArea(RubAbstractTextArea)>>markIndex:pointIndex:
RubEditingArea(RubAbstractTextArea)>>handleSelectionChange:
RubEditingArea(RubAbstractTextArea)>>markIndex:pointIndex:
RubEditingArea(RubAbstractTextArea)>>recomputeSelection
[ 
			self wrapped
				ifTrue: [ 
					(bounds notNil and: [ bounds width = aPoint x ])
						ifTrue: [ ^ self ].
					super extent: ((self paragraph withoutDecorator extentFromClientBottomRight: aPoint) max: self minimumExtent).
					self recomputeSelection ]
				ifFalse: [ super extent: aPoint ] ] in RubEditingArea(RubAbstractTextArea)>>extent:
RubEditingArea(RubAbstractTextArea)>>handleBoundsChange:
RubEditingArea(RubAbstractTextArea)>>extent:
RubEditingArea(Morph)>>width:
RubTextScrollPane>>fitScrollTargetWidth
RubTextScrollPane>>updateScrollbars
RubTextScrollPane(GeneralScrollPane)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in RubTextScrollPane(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
RubTextScrollPane(Morph)>>computeFullBounds
RubTextScrollPane(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in RubScrolledTextMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
RubScrolledTextMorph(Morph)>>submorphBounds
RubScrolledTextMorph(Morph)>>privateFullBounds
RubScrolledTextMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in RubScrolledTextMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
RubScrolledTextMorph(Morph)>>computeFullBounds
RubScrolledTextMorph(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in GLMPanelMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
GLMPanelMorph(Morph)>>submorphBounds
GLMPanelMorph(Morph)>>privateFullBounds
GLMPanelMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in GLMPanelMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
GLMPanelMorph(Morph)>>computeFullBounds
GLMPanelMorph(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in GLMPanelMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
GLMPanelMorph(Morph)>>submorphBounds
GLMPanelMorph(Morph)>>privateFullBounds
GLMPanelMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in GLMPanelMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
GLMPanelMorph(Morph)>>computeFullBounds
GLMPanelMorph(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in GLMPanelMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
GLMPanelMorph(Morph)>>submorphBounds
GLMPanelMorph(Morph)>>privateFullBounds
GLMPanelMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in GLMPanelMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
GLMPanelMorph(Morph)>>computeFullBounds
GLMPanelMorph(Morph)>>fullBounds
[:m |
			localBounds ifNil: [localBounds := m fullBounds]
						ifNotNil: [localBounds := localBounds quickMerge: m fullBounds]] in TransformMorph>>localSubmorphBounds
Array(SequenceableCollection)>>do:
TransformMorph(Morph)>>submorphsDo:
TransformMorph>>localSubmorphBounds
GLMPaneScroller>>totalScrollRange
GLMPaneScroller>>leftoverScrollRange
GLMPaneScroller>>scrollBarValue:
ScrollBar(Slider)>>setValue:
ScrollBar>>setValue:
[ | delta |
			[ (delta := Time millisecondClockValue - startTime) < anInteger ] whileTrue: [
				self setValue: (aNumber - start) * (delta / anInteger) + start.
				Processor yield ].
				self setValue: aNumber ] in ScrollBar>>glmAnimateValue:duration:
[self value.
			Processor terminateActive] in FullBlockClosure(BlockClosure)>>newProcess
[root insertSender: thisContext.
			currentContext jump] in [
			[root insertSender: thisContext.
			currentContext jump] on: exception do: handlerAction.
		Processor terminateActive] in Process>>on:do:
FullBlockClosure(BlockClosure)>>on:do:
[
			[root insertSender: thisContext.
			currentContext jump] on: exception do: handlerAction.
		Processor terminateActive] in Process>>on:do: