--- a/ListSelectionBox.st	Fri May 31 22:16:08 1996 +0200
+++ b/ListSelectionBox.st	Fri May 31 22:18:55 1996 +0200
@@ -177,14 +177,6 @@
 
 !ListSelectionBox methodsFor:'initialization'!
 
-focusSequence
-    "return a sequence for tabbing through my components"
-
-    ^ Array with:enterField with:selectionList with:abortButton with:okButton
-
-    "Modified: 12.5.1996 / 21:49:37 / cg"
-!
-
 initialize
     |space2 halfSpace v vbw eH|
 
@@ -229,6 +221,7 @@
       rightInset:halfSpace+vbw.
 
     selectionList := v scrolledView.
+    self makeTabable:selectionList.
 
     "self updateList."
 
@@ -250,7 +243,7 @@
             filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
         )
 
-    "Modified: 18.4.1996 / 18:31:50 / cg"
+    "Modified: 31.5.1996 / 22:02:33 / cg"
 !
 
 realize
@@ -337,5 +330,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.33 1996-05-29 14:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.34 1996-05-31 20:18:39 cg Exp $'
 ! !