--- a/EditTextView.st	Sun May 07 02:16:56 1995 +0200
+++ b/EditTextView.st	Sun May 07 03:58:55 1995 +0200
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
 '!
 
 !EditTextView class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.25 1995-05-06 14:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.26 1995-05-07 01:58:10 claus Exp $
 "
 !
 
@@ -2279,6 +2279,17 @@
 
 !EditTextView methodsFor:'menu actions'!
 
+accept
+    "accept the contents"
+
+    |value|
+
+    value := self contents.
+
+    "model-view behavior"
+    self sendChangeMessageWith:value.
+!
+
 paste:someText
     "paste someText at cursor"