timer: Implement the shutdown for GNU Smalltalk too.
This commit is contained in:
parent
f5c5febae8
commit
5c7b52662c
6
Timer.st
6
Timer.st
|
@ -106,6 +106,12 @@ bit difficult to do this race free.'>
|
||||||
|
|
||||||
doShutDown [
|
doShutDown [
|
||||||
"Nothing for GST"
|
"Nothing for GST"
|
||||||
|
loop ifNil: [^self].
|
||||||
|
quit := true.
|
||||||
|
loop isSuspended ifTrue: [loop resume].
|
||||||
|
delay ifNotNil: [:the_delay | the_delay signal].
|
||||||
|
processExited wait.
|
||||||
|
Transcript nextPutAll: 'Stopped the TimerScheduler process'; cr
|
||||||
]
|
]
|
||||||
|
|
||||||
dispatchTimers [
|
dispatchTimers [
|
||||||
|
|
Reference in New Issue