--- a/Tools__CodeView2.st	Tue Aug 23 05:42:25 2022 +0100
+++ b/Tools__CodeView2.st	Tue Aug 23 05:50:10 2022 +0100
@@ -1,7 +1,7 @@
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
  COPYRIGHT (c) 2015-2018 Jan Vrany
- COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021-2022 LabWare
               All Rights Reserved
 
 Permission is hereby granted, free of charge, to any person
@@ -74,7 +74,7 @@
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
  COPYRIGHT (c) 2015-2018 Jan Vrany
- COPYRIGHT (c) 2021 LabWare
+ COPYRIGHT (c) 2021-2022 LabWare
               All Rights Reserved
 
 Permission is hereby granted, free of charge, to any person
@@ -2017,39 +2017,38 @@
 !
 
 sendersMenu
-
-    | selectorAndSelectedText selector selectedText  senders |
+    | selectorAndSelectedText selector selectedText senders |
 
     selectorAndSelectedText := self extractSelectorAndSelectedText.
-    selectorAndSelectedText notNil ifTrue:[    
+    selectorAndSelectedText notNil ifTrue:[
         "/ self windowGroup withWaitCursorDo:[
-            selectorAndSelectedText := self extractSelectorAndSelectedTextFrom:  selectedText.
+
             selector := selectorAndSelectedText first.
             selectedText := selectorAndSelectedText second.
 
             (selector notNil and:[selector = selectedText]) ifTrue:[
                 senders := (SystemBrowser 
-                                findSendersOf:selectedText "Any:(Array with:selectedText)" 
-                                in:(Smalltalk allClasses) 
-                                ignoreCase:false)
+                                    findSendersOf:selectedText "Any: (Array with:selectedText)" 
+                                    in:(Smalltalk allClasses) 
+                                    ignoreCase:false)
 
             ] ifFalse:[
                 senders := (SystemBrowser 
-                                findSendersOfAny:(Array with:selectedText with: selector) 
-                                in:(Smalltalk allClasses) 
-                                ignoreCase:false)
+                                    findSendersOfAny:(Array with:selectedText with: selector) 
+                                    in:(Smalltalk allClasses) 
+                                    ignoreCase:false)
             ].
         "/ ] 
     ] ifFalse:[
         senders := #().
-    ].
-
+    ].                     
     ^self sendersMenu: senders selector: (selector ? selectedText)
 
     "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-03-2012 / 09:02:56 / cg"
     "Modified: / 13-11-2017 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-08-2022 / 05:15:34 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 sendersMenu: senders  selector: selector