DSVColumnView.st
changeset 561 43b62e424d52
parent 556 0e04616de48c
child 563 826871ce82c9
--- a/DSVColumnView.st	Wed Oct 15 15:40:07 1997 +0200
+++ b/DSVColumnView.st	Wed Oct 15 18:32:02 1997 +0200
@@ -444,6 +444,7 @@
             y0 := y0 max:margin.
             dH := y1 - y0.
             self catchExpose.
+
             self copyFrom:self x:0 y:y0
                              toX:0 y:y1
                            width:width height:h async:true.
@@ -509,9 +510,11 @@
         h  := height - margin - yB.
         y0 := y0 max:margin.
 
-        self catchExpose.
-        self copyFrom:self x:0 y:yB toX:0 y:y0 width:width height:h async:true.
-        self waitForExpose.
+        h > 0 ifTrue:[
+            self catchExpose.
+            self copyFrom:self x:0 y:yB toX:0 y:y0 width:width height:h async:true.
+            self waitForExpose.
+        ].
         y0 := y0 + h.
         self redrawX:margin y:y0 width:width height:(height - y0).
     ].
@@ -1401,7 +1404,6 @@
                         ifFalse:[y1 := margin. y := y1 + h].
 
             self catchExpose.
-
             self copyFrom:self x:0 y:y0 toX:0 y:y1 width:width height:h async:true.
             self waitForExpose.
             self redrawX:0 y:y width:width height:(innerHG - h).
@@ -1665,5 +1667,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.3 1997-10-15 10:29:40 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.4 1997-10-15 16:32:02 ca Exp $'
 ! !