Regression

Darwin-x86_64 / Tests-Darwin-x86_64-CoInterpreter / MacOSX64.Spec2.Code.Tests.SpCodePresenterTest.testDoBrowseMethodReferences (from Spec2-Code-Tests)

Error Message

1

Stacktrace

SubscriptOutOfBounds
1
OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeStraightVertices
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeVertices
RubPrimarySelectionMorph(RubTextSegmentMorph)>>lastIndex:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>textChangedFrom:to:delta:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>whenTextChanged:
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)>>paragraphReplacedTextFrom:to:with:
[

		aText addAttribute: self paragraph defaultFontChange.
		text ifNil: [ text := self text ].
		text replaceFrom: start to: stop with: (self styler format: aText).
		replaceStart := start.
		replaceStop := stop.
		self style: text.
		next text: text.

		self paragraph ifNotNil: [ :paragraph |
			paragraph recomposeFrom: start to: start + aText size - 1 delta: aText size - (stop - start + 1).
			paragraph textArea paragraphWasComposedFrom: start to: start + aText size - 1.
			paragraph textArea paragraphReplacedTextFrom: start to: stop with: aText
		]

	] in RubShoutStylerDecorator>>replaceFrom:to:with:
FullBlockClosure(BlockClosure)>>ensure:
RubParagraph>>disableDrawingWhile:
RubShoutStylerDecorator>>replaceFrom:to:with:
RubEditingArea(RubAbstractTextArea)>>privateReplaceFrom:to:with:
RubSmalltalkEditor(RubTextEditor)>>zapSelectionWith:
RubSmalltalkEditor(RubTextEditor)>>replace:with:and:
RubSmalltalkEditor(RubTextEditor)>>replaceSelectionWith:
[
					| 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