# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1541806773 -3600
# Node ID 155840fe7166e72e55ce2e278f74edd074266c8b
# Parent  879655ae4d0ddd055878748fbcc95edde0df42d2
#REFACTORING by cg
class: FileSelectionBox
added: #computePreferredExtent
removed: #preferredExtent

diff -r 879655ae4d0d -r 155840fe7166 FileSelectionBox.st
--- a/FileSelectionBox.st	Sat Nov 10 00:39:04 2018 +0100
+++ b/FileSelectionBox.st	Sat Nov 10 00:39:33 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -625,21 +627,12 @@
 
 !FileSelectionBox methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return my preferred extent 
      - that's the minimum size to make everything visible"
 
     |wWanted hWanted mm|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     mm := ViewSpacing.
 
     wWanted := mm + 
@@ -661,7 +654,7 @@
     ].
     ^ (wWanted @ hWanted)
 
-    "Modified: 19.7.1996 / 20:44:04 / cg"
+    "Created: / 09-11-2018 / 19:52:40 / Claus Gittinger"
 ! !
 
 !FileSelectionBox methodsFor:'user actions'!