--- a/Tools__CodeView2.st Wed Feb 19 21:04:20 2020 +0100
+++ b/Tools__CodeView2.st Wed Feb 19 21:04:31 2020 +0100
@@ -2123,20 +2123,17 @@
implementors isEmptyOrNil ifTrue:[
menu addItem:(MenuItem label:'No implementors found') disable
] ifFalse:[
- menu addItem:(MenuItem
- label:(selector storeString , (' (all implementors) ') allItalic)
- itemValue:[
- self browseMethods:implementors
- label:'Implementors of ' , selector storeString
- ]).
+ menu addItemLabel:(selector storeString , (' (all implementors) ') allItalic)
+ value:[
+ self browseMethods:implementors
+ label:'Implementors of ' , selector storeString
+ ].
menu addSeparator.
- (implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name])
- "implementors" do:[:mth |
+ (implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name]) do:[:mth |
menu
- addItem:(MenuItem label:(selector storeString
- , (' in ' , mth containingClass nameInBrowser allBold))
- itemValue:[ self browseMethod:mth label: 'Implementor of ' , selector storeString ])
+ addItemLabel:(selector storeString , (' in ' , mth containingClass nameInBrowser allBold))
+ value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString ]
]
].
^ menu
@@ -2190,12 +2187,11 @@
senders isEmptyOrNil ifTrue:[
menu addItem:(MenuItem label:'No senders found') disable
] ifFalse:[
- menu addItem:(MenuItem
- label:(selector storeString , (' (all senders)') allItalic)
- itemValue:[
+ menu addItemLabel:(selector storeString , (' (all senders)') allItalic)
+ value:[
self browseMethods:senders
label:'Senders of ' , selector storeString
- ]).
+ ].
menu addSeparator.
sendersSorted := senders asOrderedCollection
sort:[:a :b | a whoString < b whoString].
@@ -2203,9 +2199,8 @@
numCut := senders size - 20.
shownSenderItems do:[:mth |
menu
- addItem:(MenuItem label:(mth selector storeString
- , (' in ' , mth containingClass nameInBrowser allBold))
- itemValue:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
+ addItemLabel:(mth selector storeString , (' in ' , mth containingClass nameInBrowser allBold))
+ value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ]
].
numCut > 0 ifTrue:[
menu addSeparator.