--- a/EditTextView.st	Wed Jun 16 19:35:30 2004 +0200
+++ b/EditTextView.st	Tue Jun 22 09:41:04 2004 +0200
@@ -1039,6 +1039,10 @@
         self sendChangeMessageWith:self argForChangeMessage.
     ].
 
+    model notNil ifTrue:[
+        acceptChannel value:true withoutNotifying:self.
+    ].
+
     "/
     "/ ST/X way of doing things
     "/ as a historic (and temporary) leftover,
@@ -1049,15 +1053,6 @@
         acceptAction value:self list
     ].
 
-    "/ NO - must be manually reset by application
-    "/ self modified:false.
-
-    "/ self accepted:true.
-    "/ changed to:
-    model notNil ifTrue:[
-        acceptChannel value:true withoutNotifying:self.
-    ].
-
     lockUpdates := false.
 
     "Modified: / 30.1.1998 / 14:19:00 / cg"
@@ -5863,5 +5858,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.354 2004-06-07 09:36:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.355 2004-06-22 07:41:04 ca Exp $'
 ! !