DataSetView.st
changeset 654 957008fbd9c5
parent 652 0e1873f61591
child 700 57e96fcbc6f6
--- a/DataSetView.st	Mon Jan 12 14:49:19 1998 +0100
+++ b/DataSetView.st	Mon Jan 12 23:54:39 1998 +0100
@@ -535,7 +535,7 @@
     prv := nil.
     lst := columnView lastColumn.
 
-    columnView columnsDo:[:aCol|
+    columnView columnsDo:[:aCol||l|
         (aCol showColSeparator or:[aCol == lst]) ifTrue:[
             lbl := DSVLabelView column:(prv ? aCol) in:self.
             prv := nil.
@@ -623,7 +623,14 @@
     |x0 x1 pt dX y id lst|
 
     labels size == columnView numberOfColumns ifFalse:[
-        ^ self recomputeLabels
+        id := columnView lastColumn showColSeparator ifTrue:[0] ifFalse:[1].
+
+        columnView columnsDo:[:aCol|
+            aCol showColSeparator ifTrue:[id := id + 1]
+        ].
+        labels size ~~ id ifTrue:[
+            ^ self recomputeLabels
+        ].
     ].
     labels size == 0 ifTrue:[ ^ self ].
 
@@ -799,5 +806,5 @@
 !DataSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.10 1998-01-12 10:17:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.11 1998-01-12 22:54:39 ca Exp $'
 ! !