--- a/Tools__TagList.st	Fri Jul 04 12:24:49 2014 +0200
+++ b/Tools__TagList.st	Fri Jul 04 12:24:52 2014 +0200
@@ -582,6 +582,19 @@
 
 !TagList methodsFor:'accessing-filters'!
 
+anchorsOnly
+    ^ showOnly == #anchors
+!
+
+anchorsOnly:aBoolean
+    showOnly := DefaultShowOnly := nil.
+    aBoolean ifTrue:[
+        showOnly := "DefaultShowOnly :=" #anchors
+    ].
+
+    "Created: / 08-05-2011 / 10:11:39 / cg"
+!
+
 classesFunctionsAndVariablesOnly
     ^ showOnly == #classesFunctionsAndVariables
 
@@ -736,6 +749,17 @@
     "Modified: / 05-05-2011 / 15:22:03 / cg"
 !
 
+headlinesOnly
+    ^ showOnly == #headlines
+!
+
+headlinesOnly:aBoolean
+    showOnly := DefaultShowOnly := nil.
+    aBoolean ifTrue:[
+        showOnly := "DefaultShowOnly :=" #headlines
+    ].
+!
+
 hideClasses
     ^ self flagNamed:#hideClasses
 !
@@ -2628,7 +2652,7 @@
             words size >= 1 ifTrue:[
                 w := words first.
                 (w endsWith:$:) ifTrue:[
-                    nm := w copyButLast:1.
+                    nm := w copyButLast.
 
                     lineNr := s lineNumber - 1.
                     targets add:(Tag::TLabel
@@ -2733,7 +2757,7 @@
                                         and:[ (w size > 1) 
                                         and:[ ((w copyFrom:2 to:(w size-1)) conform:[:c | c isDigit])
                                      ]]]) ifFalse:[
-                                        nm := w copyButLast:1.
+                                        nm := w copyButLast.
                                         targets add:(Tag::TLabel 
                                                         label:nm 
                                                         pattern:nil
@@ -2993,19 +3017,19 @@
             l := line asLowercase.
 
             #(
-                'textarea'      hideHTMLTextArea
-                'input'         hideHTMLInput
-                'table'         hideHTMLTable
-                'script'        hideHTMLScript  
-                'form'          hideHTMLForm  
-                'a'             nil  
-                'h1'            hideHTMLHeaders  
-                'h2'            hideHTMLHeaders  
-                'h3'            hideHTMLHeaders  
-                'h4'            hideHTMLHeaders  
-                'h5'            hideHTMLHeaders  
-                'h6'            hideHTMLHeaders  
-            ) pairWiseDo:[:nm :hideInstVarName|
+                'textarea'      hideHTMLTextArea    nil
+                'input'         hideHTMLInput       nil
+                'table'         hideHTMLTable       nil
+                'script'        hideHTMLScript      nil
+                'form'          hideHTMLForm        nil
+                'a'             nil                 anchors
+                'h1'            hideHTMLHeaders     headlines
+                'h2'            hideHTMLHeaders     headlines
+                'h3'            hideHTMLHeaders     headlines
+                'h4'            hideHTMLHeaders     headlines
+                'h5'            hideHTMLHeaders     headlines
+                'h6'            hideHTMLHeaders     headlines
+            ) inGroupsOf:3 do:[:nm :hideInstVarName :thisType|
                 |type hideHolder idx tagText doc markup label text markupName markupType
                  isHeader|
 
@@ -3064,13 +3088,15 @@
                         ].
                     ].
 
-                    hideHolder value ~~ true ifTrue:[
-                        tag := type 
-                                    label:label 
-                                    pattern:nil
-                                    type:nil
-                                    lineNumber:lineNr.
-                        targets add:tag.
+                    (showOnly isNil or:[thisType isNil or:[showOnly == thisType]]) ifTrue:[
+                        hideHolder value ~~ true ifTrue:[
+                            tag := type 
+                                        label:label 
+                                        pattern:nil
+                                        type:nil
+                                        lineNumber:lineNr.
+                            targets add:tag.
+                        ]
                     ]
                 ].
             ].
@@ -3197,7 +3223,7 @@
         ].
     ].
     (nm endsWith:')') ifTrue:[
-        nm := nm copyButLast:1
+        nm := nm copyButLast
     ].
 
     def = 'defun' ifTrue:[
@@ -3857,7 +3883,7 @@
     ] ifFalse:[ (l startsWith:'tixWidgetClass ') ifTrue:[
         nm := l copyFrom:'tixWidgetClass ' size + 1.
         (nm endsWith:'{') ifTrue:[
-            nm := (nm copyButLast:1) withoutSeparators.
+            nm := (nm copyButLast) withoutSeparators.
         ].
         ^(Tag::TClass 
                         label:nm 
@@ -3940,14 +3966,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.60 2014-07-02 12:54:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.61 2014-07-04 10:24:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.60 2014-07-02 12:54:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.61 2014-07-04 10:24:52 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.60 2014-07-02 12:54:15 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.61 2014-07-04 10:24:52 cg Exp $'
 ! !