--- a/TimeDuration.st	Mon Jul 17 14:13:01 2017 +0200
+++ b/TimeDuration.st	Mon Jul 17 14:14:20 2017 +0200
@@ -130,18 +130,6 @@
     "Created: / 14-07-2007 / 18:15:51 / cg"
 !
 
-hours:h minutes:m
-    "return a new TimeDuration representing a duration of h hours and m minutes.
-     See also Time now / Date today / Timestamp now."
-
-    ^ self basicNew setHours:h minutes:m seconds:0 milliseconds:0
-
-    "
-     TimeDuration hours:2 minutes:33 
-     TimeDuration hours:100 minutes:33  
-    "
-!
-
 hours:h minutes:m seconds:s millis:millis
     <resource: #obsolete>
     "return a new TimeDuration representing a duration of h hours, m minutes, s seconds and millis milliseconds.
@@ -156,19 +144,6 @@
     "
 !
 
-hours:h minutes:m seconds:s milliseconds:millis
-    "return a new TimeDuration representing a duration of h hours, m minutes, s seconds and millis milliseconds.
-     See also Time now / Date today / Timestamp now."
-
-    ^ self basicNew 
-        setHours:h minutes:m seconds:s milliseconds:millis
-
-    "
-     TimeDuration hours:2 minutes:33 seconds:0 milliseconds:123  
-     TimeDuration hours:100 minutes:33 seconds:0 milliseconds:123  
-    "
-!
-
 microseconds:microseconds
     "return a new TimeDuration representing a duration of microseconds microseconds.
      Currently we do not support this (we round to millis), but maybe later..."
@@ -763,12 +738,6 @@
     ^ self getSeconds
 !
 
-asTime
-    "return a Time object from the receiver."
-
-    ^ Time hours:(self hours) minutes:(self minutes) seconds:(self seconds)
-!
-
 asTimeDuration
     "return a TimeDuration object from the receiver - that's the receiver."