--- a/ListSelectionBox.st	Tue May 28 22:20:48 1996 +0200
+++ b/ListSelectionBox.st	Wed May 29 12:20:58 1996 +0200
@@ -281,6 +281,10 @@
 
     |wWanted hWanted eH mm|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     mm := ViewSpacing.
 
     wWanted := mm + labelField width + mm.
@@ -304,7 +308,7 @@
     ].
     ^ (wWanted @ hWanted)
 
-    "Modified: 21.2.1996 / 01:01:02 / cg"
+    "Modified: 29.5.1996 / 12:11:55 / cg"
 ! !
 
 !ListSelectionBox methodsFor:'user actions'!
@@ -333,5 +337,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.31 1996-05-26 13:22:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.32 1996-05-29 10:16:58 cg Exp $'
 ! !