--- a/TimeDuration.st Mon Jun 12 20:50:22 2017 +0200
+++ b/TimeDuration.st Mon Jun 12 20:51:51 2017 +0200
@@ -649,37 +649,46 @@
!
productFromFloat:aFloat
- "return a new timeDuration"
+ "sent when aFloat does not know how to multiply the receiver.
+ Return a new timeDuration"
^ self productFromNumber:aFloat
"
5.1 * (TimeDuration fromString:'10s')
"
+
+ "Modified (comment): / 12-06-2017 / 20:51:38 / cg"
!
-productFromFraction:aNumber
- "return a new timeDuration"
+productFromFraction:aFraction
+ "sent when aFraction does not know how to multiply the receiver.
+ Return a new timeDuration"
- ^ self productFromNumber:aNumber
+ ^ self productFromNumber:aFraction
"
(TimeDuration fromString:'10s') * 5
"
+
+ "Modified (comment): / 12-06-2017 / 20:51:25 / cg"
!
productFromInteger:anInteger
- "return a new timeDuration"
+ "sent when an integer does not know how to multiply the receiver"
^ self productFromNumber:anInteger
"
5 * (TimeDuration fromString:'10s')
"
+
+ "Modified (comment): / 12-06-2017 / 20:50:56 / cg"
!
productFromNumber:aNumber
- "return a new timeDuration"
+ "sent when an integer does not know how to multiply the receiver.
+ Return a new timeDuration"
^ self species basicNew
setMilliseconds:(self getMilliseconds * aNumber) asInteger
@@ -687,6 +696,8 @@
"
5.1 * (TimeDuration fromString:'10s')
"
+
+ "Modified (comment): / 12-06-2017 / 20:50:51 / cg"
! !
!TimeDuration methodsFor:'converting'!