'From Squeak3.6beta of ''4 July 2003'' [latest update: #5373] on 3 August 2003 at 4:21:05 pm'! "Change Set: AcornFDbadcharfix Date: 3 August 2003 Author: tim@sumeru.stanford.edu Yet another fix for Acorn file name processing. This time make % be a bad char. "! !AcornFileDirectory methodsFor: 'file name utilities' stamp: 'tpr 8/2/2003 19:34'! checkName: aFileName fixErrors: fixing "Check if the file name contains any invalid characters" | fName badChars hasBadChars | fName _ super checkName: aFileName fixErrors: fixing. badChars _ #( $# $: $< $> $| $? $* $" $%) asSet. hasBadChars _ fName includesAnyOf: badChars. (hasBadChars and:[fixing not]) ifTrue:[^self error:'Invalid file name']. hasBadChars ifFalse:[^ fName]. ^ fName collect: [:char | (badChars includes: char) ifTrue:[$!!] ifFalse:[char]]! ! !AcornFileDirectory class methodsFor: 'platform specific' stamp: 'tpr 8/1/2003 16:38'! isCaseSensitive "Risc OS ignores the case of file names" ^ false! !