timer: Implement the shutdown for GNU Smalltalk too.

1 files changed, 6 insertions, 0 deletions

diff --git a/Timer.st b/Timer.st
index 8d6adeb..b2acac0 100644
--- a/Timer.st
+++ b/Timer.st
@@ -106,6 +106,12 @@ bit difficult to do this race free.'>
 
     doShutDown [
         "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 [