Skip to content

[Method Browser] Refreshing block for Implementors of all #1390

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Ducasse merged 2 commits into from
Apr 23, 2026
+25 −1
Merged

[Method Browser] Refreshing block for Implementors of all #1390

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
7a13dd4
[Method Browser] Refreshing block for `Implementors of all`
AlexisCnockaert Apr 17, 2026
f75a234
Merge branch 'Pharo14' into methodbrowser/implementors-of-all
Ducasse Apr 23, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 25 additions & 1 deletion src/NewTools-MethodBrowsers/StMethodBrowser.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -52,6 +52,14 @@ StMethodBrowser class >> browse: compiledMethods asImplementorsOf: aSymbol [
open
]

{ #category : 'opening explicit' }
StMethodBrowser class >> browse: compiledMethods asImplementorsOfAll: aCollectionOfSymbols [

^ self new
methods: compiledMethods asImplementorsOfAll: aCollectionOfSymbols;
open
]

{ #category : 'opening explicit' }
StMethodBrowser class >> browse: compiledMethods asReferencesToClass: aClass [
"Specialized version for better UX feedback for class references and explicit list of methods"
Expand Down Expand Up @@ -123,7 +131,7 @@ StMethodBrowser class >> browseImplementorsOfAll: aCollectionOfSymbols [

| methods |
methods := aCollectionOfSymbols flatCollect: [ :sym | self implementorsOf: sym ].
^ self browse: methods asArray title: 'Implementors of ' , (', ' join: aCollectionOfSymbols)
^ self browse: methods asArray asImplementorsOfAll: aCollectionOfSymbols
]

{ #category : 'opening' }
Expand Down Expand Up @@ -672,6 +680,16 @@ StMethodBrowser >> methods: compiledMethods asImplementorsOf: aSymbol [
title: 'Implementors of ' , aSymbol
]

{ #category : 'api - instance side' }
StMethodBrowser >> methods: compiledMethods asImplementorsOfAll: aCollectionOfSymbols [

self
setRefreshingBlockForImplementorsOfAll: aCollectionOfSymbols;
highlight: aCollectionOfSymbols;
methods: compiledMethods;
title: 'Implementors of ' , (', ' join: aCollectionOfSymbols)
]

{ #category : 'api - instance side' }
StMethodBrowser >> methods: compiledMethods asReferenceTo: aClassName [

Expand Down Expand Up @@ -858,6 +876,12 @@ StMethodBrowser >> setRefreshingBlockForImplementorsOf: aSelector [
]

{ #category : 'api' }
StMethodBrowser >> setRefreshingBlockForImplementorsOfAll: aCollectionOfSymbols [

self refreshingBlock: [ :message | aCollectionOfSymbols anySatisfy: [ :sel | message selector = sel ] ]
]

{ #category : 'initialization' }
StMethodBrowser >> setRefreshingBlockForReferencesToSlot: aSlot [

self refreshingBlock: [ :method | method accessesSlot: aSlot ]
Expand Down
Loading