diff -r 18cbae55c53b -r 7d3f4a82cab0 Tools_BrowserList.st --- 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 $' ! !