--- a/Tools__TagList.st	Fri May 11 09:32:00 2012 +0200
+++ b/Tools__TagList.st	Sun May 13 11:28:08 2012 +0200
@@ -25,7 +25,7 @@
 		hidePythonFunctions hideOzClasses hideOzMethods hideOzFunctions
 		hideHTMLTextArea hideHTMLInput hideHTMLTable hideHTMLScript
 		hideHTMLForm usingDefaultCTags ctagsCommand ctagsIsExCtags
-		ctagsIsExCtags5x hideDocumentation remoteTarget'
+		ctagsIsExCtags5x hideDocumentation remoteTarget hideLocalLabels3'
 	classVariableNames:'Sorted CachedTagListsPerFile DefaultSortCriteria DefaultShowOnly
 		TagsSuffixes DefaultGroupBy'
 	poolDictionaries:''
@@ -857,6 +857,19 @@
     "Created: / 24-03-2012 / 23:23:20 / cg"
 !
 
+hideLocalLabels3
+    ^ hideLocalLabels3 ? false
+
+    "Created: / 13-05-2012 / 11:12:37 / cg"
+!
+
+hideLocalLabels3:aBoolean
+    hideLocalLabels3 := aBoolean.
+
+    "Modified: / 05-05-2011 / 15:22:54 / cg"
+    "Created: / 13-05-2012 / 11:12:42 / cg"
+!
+
 hideLocalLabels:aBoolean
     hideLocalLabels := aBoolean.
 
@@ -2255,7 +2268,7 @@
     "
 
     |targets line l lineNr nm s words w directive
-     hideLocals hideLocals2 hideData hideText currentSegment|
+     hideLocals hideLocals2 hideLocals3 hideData hideText currentSegment|
 
     Tag autoload.
 
@@ -2264,6 +2277,7 @@
     s notNil ifTrue:[
         hideLocals := hideLocalLabels ? false.
         hideLocals2 := hideLocalLabels2 ? false.
+        hideLocals3 := hideLocalLabels3 ? false.
         hideData := hideDataLabels ? false.
         hideText := hideTextLabels ? false.
         currentSegment := #text.
@@ -2281,12 +2295,18 @@
                         (hideData and:[currentSegment == #data]) ifFalse:[
                             (hideLocals and:[(w startsWith:$.)]) ifFalse:[
                                 (hideLocals2 and:[(w startsWith:$_) not]) ifFalse:[
-                                    nm := w copyWithoutLast:1.
-                                    targets add:(Tag::TLabel 
-                                                    label:nm 
-                                                    pattern:nil
-                                                    type:nil
-                                                    lineNumber:lineNr).
+                                    (hideLocals3 
+                                        and:[ (w startsWith:$L) 
+                                        and:[ (w size > 1) 
+                                        and:[ ((w copyFrom:2 to:(w size-1)) conform:[:c | c isDigit])
+                                     ]]]) ifFalse:[
+                                        nm := w copyWithoutLast:1.
+                                        targets add:(Tag::TLabel 
+                                                        label:nm 
+                                                        pattern:nil
+                                                        type:nil
+                                                        lineNumber:lineNr).
+                                    ].
                                 ].
                             ].
                         ].
@@ -2316,7 +2336,7 @@
     ].
     ^ targets
 
-    "Modified: / 24-03-2012 / 23:24:22 / cg"
+    "Modified: / 13-05-2012 / 11:25:49 / cg"
 !
 
 getSimpleTagListFromFile:aFileOrString in:aTempDirectory
@@ -3291,11 +3311,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.11 2012-05-07 12:11:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.12 2012-05-13 09:28:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.11 2012-05-07 12:11:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.12 2012-05-13 09:28:08 cg Exp $'
 !
 
 version_SVN