--- 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 $'
! !