equal
deleted
inserted
replaced
243 |
243 |
244 delay:numberOfMillis |
244 delay:numberOfMillis |
245 "set the millisecond delta and create a new semaphore internally to wait upon" |
245 "set the millisecond delta and create a new semaphore internally to wait upon" |
246 |
246 |
247 self assert:(numberOfMillis notNil). |
247 self assert:(numberOfMillis notNil). |
|
248 self assert:(numberOfMillis isKindOf:SmallInteger). |
248 millisecondDelta := numberOfMillis. |
249 millisecondDelta := numberOfMillis. |
249 delaySemaphore := Semaphore new name:'delaySema'. |
250 delaySemaphore := Semaphore new name:'delaySema'. |
250 |
251 |
251 "Modified: / 24-09-2007 / 20:36:22 / cg" |
252 "Modified: / 22-12-2010 / 14:18:00 / cg" |
252 ! |
253 ! |
253 |
254 |
254 delaySemaphore |
255 delaySemaphore |
255 "return the semaphore used to resume the waiting process" |
256 "return the semaphore used to resume the waiting process" |
256 |
257 |
341 ! ! |
342 ! ! |
342 |
343 |
343 !Delay class methodsFor:'documentation'! |
344 !Delay class methodsFor:'documentation'! |
344 |
345 |
345 version |
346 version |
346 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.43 2010-08-02 14:02:50 cg Exp $' |
347 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.44 2010-12-22 13:18:18 cg Exp $' |
347 ! |
348 ! |
348 |
349 |
349 version_CVS |
350 version_CVS |
350 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.43 2010-08-02 14:02:50 cg Exp $' |
351 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.44 2010-12-22 13:18:18 cg Exp $' |
351 ! ! |
352 ! ! |