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