--- a/ListSelectionBox.st	Thu Mar 22 10:42:07 2012 +0100
+++ b/ListSelectionBox.st	Thu Mar 22 10:52:46 2012 +0100
@@ -12,7 +12,8 @@
 "{ Package: 'stx:libwidg' }"
 
 EnterBox subclass:#ListSelectionBox
-	instanceVariableNames:'list selectionList selectionChangeCallback useIndex searchJob'
+	instanceVariableNames:'panel list selectionList selectionChangeCallback useIndex
+		searchJob'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
@@ -226,6 +227,12 @@
     ^ selectionList
 
     "Created: 26.10.1995 / 17:08:32 / cg"
+!
+
+panelView
+    ^ panel
+
+    "Created: / 22-03-2012 / 10:30:16 / cg"
 ! !
 
 !ListSelectionBox methodsFor:'accessing-look'!
@@ -287,7 +294,11 @@
     space2 := 2 * ViewSpacing.
     halfSpace := ViewSpacing // 2.
 
-    v := HVScrollableView for:(self class listViewType) in:self.
+    panel := VerticalPanelView in:self.
+    panel horizontalLayout:#fit.
+    panel verticalLayout:#topFit.
+
+    v := HVScrollableView for:(self class listViewType) in:panel.
     v horizontalScrollable:true; horizontalMini:true; autoHideHorizontalScrollBar:true.
 
 "/ old:
@@ -304,18 +315,19 @@
 "/             ].
 
 "/ new:
-    v origin:[enterField notNil ifTrue:[
+    panel origin:[enterField notNil ifTrue:[
                 0.0 @ (enterField origin y + enterField height + ViewSpacing)
               ] ifFalse:[
                 0.0 @ (labelField origin y + labelField height + ViewSpacing)
               ]
              ]
       corner:(1.0 @ 1.0).
-    v bottomInset:(buttonPanel preferredHeight + ViewSpacing).
+    panel bottomInset:(buttonPanel preferredHeight + ViewSpacing).
 
     vbw := v borderWidth.
-    v leftInset:halfSpace+vbw;
-      rightInset:halfSpace+vbw.
+    v
+        leftInset:halfSpace+vbw;
+        rightInset:halfSpace+vbw.
 
     selectionList := v scrolledView.
     self makeTabable:selectionList.
@@ -355,7 +367,7 @@
             filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
         )
 
-    "Modified: / 25-08-2010 / 22:01:48 / cg"
+    "Modified (format): / 22-03-2012 / 10:30:03 / cg"
 !
 
 postRealize
@@ -480,9 +492,9 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.61 2011-08-03 11:50:06 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.62 2012-03-22 09:52:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.61 2011-08-03 11:50:06 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.62 2012-03-22 09:52:46 cg Exp $'
 ! !