Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1321.mcz
==================== Summary ====================
Name: Morphic-topa.1321 Author: topa Time: 9 February 2017, 4:56:13.396681 pm UUID: 7b1a9e25-af9a-4aea-ae14-dd1944092bfc Ancestors: Morphic-bf.1320
Let doit/printit attributes preserve the remaining attribtues.
=============== Diff against Morphic-bf.1320 ===============
Item was changed: ----- Method: SmalltalkEditor>>handleEmphasisExtra:with: (in category 'editing keys') ----- handleEmphasisExtra: index with: aKeyboardEvent "Handle an extra emphasis menu item" | action attribute thisSel | action := { [attribute := TextDoIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextPrintIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Comment']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Definition']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Hierarchy']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString]. [attribute := TextURL new. thisSel := attribute analyze: self selection asString]. ["Edit hidden info" thisSel := self hiddenInfo. "includes selection" attribute := TextEmphasis normal]. ["Copy hidden info" self copyHiddenInfo. ^true]. "no other action" } at: index. action value.
thisSel ifNil: [^true]. "Could not figure out what to link to"
attribute ifNotNil: [ thisSel ifEmpty:[ | oldAttributes | "only change emphasisHere while typing" oldAttributes := paragraph text attributesAt: self pointIndex. emphasisHere := Text addAttribute: attribute toArray: oldAttributes. ] ifNotEmpty: [ self replaceSelectionWith: (thisSel asText addAttribute: attribute). ] ]. ^true!
packages@lists.squeakfoundation.org