Regression
unix-32 / Tests-unix-32 / Unix32.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: Message>>sendTo: [ aMessage sendTo: next ] in RubShoutStylerDecorator(RubParagraphDecorator)>>doesNotUnderstand: #characterBlockForIndex: FullBlockClosure(BlockClosure)>>on:do: RubShoutStylerDecorator(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)>>extent: RubTextScrollPane>>extent: RubPluggableTextMorph(RubScrolledTextMorph)>>manageLayoutInBounds: RubPluggableTextMorph(RubScrolledTextMorph)>>manageLayout RubPluggableTextMorph(RubScrolledTextMorph)>>extent: RubPluggableTextMorph(Morph)>>bounds: RubPluggableTextMorph(Morph)>>layoutInBounds: RubPluggableTextMorph(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)>>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)>>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 SpecWindow(Morph)>>submorphBounds Array(SequenceableCollection)>>do: SpecWindow(Morph)>>submorphBounds SpecWindow(Morph)>>privateFullBounds SpecWindow(Morph)>>doLayoutIn: [ self doLayoutIn: self layoutBounds ] in SpecWindow(Morph)>>computeFullBounds FullBlockClosure(BlockClosure)>>on:do: SpecWindow(Morph)>>computeFullBounds SpecWindow(Morph)>>fullBounds SpecWindow(Morph)>>position: SpecWindow(SystemWindow)>>position: SpecWindow(Morph)>>bounds: SpecWindow(SystemWindow)>>preOpenInWorld: SpecWindow(Morph)>>openInWorld: SpecWindow(Morph)>>openInWorld MorphicWindowAdapter>>open MorphicWindowAdapter(AbstractAdapter)>>update:with: [:aDependent | aDependent update: anAspect with: anObject] in WindowPresenter(Model)>>changed:with: DependentsArray>>do: WindowPresenter(Model)>>changed:with: 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