[squeak-dev] The Inbox: EToys-ct.448.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Aug 21 17:38:22 UTC 2021
A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-ct.448.mcz
==================== Summary ====================
Name: EToys-ct.448
Author: ct
Time: 21 August 2021, 7:38:16.246123 pm
UUID: 0a378f53-725c-bd46-85df-24651cc7f47f
Ancestors: EToys-nice.447
Eliminates hidden dependency on deprecated String selector from Squeak 5.1.
=============== Diff against EToys-nice.447 ===============
Item was changed:
----- Method: SoundLibraryTool>>listing (in category 'initialization') -----
listing
| list newList format soundData selectorList formatList |
list := SampledSound soundLibrary keys sort.
selectorList := OrderedCollection new.
formatList := OrderedCollection new.
list
do: [:each |
soundData := (SampledSound soundLibrary at: each) second.
soundData isNumber
ifTrue: [format := 'uncompressed']
+ ifFalse: [(soundData includesSubstring: 'Vorbis')
- ifFalse: [(soundData includesSubString: 'Vorbis')
ifTrue: [format := 'Vorbis']
+ ifFalse: [(soundData includesSubstring: 'Speex')
- ifFalse: [(soundData includesSubString: 'Speex')
ifTrue: [format := 'Speex']
ifFalse: [(soundData includesSubstring: 'GSM')
ifTrue: [format := 'GSM']]]].
selectorList add: each.
formatList add: format].
newList := OrderedCollection new.
newList add: selectorList asArray.
showCompression
ifTrue:[newList add: formatList asArray]
ifFalse:[newList add: (Array new: (formatList size) withAll:' ')].
^newList!
More information about the Squeak-dev
mailing list
|