--- 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 $'
 ! !