--- a/ToolApplicationModel.st	Wed Jan 26 16:57:59 2000 +0100
+++ b/ToolApplicationModel.st	Fri Jan 28 08:01:38 2000 +0100
@@ -1248,6 +1248,17 @@
     "Modified: / 31.7.1998 / 18:17:34 / cg"
 !
 
+restarted
+    "sent by my windowGroup, when restarted from an image.
+     restart timed block if defined.
+    "
+    timeBlock notNil ifTrue:[
+        Processor removeTimedBlock:timeBlock.
+        self startClockOnTimedBlock:timeBlock.
+    ].
+    super restarted.
+!
+
 uninitialize
     "stops active help for this tool and (if defined) removes the time block"
 
@@ -1260,5 +1271,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.93 1999-12-06 12:21:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.94 2000-01-28 07:01:38 ca Exp $'
 ! !