--- a/ListView.st	Mon Dec 23 13:46:48 1996 +0100
+++ b/ListView.st	Mon Dec 23 13:59:51 1996 +0100
@@ -902,70 +902,6 @@
     listMsg := aSymbol.
 !
 
-menuHolder
-    "who has the menu - this defaults to model or nil here,
-     but self in textView & friends.
-     Can be changed with #menuHolder:"
-
-    menuHolder notNil ifTrue:[
-	^ menuHolder
-    ].
-    ^ super menuHolder
-!
-
-menuHolder:anObject
-    "change the one that provides the menu (via menuMsg)."
-
-    menuHolder := anObject
-!
-
-menuPerformer
-    "who does menu actions - this defaults to model or nil here,
-     but self in textView & friends.
-     Can be changed with #menuPerformer:"
-
-    menuPerformer notNil ifTrue:[
-	^ menuPerformer
-    ].
-    ^ super menuPerformer
-
-    "Modified: 7.3.1996 / 18:24:20 / cg"
-!
-
-menuPerformer:anObject
-    "change the one that does the menu actions.
-     See the comment in SimpleView>>activateMenu on who gets the menus
-     message."
-
-    menuPerformer := anObject
-
-    "
-     |top textV plug|
-
-     plug := Plug new.
-     plug respondTo:#textMenu
-	       with:[ |m|
-			m := PopUpMenu
-				  labels:#('copy' 'foo' '-' 'others')
-				  selectors:#(copySelection foo nil others).
-			m subMenuAt:#others
-				put:(PopUpMenu 
-					labels:#('bar' 'goto')
-					selectors:#(bar gotoLine))        
-		    ].
-
-     top := StandardSystemView new.
-     top extent:300@300.
-
-     textV := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
-     textV menuHolder:plug; menuMessage:#textMenu; menuPerformer:plug.
-     textV contents:'hello world'.
-     top open.
-    "
-
-    "Modified: 7.3.1996 / 19:04:08 / cg"
-!
-
 on:aModel aspect:aspectSymbol
     "ST-80 compatibility"
 
@@ -3502,5 +3438,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.110 1996-12-23 12:46:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.111 1996-12-23 12:59:51 cg Exp $'
 ! !