Adapt whenNumberChangedDo: to use two argument block

Add test
pharo-spec · Nov 18, 2024 · 20ba299 · 20ba299
1 parent 1d71813
commit 20ba299
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/Spec2-Core/SpNumberInputFieldPresenter.class.st b/src/Spec2-Core/SpNumberInputFieldPresenter.class.st
@@ -227,7 +227,7 @@ SpNumberInputFieldPresenter >> whenNumberChangedDo: aBlock [
 	 - old value
 	 - the announcement triggering this action"
 
-	self whenTextChangedDo: [ :txt | aBlock value: self number ]
+	self whenTextChangedDo: [ :newValue :oldValue | aBlock cull: self number cull: newValue ]
 ]
 
 { #category : 'api - events' }

diff --git a/src/Spec2-Tests/SpNumberInputFieldPresenterTest.class.st b/src/Spec2-Tests/SpNumberInputFieldPresenterTest.class.st
@@ -76,6 +76,16 @@ SpNumberInputFieldPresenterTest >> testWhenNumberChangedDo [
 	self assert: result equals: 10
 ]
 
+{ #category : 'tests' }
+SpNumberInputFieldPresenterTest >> testWhenNumberChangedDo2Arguments [
+
+	presenter
+		number: 10;
+		whenNumberChangedDo: [ :newValue :oldValue |  self deny: newValue equals: oldValue ].
+	presenter number: 32.
+
+]
+
 { #category : 'tests' }
 SpNumberInputFieldPresenterTest >> testWhenNumberTypeChangedDo [
 	| count result |