--- a/Tools__NewSystemBrowser.st	Thu Sep 12 18:38:21 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Sep 13 07:56:37 2019 +0200
@@ -54638,10 +54638,14 @@
     ^ [
         self
             messagesMenuFor:#'spawnBrowserOnAllImplementorsOf:'
+            withCurrentSelector:true
             withSenderChain:false
             withImplementorChain:true
             withLocalSenders:false
             withLocalImplementors:true
+            withCallersOfThisMethod: true "false"
+            withMethodsCalledByThisMethod: false "/ not yet implemented
+            withCallersUsingReturnedValue:false
             selfSendsOnly:false
       ]
 
@@ -54746,6 +54750,34 @@
     withCallersOfThisMethod:withCallersOfThisMethod withMethodsCalledByThisMethod:withMethodsCalledByThisMethod
     selfSendsOnly:selfSendsOnly
 
+    <resource: #programMenu >
+
+    ^ self
+        messagesMenuFor:actionSelector
+        withCurrentSelector:withCurrentSelector
+        withSenderChain:withSenderChain 
+        withImplementorChain:withImplementorChain
+        withLocalSenders:withLocalSenders 
+        withLocalImplementors:withLocalImplementors
+        withCallersOfThisMethod:withCallersOfThisMethod 
+        withMethodsCalledByThisMethod:withMethodsCalledByThisMethod
+        withCallersUsingReturnedValue:false
+        selfSendsOnly:selfSendsOnly
+
+    "Created: / 27-04-2010 / 15:05:52 / cg"
+    "Modified: / 06-09-2013 / 19:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2017 / 10:29:21 / cg"
+    "Modified: / 01-03-2019 / 16:24:33 / Claus Gittinger"
+!
+
+messagesMenuFor:actionSelector
+    withCurrentSelector:withCurrentSelector
+    withSenderChain:withSenderChain withImplementorChain:withImplementorChain
+    withLocalSenders:withLocalSenders withLocalImplementors:withLocalImplementors
+    withCallersOfThisMethod:withCallersOfThisMethod withMethodsCalledByThisMethod:withMethodsCalledByThisMethod
+    withCallersUsingReturnedValue:withCallersUsingReturnedValue
+    selfSendsOnly:selfSendsOnly
+
     "common helper for the dynamic senders & implementors (2nd-level) menus in the methodList"
 
     <resource: #programMenu >
@@ -54808,12 +54840,13 @@
 "/                m addItem:item.
 "/            ].
 
