"Change Set:		IsFileValidMpegFix
Date:			8 September 2001
Author:			Robert Hirschfeld

Works around MPEGFile>>primFileValidMPEG: failing to validate 
MPEG files if their extensions are uppercase. As an example 
(running on Windows 2000), the validation of 
'THE HITCHHIKER'S GUIDE TO THE GALAXY (PART 03).MP3' fails, but 
succeeds for 'THE HITCHHIKER'S GUIDE TO THE GALAXY (PART 03).mp3'. 
(Maybe the fix belongs to the MPEG plugin, though.)"
-------------- next part --------------
A non-text attachment was scrubbed...
Name: IsFileValidMpegFix.08Sep0334.cs.gz
Type: application/x-gzip
Size: 493 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20010907/a52ebd62/IsFileValidMpegFix.08Sep0334.cs.bin
-------------- next part --------------
'From Squeak3.1alpha of 7 March 2001 [latest update: #4325] on 8 September 2001 at 3:34:10 am'!
"Change Set:		IsFileValidMpegFix
Date:			8 September 2001
Author:			Robert Hirschfeld

Works around MPEGFile>>primFileValidMPEG: failing to validate MPEG files if their extensions are uppercase. As an example (running on Windows 2000), the validation of 'THE HITCHHIKER'S GUIDE TO THE GALAXY (PART 03).MP3' fails, but succeeds for 'THE HITCHHIKER'S GUIDE TO THE GALAXY (PART 03).mp3'. (Maybe the fix belongs to the MPEG plugin, though.)"!


!MPEGFile class methodsFor: 'testing' stamp: 'rhi 9/8/2001 01:42'!
isFileValidMPEG: path

	^ (self primFileValidMPEG: path)
		or: [self primFileValidMPEG: (FileDirectory
			fileName: (FileDirectory baseNameFor: path)
			extension: (FileDirectory extensionFor: path) asLowercase)]! !