Failed

unix-64 / Tests-unix-64 / Unix64.Spec2.Tests.Core.Widgets.SpCodePresenterTest.testInsertAt (from Spec2-Tests)

Failing for the past 1 build (Since Failed#425 )
Took 3.6 sec.

Error Message

1

Stacktrace

SubscriptOutOfBounds
1
OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeStraightVertices
RubPrimarySelectionMorph(RubTextSegmentMorph)>>computeVertices
RubPrimarySelectionMorph(RubTextSegmentMorph)>>whenExtentChanged:
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)>>handleBoundsChange:
RubEditingArea(RubAbstractTextArea)>>paragraphWasComposedFrom:to:
[
		
		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:
RubScrolledTextMorph>>updateTextWith:
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 SpValueHolder>>valueChanged:
OrderedCollection>>do:
SpValueHolder>>valueChanged:
[ | oldValue |
	oldValue := value.
	value := anObject.
	self valueChanged: oldValue ] in SpValueHolder>>value:
FullBlockClosure(BlockClosure)>>ensure:
SpValueHolder>>value:
SpCodePresenter(SpAbstractTextPresenter)>>text:
SpMorphicCodeAdapter(SpMorphicBaseTextAdapter)>>insert:at:
[ :anAdapter |
		anAdapter insert: aString at: positionIndex ] in SpCodePresenter(SpAbstractTextPresenter)>>insert:at:
FullBlockClosure(BlockClosure)>>cull:
SpMorphicCodeAdapter(ProtoObject)>>ifNotNil:
SpCodePresenter(SpAbstractPresenter)>>withAdapterDo:
SpCodePresenter(SpAbstractTextPresenter)>>insert:at:
SpCodePresenterTest(SpTextPresenterTest)>>testInsertAt
SpCodePresenterTest(TestCase)>>performTest