--- a/Tools__TagList.st	Sat Oct 26 18:01:03 2013 +0100
+++ b/Tools__TagList.st	Mon Nov 04 11:12:04 2013 -0300
@@ -567,6 +567,12 @@
     ^ targets
 ! !
 
+!TagList methodsFor:'accessing'!
+
+tagTypesPresent:aBoolean
+    tagTypesPresent := aBoolean.
+! !
+
 !TagList methodsFor:'accessing-filters'!
 
 classesFunctionsAndVariablesOnly
@@ -2020,7 +2026,15 @@
     filteredList := (filter isEmptyOrNil or:[rawList isNil])
                         ifTrue:[ rawList ]
                         ifFalse:[ self applyFilterToList:rawList ].
-
+    filteredList notNil ifTrue:[
+        hideFunctions == true ifTrue:[
+            filteredList := filteredList reject:[:tag | tag isFunctionTag].
+        ] ifFalse:[
+            showOnly == #functions ifTrue:[
+                filteredList := filteredList select:[:tag | tag isFunctionTag].
+            ].
+        ].
+    ].
     self updateContentsFromFilteredList
 
     "Modified: / 05-05-2011 / 15:13:14 / cg"
@@ -3673,11 +3687,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.35 2013-09-01 07:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.35 2013-09-01 07:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 !
 
 version_HG
@@ -3686,6 +3700,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.35 2013-09-01 07:37:23 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 ! !