Use a slight variation of transparent color to make the monospace tex…

…t readable.
Ducasse · Apr 6, 2024 · 56594ae · 56594ae
1 parent 65248a6
commit 56594ae
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/Microdown-RichTextComposer/MicTextStyler.class.st b/src/Microdown-RichTextComposer/MicTextStyler.class.st
@@ -80,7 +80,8 @@ MicTextStyler >> interBlockSpacing [
 
 { #category : 'composer styles' }
 MicTextStyler >> monospaceBackgroundColor [
-	^ Smalltalk ui theme settings windowColor
+
+	^ Color transparent alpha: 0.01
 ]
 
 { #category : 'canvas styles' }

diff --git a/src/Microdown-RichTextComposer/MicrodownParser.extension.st b/src/Microdown-RichTextComposer/MicrodownParser.extension.st
@@ -1,6 +1,6 @@
 Extension { #name : 'MicrodownParser' }
 
 { #category : '*Microdown-RichTextComposer' }
-MicrodownParser classSide >> convertToRichText: aString [
+MicrodownParser class >> convertToRichText: aString [
 	^ MicRichTextComposer new visit: (self new parse: aString)
 ]