Skip to content

Commit 11282d7

Browse files
Fix Pharo 12 CI compatibility
Co-authored-by: Codex <codex@openai.com>
1 parent 0ea4b12 commit 11282d7

2 files changed

Lines changed: 22 additions & 4 deletions

File tree

src/ArrowSyntaxRendering-Tests/ASRArrowSyntaxRenderingTest.class.st

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,13 @@ ASRArrowSyntaxRenderingTest >> newSmalltalkMethodDecoratorForObject [
4444
{ #category : 'fixtures' }
4545
ASRArrowSyntaxRenderingTest >> 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' }
9399
ASRArrowSyntaxRenderingTest >> 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).

src/ArrowSyntaxRendering/ASRArrowSyntaxTextStyler.class.st

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff 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' }
1925
ASRArrowSyntaxTextStyler class >> resetTextAttributesCaches [
2026

@@ -30,7 +36,9 @@ ASRArrowSyntaxTextStyler class >> styleTable [
3036
{ #category : 'styles' }
3137
ASRArrowSyntaxTextStyler class >> styleTableName [
3238

33-
^ SHRBTextStyler styleTableName
39+
self hasShoutStyleTableName ifTrue: [
40+
^ SHRBTextStyler styleTableName ].
41+
^ 'Legacy'
3442
]
3543

3644
{ #category : 'accessing' }

0 commit comments

Comments
 (0)