Regression

Windows-x86_64 / Tests-Windows-x86_64-CoInterpreter / Windows64.Spec2.Code.Tests.SpCodePresenterTest.testDoBrowseMethodReferences (from Spec2-Code-Tests)

Error Message

1

Stacktrace

SubscriptOutOfBounds
1
OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
RubParagraph>>characterBlockForIndex:
RubShoutStylerDecorator(RubParagraphDecorator)>>characterBlockForIndex:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>characterBlockForIndex:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeStraightVertices
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeVertices
RubPrimarySelectionMorph>>whenTextAreaSelectionChanged:
MessageSend>>value:
MessageSend>>cull:
MessageSend>>cull:cull:
[action cull: anAnnouncement cull: announcer] in AnnouncementSubscription>>deliver:
FullBlockClosure(BlockClosure)>>on:do:
FullBlockClosure(BlockClosure)>>on:fork:
AnnouncementSubscription>>deliver:
[ subscription deliver: anAnnouncement ] in SubscriptionRegistry>>deliver:to:startingAt:
FullBlockClosure(BlockClosure)>>ifCurtailed:
SubscriptionRegistry>>deliver:to:startingAt:
SubscriptionRegistry>>deliver:to:
SubscriptionRegistry>>deliver:
Announcer>>announce:
RubEditingArea(RubAbstractTextArea)>>announce:
RubEditingArea(RubAbstractTextArea)>>handleSelectionChange:
RubEditingArea(RubAbstractTextArea)>>markIndex:pointIndex:
RubSmalltalkEditor(RubTextEditor)>>markIndex:pointIndex:
RubSmalltalkEditor(RubTextEditor)>>selectInvisiblyFrom:to:
RubSmalltalkEditor(RubTextEditor)>>selectFrom:to:
RubEditingArea(RubAbstractTextArea)>>selectFrom:to:
RubEditingArea(RubAbstractTextArea)>>deselect
[
					| s |
					s := self validateTextFrom: aStringOrText.
					s = self text
						ifFalse: [ self selectAll.
							self editor replaceSelectionWith: s.
							self deselect ] ] in [ self
				beEditableWhile: [
					| s |
					s := self validateTextFrom: aStringOrText.
					s = self text
						ifFalse: [ self selectAll.
							self editor replaceSelectionWith: s.
							self deselect ] ] ] in RubEditingArea(RubAbstractTextArea)>>updateTextWith:
FullBlockClosure(BlockClosure)>>ensure:
RubEditingArea(RubAbstractTextArea)>>beEditableWhile:
[ self
				beEditableWhile: [
					| s |
					s := self validateTextFrom: aStringOrText.
					s = self text
						ifFalse: [ self selectAll.
							self editor replaceSelectionWith: s.
							self deselect ] ] ] in RubEditingArea(RubAbstractTextArea)>>updateTextWith:
RubEditingArea(RubAbstractTextArea)>>handleEdit:
RubEditingArea(RubAbstractTextArea)>>updateTextWith:
RubTextScrollPane>>updateTextWith:
SpRubScrolledTextMorph(RubScrolledTextMorph)>>updateTextWith:
SpRubScrolledTextMorph(RubScrolledTextMorph)>>setText:
SpMorphicCodeAdapter(SpMorphicTextAdapter)>>setText:to:
[ :text | 
		self setText: text to: newWidget ] in SpMorphicCodeAdapter(SpMorphicTextAdapter)>>buildWidget
FullBlockClosure(BlockClosure)>>cull:
FullBlockClosure(BlockClosure)>>cull:cull:
[ :block | block cull: self value cull: oldValue ] in ObservableValueHolder>>valueChanged:
OrderedCollection>>do:
ObservableValueHolder>>valueChanged:
[ | oldValue |
	oldValue := value.
	value := anObject.
	self valueChanged: oldValue ] in ObservableValueHolder>>value:
FullBlockClosure(BlockClosure)>>ensure:
ObservableValueHolder>>value:
SpCodePresenter(SpAbstractTextPresenter)>>text:
SpCodePresenterTest>>testDoBrowseMethodReferences
SpCodePresenterTest(TestCase)>>performTest