Failed

unix / Tests-unix-CoInterpreterWithQueueFFI / Unix64.Spec.Tests.Examples.ListSelectionPresenterTest.testExample (from Spec-Tests)

Error Message

1

Stacktrace

SubscriptOutOfBounds
1
OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
RubParagraph>>characterBlockForIndex:
Message>>sendTo:
[ aMessage sendTo: next ] in RubOpeningClosingDelimiterDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex:
FullBlockClosure(BlockClosure)>>on:do:
RubOpeningClosingDelimiterDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex:
Message>>sendTo:
[ aMessage sendTo: next ] in RubExtraSelectionDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex:
FullBlockClosure(BlockClosure)>>on:do:
RubExtraSelectionDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex:
Message>>sendTo:
[ aMessage sendTo: next ] in RubCurrentLineBarDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex:
FullBlockClosure(BlockClosure)>>on:do:
RubCurrentLineBarDecorator(RubParagraphDecorator)>>doesNotUnderstand: #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 ] ] 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 RubPluggableTextMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
RubPluggableTextMorph(Morph)>>submorphBounds
RubPluggableTextMorph(Morph)>>privateFullBounds
RubPluggableTextMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in RubPluggableTextMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
RubPluggableTextMorph(Morph)>>computeFullBounds
RubPluggableTextMorph(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in PanelMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
PanelMorph(Morph)>>submorphBounds
PanelMorph(Morph)>>privateFullBounds
PanelMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in PanelMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
PanelMorph(Morph)>>computeFullBounds
PanelMorph(Morph)>>fullBounds
PanelMorph(Morph)>>position:
PanelMorph(Morph)>>bounds:
PanelMorph(Morph)>>layoutInBounds:
PanelMorph(Morph)>>layoutProportionallyIn:
[:m| m layoutProportionallyIn: newBounds] in ProportionalLayout>>layout:in:
Array(SequenceableCollection)>>do:
PanelMorph(Morph)>>submorphsDo:
ProportionalLayout>>layout:in:
PanelMorph(Morph)>>doLayoutIn:
[ self doLayoutIn: self layoutBounds ] in PanelMorph(Morph)>>computeFullBounds
FullBlockClosure(BlockClosure)>>on:do:
PanelMorph(Morph)>>computeFullBounds
PanelMorph(Morph)>>fullBounds
[:m | | subBox | 
		(m visible) ifTrue: [
			subBox := m fullBounds.
			box 
				ifNil:[box := subBox copy]
				ifNotNil:[box := box quickMerge: subBox]]] in PanelMorph(Morph)>>submorphBounds
Array(SequenceableCollection)>>do:
PanelMorph(Morph)>>submorphBounds
PanelMorph(Morph)>>privateFullBounds
PanelMorph(Morph)>>changed
PanelMorph(BorderedMorph)>>borderStyle:
SpecWindow(SystemWindow)>>addMorph:fullFrame:
SpecWindow(SystemWindow)>>addMorph:frame:
MorphicWindowAdapter>>addModelIn:withSpecLayout:
MorphicWindowAdapter(AbstractAdapter)>>update:with:
[:aDependent | aDependent update: anAspect with: anObject] in WindowPresenter(Model)>>changed:with:
DependentsArray>>do:
WindowPresenter(Model)>>changed:with:
WindowPresenter>>addModelIn:withSpecLayout:
WindowPresenter>>buildWithSpecLayout:
WindowPresenter>>openWithSpecLayout:
ListSelectionPresenter(ComposablePresenter)>>openWithSpecLayout:
ListSelectionPresenter(ComposablePresenter)>>openWithSpec:
ListSelectionPresenter(ComposablePresenter)>>openWithSpec
ListSelectionPresenter class>>example
[window := self classToTest example] in ListSelectionPresenterTest(SpecTestCase)>>testExample
FullBlockClosure(BlockClosure)>>on:do:
ListSelectionPresenterTest(SpecTestCase)>>testExample
ListSelectionPresenterTest(TestCase)>>performTest