# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 895713072 -7200
# Node ID c028ad61ac0e1a09e625eb0d50302580e7dd05ca
# Parent  146b3f78afcbc70ded222687092a5d184d50e813
*** empty log message ***

diff -r 146b3f78afcb -r c028ad61ac0e DataSetBuilder.st
--- a/DataSetBuilder.st	Thu May 21 00:59:18 1998 +0200
+++ b/DataSetBuilder.st	Thu May 21 03:11:12 1998 +0200
@@ -2525,16 +2525,16 @@
             [
                 rowSuperClass := cls superclass name asString
             ].
-            aspects at:#classNameChannel put:rowClass asValue
+            aspects at:#classNameChannel put:(ValueHolder with:rowClass)
         ] 
         ifFalse:
         [
-            aspects at:#classNameChannel put:'DSVRow' asValue
+            aspects at:#classNameChannel put:(ValueHolder with:'DSVRow')
         ].
 
         rowSuperClass notNil 
-            ifTrue: [aspects at:#superclassNameChannel put:rowSuperClass asValue] 
-            ifFalse:[aspects at:#superclassNameChannel put:'Object' asValue].
+            ifTrue: [aspects at:#superclassNameChannel put:(ValueHolder with:rowSuperClass)] 
+            ifFalse:[aspects at:#superclassNameChannel put:(ValueHolder with:'Object')].
 
         (self openDialogInterface:#defineClassNameSpec withBindings:aspects) 
         ifFalse:
@@ -2579,6 +2579,8 @@
             ]
         ]
     ]
+
+    "Modified: / 21.5.1998 / 03:08:42 / cg"
 !
 
 doDelete