--- a/ListSelectionBox.st	Thu Nov 23 02:43:52 1995 +0100
+++ b/ListSelectionBox.st	Thu Nov 23 03:26:58 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 EnterBox subclass:#ListSelectionBox
-       instanceVariableNames:'selectionList'
-       classVariableNames:''
-       poolDictionaries:''
-       category:'Views-DialogBoxes'
+	 instanceVariableNames:'selectionList'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-DialogBoxes'
 !
 
 !ListSelectionBox class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.19 1995-11-11 16:20:49 cg Exp $'
-!
-
 documentation
 "
     this class implements boxes for selection from a list. It offers
@@ -89,6 +85,22 @@
 	box abortAction:[:dummy | box hide].
 	box openModeless
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.20 1995-11-23 02:26:27 cg Exp $'
+! !
+
+!ListSelectionBox class methodsFor:'instance creation'!
+
+title:titleString okText:okText abortText:abortText list:aList action:aBlock
+    "create and return a new listSelectionBox with list already defined"
+
+    |newBox|
+
+    newBox := super title:titleString okText:okText abortText:abortText
+		    action:aBlock.
+    ^ newBox list:aList
 ! !
 
 !ListSelectionBox class methodsFor:'defaults'!
@@ -104,20 +116,46 @@
     ^ SelectionInListView
 ! !
 
-!ListSelectionBox class methodsFor:'instance creation'!
+!ListSelectionBox methodsFor:'accessing'!
+
+initialText:someString
+    "in addition to showing the initial text, also select it in the list"
 
-title:titleString okText:okText abortText:abortText list:aList action:aBlock
-    "create and return a new listSelectionBox with list already defined"
+    super initialText:someString.
+    selectionList selectElement:someString.
+!
+
+list:aList
+    "set the list to be displayed in selection list"
+
+    selectionList list:aList
+! !
 
-    |newBox|
+!ListSelectionBox methodsFor:'accessing-components'!
+
+listView
+    "return the listView component"
+
+    ^ selectionList
 
-    newBox := super title:titleString okText:okText abortText:abortText
-		    action:aBlock.
-    ^ newBox list:aList
+    "Created: 26.10.1995 / 17:08:32 / cg"
+! !
+
+!ListSelectionBox methodsFor:'accessing-look'!
+
+noEnterField
+    enterField destroy.
+    enterField := nil
+
+    "Created: 26.10.1995 / 17:12:38 / cg"
 ! !
 
 !ListSelectionBox methodsFor:'initialization'!
 
+focusSequence
+    ^ Array with:enterField with:selectionList with:abortButton with:okButton 
+!
+
 initialize
     |space2 halfSpace v vbw eH|
 
@@ -181,19 +219,15 @@
     "Modified: 26.10.1995 / 17:18:23 / cg"
 !
 
-updateList
-    "setup contents of list; nothing done here but redefined in subclasses"
-
-    ^ self
-!
-
 realize
     self updateList.
     super realize
 !
 
-focusSequence
-    ^ Array with:enterField with:selectionList with:abortButton with:okButton 
+updateList
+    "setup contents of list; nothing done here but redefined in subclasses"
+
+    ^ self
 ! !
 
 !ListSelectionBox methodsFor:'queries'!
@@ -230,6 +264,13 @@
 
 !ListSelectionBox methodsFor:'user actions'!
 
+doubleClick
+    "doubleClick on an entry is select & ok"
+
+    enterField contents:(selectionList selectionValue).
+    self okPressed
+!
+
 selectionChanged
     "selections in list get forwarded to enterfield"
 
@@ -238,45 +279,5 @@
     ]
 
     "Modified: 26.10.1995 / 17:20:06 / cg"
-!
-
-doubleClick
-    "doubleClick on an entry is select & ok"
-
-    enterField contents:(selectionList selectionValue).
-    self okPressed
-! !
-
-!ListSelectionBox methodsFor:'accessing-components'!
-
-listView
-    "return the listView component"
-
-    ^ selectionList
-
-    "Created: 26.10.1995 / 17:08:32 / cg"
 ! !
 
-!ListSelectionBox methodsFor:'accessing-look'!
-
-noEnterField
-    enterField destroy.
-    enterField := nil
-
-    "Created: 26.10.1995 / 17:12:38 / cg"
-! !
-
-!ListSelectionBox methodsFor:'accessing'!
-
-initialText:someString
-    "in addition to showing the initial text, also select it in the list"
-
-    super initialText:someString.
-    selectionList selectElement:someString.
-!
-
-list:aList
-    "set the list to be displayed in selection list"
-
-    selectionList list:aList
-! !