--- a/DSVLabelView.st	Thu Feb 22 16:21:10 2001 +0100
+++ b/DSVLabelView.st	Fri Feb 23 10:24:55 2001 +0100
@@ -85,6 +85,14 @@
 
 ! !
 
+!DSVLabelView class methodsFor:'accessing'!
+
+tabSpacing
+    "returns the tab spacing
+    "
+    ^ 2
+! !
+
 !DSVLabelView class methodsFor:'defaults'!
 
 defaultFont
@@ -231,7 +239,6 @@
     lblH    := height - margin - margin.
     savClip := clipRect.
 
-    self clippingRectangle:(Rectangle left:x top:y width:w height:h).
     x1 := dataSet xVisibleOfColNr:1.
 
     columns keysAndValuesDo:[:aKey :aCol| |anItem|
@@ -241,6 +248,15 @@
         x1 := x1 + wt.
 
         (x1 > x and:[x0 < maxX]) ifTrue:[
+            |left right rect|
+
+            left  := x0 max:x.
+            right := x1 min:maxX.
+            rect  := Rectangle left:left top:y width:(right - left) height:h.
+
+            clipRect := nil.
+            self clippingRectangle:rect.
+
             fg := (anItem foregroundColor) ? fgColor.
 
             (bg := anItem backgroundColor) notNil ifTrue:[
@@ -256,11 +272,9 @@
             anItem redrawX:x0 w:wt h:height inset:inset on:self.
         ]
     ].
+    self clippingRectangle:(Rectangle left:x top:y width:w height:h).
     self redrawEdgesX:x y:y width:w height:h.
     self clippingRectangle:savClip.
-
-
-
 ! !
 
 !DSVLabelView methodsFor:'event handling'!
@@ -440,11 +454,9 @@
     enabled    := true.
     isVisible  := true.
     columns    := #().
-    tabSpacing := 6.
+    tabSpacing := self class tabSpacing.
 
     self enableMotionEvents.
-
-
 !
 
 realize
@@ -572,5 +584,5 @@
 !DSVLabelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.37 2001-02-22 15:21:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.38 2001-02-23 09:24:55 ca Exp $'
 ! !