[etoys-dev] Etoys: Sound-kfr.24.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Sound to project Etoys:
http://source.squeak.org/etoys/Sound-kfr.24.mcz

==================== Summary ====================

Name: Sound-kfr.24
Author: kfr
Time: 6 March 2012, 11:02:08 pm
UUID: 0230b83b-0a79-4b4e-8c98-7ce0287cc248
Ancestors: Sound-kfr.20

Fix loading/drops of aif and aiff files
http://tracker.squeakland.org/browse/SQ-1032

=============== Diff against Sound-kfr.20 ===============

Item was changed:
  ----- Method: AnonymousSoundMorph class>>fromFileName: (in category 'fileIn/Out') -----
  fromFileName: fullName
  	"Create an instance of the receiver from the given file path."
  	
  	| newPlayer aSound ext aName |
  	newPlayer _ self new initialize.
+ 	('*aif*' match: fullName) 
- 	('*aif' match: fullName) 
  		ifTrue: [aSound := SampledSound fromAIFFfileNamed: fullName].
  	('*wav' match: fullName) 
  		ifTrue: [aSound := SampledSound fromWaveFileNamed: fullName].
  	newPlayer := self new.
  
  	ext := FileDirectory extensionFor: fullName.
  	aName :=  (FileDirectory on: fullName) pathParts last.
  	ext size > 0 ifTrue:
  		[aName := aName copyFrom: 1 to: (aName size - (ext size + 1))].
  	
  	newPlayer sound: aSound interimName: aName.
  
+ 	newPlayer openInWorld; position: ActiveWorld center!
- 	newPlayer openInWorld!

Item was changed:
  ----- Method: AnonymousSoundMorph class>>registeredAudioFileSuffixes (in category 'file suffixes') -----
  registeredAudioFileSuffixes
      "Answer the file extensions for which the receiver registers audio services with FileList."
       "AnonymousSoundMorph registeredAudioFileSuffixes"
  
+      ^ { 'aif'. 'aiff'.  'wav'}!
-      ^ { 'aif'.  'wav'}!