[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