# HG changeset patch
# User tz
# Date 886422660 -3600
# Node ID c863da8d04d39d7020106f73a19acf11eb541867
# Parent  0b87e3ba8eaf83293af8499869816fc0e664c6a8
some cleans

diff -r 0b87e3ba8eaf -r c863da8d04d3 ToolApplicationModel.st
--- a/ToolApplicationModel.st	Mon Feb 02 13:30:22 1998 +0100
+++ b/ToolApplicationModel.st	Mon Feb 02 13:31:00 1998 +0100
@@ -57,29 +57,6 @@
     [author:]
         Thomas Zwick
 "
-!
-
-history
-
-    "Created: / 10.1.1998 / 11:01:21 / tz"
-    "Modified: #menuAbout / 30.1.1998 / 00:03:11 / cg"
-    "Modified: #menuHelp / 30.1.1998 / 00:03:59 / cg"
-    "Modified: #menuSettings / 30.1.1998 / 00:04:14 / cg"
-    "Modified: #author / 1.2.1998 / 15:30:00 / cg"
-    "Modified: #author / 1.2.1998 / 15:35:48 / cg"
-    "Modified: #author / 1.2.1998 / 15:36:07 / cg"
-    "Modified: #openAboutThisApplication / 1.2.1998 / 15:38:38 / cg"
-    "Modified: #openAboutThisApplication / 1.2.1998 / 15:40:11 / cg"
-    "Created: #authorLinesForAboutBox / 1.2.1998 / 15:41:43 / cg"
-    "Modified: #openAboutThisApplication / 1.2.1998 / 15:42:11 / cg"
-    "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:42:48 / cg"
-    "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:44:36 / cg"
-    "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:56:17 / cg"
-    "Deleted: #author / 1.2.1998 / 15:57:08 / cg"
-    "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:57:27 / cg"
-    "Modified: #openAboutThisApplication / 1.2.1998 / 15:58:05 / cg"
-    "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:59:11 / cg"
-    "Modified: #openAboutThisApplication / 1.2.1998 / 15:59:59 / cg"
 ! !
 
 !ToolApplicationModel class methodsFor:'accessing'!
@@ -1019,29 +996,14 @@
     super closeRequest
 !
 
-open
-
-    super open.
-
-"/    self class allInstances size = 1 
-"/    ifTrue: 
-"/    [
-"/        self class classResources: nil.
-"/        self clipboard: nil
-"/    ].
-    builder window label: self class label.
-    timeBlock := nil.
-    timeBlock := [self showTime].
-    self showTime.
-
-    "Modified: / 30.1.1998 / 16:02:51 / cg"
-!
-
 openInterface:aSymbol
 
     self allButOpenInterface:aSymbol.
-    self builder window extent: self preferredExtent.
+
+    builder window extent: self preferredExtent.
+    builder window label: self class label.
     self openWindow.
+
     ^builder
 !
 
@@ -1049,7 +1011,6 @@
 
     super postOpenWith:aBuilder.
 
-    timeBlock := nil.
     timeBlock := [self showTime].
     self showTime.
     self class showHelp ifTrue: [ActiveHelp startFor: self].
@@ -1071,11 +1032,6 @@
     ]
 !
 
-restarted
-
-    self initialize
-!
-
 uninitialize
 
     self showHelp ifTrue: [ActiveHelp stopFor: self].
@@ -1101,5 +1057,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.27 1998-02-01 15:00:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.28 1998-02-02 12:31:00 tz Exp $'
 ! !