--- a/ListSelectionBox.st	Thu Dec 16 12:02:42 1993 +0100
+++ b/ListSelectionBox.st	Thu Dec 16 12:04:09 1993 +0100
@@ -24,7 +24,7 @@
 
 this class implements boxes for selection from a list
 
-$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.3 1993-10-13 02:48:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.4 1993-12-16 11:03:01 claus Exp $
 
 written Jan 90 by claus
 '!
@@ -33,6 +33,13 @@
 
 defaultExtent
     ^ (Display pixelPerMillimeter * (80 @ 100)) rounded
+!
+
+listViewType
+    "return the type of listView 
+     - for easier redefinition in subclasses"
+
+    ^ SelectionInListView
 ! !
 
 !ListSelectionBox class methodsFor:'instance creation'!
@@ -60,7 +67,7 @@
 
     space2 := 2 * ViewSpacing.
 
-    v := ScrollableView for:SelectionInListView in:self.
+    v := ScrollableView for:(self class listViewType) in:self.
 
     "kludge: see note in EnterBox"
     v origin:(ViewSpacing