--- a/MeasurementValue.st Tue May 26 08:31:09 2009 +0200
+++ b/MeasurementValue.st Tue May 26 08:37:29 2009 +0200
@@ -165,6 +165,9 @@
!MeasurementValue methodsFor:'arithmetic'!
* aNumber
+ "return the product of the receiver and the argument.
+ Care for the error to propagate into the result."
+
^ MeasurementValue new
value:(value * aNumber value)
minValue:(minValue * aNumber minValue)
@@ -172,6 +175,9 @@
!
+ aNumber
+ "return the sum of the receiver and the argument.
+ Care for the error to propagate into the result."
+
^ MeasurementValue new
value:(value + aNumber value)
minValue:(minValue + aNumber minValue)
@@ -179,6 +185,9 @@
!
- aNumber
+ "return the difference of the receiver and the argument.
+ Care for the error to propagate into the result."
+
^ MeasurementValue new
value:(value - aNumber value)
minValue:(minValue - aNumber maxValue)
@@ -186,6 +195,9 @@
!
/ aNumber
+ "return the quotient of the receiver and the argument.
+ Care for the error to propagate into the result."
+
^ MeasurementValue new
value:(value / aNumber value)
minValue:(minValue / aNumber maxValue)
@@ -224,11 +236,15 @@
!MeasurementValue methodsFor:'comparing'!
< aNumber
+ "return true, if the argument is greater than the receiver.
+ Care for the error - i.e. compare against my maximum-value"
+
^ maxValue < aNumber
!
= aNumber
- "hard to tell, what we want here..."
+ "hard to tell, what we want here...
+ How about: aNumber between:minValue and:maxValue ???"
^ value = aNumber value
and:[ minValue = aNumber minValue
@@ -297,5 +313,5 @@
!MeasurementValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MeasurementValue.st,v 1.9 2009-05-26 06:30:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MeasurementValue.st,v 1.10 2009-05-26 06:37:29 cg Exp $'
! !