--- a/FilenameWidgetWithHistory.st	Sat Nov 10 00:22:28 2018 +0100
+++ b/FilenameWidgetWithHistory.st	Sat Nov 10 00:27:37 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2007 by eXept Software AG
               All Rights Reserved
@@ -297,20 +299,12 @@
 
 !FilenameWidgetWithHistory methodsFor:'queries'!
 
-preferredExtent
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
+computePreferredExtent
+    ^ (fileNameEntryField preferredWidth + browseButton preferredWidth)
+                       @
+      (fileNameEntryField preferredHeight "max: browseButton preferredExtent y").
 
-    preferredExtent := (fileNameEntryField preferredWidth + browseButton preferredWidth)
-                       @
-                       (fileNameEntryField preferredHeight "max: browseButton preferredExtent y").
-    ^ preferredExtent
+    "Created: / 09-11-2018 / 19:52:52 / Claus Gittinger"
 ! !
 
 !FilenameWidgetWithHistory methodsFor:'user actions'!