EditField.st
changeset 118 3ee5ea99d0e2
parent 113 fdd18cfff57e
child 120 710d41f17b68
--- a/EditField.st	Sun Apr 30 15:40:03 1995 +0200
+++ b/EditField.st	Wed May 03 02:30:14 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.16 1995-03-31 03:01:35 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.17 1995-05-03 00:29:16 claus Exp $
 '!
 
 !EditField class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.16 1995-03-31 03:01:35 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.17 1995-05-03 00:29:16 claus Exp $
 "
 !
 
@@ -313,9 +313,7 @@
 	    leaveAction value:#Return
 	].
 	"model-view behavior"
-	(model notNil and:[changeSymbol notNil]) ifTrue:[
-	    model perform:changeSymbol with:(self contents).
-	].
+	self sendChangeMessageWith:(self contents).
     ].
 !
 
@@ -424,4 +422,3 @@
 
     ^ true
 ! !
-