--- a/ListSelectionBox.st	Sun May 12 21:46:34 1996 +0200
+++ b/ListSelectionBox.st	Sun May 12 21:51:43 1996 +0200
@@ -163,16 +163,24 @@
 !ListSelectionBox methodsFor:'accessing-look'!
 
 noEnterField
+    "suppress the enterField - now only existing items are selectable;
+     the default is to present an enterField."
+
     enterField destroy.
     enterField := nil
 
     "Created: 26.10.1995 / 17:12:38 / cg"
+    "Modified: 12.5.1996 / 21:49:14 / cg"
 ! !
 
 !ListSelectionBox methodsFor:'initialization'!
 
 focusSequence
-    ^ Array with:enterField with:selectionList with:abortButton with:okButton 
+    "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
@@ -244,14 +252,23 @@
 !
 
 realize
+    "redefined to update the list now.
+     This was not done in #initialize to allow settings to be changed before,
+     in case list-updating is a slow operation - such as reading a directory"
+
     self updateList.
     super realize
+
+    "Modified: 12.5.1996 / 21:50:50 / cg"
 !
 
 updateList
-    "setup contents of list; nothing done here but redefined in subclasses"
+    "setup contents of list; 
+     nothing done here but typically redefined in subclasses."
 
     ^ self
+
+    "Modified: 12.5.1996 / 21:51:10 / cg"
 ! !
 
 !ListSelectionBox methodsFor:'queries'!
@@ -314,5 +331,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.28 1996-04-27 18:16:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.29 1996-05-12 19:51:43 cg Exp $'
 ! !