--- a/DisplaySurface.st Tue Jul 05 13:28:41 2011 +0200
+++ b/DisplaySurface.st Thu Jul 07 18:18:38 2011 +0200
@@ -842,25 +842,43 @@
!DisplaySurface methodsFor:'button menus'!
-middleButtonMenu
- "return the menu associated with the middle mouse button"
+getMiddleButtonMenu
+ "return the menu associated with the middle mouse button.
+ This is a possibly obsolete hook for views which do not define their own menu,
+ but are configured from the outside. Nowadays, widgets provide their own menu
+ or are configured using a menuHolder."
^ self getAttribute:#middleButtonMenu
+
+ "Created: / 07-07-2011 / 18:16:21 / cg"
+!
+
+middleButtonMenu
+ "return the menu associated with the middle mouse button.
+ Here, return a hooked on menu, but usually redefined to provide a widget-specific
+ menu."
+
+ ^ self getMiddleButtonMenu
+
+ "Modified (comment): / 07-07-2011 / 18:18:28 / cg"
!
middleButtonMenu:aMenu
- "associate aMenu with the middle mouse button"
+ "associate aMenu with the middle mouse button.
+ This is a possibly obsolete hook for views which do not define their own menu,
+ but are configured from the outside. Nowadays, widgets provide their own menu
+ or are configured using a menuHolder."
|oldMenu|
- (oldMenu := self middleButtonMenu) notNil ifTrue:[
+ (oldMenu := self getMiddleButtonMenu) notNil ifTrue:[
oldMenu isArray ifFalse:[
oldMenu destroy
]
].
self setMiddleButtonMenu:aMenu
- "Modified: / 07-04-2011 / 09:06:42 / cg"
+ "Modified: / 07-07-2011 / 18:18:00 / cg"
!
setMiddleButtonMenu:aMenu
@@ -2540,12 +2558,8 @@
!DisplaySurface class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $'
-!
-
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.149 2011-04-07 07:35:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.150 2011-07-07 16:18:38 cg Exp $'
! !
DisplaySurface initialize!