Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2117.mcz
==================== Summary ====================
Name: Morphic-mt.2117 Author: mt Time: 2 August 2023, 1:52:09.534767 pm UUID: 10c56f5d-2659-7347-aeef-1f33be124e2e Ancestors: Morphic-mt.2116
Do not show layout options for text morphs that are embedded in a view since that view governs those properties only.
=============== Diff against Morphic-mt.2116 ===============
Item was changed: ----- Method: TextMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph - | outer | - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - aCustomMenu add: 'text properties...' translated action: #changeTextColor. - aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. - aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. - aCustomMenu add: 'text margins...' translated action: #changeMargins:. - aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. - aCustomMenu add: 'add successor' translated action: #addSuccessor:. + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + self addCustomTextMenuItems: aCustomMenu hand: aHandMorph. - outer := self owner. - outer ifNotNil: [ - outer isLineMorph ifTrue: - [container isNil - ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] - ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. - aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] - ifFalse: - [self fillsOwner - ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] - ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. - self avoidsOcclusions - ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] - ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. - aCustomMenu addLine. - aCustomMenu add: 'holder for characters' translated action: #holderForCharacters !
Item was added: + ----- Method: TextMorph>>addCustomTextMenuItems:hand: (in category 'menu') ----- + addCustomTextMenuItems: aCustomMenu hand: aHandMorph + + | outer | + aCustomMenu add: 'text properties...' translated action: #changeTextColor. + aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. + aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. + aCustomMenu add: 'text margins...' translated action: #changeMargins:. + aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. + aCustomMenu add: 'add successor' translated action: #addSuccessor:. + + outer := self owner. + outer ifNotNil: [ + outer isLineMorph ifTrue: + [container isNil + ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] + ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. + aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] + ifFalse: + [self fillsOwner + ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] + ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. + self avoidsOcclusions + ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] + ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. + aCustomMenu addLine. + aCustomMenu add: 'holder for characters' translated action: #holderForCharacters!
Item was added: + ----- Method: TextMorphForEditView>>addCustomTextMenuItems:hand: (in category 'menu') ----- + addCustomTextMenuItems: aCustomMenu hand: aHandMorph + "Overwritten to not offer layouting options since this is managed through the receiver's view."!
squeak-dev@lists.squeakfoundation.org