Etoys: Sound-kfr.24.mcz

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'}!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev