Tools__NewSystemBrowser.st
changeset 19033 0880a979e4c0
parent 19029 1122a5f928b6
child 19043 a41a0205a136
--- a/Tools__NewSystemBrowser.st	Tue Aug 27 00:00:28 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Aug 27 00:21:02 2019 +0200
@@ -12198,10 +12198,10 @@
             label: 'Senders...'
             itemValue: browseSendersOf
           )
-         (MenuItem
-            label: 'Senders which Use the Returned Value...'
-            itemValue: browseSendersUsingReturnValueOf
-          )
+         "/ (MenuItem
+         "/    label: 'Senders which Use the Returned Value...'
+         "/    itemValue: browseSendersUsingReturnValueOf
+         "/  )
          (MenuItem
             label: 'Senders'
             isVisible: hasMultipleMethodsSelectedHolder
@@ -54863,7 +54863,14 @@
         contractedSelector := mSel contractTo:80.
 
         withCurrentSelector ifTrue:[
-            item := MenuItem label:(' ' , contractedSelector , ' ').   "/ ' ' is a kludge - to allow '-' selector
+            |l|
+
+            "/ ' ' is a kludge - to allow '-' and '=' selectors 
+            l := (contractedSelector startsWithAnyOf:#('-' '=')) 
+                    ifTrue:[ ' ' , contractedSelector , ' ' ]
+                    ifFalse:[ contractedSelector ].
+
+            item := MenuItem label:l allBold.   
             item itemValue:actionSelector argument:mSel.
             m addItem:item.
             needSep := true.
@@ -54881,6 +54888,12 @@
 "/                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.
+
         (withLocalSenders or:[ withSenderChain or:[ withLocalImplementors or:[ withImplementorChain]]]) ifTrue:[
             needSep ifTrue:[ m addSeparator ].
             needSep := false.
@@ -61884,7 +61897,6 @@
     ^ selectorCompletion
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass