Regression

osx-32 / Tests-osx-32 / MacOSX32.Spec.Tests.PolyWidgets.Labelled.LabelledSliderInputTest.testOpenWithSpec (from Spec-Tests)

Error Message

Reading a number failed: a digit between 0 and 9 expected

Stacktrace

NumberParser(Object)>>error:
NumberParser>>expected:
NumberParser>>readNamedFloatOrFail
NumberParser>>nextNumber
Number class>>readFrom:
Number class(Object)>>readFromString:
ByteString(String)>>asNumber
[ :sliderValue | 
			| inputValue |
			inputValue := input text asNumber. " ifNotNil: [ :text | text asNumber ]"
			sliderValue == inputValue
				ifFalse: [ input text: sliderValue asString ] ] in SliderInput>>initializePresenter
BlockClosure>>cull:
BlockClosure>>cull:cull:
BlockClosure>>cull:cull:cull:
BlockClosure>>cull:cull:cull:cull:
[ :announcement :ann | 
	aBlock
		cull: announcement newValue
		cull: announcement oldValue
		cull: announcement
		cull: ann ] in NewValueHolder(Model)>>whenChangedDo:
BlockClosure>>cull:cull:
[action cull: anAnnouncement cull: announcer] in AnnouncementSubscription>>deliver:
BlockClosure>>on:do:
BlockClosure>>on:fork:
AnnouncementSubscription>>deliver:
[ subscription deliver: anAnnouncement ] in SubscriptionRegistry>>deliver:to:startingAt:
BlockClosure>>ifCurtailed:
SubscriptionRegistry>>deliver:to:startingAt:
SubscriptionRegistry>>deliver:to:
SubscriptionRegistry>>deliver:
Announcer>>announce:
NewValueHolder>>valueChanged:to:
NewValueHolder>>valueChanged:
[ | oldValue |
		oldValue := value.
		value := anObject.
		self valueChanged: oldValue ] in NewValueHolder>>value:
BlockClosure>>ensure:
NewValueHolder>>handleCircularReferencesWhile:
NewValueHolder>>value:
SliderPresenter>>value:
MorphicSliderAdapter>>value:
PluggableSliderMorph>>setValue:
PluggableSliderMorph>>max:
MorphicSliderAdapter>>buildWidget
MorphicSliderAdapter(AbstractAdapter)>>adapt:
SpecInterpreter>>actionToPerformWithSelector:arguments:
SpecInterpreter>>performNextSelectorAndIncrementIndex
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter class>>private_buildWidgetFor:withSpec:
SliderPresenter(ComposablePresenter)>>privateAdapterFromModel:withSpec:
SliderPresenter(ComposablePresenter)>>private_buildWithSpec:
SliderPresenter(ComposablePresenter)>>private_buildWithSpec
SpecInterpreter>>returnInterpretationOf:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter>>computeSpecFrom:selector:
SpecInterpreter>>retrieveSpecFrom:selector:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
[ :each | self class private_interpretASpec: each model: model selector: spec selector ] in SpecInterpreter>>performNextSelectorAndIncrementIndex
Array(SequenceableCollection)>>collect:
SpecInterpreter>>performNextSelectorAndIncrementIndex
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter>>computeSpecFrom:selector:
SpecInterpreter>>retrieveSpecFrom:selector:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
[ :each | self class private_interpretASpec: each model: model selector: spec selector ] in SpecInterpreter>>performNextSelectorAndIncrementIndex
Array(SequenceableCollection)>>collect:
SpecInterpreter>>performNextSelectorAndIncrementIndex
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter class>>private_buildWidgetFor:withSpec:
SliderInput(ComposablePresenter)>>privateAdapterFromModel:withSpec:
SliderInput(ComposablePresenter)>>private_buildWithSpec:
SliderInput(ComposablePresenter)>>private_buildWithSpec
SpecInterpreter>>returnInterpretationOf:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter>>computeSpecFrom:selector:
SpecInterpreter>>retrieveSpecFrom:selector:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
[ :each | self class private_interpretASpec: each model: model selector: spec selector ] in SpecInterpreter>>performNextSelectorAndIncrementIndex
Array(SequenceableCollection)>>collect:
SpecInterpreter>>performNextSelectorAndIncrementIndex
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
SpecInterpreter>>computeSpecFrom:selector:
SpecInterpreter>>retrieveSpecFrom:selector:
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
[ :each | self class private_interpretASpec: each model: model selector: spec selector ] in SpecInterpreter>>performNextSelectorAndIncrementIndex
Array(SequenceableCollection)>>collect:
SpecInterpreter>>performNextSelectorAndIncrementIndex
SpecInterpreter>>interpretASpec:selector:
SpecInterpreter>>interpretASpec:model:selector:
SpecInterpreter class>>private_interpretASpec:model:selector:
[ result :=  self 
				private_interpretASpec: aPresenter
				model: aModel
				selector: aSelector ] in SpecInterpreter class>>interpretASpec:model:selector:
BlockClosure>>ensure:
SpecInterpreter class>>interpretASpec:model:selector:
SpecInterpreter class>>interpretASpec:model:
LabelledSliderInput(ComposablePresenter)>>adapterFrom:model:
LabelledSliderInput(ComposablePresenter)>>buildWithSpecLayout:
MorphicWindowAdapter>>addModelIn:withSpecLayout:
MorphicWindowAdapter(AbstractAdapter)>>update:with:
[:aDependent | aDependent update: anAspect with: anObject] in WindowPresenter(Model)>>changed:with:
DependentsArray>>do:
WindowPresenter(Model)>>changed:with:
WindowPresenter>>addModelIn:withSpecLayout:
WindowPresenter>>buildWithSpecLayout:
WindowPresenter>>openWithSpecLayout:
LabelledSliderInput(ComposablePresenter)>>openWithSpecLayout:
LabelledSliderInput(ComposablePresenter)>>openWithSpec:
LabelledSliderInput(ComposablePresenter)>>openWithSpec
LabelledSliderInputTest(SpecTestCase)>>openInstance
LabelledSliderInputTest(SpecTestCase)>>testOpenWithSpec
LabelledSliderInputTest(TestCase)>>performTest