highlight halt feenkcom/gtoolkit#1872

seandenigris · Apr 18, 2021 · 08fb642 · 08fb642
1 parent 1e66d30
commit 08fb642
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/GToolkit-Pharo-Coder/GtCoderHaltStyler.class.st b/src/GToolkit-Pharo-Coder/GtCoderHaltStyler.class.st
@@ -0,0 +1,15 @@
+Class {
+	#name : #GtCoderHaltStyler,
+	#superclass : #GtGenericPharoStyler,
+	#category : #'GToolkit-Pharo-Coder-Coders'
+}
+
+{ #category : #accessing }
+GtCoderHaltStyler >> visitMessage: aMessageNode [
+	super visitMessage: aMessageNode.
+	aMessageNode selector = #halt ifTrue: [ 
+		self
+			attribute: (BlTextHighlightAttribute paint: BrGlamorousColors errorBackgroundColor)
+			from: aMessageNode startPosition
+			to: aMessageNode stopPosition ].
+]
diff --git a/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st b/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st
@@ -561,6 +561,12 @@ GtPharoMethodCoder >> gtDiffViewFor: aView [
 				create ]"
 ]
 
+{ #category : #'api - addons' }
+GtPharoMethodCoder >> haltAddOnFor: anAST into: coderAddOns [
+	<gtAstCoderAddOns: 20>
+	coderAddOns addStyler: GtCoderHaltStyler new
+]
+
 { #category : #private }
 GtPharoMethodCoder >> handleCompilerErrorsDuring: aBlock [
 	^ [