Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/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!
packages@lists.squeakfoundation.org