[etoys-dev] Etoys: Sound-bf.8.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Sound to project Etoys:
http://source.squeak.org/etoys/Sound-bf.8.mcz

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

Name: Sound-bf.8
Author: bf
Time: 14 September 2010, 3:27:35 pm
UUID: 21a39873-77a2-480d-baca-eed0e27ec954
Ancestors: Sound-kfr.7

Add soundReverb preference

=============== Diff against Sound-kfr.7 ===============

Item was changed:
  ----- Method: MidiInputMorph>>disableReverb: (in category 'as yet unclassified') -----
  disableReverb: aBoolean
  
+ 	Preferences setPreference: #soundReverb toValue: aBoolean not
- 	aBoolean
- 		ifTrue: [SoundPlayer stopReverb]
- 		ifFalse: [SoundPlayer startReverb].
  !

Item was changed:
  ----- Method: ScorePlayer>>disableReverb: (in category 'operating') -----
  disableReverb: aBoolean
  
+ 	Preferences setPreference: #soundReverb toValue: aBoolean not
- 	aBoolean
- 		ifTrue: [SoundPlayer stopReverb]
- 		ifFalse: [SoundPlayer startReverb].
  !

Item was changed:
  ----- Method: SoundPlayer class>>initialize (in category 'initialization') -----
  initialize
  	"SoundPlayer initialize; shutDown; startUp"
  	"Details: BufferMSecs represents a tradeoff between latency and quality. If BufferMSecs is too low, the sound will not play smoothly, especially during long-running primitives such as large BitBlts. If BufferMSecs is too high, there will be a long time lag between when a sound buffer is submitted to be played and when that sound is actually heard. BufferMSecs is typically in the range 50-200."
  
+ 	SamplingRate := 22050.
+ 	BufferMSecs := 120.
+ 	Stereo := true.
+ 	Preferences
+ 		addPreference: #soundReverb
+ 		categories: #(media)
+ 		default: true
+ 		balloonHelp: 'If true, a little echo will be added, making it sound as if it is in a larger space.'
+ 		projectLocal: true
+ 		changeInformee: self
+ 		changeSelector: #reverbChanged.
+ 
+ 	self reverbChanged.
+ 	!
- 	SamplingRate _ 22050.
- 	BufferMSecs _ 120.
- 	Stereo _ true.
- 	UseReverb ifNil: [UseReverb _ true].
- !

Item was added:
+ ----- Method: SoundPlayer class>>reverbChanged (in category 'player process') -----
+ reverbChanged
+ 	Preferences soundReverb = self isReverbOn
+ 		ifTrue: [^self].
+ 	Preferences soundReverb
+ 		ifTrue: [self startReverb]
+ 		ifFalse: [self stopReverb]
+ !