Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2036.mcz
==================== Summary ====================
Name: Morphic-ct.2036 Author: ct Time: 25 August 2022, 2:03:11.861239 pm UUID: ad09cb34-86b8-344f-bfd0-70680b92791f Ancestors: Morphic-ct.2035
Complements MorphicExtras-ct.327.
=============== Diff against Morphic-ct.2035 ===============
Item was changed: ----- Method: IconicButton>>labelGraphic: (in category 'label') ----- labelGraphic: aForm | oldLabel graphicalMorph | + (oldLabel := self labelMorph) - (oldLabel := self findA: SketchMorph) ifNotNil: [oldLabel delete]. graphicalMorph := SketchMorph withForm: aForm. self extent: graphicalMorph extent + (self borderWidth + 6 px). graphicalMorph position: self center - (graphicalMorph extent // 2). self addMorph: graphicalMorph. graphicalMorph baseGraphic; lock.!
Item was added: + ----- Method: IconicButton>>labelMorph (in category 'label') ----- + labelMorph + + ^ self findA: SketchMorph!
Item was changed: ----- Method: Morph>>helpButton (in category 'menus') ----- helpButton "Answer a button whose action would be to put up help concerning the receiver"
| aButton | aButton := SimpleButtonMorph new. aButton target: self; color: Color lightGreen; borderColor: Color lightGreen muchDarker; + borderWidth: 1 px; - borderWidth: 1; label: '?' translated font: Preferences standardButtonFont; actionSelector: #presentHelp; setBalloonText: 'click here for help' translated. ^ aButton!
packages@lists.squeakfoundation.org