--- a/Tools__CodeView2.st	Thu Aug 29 12:29:56 2013 +0200
+++ b/Tools__CodeView2.st	Thu Aug 29 16:23:22 2013 +0200
@@ -1199,17 +1199,17 @@
 
 buttonPress: button x:x y:y in: view
     "Delegates events to services. Answers true iff at least
-     one service handler method returns true. In that case,
-     the event is is NOT processes by the view."
+     one service handler method returns true. 
+     In that case, the event is is NOT processes by the view."
 
     ^ services 
         contains:[:service |
-            service isEnabled and:[ ((service buttonPress: button x:x y:y in: view) == true) ]
+            (service isEnabled 
+            and:[ ((service buttonPress: button x:x y:y in: view) == true) ])
         ].
 
     "Modified: / 07-03-2010 / 13:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 06-10-2011 / 14:14:00 / cg"
-    "Modified (format): / 05-03-2012 / 08:56:02 / cg"
+    "Modified (comment): / 29-08-2013 / 16:23:08 / cg"
 !
 
 buttonRelease: button x:x y:y in: view
@@ -1629,26 +1629,27 @@
         menu addItem:(MenuItem label:'No implementors found') disable
     ] ifFalse:[
         menu addItem:(MenuItem 
-                    label:(selector storeString , (' (all implementors) ') asText allItalic)
+                    label:(selector "storeString" , (' (all implementors) ') asText allItalic)
                     itemValue:[
                         self browseMethods:implementors
-                            label:'Implementors of ' , selector storeString
+                            label:'Implementors of ' , selector "storeString"
                     ]).
 
         menu addSeparator.
-        (implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name])
+        "/ (implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name])
+        (implementors asOrderedCollection sort:[:a :b | a selector < b selector])
         "implementors" do:[:mth | 
             menu 
-                addItem:(MenuItem label:(selector storeString 
-                                , (' in ' , mth containingClass name asText allBold))
-                        value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString  ])
+                addItem:(MenuItem label:(selector "storeString" allBold
+                                , (' in ' , mth containingClass name "asText allBold"))
+                        value:[ self browseMethod:mth label: 'Implementor of ' , selector "storeString"  ])
         ]
     ].
     ^ menu
 
     "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Created: / 14-02-2010 / 19:39:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-03-2012 / 12:56:56 / cg"
+    "Modified: / 28-08-2013 / 22:03:06 / cg"
 !
 
 sendersMenu
@@ -1694,21 +1695,23 @@
         menu addItem:(MenuItem label:'No senders found') disable
     ] ifFalse:[
         menu addItem:(MenuItem 
-                    label:(selector storeString , (' (all senders)') asText allItalic)
+                    label:(selector "storeString" , (' (all senders)') asText allItalic)
                     itemValue:[
                         self browseMethods:senders
-                            label:'Senders of ' , selector storeString
+                            label:'Senders of ' , selector "storeString"
                     ]).
         menu addSeparator.
+        "/ sendersSorted := senders asOrderedCollection 
+        "/                    sort:[:a :b | a whoString < b whoString].
         sendersSorted := senders asOrderedCollection 
-                            sort:[:a :b | a whoString < b whoString].
+                            sort:[:a :b | a selector < b selector].
         shownSenderItems := (senders size > 20) ifTrue:[sendersSorted copyTo:20] ifFalse:[sendersSorted].
         numCut := senders size - 20.
         shownSenderItems do:[:mth | 
             menu 
-                addItem:(MenuItem label:(mth selector storeString 
-                                , (' in ' , mth containingClass name asText allBold))
-                        value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
+                addItem:(MenuItem label:(mth selector "storeString" allBold
+                                , (' in ' , mth containingClass name "asText allBold"))
+                        value:[ self browseMethod:mth label: 'Sender of ' , selector "storeString" ])
         ].
         numCut > 0 ifTrue:[
             menu addSeparator.
@@ -1720,7 +1723,7 @@
     "Modified: / 19-10-2008 / 08:17:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Created: / 14-02-2010 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-07-2011 / 14:51:54 / jv"
-    "Modified: / 07-03-2012 / 12:58:31 / cg"
+    "Modified: / 28-08-2013 / 22:03:57 / cg"
 !
 
 servicesMenu
@@ -2715,10 +2718,15 @@
 !CodeView2::TextView methodsFor:'delegation-events'!
 
 isQuickMenuModifierPressed
+    |sensor|
+
+    sensor := self sensor.
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl ifTrue:[
-        ^ self sensor ctrlDown
+        ^ sensor ctrlDown
     ].
-    ^ self sensor metaDown
+    ^ sensor metaDown
+
+    "Modified: / 29-08-2013 / 16:22:30 / cg"
 !
 
 isQuickMenuModifierReleased
@@ -3651,15 +3659,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.112 2013-08-26 08:41:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.113 2013-08-29 14:23:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.112 2013-08-26 08:41:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.113 2013-08-29 14:23:22 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.112 2013-08-26 08:41:40 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.113 2013-08-29 14:23:22 cg Exp $'
 ! !