--- a/EditField.st Wed Aug 24 01:36:00 1994 +0200
+++ b/EditField.st Wed Aug 24 01:36:34 1994 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.6 1994-08-07 13:21:28 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.7 1994-08-23 23:36:34 claus Exp $
'!
!EditField class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.6 1994-08-07 13:21:28 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.7 1994-08-23 23:36:34 claus Exp $
"
!
@@ -341,6 +341,10 @@
leaveAction notNil ifTrue:[
leaveAction value:key
].
+ "model-view behavior"
+ model notNil ifTrue:[
+ model perform:aspectSymbol with:(self contents).
+ ].
^ self
].