--- 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