[squeak-dev] The Inbox: Morphic-ct.1492.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 29 21:34:37 UTC 2019


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 at 0 corner: 1 at 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 at 0.15 corner: 1 at 1).
  
  	^ window openInWorldExtent: 380 at 220!



More information about the Squeak-dev mailing list