#REFACTORING by cg
class: FileSelectionBox
added: #computePreferredExtent
removed: #preferredExtent
--- 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'!