Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.444.mcz

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

Name: EToys-mt.444
Author: mt
Time: 29 April 2021, 10:46:11.228891 am
UUID: d8b044dd-8964-a049-996c-dd8018ecc043
Ancestors: EToys-mt.443

Moves some Connectors preferences and #boundsSignatureHash to "Connectors" project. Not needed in eToys. Complements Morphic-mt.1765

=============== Diff against EToys-mt.443 ===============

Item was changed:
  ----- Method: HighlightMorph>>step (in category 'stepping') -----
  step
+ 	(target isNil or: [lastHash = (lastHash := target boundsInWorld hash)])
- 	(target isNil or: [lastHash = (lastHash := target boundsSignatureHash)])
  		ifTrue: [self incrementStepTime]
  		ifFalse: [stepTime := self minimumStepTime].
  
  	target notNil ifTrue: [
  		target isInWorld ifFalse: [^self delete].
  		self bounds: target bounds]!

Item was removed:
- ----- Method: Morph>>boundsSignatureHash (in category '*Etoys') -----
- boundsSignatureHash
- 	"Answer a hash value that can be used to see if I've moved or been changed significantly"
- 	^self boundsInWorld hash
- !

Item was removed:
- ----- Method: Preferences class>>chooseConnectorsLabelFont (in category '*Etoys-Squeakland-fonts') -----
- chooseConnectorsLabelFont
- 	"present a menu with the possible fonts for etoy textual code"
- 
- 	self
- 		chooseFontWithPrompt: 'Choose the connectors label font' translated
- 		andSendTo: self
- 		withSelector: #setConnectorsLabelFont:
- 		highlight: self connectorsLabelFont!

Item was removed:
- ----- Method: Preferences class>>connectorsLabelFont (in category '*Etoys-Squeakland-fonts') -----
- connectorsLabelFont
- 	"Answer the font to use in the etoy environment to view textual code."
- 
- 	^ (UserInterfaceTheme current get: #connectorsLabelFont)
- 		ifNil: [TextStyle defaultFont]!

Item was changed:
  ----- Method: SpeechBubbleMorph>>step (in category 'stepping') -----
  step
+ (target isNil or: [lastHash = (lastHash := target boundsInWorld hash)])
- (target isNil or: [lastHash = (lastHash := target boundsSignatureHash)])
  		ifTrue: [self incrementStepTime]
  		ifFalse: [stepTime := self minimumStepTime].
  
  target notNil ifTrue: [
  target isInWorld ifFalse: [^self delete].
  self positionMyselfAccordingToTarget].
  
  "This will keep the correct extent if the graphic changed"
  self msgMorph notNil ifTrue: [
  (self balloon fullBounds containsRect: self msgMorph fullBounds)
  	ifFalse: [self extent: 1 at 1]]
  !