--- a/DisplaySurface.st	Tue Mar 14 16:31:34 2017 +0100
+++ b/DisplaySurface.st	Wed Mar 15 10:42:32 2017 +0100
@@ -159,6 +159,15 @@
     ^ true
 !
 
+application
+    "to be redefined in real widgets.
+     Here nil is returned as fallback"
+
+    ^ nil
+
+    "Created: / 15-03-2017 / 10:42:10 / cg"
+!
+
 basicViewBackground:aColorOrFormOrViewBackground
     "set the viewBackground to something, a color, image or form.
      The viewBackground is the color or pattern with which exposed
@@ -1715,15 +1724,17 @@
     |menu|
 
     (menu := self middleButtonMenu) notNil ifTrue:[
-	menu isArray ifTrue:[
-	    "/ a spec array
-	    menu := menu decodeAsLiteralArray.
-	    menu receiver:self.
-	].
-	menu showAtPointer
+        menu isArray ifTrue:[
+            "/ a spec array
+            menu := menu decodeAsLiteralArray.
+            menu findGuiResourcesIn:(self application ? self).
+            menu receiver:self.
+        ].
+        menu showAtPointer
     ]
 
-    "Created: 1.3.1996 / 13:24:55 / cg"
+    "Created: / 01-03-1996 / 13:24:55 / cg"
+    "Modified: / 15-03-2017 / 10:41:26 / cg"
 !
 
 buttonMotion:state x:x y:y