--- a/DSVColumnView.st	Mon Apr 23 14:56:06 2018 +0200
+++ b/DSVColumnView.st	Mon Apr 23 16:50:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -2279,7 +2281,8 @@
 
     stopRedraw := false.
 
-    self class stopRedrawSignal handle:[:ex|
+    self class stopRedrawSignal handle:[:ex |
+        "/ redraw aborted due to too many changes while drawing.
         stopRedraw := true.
     ] do:[
         columnDescriptors do:[:aCol| |cw|
@@ -2291,7 +2294,7 @@
                 right := x1 min:maxX.
                 rect  := Rectangle left:left top:y width:(right - left) height:h.
 
-                self clippingBounds:nil.
+                "/ self clippingBounds:nil.
                 self clippingBounds:rect.
                 aCol redrawX:x0 y:yTop h:clHg  from:start to:stop.
             ].
@@ -2303,8 +2306,11 @@
     self clippingBounds:savClip.
 
     stopRedraw ifTrue:[
-        self invalidate.
-        self makeSelectionVisible.
+        "/ redraw aborted due to too many changes while drawing.
+        "/ try again after some grace period
+        Processor addTimedBlock:[self invalidate] after:0.1 seconds.
+        "/  self invalidate.
+        "/ self makeSelectionVisible.
         ^ self
     ].