ToolApplicationModel.st
changeset 1108 2d57365bc340
parent 1107 f900f5d8993c
child 1138 106a5cc7a4a8
--- 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 $'
 ! !