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