change mechanism for opening the dataset builder (step 2)
authortz
Wed, 13 May 1998 22:14:42 +0200
changeset 824 1d5adf147721
parent 823 47e7d348e01a
child 825 89719cf96c63
change mechanism for opening the dataset builder (step 2)
UIPainter.st
--- a/UIPainter.st	Wed May 13 14:42:13 1998 +0200
+++ b/UIPainter.st	Wed May 13 22:14:42 1998 +0200
@@ -1825,24 +1825,29 @@
 openDataSetColumnEditor
     "opens a Table Column Editor on current widget"
 
-    |editor|
-
-    (self resolveName:specClass) isNil ifTrue:[
+    |cls editor|
+
+    (cls := self resolveName:specClass) isNil ifTrue:[
         self askForSaving ifFalse: [^self]
     ].
 
     editor := DataSetBuilder new.
     editor masterApplication:self.
+    editor specClass: cls.
 "/    editor columns:self specTool specification columns.
     editor rowClassName:(self specTool specification rowClassName).
     editor openModalOnResourceSpec:(self specTool specification columns).
 "/    editor openModal.
 
-    editor hasChanged ifTrue:[
+    editor hasSaved ifFalse:[
         self specTool specification columns:(editor columns).
         self specTool specification rowClassName:(editor rowClassName).
-        self modifiedChannel value:true.
+    ] ifTrue: [
+        self specTool specification columns:nil.
+        self specTool specification rowClassName:nil.
     ].
+    self modifiedChannel value: editor modified.
+
 !
 
 openEditMenu