--- a/Tools_BrowserList.st	Wed Jul 06 20:13:33 2011 +0200
+++ b/Tools_BrowserList.st	Wed Jul 06 20:13:38 2011 +0200
@@ -20,7 +20,7 @@
 		showClassPackages selectionHolder packageFilter nameSpaceFilter
 		organizerMode slaveMode listValid pseudoListLabelHolder icons
 		sortBy autoSelect showAllClassesInNameSpaceOrganisation
-		nameFilter'
+		nameFilter showCoverageInformation'
 	classVariableNames:'SynchronousUpdate Icons'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -445,6 +445,28 @@
     ].
 !
 
+showCoverageInformation
+    showCoverageInformation isNil ifTrue:[
+        showCoverageInformation := false asValue.
+        showCoverageInformation addDependent:self.
+    ].
+    ^ showCoverageInformation.
+
+    "Created: / 27-04-2010 / 16:13:16 / cg"
+!
+
+showCoverageInformation:aValueHolder
+    showCoverageInformation notNil ifTrue:[
+        showCoverageInformation removeDependent:self
+    ].
+    showCoverageInformation := aValueHolder.
+    showCoverageInformation notNil ifTrue:[
+        showCoverageInformation  addDependent:self
+    ].
+
+    "Created: / 27-04-2010 / 16:13:20 / cg"
+!
+
 slaveMode
     slaveMode isNil ifTrue:[
 	slaveMode := self defaultSlaveModeValue asValue.
@@ -1439,5 +1461,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.32 2011-07-06 09:45:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.33 2011-07-06 18:13:38 cg Exp $'
 ! !