ToolApplicationModel.st
changeset 799 b67166ad461e
parent 797 bacf790c536d
child 800 b98050cf7a43
--- a/ToolApplicationModel.st	Fri Jan 30 15:58:31 1998 +0100
+++ b/ToolApplicationModel.st	Sun Feb 01 14:12:29 1998 +0100
@@ -977,16 +977,18 @@
 
     super open.
 
-    self class allInstances size = 1 
-    ifTrue: 
-    [
-        self class classResources: nil.
-        self clipboard: nil
-    ].
+"/    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
@@ -1053,5 +1055,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.25 1998-01-30 14:08:05 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.26 1998-02-01 13:12:29 cg Exp $'
 ! !