--- a/SyntaxHighlighter2.st	Wed Apr 11 17:14:22 2012 +0100
+++ b/SyntaxHighlighter2.st	Fri Apr 13 14:15:47 2012 +0100
@@ -554,6 +554,8 @@
     "Created: / 16-02-2012 / 21:56:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+
+
 expression
     | node savedLastSelectorElement |
 
@@ -573,6 +575,8 @@
     "Modified: / 16-02-2012 / 23:39:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+
+
 unaryExpressionFor:receiverArg
     "parse a unary-expression; return a node-tree, nil or #Error"
 
@@ -689,6 +693,8 @@
     "Created: / 17-03-2012 / 19:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+
+
 markLocalIdentifierFrom:pos1 to:pos2
     | node el prevEl |
 
@@ -726,6 +732,8 @@
     "Modified: / 16-02-2012 / 23:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+
+
 markUnknownIdentifierFrom:pos1 to:pos2
 
     ignoreBadIdentifier == true ifTrue:[ ^ self ].
@@ -734,14 +742,32 @@
 
     "Created: / 31.3.1998 / 19:09:26 / cg"
     "Modified: / 31.3.1998 / 19:10:30 / cg"
+!
+
+
+
+rememberVariableElementFor:name type:typeSymbol from:pos1 to:pos2
+    |element prev|
+
+    prev := lastVariableElements at:name ifAbsent:[nil].
+    (prev notNil and:[prev start == pos1]) ifTrue:[^ self].
+
+    element := SyntaxElement from: pos1 to: pos2 type:typeSymbol value: name.
+
+    prev notNil ifTrue:[prev next:element].
+    lastVariableElements at:name put:element.
+
+    elements add: element.
+
+    "Created: / 21-08-2011 / 09:26:24 / 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.9 2012/03/23 13:03:23 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: SyntaxHighlighter2.st 7940 2012-03-17 20:05:16Z vranyj1 $'
+    ^ '$Id: SyntaxHighlighter2.st 7978 2012-04-13 13:15:47Z vranyj1 $'
 ! !