menuHolder/menuPerformer stuff.
authorStefan Vogel <sv@exept.de>
Fri, 03 Jan 1997 03:21:55 +0100
changeset 1152 21c666e130dd
parent 1151 1a3682212ea9
child 1153 9a10a934c137
menuHolder/menuPerformer stuff.
View.st
--- a/View.st	Fri Jan 03 03:04:26 1997 +0100
+++ b/View.st	Fri Jan 03 03:21:55 1997 +0100
@@ -57,11 +57,12 @@
                                             dependentViews send this message to
                                             the model to ask for a popup menu.
 
-        menuHolder      <any>               an Object, that will receive the
-                                            menuMsg to retrieve a popup menu.
 
-        menuPerformer   <any>               an Object, that will reveive the
-                                            selected message from a popup menu.
+        menuHolder      <any>               who has a menu 
+                                            (default: nil i.e. model has menu)
+
+        menuPerformer   <any>               who performs menu actions
+                                            (default: nil i.e. model has menu)
 
     [see also:]
         StandardSystemView TopView DialogBox
@@ -540,20 +541,13 @@
     changeMsg := self class defaultChangeMessage.
     menuMsg := self class defaultMenuMessage.
 
-    "
-     initialize menu to be provided and performed by myself.
-     This allows textViews without a model to provide a
-     reasonable menu AND allows models to provide their own menu.
-    "
-    menuHolder := menuPerformer := self.
-
     model notNil ifTrue:[
         controller notNil ifTrue:[
             controller model:model
         ]
     ].
 
-    "Modified: 3.1.1997 / 01:56:22 / stefan"
+    "Modified: 3.1.1997 / 02:11:15 / stefan"
 ! !
 
 !View methodsFor:'realization'!
@@ -572,5 +566,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.55 1997-01-03 02:04:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.56 1997-01-03 02:21:55 stefan Exp $'
 ! !