menuHolder/menuPerformer stuff.
--- 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 $'
! !