--- a/Tools__TagsBrowser.st	Thu Oct 06 11:47:34 2011 +0200
+++ b/Tools__TagsBrowser.st	Thu Oct 06 12:10:30 2011 +0200
@@ -315,6 +315,20 @@
       )
 !
 
+flyByHelpSpec
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#sortByName
+'Sort by name (ignoring case and leading underscores)'
+
+#sortByLineNumber
+'Sort by line number'
+
+    )
+
+    "Created: / 06-10-2011 / 12:04:51 / cg"
+!
+
 javaMenuSlice
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -939,6 +953,7 @@
             isButton: true
             indication: sortIsByName
             labelImage: (ResourceRetriever ToolbarIconLibrary sortByName16x16Icon)
+            activeHelpKey: sortByName
           )
          (MenuItem
             label: 'SortByLineNumber'
@@ -947,11 +962,14 @@
             isButton: true
             indication: sortIsByLineNumber
             labelImage: (ResourceRetriever ToolbarIconLibrary sortByLineNumber16x16Icon)
+            activeHelpKey: sortByLineNumber
           )
          )
         nil
         nil
       )
+
+    "Modified: / 06-10-2011 / 12:04:11 / cg"
 ! !
 
 !TagsBrowser methodsFor:'accessing'!
@@ -1858,7 +1876,7 @@
 !
 
 sortByName
-    tagList sortedByName:true.
+    tagList sortedByNameIgnoringLeadingUnderscoresAndCase: "sortedByName:" true.
     self sortIsByLineNumber value:false.
     self sortIsByName value:true.
 
@@ -1967,6 +1985,8 @@
     self paint:fgColor on:bgColor.
 
     label := item printString.
+    label := label asText , ((' [ %1 ]' bindWith:item lineNumber) colorizeAllWith:Color darkGrey).
+
     y0    := y - ((font height)  + 1 - h // 2) + font ascent.
     type  := item typeIdentifierInList.
 
@@ -1978,6 +1998,8 @@
         self paint:hilightFgColor on:hilightBgColor
     ].
     label displayOn:self x:(x + TypeInset) y:y0
+
+    "Modified: / 06-10-2011 / 12:09:30 / cg"
 !
 
 drawSelectionFrameAt:lnNr x:x w:w
@@ -2151,7 +2173,7 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.10 2011-08-03 09:21:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.11 2011-10-06 10:10:30 cg Exp $'
 !
 
 version_SVN