Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1619.mcz
==================== Summary ====================
Name: Morphic-ct.1619 Author: ct Time: 22 January 2020, 10:18:49.982972 am UUID: 7857d3bc-414b-cf4a-87bd-9d0aae05616f Ancestors: Morphic-cmm.1618
Proposal: Unify all doIt related operations in PluggableTextMorph by delegating them to the editor.
This also fixes the fact that certain hooks such as #printIt:result:, #inspectIt:result:, or #exploreIt:result: were ignored when triggering the operation via the textmorph menu instead of shortcut. This is not an expected behavior, is it?
=============== Diff against Morphic-cmm.1618 ===============
Item was changed: ----- Method: PluggableTextMorph>>doIt (in category 'menu commands') ----- doIt + ^ self handleEdit: [textMorph editor doIt]! - ^self handleEdit: [textMorph editor evaluateSelection]!
Item was changed: ----- Method: PluggableTextMorph>>exploreIt (in category 'menu commands') ----- exploreIt + ^ self handleEdit: [textMorph editor exploreIt]! - - - self handleEdit: - [textMorph editor evaluateSelectionAndDo: [:result | result explore]].!
Item was changed: ----- Method: PluggableTextMorph>>inspectIt (in category 'menu commands') ----- inspectIt + ^ self handleEdit: [textMorph editor inspectIt]! - - self handleEdit: - [textMorph editor evaluateSelectionAndDo: [:result | result inspect]]!
Item was changed: ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') ----- printIt + ^ self handleEdit: [textMorph editor printIt]! - | oldEditor | - textMorph editor selectFrom: selectionInterval first to: selectionInterval last; - model: model. "For, eg, evaluateSelection" - textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelectionAndDo: - [:result | - self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand." - selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1. - textMorph installEditorToReplace: oldEditor. - textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString]. - selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1. - - textMorph editor selectFrom: selectionInterval first to: selectionInterval last. - self scrollSelectionIntoView]]!
packages@lists.squeakfoundation.org