--- a/ListView.st	Mon Aug 02 12:14:17 1999 +0200
+++ b/ListView.st	Wed Aug 04 16:08:02 1999 +0200
@@ -383,28 +383,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' mayProceed:true
     ].
     font ~~ aFont ifTrue:[
-	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
-	]
+        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"
@@ -3916,5 +3916,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.208 1999-07-31 11:00:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.209 1999-08-04 14:08:02 cg Exp $'
 ! !