--- a/Semaphore.st Fri Feb 12 19:17:11 2016 +0100
+++ b/Semaphore.st Fri Feb 12 23:13:33 2016 +0100
@@ -983,7 +983,7 @@
"Modified: / 11-08-2011 / 14:37:00 / cg"
!
-waitWithTimeout:secondsOrNil
+waitWithTimeout:secondsOrNilOrTimeDuration
"wait for the semaphore, but abort the wait after some time (seconds).
return the receiver if the semaphore triggered normal, nil if we return
due to a timeout.
@@ -995,8 +995,8 @@
|millis|
- secondsOrNil notNil ifTrue:[
- millis := secondsOrNil * 1000
+ secondsOrNilOrTimeDuration notNil ifTrue:[
+ millis := secondsOrNilOrTimeDuration asFloat * 1000
].
^ self waitWithTimeoutMs:millis.
!