--- a/ListModelView.st	Wed Nov 20 11:00:56 2002 +0100
+++ b/ListModelView.st	Wed Nov 20 11:01:33 2002 +0100
@@ -1318,30 +1318,33 @@
      stop  "{ Class:SmallInteger }"
     |
     (widthOfContents notNil and:[computeWidthInRange isNil]) ifTrue:[
-	^ widthOfContents + textStartLeft
+        ^ widthOfContents + textStartLeft
     ].
     range               := computeWidthInRange.
     computeWidthInRange := nil.
     preferredExtent     := nil.
-    size                := list size.
+
+    shown ifFalse:[ ^ 60 ].
+
+    size := list size.
 
     size == 0 ifTrue:[
-	widthOfContents := 20.
+        widthOfContents := 20.
     ] ifFalse:[
-	widthOfContents isNil ifTrue:[
-	    widthOfContents := self widthOfWidestLineBetween:1 and:size
-	] ifFalse:[
-	    start := range x.
-	    stop  := range y min:size.
+        widthOfContents isNil ifTrue:[
+            widthOfContents := self widthOfWidestLineBetween:1 and:size
+        ] ifFalse:[
+            start := range x.
+            stop  := range y min:size.
 
-	    start > stop ifFalse:[
-		size := self widthOfWidestLineBetween:start and:stop.
+            start > stop ifFalse:[
+                size := self widthOfWidestLineBetween:start and:stop.
 
-		widthOfContents < size ifTrue:[
-		    widthOfContents := size
-		]
-	    ]
-	]
+                widthOfContents < size ifTrue:[
+                    widthOfContents := size
+                ]
+            ]
+        ]
     ].
     ^ widthOfContents + textStartLeft
 !
@@ -1620,7 +1623,7 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.70 2002-11-11 14:51:37 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.71 2002-11-20 10:01:33 ca Exp $'
 ! !
 
 ListModelView initialize!