#UI_ENHANCEMENT by exept
class: Tools::NewSystemBrowser
added:
#messagesMenuFor:withCurrentSelector:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:withCallersOfThisMethod:withMethodsCalledByThisMethod:withCallersUsingReturnedValue:selfSendsOnly:
#messagesMenuFor:withSenderChain:withImplementorChain:
comment/format in:
#messagesMenuFor:withCurrentSelector:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:withCallersOfThisMethod:withMethodsCalledByThisMethod:selfSendsOnly:
#messagesMenuFor:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:withCallersOfThisMethod:withMethodsCalledByThisMethod:selfSendsOnly:
#selectorMenuNewSlice
changed:
#implementedMessagesMenu
#messagesMenuFor:withSenderChain:withImplementorChain:selfSendsOnly:
#messagesMenuFor:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:selfSendsOnly:
#sentMessagesMenu
#sentMessagesResponseMenu
--- 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"
!