--- a/ToolApplicationModel.st Sat Feb 20 01:11:22 1999 +0100
+++ b/ToolApplicationModel.st Mon Feb 22 20:41:46 1999 +0100
@@ -835,7 +835,7 @@
valueOfHavingDocumentation
"returns the enabling of having documentation for this tool as value holder"
- ^ (builder booleanValueAspectFor:#valueOfEnablingCommitButtons) value: (self class implements: #openDocumentation)
+ ^ (builder booleanValueAspectFor:#valueOfHavingDocumentation) value: (self class implements: #openDocumentation)
!
valueOfInfoLabel
@@ -1106,28 +1106,7 @@
self uninitialize.
super closeDownViews
-! !
-
-!ToolApplicationModel ignoredMethodsFor:'startup / release'!
-
-postBuildWith:aBuilder
- "sets the preferred extent and the label of the tool window before opening that"
-
- |win|
-
- super postBuildWith:aBuilder.
-
- (win := aBuilder window) isTopView ifTrue:[
- win
- extent: self preferredExtent;
- label: self class label.
- ].
-
- "Created: / 21.5.1998 / 02:49:09 / cg"
- "Modified: / 18.6.1998 / 20:16:25 / cg"
-! !
-
-!ToolApplicationModel methodsFor:'startup / release'!
+!
postOpenWith:aBuilder
"starts the active help for this tool (if turned on in the settings)
@@ -1163,5 +1142,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.81 1999-02-20 00:11:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.82 1999-02-22 19:41:46 cg Exp $'
! !