'From etoys4.0 of 9 October 2008 [latest update: #2258] on 31 August 2009 at 8:40:57 pm'!
"Change Set:		ctrlAltDefault-bf
Date:			31 August 2009
Author:			Bert Freudenberg

Enable #swapControlAndAltKeys on non-Mac platforms"!


!SmalltalkImage methodsFor: 'preferences' stamp: 'bf 8/31/2009 19:57'!
setPlatformPreferences
	"Set some platform specific preferences on system startup"
	| platform specs |
	Preferences automaticPlatformSettings ifFalse:[^self].
	platform := self platformName.
	specs := 	#(	
					(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).
	].
! !