--- a/Tools_ClassList.st Sat Aug 31 21:28:57 2013 +0200
+++ b/Tools_ClassList.st Sat Aug 31 21:32:46 2013 +0200
@@ -1219,7 +1219,7 @@
classesAlready add:cls.
(nameFilter isNil
or:[ (nameFilterIncludesMatchCharacters not and:[ cls name asLowercase startsWith:lcNameFilter])
- or:[ (nameFilterIncludesMatchCharacters and:[nameFilter match:cls name ignoreCase:true]) ]]) ifTrue:[
+ or:[ (nameFilterIncludesMatchCharacters and:[nameFilter match:cls name caseSensitive:false]) ]]) ifTrue:[
(owner := cls owningClass) notNil ifTrue:[
bucket := privateClassesPerClass
at:owner
@@ -2028,10 +2028,10 @@
!ClassList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.75 2013-08-31 19:32:46 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.75 2013-08-31 19:32:46 cg Exp $'
! !