--- a/DataSetView.st Thu Oct 16 15:19:03 1997 +0200
+++ b/DataSetView.st Thu Oct 16 15:19:33 1997 +0200
@@ -250,26 +250,6 @@
!DataSetView methodsFor:'accessing'!
-columnDescriptors:colDesc
- "compute height of baseline
- "
- |h label|
-
- columnView columnDescriptors:colDesc.
- h := 0.
-
- columnView numberOfColumns ~~ 0 ifTrue:[
- columnView columnsDo:[:aCol|
- (label := aCol label) notNil ifTrue:[
- h := (label heightOn:self) max:h
- ]
- ]
- ].
- h := h + 8.
- labelView corner:( 1.0 @ h ).
- columnView superView origin:( 0.0 @ h ).
-!
-
useIndex
^ useIndex
!
@@ -427,7 +407,7 @@
"/ listHolder and model could be the same
chgObj == listHolder ifTrue:[
- what == #at ifTrue:[
+ what == #at: ifTrue:[
columnView at:aPara put:(listHolder at:aPara)
] ifFalse:[
self perform:what with:aPara
@@ -581,5 +561,5 @@
!DataSetView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.1 1997-10-10 13:38:51 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.2 1997-10-16 13:19:33 ca Exp $'
! !