--- 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