File tree Expand file tree Collapse file tree
ArrowSyntaxRendering-Tests Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -44,7 +44,13 @@ ASRArrowSyntaxRenderingTest >> newSmalltalkMethodDecoratorForObject [
4444{ #category : ' fixtures' }
4545ASRArrowSyntaxRenderingTest >> parsedSampleMethod [
4646
47- ^ OCParser parseFaultyMethod: self sampleMethodSource
47+ ^ self parserClass parseFaultyMethod: self sampleMethodSource
48+ ]
49+
50+ { #category : ' fixtures' }
51+ ASRArrowSyntaxRenderingTest >> parserClass [
52+
53+ ^ Smalltalk globals at: #OCParser ifAbsent: [ RBParser ]
4854]
4955
5056{ #category : ' fixtures' }
@@ -92,9 +98,13 @@ ASRArrowSyntaxRenderingTest >> testArrowStylerDoesNotForceLightThemeDefaultColor
9298{ #category : ' tests' }
9399ASRArrowSyntaxRenderingTest >> testArrowStylerUsesActiveShoutStyleTable [
94100
101+ ASRArrowSyntaxTextStyler hasShoutStyleTableName ifTrue: [
102+ self
103+ assert: ASRArrowSyntaxTextStyler styleTableName
104+ equals: SHRBTextStyler styleTableName ].
95105 self
96- assert: ASRArrowSyntaxTextStyler styleTableName
97- equals: SHRBTextStyler styleTableName .
106+ assert: ASRArrowSyntaxTextStyler styleTable
107+ equals: SHRBTextStyler styleTable .
98108 self
99109 assert: (ASRArrowSyntaxTextStyler attributesFor: #default )
100110 equals: (SHRBTextStyler attributesFor: #default ).
Original file line number Diff line number Diff line change @@ -15,6 +15,12 @@ ASRArrowSyntaxTextStyler class >> attributesFor: aSymbol [
1515 ^ SHRBTextStyler attributesFor: aSymbol
1616]
1717
18+ { #category : ' private' }
19+ ASRArrowSyntaxTextStyler class >> hasShoutStyleTableName [
20+
21+ ^ SHRBTextStyler class includesSelector: #styleTableName
22+ ]
23+
1824{ #category : ' initialization' }
1925ASRArrowSyntaxTextStyler class >> resetTextAttributesCaches [
2026
@@ -30,7 +36,9 @@ ASRArrowSyntaxTextStyler class >> styleTable [
3036{ #category : ' styles' }
3137ASRArrowSyntaxTextStyler class >> styleTableName [
3238
33- ^ SHRBTextStyler styleTableName
39+ self hasShoutStyleTableName ifTrue: [
40+ ^ SHRBTextStyler styleTableName ].
41+ ^ ' Legacy'
3442]
3543
3644{ #category : ' accessing' }
You can’t perform that action at this time.
0 commit comments