class: Tools::TagList
authorClaus Gittinger <cg@exept.de>
Sat, 31 Aug 2013 21:33:25 +0200
changeset 13444 3a0b8902f2c0
parent 13443 7533db07ff7a
child 13445 72f632746eb4
class: Tools::TagList changed: #applyFilterToList: unified the interface to methods with an ignoreCase/caseSensitive argument; now the recommended interface to call is the *caseSensitive:* variant, for compatibility with other smalltalks (and also, more so, to avoid the confusion when reading code) The old *ignoreCase* methods remain in the system marked as obsolete (but without an obsoleteMethodWarning, for a very long time, because lots of code out there is using that.
Tools__TagList.st
--- a/Tools__TagList.st	Sat Aug 31 21:33:04 2013 +0200
+++ b/Tools__TagList.st	Sat Aug 31 21:33:25 2013 +0200
@@ -1535,15 +1535,9 @@
 
     filter includesMatchCharacters ifTrue:[
         lcFilter := filter asLowercase.
-        ^ aList
-            select:[:tag |
-                lcFilter match:tag label ignoreCase:true 
-            ]
+        ^ aList select:[:tag | lcFilter match:tag label caseSensitive:false]
     ].
-    ^ aList
-        select:[:tag |
-            tag label includesString:filter caseSensitive:false
-        ]
+    ^ aList select:[:tag | tag label includesString:filter caseSensitive:false]
 
     "Modified: / 01-08-2012 / 16:52:02 / cg"
 !
@@ -3678,14 +3672,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.33 2013-08-22 07:59:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.34 2013-08-31 19:33:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.33 2013-08-22 07:59:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.34 2013-08-31 19:33:25 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.33 2013-08-22 07:59:49 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.34 2013-08-31 19:33:25 cg Exp $'
 ! !