--- a/Tools__TagList.st	Wed Apr 11 17:14:22 2012 +0100
+++ b/Tools__TagList.st	Fri Apr 13 14:15:47 2012 +0100
@@ -20,12 +20,12 @@
 		hideFunctionProtoTypes hideJavaClasses hideJavaMethods
 		hideJavaInterfaces hideJavaFields hideJavaPackages hideLispMacros
 		hideLispEvaluations hideLispMethods hideLispConstants
-		hideLocalLabels hideDataLabels hideTextLabels tagTypesPresent
-		hidePythonClasses hidePythonMethods hidePythonFunctions
-		hideOzClasses hideOzMethods hideOzFunctions hideHTMLTextArea
-		hideHTMLInput hideHTMLTable hideHTMLScript hideHTMLForm
-		usingDefaultCTags ctagsCommand ctagsIsExCtags ctagsIsExCtags5x
-		hideDocumentation remoteTarget'
+		hideLocalLabels hideLocalLabels2 hideDataLabels hideTextLabels
+		tagTypesPresent hidePythonClasses hidePythonMethods
+		hidePythonFunctions hideOzClasses hideOzMethods hideOzFunctions
+		hideHTMLTextArea hideHTMLInput hideHTMLTable hideHTMLScript
+		hideHTMLForm usingDefaultCTags ctagsCommand ctagsIsExCtags
+		ctagsIsExCtags5x hideDocumentation remoteTarget'
 	classVariableNames:'Sorted CachedTagListsPerFile DefaultSortCriteria DefaultShowOnly
 		TagsSuffixes DefaultGroupBy'
 	poolDictionaries:''
@@ -844,6 +844,19 @@
     ^ hideLocalLabels ? false
 !
 
+hideLocalLabels2
+    ^ hideLocalLabels2 ? false
+
+    "Created: / 24-03-2012 / 23:23:15 / cg"
+!
+
+hideLocalLabels2:aBoolean
+    hideLocalLabels2 := aBoolean.
+
+    "Modified: / 05-05-2011 / 15:22:54 / cg"
+    "Created: / 24-03-2012 / 23:23:20 / cg"
+!
+
 hideLocalLabels:aBoolean
     hideLocalLabels := aBoolean.
 
@@ -2242,7 +2255,7 @@
     "
 
     |targets line l lineNr nm s words w directive
-     hideLocals hideData hideText currentSegment|
+     hideLocals hideLocals2 hideData hideText currentSegment|
 
     Tag autoload.
 
@@ -2250,6 +2263,7 @@
     s := aFilePath asFilename readStream.
     s notNil ifTrue:[
         hideLocals := hideLocalLabels ? false.
+        hideLocals2 := hideLocalLabels2 ? false.
         hideData := hideDataLabels ? false.
         hideText := hideTextLabels ? false.
         currentSegment := #text.
@@ -2266,12 +2280,14 @@
                     (hideText and:[currentSegment == #text]) ifFalse:[
                         (hideData and:[currentSegment == #data]) ifFalse:[
                             (hideLocals and:[(w startsWith:$.)]) ifFalse:[
-                                nm := w copyWithoutLast:1.
-                                targets add:(Tag::TLabel 
-                                                label:nm 
-                                                pattern:nil
-                                                type:nil
-                                                lineNumber:lineNr).
+                                (hideLocals2 and:[(w startsWith:$_) not]) ifFalse:[
+                                    nm := w copyWithoutLast:1.
+                                    targets add:(Tag::TLabel 
+                                                    label:nm 
+                                                    pattern:nil
+                                                    type:nil
+                                                    lineNumber:lineNr).
+                                ].
                             ].
                         ].
                     ].
@@ -2300,7 +2316,7 @@
     ].
     ^ targets
 
-    "Modified: / 08-05-2011 / 10:36:23 / cg"
+    "Modified: / 24-03-2012 / 23:24:22 / cg"
 !
 
 getSimpleTagListFromFile:aFileOrString in:aTempDirectory
@@ -3275,13 +3291,13 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.9 2012/01/05 10:29:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.10 2012/03/24 22:26:07 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.9 2012/01/05 10:29:21 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.10 2012/03/24 22:26:07 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__TagList.st 7978 2012-04-13 13:15:47Z vranyj1 $'
 ! !