The Trunk: System-fbs.611.mcz

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.611.mcz

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

Name: System-fbs.611
Author: fbs
Time: 30 October 2013, 10:34:30.628 pm
UUID: bf980237-cd6b-b44b-b1b7-76e3bd841cda
Ancestors: System-cmm.610

Make SoundPlayer responsible for platform-specific sound things.

=============== Diff against System-cmm.610 ===============

Item was changed:
  ----- Method: SmalltalkImage>>setPlatformPreferences (in category 'snapshot and quit') -----
  setPlatformPreferences
  "Set some platform specific preferences on system startup"
  | platform specs |
  Preferences automaticPlatformSettings ifFalse:[^self].
- SoundPlayer soundQuickStart: SoundPlayer defaultQuickStartForPlatform.
- SoundPlayer stopSoundWhenDone: SoundPlayer defaultStopSoundForPlatform.
  platform := self platformName.
  specs := #().
  platform = 'Win32' ifTrue:[
  specs := #()].
  platform = 'Mac OS' ifTrue:[
  specs := #()].
  specs do:[:tuple|
  Preferences setPreference: tuple first toValue: (tuple last == true).
  ].
  !