--- a/VisualComponent.st	Sat Nov 10 00:35:58 2018 +0100
+++ b/VisualComponent.st	Sat Nov 10 00:38:07 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
               All Rights Reserved
@@ -265,6 +267,12 @@
     frame := aRectangle
 !
 
+computePreferredExtent
+    ^ self preferredBounds extent
+
+    "Created: / 09-11-2018 / 20:04:11 / Claus Gittinger"
+!
+
 defaultExtent
     ^ 50@50
 !