# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 899740327 -7200
# Node ID d6e05def4f836ea5f138224530b4a639e0b321e6
# Parent  a2af9e8d568a29add709a6e7668844634b704013
added #performer: (dummy - ST80 compatibility)

diff -r a2af9e8d568a -r d6e05def4f83 View.st
--- 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 $'
 ! !