--- a/Tools__TagList.st	Sat Oct 12 15:47:01 2013 +0200
+++ b/Tools__TagList.st	Sun Oct 13 19:56:27 2013 +0200
@@ -567,6 +567,12 @@
     ^ targets
 ! !
 
+!TagList methodsFor:'accessing'!
+
+tagTypesPresent:aBoolean
+    tagTypesPresent := aBoolean.
+! !
+
 !TagList methodsFor:'accessing-filters'!
 
 classesFunctionsAndVariablesOnly
@@ -2020,7 +2026,13 @@
     filteredList := (filter isEmptyOrNil or:[rawList isNil])
                         ifTrue:[ rawList ]
                         ifFalse:[ self applyFilterToList:rawList ].
-
+    hideFunctions 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,14 +3685,14 @@
 !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.36 2013-10-13 17:56: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.36 2013-10-13 17:56:27 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.35 2013-09-01 07:37:23 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.36 2013-10-13 17:56:27 cg Exp $'
 ! !