--- a/View.st	Thu May 18 17:40:16 1995 +0200
+++ b/View.st	Fri May 19 00:55:49 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/View.st,v 1.43 1995-05-12 18:09:12 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.44 1995-05-18 22:55:49 claus Exp $
 '!
 
 !View class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/View.st,v 1.43 1995-05-12 18:09:12 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.44 1995-05-18 22:55:49 claus Exp $
 "
 !
 
@@ -311,9 +311,10 @@
 
 aspect:aspectSymbol
     "ST-80 style updating: If a views aspectSymbol is nonNil, 
-     it will respond to changes of this aspect from the model."
+     it will respond to changes of this aspect from the model.
+     Alias for aspectMessage: for ST-80 compatibility."
 
-    aspectMsg := aspectSymbol
+    self aspectMessage:aspectSymbol
 !
 
 aspect
@@ -322,6 +323,13 @@
     ^ aspectMsg
 !
 
+aspectMessage:aspectSymbol
+    "ST-80 style updating: If a views aspectSymbol is nonNil, 
+     it will respond to changes of this aspect from the model."
+
+    aspectMsg := aspectSymbol
+!
+
 aspectMessage
     "Return the aspect used with changes from/to the model"