<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<font face="Georgia">FWIW, here's what it used to do<br>
<br>
setPlatformPreferences<br>
"Set some platform specific preferences on system startup"<br>
| platform specs |<br>
Preferences automaticPlatformSettings ifFalse:[^self].<br>
platform _ self platformName.<br>
specs _ #( <br>
(soundStopWhenDone false)<br>
(soundQuickStart false)<br>
).<br>
platform = 'Win32' ifTrue:[<br>
specs _ #( <br>
(soundStopWhenDone true)<br>
(soundQuickStart false)<br>
)].<br>
platform = 'Mac OS' ifTrue:[<br>
specs _ #( <br>
(soundStopWhenDone false)<br>
(soundQuickStart true)<br>
)].<br>
specs do:[:tuple|<br>
Preferences setPreference: tuple first toValue: (tuple
last == #true).<br>
].<br>
<br>
<br>
Cheers,<br>
Bob<br>
<br>
</font>
<div class="moz-cite-prefix">On 9/29/13 7:15 AM, Frank Shearar
wrote:<br>
</div>
<blockquote
cite="mid:CAJbhyRF3RWR68VOJmHLErOhJA_=_3-s_riZj1P1npxpSfx+VQQ@mail.gmail.com"
type="cite">
<pre wrap="">Am I missing anything, or can most of this be driven into #startUp methods?:
SmalltalkImage >> 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).
].
In particular, it looks like SoundPlayer >> #startUp would be a good
place to put
Preferences automaticPlatformSettings ifTrue: [
SoundPlayer soundQuickStart: SoundPlayer defaultQuickStartForPlatform.
SoundPlayer stopSoundWhenDone: SoundPlayer defaultStopSoundForPlatform].
The rest of #setPlatformPreferences is a giant no-op, but it's a giant
no-op that shows the structure one would need to follow if we needed
per-platform specs, at least. (Although my strong preference would
still be to drive this kind've stuff into packages' #startUp methods.)
frank
</pre>
</blockquote>
<br>
</body>
</html>