enable / disable syntax highlight in code presenter of critics browser.

Fixes pharo-project/pharo#16290
demarey · Mar 22, 2024 · a93f43c · a93f43c
1 parent 2e4b194
commit a93f43c
Showing 1 changed file with 13 additions and 5 deletions.
diff --git a/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st b/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st
@@ -341,7 +341,10 @@ StSingleCritiqueResultListPresenter >> isCritiqueToDo [
 { #category : 'initialization' }
 StSingleCritiqueResultListPresenter >> newSourceCodeCritique [
 
-	^ SpCodePresenter new beNotEditable.
+	^ SpCodePresenter new 
+		beNotEditable;
+		withoutSyntaxHighlight;
+		yourself
 ]
 
 { #category : 'initialization' }
@@ -414,10 +417,13 @@ StSingleCritiqueResultListPresenter >> setTextModelForClassOrMethod: aCritique [
 	entity := aCritique sourceAnchor entity.
 	self flag:
 		'Another hack. We need a better way to display entities (because now we may get not only classes and methods. Maybe something like GTInspector presentations could work)'.
-	sourceCodeModel text: entity asString.
-	sourceCodeModel behavior: (entity isCompiledMethod
+	sourceCodeModel beForBehavior: (entity isCompiledMethod
 			 ifTrue: [ entity methodClass ]
 			 ifFalse: [ nil ]).
+
+	sourceCodeModel 
+		withSyntaxHighlight;
+		text: entity asString.
 	aCritique sourceAnchor providesInterval ifTrue: [ 
 		sourceCodeModel selectionInterval: aCritique sourceAnchor interval ]
 ]
@@ -429,8 +435,10 @@ StSingleCritiqueResultListPresenter >> setTextModelForNil [
 	text := rule rationale isEmpty
 		        ifTrue: [ rule name ]
 		        ifFalse: [ rule rationale ].
-	sourceCodeModel text: text.
-	sourceCodeModel behavior: nil.
+	sourceCodeModel 
+		withoutSyntaxHighlight;
+		text: text;
+		behavior: nil.
 	toolbarModel critique: nil
 ]