The Trunk: EToys-mt.444.mcz

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@1]]
  !