--- a/InfoBox.st	Sat Nov 10 00:35:10 2018 +0100
+++ b/InfoBox.st	Sat Nov 10 00:36:53 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -517,46 +515,6 @@
      Dialog warn:'hello'
      Dialog error:'hello'
     "
-!
-
-preferredExtent
-    "return my preferred extent"
-
-    |w h mm|
-
-^ super preferredExtent.
-
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
-    mm := ViewSpacing.
-
-    w := ((margin + mm) * 2) +
-         formLabel widthIncludingBorder +
-         mm + textLabel width.
-
-    w := w max:(okButton preferredWidth + (mm * 2)).
-    w := w max:self maxPreferredWidthOfAddedComponents.
-
-    h := (mm * 6)
-         + ((formLabel heightIncludingBorder) max:(textLabel height))
-         + ((addedComponents ? #()) inject:0 into:[:sum :thisComponent | sum + thisComponent preferredHeight])
-         + okButton heightIncludingBorder.
-
-    (styleSheet at:'infoBoxSeparator' default:false) ifTrue:[
-        h := h + (ViewSpacing * 3)
-    ].
-
-    ^ w @ h
-
-    "Modified: 1.4.1997 / 14:53:35 / cg"
 ! !
 
 !InfoBox class methodsFor:'documentation'!