--- a/Tools__NewSystemBrowserCodeView.st	Wed Feb 19 21:03:53 2020 +0100
+++ b/Tools__NewSystemBrowserCodeView.st	Wed Feb 19 21:04:02 2020 +0100
@@ -386,9 +386,9 @@
 
     menu := Menu new.
     classes do: [:cls|
-        menu addItem:(MenuItem 
-                        label: ('Browse ' , cls fullName allBold)
-                        itemValue:[self browseClass: cls])].
+        menu addItemLabel: ('Browse ' , cls fullName allBold)
+             value:[self browseClass: cls]
+    ].
 
     ^ menu
 
@@ -443,18 +443,15 @@
         menu addItem:(MenuItem label:'No implementors found') disable
     ] ifFalse:[
         selectorString := selector storeString.
-        menu addItem:(MenuItem 
-                    label:(selectorString , (' (all implementors) ') allItalic)
-                    itemValue:[
-                        self browseMethods:implementors label:'Implementors of ' , selectorString
-                    ]).
+        menu addItemLabel:(selectorString , (' (all implementors) ') allItalic)
+             value:[
+                 self browseMethods:implementors label:'Implementors of ' , selectorString
+             ].
         menu addSeparator.
         implementors do:[:mth | 
             menu 
-                addItem:(MenuItem 
-                            label:(selectorString 
-                                    , (' in ' , mth containingClass name allBold))
-                            itemValue:[ self browseMethod:mth label: 'Implementor of ' , selectorString  ])
+                addItemLabel:(selectorString , (' in ' , mth containingClass name allBold))
+                value:[ self browseMethod:mth label: 'Implementor of ' , selectorString  ].
         ]
     ].
     ^ menu
@@ -476,18 +473,15 @@
         menu addItem:(MenuItem label:'No senders found') disable
     ] ifFalse:[
         selectorString := selector storeString.
-        menu addItem:(MenuItem 
-                    label:(selectorString , (' (all senders)') allItalic)
-                    itemValue:[
-                        self browseMethods:implementors label:'Senders of ' , selectorString
-                    ]).
+        menu addItemLabel:(selectorString , (' (all senders)') allItalic)
+             value:[
+                 self browseMethods:implementors label:'Senders of ' , selectorString
+             ].
         menu addSeparator.
         implementors do:[:mth | 
             menu 
-                addItem:(MenuItem 
-                            label:(mth selector storeString 
-                                   , (' in ' , mth containingClass name allBold))
-                            itemValue:[ self browseMethod:mth label: 'Sender of ' , selectorString ])
+                addItemLabel:(mth selector storeString , (' in ' , mth containingClass name allBold))
+                value:[ self browseMethod:mth label: 'Sender of ' , selectorString ]
         ]
     ].
     ^ menu