--- a/ListView.st	Wed Jun 04 13:21:19 1997 +0200
+++ b/ListView.st	Wed Jun 04 13:22:12 1997 +0200
@@ -366,26 +366,28 @@
     "set the font for all shown text.
      Redraws everything.
      CAVEAT: with the addition of Text objects,
-	     this method is going to be obsoleted by a textStyle
-	     method, which allows specific control over
-	     normalFont/boldFont/italicFont parameters."
+             this method is going to be obsoleted by a textStyle
+             method, which allows specific control over
+             normalFont/boldFont/italicFont parameters."
 
     aFont isNil ifTrue:[
-	^ self error:'nil font'
+        ^ self error:'nil font'
     ].
     font ~~ aFont ifTrue:[
-	super font:aFont.
-	realized ifTrue:[
-	    widthOfWidestLine := nil. "/ i.e. unknown
-	    (font graphicsDevice == device) ifTrue:[
-		self getFontParameters.
-		self computeNumberOfLinesShown.
-		shown ifTrue:[
-		    self redrawFromVisibleLine:1 to:nLinesShown
-		]
-	    ].
-	    self contentsChanged
-	]
+        super font:(aFont on:device).
+        preferredExtent := nil.
+        widthOfWidestLine := nil. "/ i.e. unknown
+        self getFontParameters.
+        realized ifTrue:[
+            (font graphicsDevice == device) ifTrue:[
+                self getFontParameters.
+                self computeNumberOfLinesShown.
+                shown ifTrue:[
+                    self redrawFromVisibleLine:1 to:nLinesShown
+                ]
+            ].
+            self contentsChanged
+        ]
     ]
 
     "Modified: 5.7.1996 / 17:55:34 / cg"
@@ -3621,5 +3623,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.131 1997-05-12 17:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.132 1997-06-04 11:22:12 ca Exp $'
 ! !