--- a/ToolApplicationModel.st	Thu Jan 29 15:46:38 1998 +0100
+++ b/ToolApplicationModel.st	Thu Jan 29 17:55:26 1998 +0100
@@ -911,15 +911,6 @@
     super closeRequest
 !
 
-initialize
-
-    super initialize.
-
-    timeBlock := nil.
-    timeBlock := [self showTime].
-    self showTime
-!
-
 open
 
     super open.
@@ -930,8 +921,10 @@
         self class classResources: nil.
         self clipboard: nil
     ].
-    builder window label: self class label
-
+    builder window label: self class label.
+    timeBlock := nil.
+    timeBlock := [self showTime].
+    self showTime.
 !
 
 openInterface
@@ -943,6 +936,15 @@
     self builder window extent: self preferredExtent
 !
 
+postOpenWith:aBuilder
+
+    super postOpenWith:aBuilder.
+
+    timeBlock := nil.
+    timeBlock := [self showTime].
+    self showTime
+!
+
 reOpen
 
     self close.
@@ -980,6 +982,7 @@
     Time now hours >= 12 ifTrue: [suffix := ' pm '].
     (minutes := Time now minutes printString) size = 1 ifTrue: [minutes := '0', minutes printString].
     self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
+    Processor removeTimedBlock: timeBlock.
     Processor addTimedBlock: timeBlock afterSeconds: 1
 
 ! !
@@ -987,5 +990,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.21 1998-01-28 15:14:07 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.22 1998-01-29 16:55:26 tz Exp $'
 ! !