equal
deleted
inserted
replaced
208 |
208 |
209 delay:aNumber |
209 delay:aNumber |
210 "set the millisecond delta" |
210 "set the millisecond delta" |
211 |
211 |
212 millisecondDelta := aNumber. |
212 millisecondDelta := aNumber. |
213 delaySemaphore := Semaphore new. |
213 delaySemaphore := Semaphore new name:'delaySema'. |
214 ! |
214 ! |
215 |
215 |
216 delaySemaphore |
216 delaySemaphore |
217 "return the semaphore used to resume the waiting process" |
217 "return the semaphore used to resume the waiting process" |
218 |
218 |
221 |
221 |
222 resumtionTime:aMillisecondTime |
222 resumtionTime:aMillisecondTime |
223 "set the resumtion time" |
223 "set the resumtion time" |
224 |
224 |
225 resumtionTime := aMillisecondTime. |
225 resumtionTime := aMillisecondTime. |
226 delaySemaphore := Semaphore new. |
226 delaySemaphore := Semaphore new name:'delaySema'. |
227 ! ! |
227 ! ! |
228 |
228 |
229 !Delay methodsFor:'delaying'! |
229 !Delay methodsFor:'delaying'! |
230 |
230 |
231 wait |
231 wait |
266 ! ! |
266 ! ! |
267 |
267 |
268 !Delay class methodsFor:'documentation'! |
268 !Delay class methodsFor:'documentation'! |
269 |
269 |
270 version |
270 version |
271 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.25 1997-01-16 13:15:26 cg Exp $' |
271 ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.26 1997-01-24 22:08:41 cg Exp $' |
272 ! ! |
272 ! ! |