# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1582142671 -3600
# Node ID fbb9a49e80e00f0dc9f7cd3288dd85482364b4ce
# Parent  e9651404c92fd11ddb90a960789d93ff40117805
#REFACTORING by cg
class: CodeView2
changed:
	#implementorsMenu:selector:
	#sendersMenu:selector:

diff -r e9651404c92f -r fbb9a49e80e0 Tools__CodeView2.st
--- 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.