YesNoBox.st
changeset 6502 1e36a7f321dc
parent 6364 0524033012d2
child 6831 cd449ea016f0
--- a/YesNoBox.st	Sat Nov 10 00:36:53 2018 +0100
+++ b/YesNoBox.st	Sat Nov 10 00:37:54 2018 +0100
@@ -250,21 +250,11 @@
     ^ false
 !
 
-preferredExtent
+computePreferredExtent
     "compute the boxes preferredExtent from the components' sizes"
 
     |w h max mm nButtons|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     mm := ViewSpacing.
 
     "
@@ -298,9 +288,7 @@
 
     ^ (w @ h).
 
-    "Modified: / 19-07-1996 / 20:45:53 / cg"
-    "Modified (format): / 20-06-2017 / 10:37:44 / cg"
-    "Modified: / 01-07-2018 / 09:53:09 / Claus Gittinger"
+    "Created: / 09-11-2018 / 20:04:33 / Claus Gittinger"
 ! !
 
 !YesNoBox methodsFor:'startup'!