-        needSep ifTrue:[ m addSeparator ].
-        needSep := true.
-        item := MenuItem label:('Senders which Use the Returned Value...').   
-        item itemValue:[self browseSendersUsingReturnValueOf].
-        m addItem:item.
-
+        withCallersUsingReturnedValue ifTrue:[
+            needSep ifTrue:[ m addSeparator ].
+            needSep := true.
+            item := MenuItem label:('Senders which Use the Returned Value...').   
+            item itemValue:[self browseSendersUsingReturnValueOf].
+            m addItem:item.
+        ].
         (withLocalSenders or:[ withSenderChain or:[ withLocalImplementors or:[ withImplementorChain]]]) ifTrue:[
             needSep ifTrue:[ m addSeparator ].
             needSep := false.
@@ -55026,25 +55059,35 @@
 !
 
 messagesMenuFor:actionSelector withSenderChain:withSenderChain withImplementorChain:withImplementorChain
+    <resource: #programMenu >
     ^ self
         messagesMenuFor:actionSelector
+        withCurrentSelector:true
         withSenderChain:withSenderChain
         withImplementorChain:withImplementorChain
+        withLocalSenders:false
+        withLocalImplementors:false
+        withCallersOfThisMethod: true "false"
+        withMethodsCalledByThisMethod: false "/ not yet implemented
+        withCallersUsingReturnedValue:false
         selfSendsOnly:false
 
     "Modified: / 05-09-2006 / 10:26:26 / cg"
 !
 
 messagesMenuFor:actionSelector withSenderChain:withSenderChain withImplementorChain:withImplementorChain selfSendsOnly:selfSendsOnly
-    ^ [
-        self
-            messagesMenuFor:actionSelector
-            withSenderChain:withSenderChain
-            withImplementorChain:withImplementorChain
-            withLocalSenders:false
-            withLocalImplementors:false
-            selfSendsOnly:selfSendsOnly
-      ]
+    <resource: #programMenu >
+    ^ self
+        messagesMenuFor:actionSelector
+        withCurrentSelector:true
+        withSenderChain:withSenderChain
+        withImplementorChain:withImplementorChain
+        withLocalSenders:false
+        withLocalImplementors:false
+        withCallersOfThisMethod: true "false"
+        withMethodsCalledByThisMethod: false "/ not yet implemented
+        withCallersUsingReturnedValue:false
+        selfSendsOnly:selfSendsOnly
 
     "Modified: / 05-09-2006 / 10:33:05 / cg"
 !
@@ -55054,14 +55097,18 @@
     withLocalSenders:withLocalSenders withLocalImplementors:withLocalImplementors
     selfSendsOnly:selfSendsOnly
 
+    <resource: #programMenu >
+
     ^ self
         messagesMenuFor: actionSelector
+        withCurrentSelector:true
         withSenderChain: withSenderChain
         withImplementorChain: withImplementorChain
         withLocalSenders: withLocalSenders
         withLocalImplementors: withLocalImplementors
         withCallersOfThisMethod: true "false"
         withMethodsCalledByThisMethod: false "/ not yet implemented
+        withCallersUsingReturnedValue:false
         selfSendsOnly:selfSendsOnly
 
     "Modified: / 27-07-2012 / 18:33:52 / cg"
@@ -55078,9 +55125,13 @@
     ^ self
         messagesMenuFor:actionSelector
         withCurrentSelector:true
-        withSenderChain:withSenderChain withImplementorChain:withImplementorChain
-        withLocalSenders:withLocalSenders withLocalImplementors:withLocalImplementors
-        withCallersOfThisMethod:withCallersOfThisMethod withMethodsCalledByThisMethod:withMethodsCalledByThisMethod
+        withSenderChain:withSenderChain 
+        withImplementorChain:withImplementorChain
+        withLocalSenders:withLocalSenders 
+        withLocalImplementors:withLocalImplementors
+        withCallersOfThisMethod:withCallersOfThisMethod 
+        withMethodsCalledByThisMethod:withMethodsCalledByThisMethod
+        withCallersUsingReturnedValue:false
         selfSendsOnly:selfSendsOnly
 
     "Modified: / 25-11-2016 / 16:00:56 / cg"
@@ -55300,6 +55351,7 @@
 !
 
 selectorMenuNewSlice
+    "new method menu; provides options for different programming languages"
 
     |m selectedClasses currentLanguage allLanguages|
 
@@ -55343,10 +55395,14 @@
     ^ [
         self
             messagesMenuFor:#'spawnBrowserOnAllSendersOf:'
+            withCurrentSelector:true
             withSenderChain:true "(self window sensor ctrlDown)"
             withImplementorChain:false
             withLocalSenders:true
             withLocalImplementors:false
+            withCallersOfThisMethod: true "false"
+            withMethodsCalledByThisMethod: false "/ not yet implemented
+            withCallersUsingReturnedValue: true
             selfSendsOnly:false
       ]
 
@@ -55354,11 +55410,13 @@
 !
 
 sentMessagesResponseMenu
-    ^ self
-        messagesMenuFor:#'findResponseTo:'
-        withSenderChain:false
-        withImplementorChain:false
-        selfSendsOnly:true
+    ^ [
+        self
+            messagesMenuFor:#'findResponseTo:'
+            withSenderChain:false
+            withImplementorChain:false
+            selfSendsOnly:true
+    ]
 
     "Modified: / 05-09-2006 / 10:33:49 / cg"
 !