The Inbox: EToys-ct.407.mcz

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