--- a/ListSelectionBox.st	Fri Jul 05 11:44:23 1996 +0200
+++ b/ListSelectionBox.st	Fri Jul 05 15:03:15 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-DialogBoxes'
 !
 
-!ListSelectionBox class methodsFor:'documentation'!
+!ListSelectionBox  class methodsFor:'documentation'!
 
 copyright
 "
@@ -93,7 +93,7 @@
 "
 ! !
 
-!ListSelectionBox class methodsFor:'instance creation'!
+!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"
@@ -105,16 +105,16 @@
     ^ newBox list:aList
 ! !
 
-!ListSelectionBox class methodsFor:'defaults'!
+!ListSelectionBox  class methodsFor:'defaults'!
 
 defaultExtent
     "return the default extent of my instances.
      The value returned here is usually ignored, and
      the value from preferredExtent taken instead."
 
-    ^ (Display pixelPerMillimeter * (80 @ 100)) rounded
+    ^ (Screen current pixelPerMillimeter * (80 @ 100)) rounded
 
-    "Modified: 22.4.1996 / 23:36:49 / cg"
+    "Modified: 5.7.1996 / 13:53:46 / cg"
 !
 
 listViewType
@@ -327,8 +327,8 @@
     "Modified: 26.10.1995 / 17:20:06 / cg"
 ! !
 
-!ListSelectionBox class methodsFor:'documentation'!
+!ListSelectionBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.34 1996-05-31 20:18:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.35 1996-07-05 13:03:15 cg Exp $'
 ! !