[etoys-dev] Etoys: System-bf.53.mcz

[commits at source.squeak.org]

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

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

Name: System-bf.53
Author: bf
Time: 8 March 2012, 9:54:44 pm
UUID: 0fe67c60-d73b-4314-9f84-1492b90b8557
Ancestors: System-kfr.52

Default to stop sound when done on Linux

=============== Diff against System-kfr.52 ===============

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].
  	platform := self platformName.
  	specs := 	#(	
+ 					(soundStopWhenDone true)
- 					(soundStopWhenDone false)
  					(soundQuickStart false)
  					(swapControlAndAltKeys true)
  			).
  	platform = 'Win32' ifTrue:[
  		specs := #(	
  					(soundStopWhenDone true)
  					(soundQuickStart false)
  					(swapControlAndAltKeys true)
  				)].
  	platform = 'Mac OS' ifTrue:[
  		specs := #(	
  					(soundStopWhenDone false)
  					(soundQuickStart true)
  					(swapControlAndAltKeys false)
  				)].
  	specs do:[:tuple|
  		Preferences setPreference: tuple first toValue: (tuple last == true).
  	].
  !