The Trunk: Sound-mt.55.mcz

Marcel Taeumel uploaded a new version of Sound to project The Trunk:
http://source.squeak.org/trunk/Sound-mt.55.mcz

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

Name: Sound-mt.55
Author: mt
Time: 6 April 2016, 7:16:16.273155 pm
UUID: c5be3a4c-30f2-dd48-8f1e-087d240d455a
Ancestors: Sound-mt.54

Adds support for dropping a MIDI file into the image and play it directly. (Instead of only offering to open a ScorePlayerMorph for that.)

=============== Diff against Sound-mt.54 ===============

Item was added:
+ ----- Method: ScorePlayer class>>fileReaderServicesForFile:suffix: (in category 'file reader services') -----
+ fileReaderServicesForFile: fullName suffix: suffix
+
+ ^ (suffix = 'mid') | (suffix = '*')
+ ifTrue: [self services]
+ ifFalse: [#()]
+ !

Item was changed:
+ ----- Method: ScorePlayer class>>initialize (in category 'class initialization') -----
- ----- Method: ScorePlayer class>>initialize (in category 'as yet unclassified') -----
  initialize
 
+ Smalltalk addToShutDownList: self.
+ FileServices registerFileReader: self.!
- Smalltalk addToShutDownList: self.!

Item was added:
+ ----- Method: ScorePlayer class>>playFileNamed: (in category 'instance creation') -----
+ playFileNamed: fileName
+
+ ^ (MIDISound fromFileNamed: fileName)
+ play; yourself!

Item was added:
+ ----- Method: ScorePlayer class>>servicePlayMidiFile (in category 'file reader services') -----
+ servicePlayMidiFile
+ "Answer a service for opening player on a midi file"
+
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'play MIDI file'
+ selector: #playFileNamed:
+ description: 'play the MIDI file directly'
+ buttonLabel: 'play'!

Item was added:
+ ----- Method: ScorePlayer class>>services (in category 'file reader services') -----
+ services
+
+ ^ Array with: self servicePlayMidiFile!

Item was added:
+ ----- Method: ScorePlayer class>>unload (in category 'initialize-release') -----
+ unload
+
+ FileServices unregisterFileReader: self !