call accept before closing the editView
authortm
Wed, 24 Feb 1999 14:33:31 +0100
changeset 1215 76b43b3de51e
parent 1214 6aa740fb636c
child 1216 c9f8253a9e7c
call accept before closing the editView
DSVColumnView.st
--- a/DSVColumnView.st	Mon Feb 22 22:05:44 1999 +0100
+++ b/DSVColumnView.st	Wed Feb 24 14:33:31 1999 +0100
@@ -1815,14 +1815,6 @@
         ^ self
     ].
 
-    editView notNil ifTrue:[
-        editView allSubViewsDo:[:aSubView|
-            (aSubView respondsTo:#accept) ifTrue:[
-                aSubView accept
-            ]
-        ]
-    ].
-
     n   := 1 + (sensor compressKeyPressEventsWithKey:key).
     idx := selectedColIndex.
     max := self numberOfColumns.
@@ -2862,7 +2854,15 @@
         multipleSelectOk ifTrue:[oldRow := oldRow at:1].
 
         editValue notNil ifTrue:[
-            editValue removeDependent:self.
+            editValue removeDependent:self
+        ].
+        editView notNil ifTrue:[
+            editView allSubViewsDo:[:aSubView|
+                aSubView perform:#accept ifNotUnderstood:nil.
+            ]
+        ].
+
+        editValue notNil ifTrue:[
             edValue := editValue value.
             edValue isSequenceable ifTrue:[
                 edValue size == 0 ifTrue:[
@@ -2987,5 +2987,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.65 1999-02-14 15:47:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.66 1999-02-24 13:33:31 tm Exp $'
 ! !