Merge pull request #602 from MarcusDenker/Pragma-inspector

Improve the inspector for Pragma to highlight the pragma in the source

src/NewTools-Inspector-Extensions/Pragma.extension.st

@@ -3,9 +3,14 @@ Extension { #name : 'Pragma' }
 { #category : '*NewTools-Inspector-Extensions' }
 Pragma >> inspectionSourceCodeMethod [
 	<inspectorPresentationOrder: 30 title: 'Method'>
-
+	| interval |
+
+	interval := self sourceNode sourceInterval.
 	^ SpCodePresenter new 
-		beForMethod: self method;
-		text: self method sourceCode;
+		beForMethod: method ast;
+		text: method sourceCode;
+		addTextSegmentDecoration: (SpTextPresenterDecorator forHighlight
+			interval: (interval first to: interval last + 1);
+			yourself);
 		yourself
 ]