Christoph Thiede uploaded a new version of EToys to project The Inbox:
http://source.squeak.org/inbox/EToys-ct.407.mcz

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

Name: EToys-ct.407
Author: ct
Time: 17 September 2020, 12:38:51.188813 pm
UUID: 1ba5c4b2-8ee7-dd46-9d86-5a7526c91629
Ancestors: EToys-eem.400

Activates Shout styling in EToys MethodMorph. Also includes recategorization of some selectors.

Is the reference from EToys to ToolBuilder-Morphic okay? The dependency already existed before.

=============== Diff against EToys-eem.400 ===============

Item was changed:
+ PluggableTextMorphPlus subclass: #MethodMorph
- PluggableTextMorph subclass: #MethodMorph
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Etoys-Scripting'!

Item was changed:
+ ----- Method: MethodMorph class>>defaultNameStemForInstances (in category 'constants') -----
- ----- Method: MethodMorph class>>defaultNameStemForInstances (in category 'as yet unclassified') -----
  defaultNameStemForInstances
  	^ 'Method' translatedNoop!

Item was changed:
  ----- Method: MethodMorph>>initialize (in category 'initialization') -----
  initialize
  	"initialize the state of the receiver"
  	super initialize.
+ 	self useDefaultStyler.!
- 	!

Item was changed:
+ ----- Method: MethodMorph>>installRollBackButtons: (in category 'initialization') -----
- ----- Method: MethodMorph>>installRollBackButtons: (in category 'as yet unclassified') -----
  installRollBackButtons: target
  	| mine |
  	"If I don't already have such a button, put one in at the upper right.  Set its target to the furtherest enclosing book.  Send chooseAndRevertToVersion when clicked.  Stay in place via scrollBar install."
  
  	mine := self submorphNamed: #chooseAndRevertToVersion ifNone: [nil].
  	mine ifNil: [mine := SimpleButtonMorph new.
  		"mine height: mine height - 2."
  		mine label: 'Roll Back'; cornerStyle: #square.
  		mine color: Color white; borderColor: Color black.
  		mine actionSelector: #chooseAndRevertToVersion.
  		mine align: mine topRight with: (self findA: ScrollBar) topLeft +(1 at 1).
  		self addMorphFront: mine.
  		mine height: mine height - 5 "14"].
  	mine target: target.!

Item was added:
+ ----- Method: MethodMorph>>okToStyle (in category 'testing') -----
+ okToStyle
+ 
+ 	styler ifNil: [^ false].
+ 	styler
+ 		classOrMetaClass: self model selectedClassOrMetaClass;
+ 		environment: self model environment.
+ 	^ true!