class: FileBrowser
changed: #updateCurrentDirectory
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.
--- a/FileBrowser.st Sat Aug 31 21:27:26 2013 +0200
+++ b/FileBrowser.st Sat Aug 31 21:28:57 2013 +0200
@@ -6996,7 +6996,7 @@
ST/X users love this behavior ;-)
"
- |files matchPattern list passDone ignoreCase oldSelection newSelection times types|
+ |files matchPattern list passDone oldSelection newSelection times types|
self withReadCursorDo:[
self stopUpdateProcess.
@@ -7022,10 +7022,9 @@
and:[ matchPattern notEmpty
and:[ matchPattern ~= '*']])
ifTrue:[
- ignoreCase := Filename isCaseSensitive not.
files := files select:[:aName |
((currentDirectory construct:aName) isDirectory)
- or:[matchPattern compoundMatch:aName ignoreCase:ignoreCase]
+ or:[matchPattern compoundMatch:aName caseSensitive:(Filename isCaseSensitive)]
].
].
@@ -7512,10 +7511,10 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.651 2013-08-31 17:40:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.651 2013-08-31 17:40:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
! !