care for nonexisting rowIfAbsentBlock when a nil-row is encountered.
--- a/DSVColumnView.st Fri Jul 31 01:02:44 1998 +0200
+++ b/DSVColumnView.st Fri Jul 31 01:16:52 1998 +0200
@@ -491,7 +491,8 @@
(row := list at:aRowNr) isNil ifTrue:[
lockRowIndex := aRowNr.
- (row := rowIfAbsentBlock value:aRowNr) notNil ifTrue:[
+ (rowIfAbsentBlock notNil
+ and:[(row := rowIfAbsentBlock value:aRowNr) notNil]) ifTrue:[
list at:aRowNr put:row.
beDependentOfRows ifTrue:[row addDependent:self].
].
@@ -499,6 +500,8 @@
lockRowIndex := 0
].
^ row
+
+ "Modified: / 31.7.1998 / 01:07:46 / cg"
!
at:aRowNr ifAbsent:exceptionBlock
@@ -2677,5 +2680,5 @@
!DSVColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.45 1998-07-28 14:10:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.46 1998-07-30 23:16:52 cg Exp $'
! !