class: AbstractSyntaxHighlighter
added:
#mark:from:to:withEmphasis:color:font:
#markFrom:to:withEmphasis:color:font:
changed: #mark:from:to:withEmphasis:color:
--- a/AbstractSyntaxHighlighter.st Thu Jan 23 17:12:02 2014 +0100
+++ b/AbstractSyntaxHighlighter.st Sun Feb 02 00:13:31 2014 +0100
@@ -391,6 +391,10 @@
!
mark:sourceText from:pos1 to:pos2 withEmphasis:fontEmp color:clrIn
+ self mark:sourceText from:pos1 to:pos2 withEmphasis:fontEmp color:clrIn font:nil
+!
+
+mark:sourceText from:pos1 to:pos2 withEmphasis:fontEmp color:clrIn font:fontIn
|e p2 clr|
(clrIn isNil or:[clrIn = Color black]) ifTrue:[
@@ -403,6 +407,10 @@
e := Text addEmphasis:fontEmp to:(#color->clr).
]
].
+ fontIn notNil ifTrue:[
+ e := Text addEmphasis:e to:(#font->fontIn)
+ ].
+
(p2 := pos2) isNil ifTrue:[
p2 := sourceText size
] ifFalse:[
@@ -576,6 +584,14 @@
"Modified: / 01-06-2012 / 21:43:04 / cg"
!
+markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clrIn font:fontInOrNil
+ self class
+ mark:sourceText from:pos1 to:pos2 withEmphasis:fontEmp color:clrIn font:fontInOrNil
+
+ "Created: / 31-03-1998 / 13:26:53 / cg"
+ "Modified: / 01-06-2012 / 21:43:04 / cg"
+!
+
markFrom:pos1 to:pos2 withEmphasis:fontEmp color:fgClr1 ifNil:fgClr2 backgroundColor:bgClr
self class
mark:sourceText from:pos1 to:pos2 withEmphasis:fontEmp color:fgClr1 ifNil:fgClr2 backgroundColor:bgClr
@@ -596,11 +612,11 @@
!AbstractSyntaxHighlighter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.30 2013-12-16 13:35:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.31 2014-02-01 23:13:31 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.30 2013-12-16 13:35:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.31 2014-02-01 23:13:31 cg Exp $'
!
version_SVN