DisplaySurface.st
changeset 5773 4812bae52047
parent 5740 21319eb4135f
child 5783 92696252bc47
--- 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!