The Inbox: Morphic-ct.1492.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Morphic-ct.1492.mcz

commits-2
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!