A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1492.mcz==================== Summary ====================
Name: Morphic-ct.1492
Author: ct
Time: 29 June 2019, 11:34:19.55443 pm
UUID: 8c743cb0-f14e-054e-bc2d-157eb65da639
Ancestors: Morphic-pre.1491
Refers to Tools-ct.851: Make SyntaxError more convenient: Automatically select error message as known from CodeHolders, and activate styling
=============== Diff against Morphic-pre.1491 ===============
Item was changed:
----- Method: SyntaxError class>>buildMorphicViewOn: (in category '*Morphic-Support') -----
buildMorphicViewOn: aSyntaxError
"Answer an Morphic view on the given SyntaxError."
| window |
window := (SystemWindow labelled: 'Syntax Error') model: aSyntaxError.
window addMorph: (PluggableListMorph on: aSyntaxError list: #list
selected: #listIndex changeSelected: nil menu: #listMenu:)
frame: (0@0 corner: 1@0.15).
+ window addMorph: ((PluggableTextMorphPlus on: aSyntaxError text: #contents
- window addMorph: (PluggableTextMorph on: aSyntaxError text: #contents
accept: #contents:notifying: readSelection: #contentsSelection
menu: #codePaneMenu:shifted:)
+ useDefaultStyler;
+ in: [ :morph | " Ugly hack, to restyle our contents. "
+ morph setText: morph textMorph text asString asText ];
+ selectionInterval: aSyntaxError errorMessageInterval;
+ yourself)
frame: (0@0.15 corner: 1@1).
^ window openInWorldExtent: 380@220!