DSVColumnView.st
changeset 1034 bd02c4cd7582
parent 1023 59c1888ca494
child 1042 b2b27ac9a550
--- 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 $'
 ! !