--- a/DisplaySurface.st	Tue Apr 13 16:30:40 2010 +0200
+++ b/DisplaySurface.st	Tue May 04 14:32:42 2010 +0200
@@ -111,22 +111,22 @@
      newTop newBottom newLeft newRight|
 
     updateRegion isNil ifTrue:[
-	updateRegion := OrderedCollection with:newRectangle.
-	^ true
+        updateRegion := OrderedCollection with:newRectangle.
+        ^ true
     ].
     (updateRegion contains:[:oldRectangle | (newRectangle isContainedIn:oldRectangle)]) ifTrue:[
-	^ false.
+        ^ false.
     ].
 
     numRect := updateRegion size.
-    numRect > 10 ifTrue:[
-	closure := updateRegion
-			inject:newRectangle
-			into:[:boundsSoFar :thisRectangle |
-				boundsSoFar quickMerge:thisRectangle
-			     ].
-	updateRegion := OrderedCollection with:closure.
-	^ true
+    numRect > 20 ifTrue:[
+        closure := updateRegion
+                        inject:newRectangle
+                        into:[:boundsSoFar :thisRectangle |
+                                boundsSoFar quickMerge:thisRectangle
+                             ].
+        updateRegion := OrderedCollection with:closure.
+        ^ true
     ].
 
     lastRect := updateRegion at:numRect.
@@ -140,24 +140,24 @@
     newRight := newRectangle right.
 
     lastTop = newTop ifTrue:[
-	lastBottom = newBottom ifTrue:[
-	    lastLeft <= newLeft ifTrue:[
-		lastRight >= newLeft ifTrue:[
-		    updateRegion at:numRect put:(lastRect copy right:newRight).
-		    ^ false "/ true
-		]
-	    ]
-	].
+        lastBottom = newBottom ifTrue:[
+            lastLeft <= newLeft ifTrue:[
+                lastRight >= newLeft ifTrue:[
+                    updateRegion at:numRect put:(lastRect copy right:newRight).
+                    ^ false "/ true
+                ]
+            ]
+        ].
     ].
     lastLeft = newLeft ifTrue:[
-	lastRight = newRight ifTrue:[
-	    lastTop <= newTop ifTrue:[
-		lastBottom >= newTop ifTrue:[
-		    updateRegion at:numRect put:(lastRect copy bottom:newBottom).
-		    ^ false "/ true
-		]
-	    ]
-	].
+        lastRight = newRight ifTrue:[
+            lastTop <= newTop ifTrue:[
+                lastBottom >= newTop ifTrue:[
+                    updateRegion at:numRect put:(lastRect copy bottom:newBottom).
+                    ^ false "/ true
+                ]
+            ]
+        ].
     ].
 
     updateRegion add:newRectangle.
@@ -2515,11 +2515,11 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.145 2009-12-07 14:56:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.146 2010-05-04 12:32:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.145 2009-12-07 14:56:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.146 2010-05-04 12:32:42 cg Exp $'
 ! !
 
 DisplaySurface initialize!