SyntaxHighlighter2.st
branchjv
changeset 12194 4639848e5517
parent 12170 6c9c4b7981ee
child 12229 5c129972b1fd
--- a/SyntaxHighlighter2.st	Sat Mar 17 13:13:35 2012 +0000
+++ b/SyntaxHighlighter2.st	Sat Mar 17 20:05:16 2012 +0000
@@ -26,7 +26,8 @@
 "{ Package: 'stx:libtool' }"
 
 SyntaxHighlighter subclass:#SyntaxHighlighter2
-	instanceVariableNames:'elements lastVariableElements lastSelectorElement'
+	instanceVariableNames:'elements lastVariableElements lastSelectorElement
+		ignoreBadIdentifier'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-CodeView-Syntax'
@@ -644,7 +645,9 @@
 variable
     | node |
 
+    ignoreBadIdentifier := classToCompileFor isNil.
     node := super variable.
+    ignoreBadIdentifier := false.
     node isVariable ifTrue:[
         | el prevEl |
 
@@ -679,6 +682,13 @@
     "Modified: / 16-02-2012 / 22:34:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+markBadIdentifierFrom:pos1 to:pos2
+
+    super markBadIdentifierFrom:pos1 to:pos2
+
+    "Created: / 17-03-2012 / 19:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 markLocalIdentifierFrom:pos1 to:pos2
     | node el prevEl |
 
@@ -714,16 +724,24 @@
     "Created: / 14-02-2010 / 17:40:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 21-08-2011 / 09:18:21 / cg"
     "Modified: / 16-02-2012 / 23:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+markUnknownIdentifierFrom:pos1 to:pos2
+
+    ignoreBadIdentifier == true ifTrue:[ ^ self ].
+
+    super markUnknownIdentifierFrom:pos1 to:pos2
+
+    "Created: / 31.3.1998 / 19:09:26 / cg"
+    "Modified: / 31.3.1998 / 19:10:30 / cg"
 ! !
 
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.8 2012/01/19 09:48:54 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.8 2012/01/19 09:48:54 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: SyntaxHighlighter2.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+    ^ '$Id: SyntaxHighlighter2.st 7940 2012-03-17 20:05:16Z vranyj1 $'
 ! !
-
-