--- a/DSVColumnView.st	Tue Aug 09 04:38:25 2016 +0200
+++ b/DSVColumnView.st	Tue Aug 09 12:38:49 2016 +0200
@@ -2122,7 +2122,6 @@
     shown ifFalse:[^ self].
     self isReallyShown ifFalse:[^ self].
 
-    gc createFontOnDevice.
     self paint:bgColor.
 
     columnDescriptors isEmpty ifTrue:[
@@ -2161,7 +2160,7 @@
                 rect  := Rectangle left:left top:y width:(right - left) height:h.
             
                 self clippingBounds:nil.
-                self clippingRectangle:rect.
+                self clippingBounds:rect.
                 aCol redrawX:x0 y:yTop h:clHg  from:start to:stop.
             ].
             x0 := x1
@@ -3301,7 +3300,7 @@
     tabIntern          := true.
     useIndex           := true.
     viewOrigin         := 0@0.
-    fontOnDevice       := gc createFontOnDevice.
+    fontOnDevice       := gc deviceFont.
     rowFontAscent      := fontOnDevice ascent.
     rowHeight          := verticalSpacing + fontOnDevice height + verticalSpacing + separatorSize.
     minRowHeight       := rowHeight.