Levente Uzonyi uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ul.470.mcz

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

Name: EToys-ul.470
Author: ul
Time: 31 March 2022, 5:02:53.124672 pm
UUID: d3d57031-36b6-418b-8621-6e5802429be6
Ancestors: EToys-ct.469

- use Symbol class >> #lookup: instead of #hasInterned:ifTrue:
- use #includesSubstring: instead of the deprecated #includesSubString:

=============== Diff against EToys-ct.469 ===============

Item was changed:
  ----- Method: Player>>changeScript:toStatus: (in category 'scripts-standard') -----
  changeScript: scriptName toStatus: statusSymbol
  	"Change the script of the given name to have the given status, and get all relevant script-status controls updated"
  
  	scriptName ifNil: [^ self].
+ 	(Symbol lookup: scriptName) ifNotNil:
- 	Symbol hasInterned: scriptName ifTrue:
  		[:sym | self instantiatedUserScriptsDo:
  			[:aScriptInstantiation | aScriptInstantiation selector == sym
  				ifTrue:
  					[aScriptInstantiation status: statusSymbol.
  					aScriptInstantiation updateAllStatusMorphs]]]!

Item was changed:
  ----- Method: Player>>doScript: (in category 'scripts-standard') -----
  doScript: scriptNameString
  	"On the next tick of the clock, run the given script once"
  
+ 	(Symbol lookup: scriptNameString) ifNotNil:
- 	Symbol hasInterned: scriptNameString ifTrue:
  		[:sym | (self class includesSelector: sym) ifTrue:
  			[costume addAlarm: #triggerScript: with: sym after: 1]]!

Item was changed:
  ----- Method: Player>>existingScriptInstantiationForSelector: (in category 'customevents-scripts-kernel') -----
  existingScriptInstantiationForSelector: scriptName
  	"Answer the existing script instantiation for the given selector, or nil if none"
  
  	scriptName ifNil: [^ nil].
+ 	^(Symbol lookup: scriptName) ifNotNil: [ :sym |
+ 		self costume actorStateOrNil ifNotNil: [ :actorState |
+ 			actorState instantiatedUserScriptsDictionary at: sym ifAbsent: [nil]]]!
- 	Symbol hasInterned: scriptName
- 		ifTrue: [ :sym |
- 			self costume actorStateOrNil ifNotNil: [ :actorState |
- 				^actorState instantiatedUserScriptsDictionary at: sym ifAbsent: [nil]]].
- 	^ nil!

Item was changed:
  ----- Method: Player>>performScriptIfCan: (in category 'scripts-standard') -----
  performScriptIfCan: scriptNameString 
  	"If I understand the given script name, perform it now"
+ 	
+ 	(Symbol lookup: scriptNameString)
+ 		ifNotNil: [:sym | (self class includesSelector: sym)
- 	^Symbol
- 		hasInterned: scriptNameString
- 		ifTrue: [:sym | (self class includesSelector: sym)
  				ifTrue: [self triggerScript: sym]]!

Item was changed:
  ----- Method: Player>>tellAllSiblings: (in category 'scripts-standard') -----
  tellAllSiblings: aMessageSelector
  	"Send the given message selector to all my sibling instances, but not to myself"
  
+ 	(Symbol lookup: aMessageSelector)
+ 		ifNotNil: [ :sel |
+ 			self belongsToUniClass
+ 				ifTrue: [self class allSubInstancesDo: 
+ 					[:anInstance | 
+ 					anInstance isInTrash ifFalse: [
+ 						anInstance ~~ self ifTrue: [ anInstance triggerScript: sel ]]]]
+ 				ifFalse: [(sel ~~ #emptyScript) ifTrue:
+ 						[ScriptingSystem reportToUser: ('Cannot "tell " ' translated, aMessageSelector, ' to ' translated, self externalName) ]]]!
- 	Symbol hasInterned: aMessageSelector
- 		ifTrue: [ :sel |
- 	self belongsToUniClass
- 		ifTrue: [self class allSubInstancesDo: 
- 			[:anInstance | 
- 			anInstance isInTrash ifFalse: [
- 				anInstance ~~ self ifTrue: [ anInstance triggerScript: sel ]]]]
- 		ifFalse: [(sel ~~ #emptyScript) ifTrue:
- 				[ScriptingSystem reportToUser: ('Cannot "tell " ' translated, aMessageSelector, ' to ' translated, self externalName) ]]]!

Item was changed:
  ----- Method: Player>>tellSelfAndAllSiblings: (in category 'scripts-standard') -----
  tellSelfAndAllSiblings: aMessageSelector
  	"Send the given message selector to all my sibling instances, including myself"
  
+ 	(Symbol lookup: aMessageSelector) ifNotNil: [ :selectorSymbol |
+ 		self belongsToUniClass
+ 			ifTrue: [self class allSubInstancesDo:
+ 				[:anInstance | 
+ 				anInstance isInTrash ifFalse: [
+ 					(anInstance respondsTo: selectorSymbol) ifTrue:
+ 						[anInstance triggerScript: selectorSymbol ]]]]
+ 			ifFalse: [(selectorSymbol ~~ #emptyScript) ifTrue:
- 	Symbol hasInterned: aMessageSelector
- 		ifTrue: [ :sel |
- 	self belongsToUniClass
- 		ifTrue: [self class allSubInstancesDo:
- 			[:anInstance | 
- 			anInstance isInTrash ifFalse: [
- 				(anInstance respondsTo: sel) ifTrue:
- 		[anInstance triggerScript: sel ]]]]
- 		ifFalse: [(sel ~~ #emptyScript) ifTrue:
  				[ScriptingSystem reportToUser: ('Cannot "tell " ' translated, aMessageSelector, ' to ' translated, self externalName) ]]]!

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!