--- a/View.st	Fri Mar 19 22:46:56 1999 +0100
+++ b/View.st	Sat Mar 20 00:09:34 1999 +0100
@@ -432,9 +432,15 @@
         model removeDependent:self
     ].
     model := aModel.
-    (menuPerformer == self and:[menuHolder == self]) ifTrue:[
+
+    "/ ST80 kludge start
+    (menuPerformer == self 
+    and:[menuHolder == self
+    and:[model isValueModel not]]) ifTrue:[
         menuPerformer := menuHolder := model
     ].
+    "/ ST80 kludge end.
+
     model notNil ifTrue:[
         aModel addDependent:self
     ].
@@ -621,5 +627,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.61 1998-07-06 15:52:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.62 1999-03-19 23:09:34 cg Exp $'
 ! !