--- a/SyntaxHighlighter.st Mon Nov 15 13:22:33 2010 +0100
+++ b/SyntaxHighlighter.st Thu Nov 25 20:12:18 2010 +0100
@@ -193,63 +193,6 @@
"Modified: / 22-08-2006 / 13:32:04 / cg"
! !
-!SyntaxHighlighter methodsFor:'accessing'!
-
-preferences:something
- preferences := something.
-!
-
-sourceText
- ^ sourceText
-
- "Created: / 31.3.1998 / 11:49:05 / cg"
-!
-
-sourceText:something
- sourceText := something.
-
- "Created: / 31.3.1998 / 11:49:05 / cg"
-! !
-
-!SyntaxHighlighter methodsFor:'error handling'!
-
-parseError:aMessage position:position to:endPos
-"/ Transcript showCR:aMessage.
- super parseError:aMessage position:position to:endPos.
-
- self
- markFrom:position to:endPos
- withEmphasis:nil color:UserPreferences current errorColor
-!
-
-showErrorMessage:aMessage position:pos
-"/ Transcript showCR:aMessage.
- super showErrorMessage:aMessage position:pos.
-
- self
- markFrom:pos to:nil
- withEmphasis:nil color:UserPreferences current errorColor
-!
-
-syntaxError:aMessage position:position to:endPos
-"/ Transcript showCR:aMessage.
- super syntaxError:aMessage position:position to:endPos.
-
- self
- markFrom:position to:endPos
- withEmphasis:nil color:UserPreferences current errorColor
-!
-
-warning:msg position:pos1 to:pos2
-"/ self markUnknownIdentifierFrom:pos1 to:pos2
-
-"/ self
-"/ markFrom:pos1 to:pos2
-"/ withEmphasis:nil color:UserPreferences current errorColor
-
- "Modified: / 25.9.1999 / 18:42:30 / cg"
-! !
-
!SyntaxHighlighter methodsFor:'initialization'!
initialize
@@ -266,57 +209,6 @@
"Modified: / 5.1.1980 / 00:44:03 / cg"
! !
-!SyntaxHighlighter methodsFor:'misc'!
-
-controlFlowSelectors
- ^ #(
- ifTrue:
- ifFalse:
- ifTrue:ifFalse:
- ifFalse:ifTrue:
-
- whileTrue:
- whileFalse:
-
- to:do:
- downTo:do:
- to:by:do:
-
- loop
- whileTrue
- whileFalse
- doWhile:
- doUntil:
-
- do:
- keysAndValuesDo:
- )
-
- "Created: / 08-09-2006 / 15:56:47 / cg"
-!
-
-defineAsUndeclaredVariable:aName
- "redefined to NOT declare undefined vars"
-
- ^ VariableNode globalNamed:aName
-
- "Modified: / 19.10.1998 / 19:38:12 / cg"
-!
-
-isSyntaxHighlighter
- ^ true
-
-!
-
-plausibilityCheck:aNode
- "redefined to NOT do checks"
-
- ^ nil
-
- "Modified: / 19.10.1998 / 19:38:12 / cg"
- "Created: / 19.10.1998 / 19:57:18 / cg"
-! !
-
!SyntaxHighlighter methodsFor:'syntax detection'!
markArgumentIdentifierFrom:pos1 to:pos2
@@ -434,37 +326,6 @@
"Created: / 31.3.1998 / 18:09:22 / cg"
!
-markFrom:pos1 to:pos2 withAddedEmphasis:addedEmphasis
- sourceText emphasisFrom:pos1 to:pos2 add:addedEmphasis
-
- "Created: / 15-01-2008 / 11:48:18 / cg"
-!
-
-markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clrIn
- |e p2 clr|
-
- clr := clrIn onDevice:Screen current.
-
- clr = Color black ifTrue:[
- e := fontEmp
- ] ifFalse:[
- fontEmp isNil ifTrue:[
- e := (#color->clr)
- ] ifFalse:[
- e := Text addEmphasis:fontEmp to:(#color->clr).
- ]
- ].
- (p2 := pos2) isNil ifTrue:[
- p2 := sourceText size
- ] ifFalse:[
- p2 := p2 min:sourceText size
- ].
- sourceText emphasizeFrom:pos1 to:p2 with:e
-
- "Created: / 31.3.1998 / 13:26:53 / cg"
- "Modified: / 1.4.1998 / 12:51:56 / cg"
-!
-
markGlobalClassIdentifierFrom:pos1 to:pos2
self
markFrom:pos1 to:pos2
@@ -725,18 +586,6 @@
"Modified: / 31.3.1998 / 19:10:30 / cg"
!
-markVariable:v
- "support for syntaxColoring"
-
- |pos endPos|
-
- pos := tokenPosition.
- endPos := pos+tokenName size-1.
- self markVariable:v from:pos to:endPos
-
- "Modified: / 16.4.1998 / 18:49:51 / cg"
-!
-
markVariable:v from:pos to:endPos
"support for syntaxColoring"
@@ -787,9 +636,9 @@
!SyntaxHighlighter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.62 2010-04-30 10:00:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.63 2010-11-25 19:12:18 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.62 2010-04-30 10:00:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.63 2010-11-25 19:12:18 stefan Exp $'
! !