--- a/View.st	Sat Jun 20 22:21:02 1998 +0200
+++ b/View.st	Mon Jul 06 17:52:07 1998 +0200
@@ -324,6 +324,14 @@
     "
 
     "Created: 23.12.1996 / 13:57:28 / cg"
+!
+
+performer:anObject
+    "same as #menuPerformer - ST80 compatibility"
+
+    self menuPerformer:anObject
+
+    "Created: / 6.7.1998 / 13:38:32 / cg"
 ! !
 
 !View methodsFor:'accessing-mvc'!
@@ -613,5 +621,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.60 1998-06-05 12:04:22 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.61 1998-07-06 15:52:07 cg Exp $'
 ! !