added: #formatMethod:source:in:using:elementsInto:
authorClaus Gittinger <cg@exept.de>
Tue, 05 Jul 2011 11:02:03 +0200
changeset 10150 3792ee8840ea
parent 10149 d390c010293f
child 10151 8d04d7db6448
added: #formatMethod:source:in:using:elementsInto: changed: #formatMethod:in:using:elementsInto: protocol passes in the original method (for the Coverage)
SyntaxHighlighter2.st
--- a/SyntaxHighlighter2.st	Tue Jul 05 11:01:18 2011 +0200
+++ b/SyntaxHighlighter2.st	Tue Jul 05 11:02:03 2011 +0200
@@ -131,6 +131,20 @@
     "format (recolor) a method in a given class.
      Return the text containing font changes and color information."
 
+    ^ self
+        formatMethod:nil
+        source:aString
+        in:aClass
+        using:preferencesOrNil elementsInto:elements
+
+    "Created: / 25-07-2010 / 08:56:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-07-2011 / 10:40:08 / cg"
+!
+
+formatMethod:aMethodOrNil source:aString in:aClass using:preferencesOrNil elementsInto: elements
+    "format (recolor) a method in a given class.
+     Return the text containing font changes and color information."
+
     |highlighter tree text endPos eColor|
 
     aString isNil ifTrue:[^ nil].
@@ -192,7 +206,7 @@
     "
 
     "Modified: / 22-08-2006 / 13:32:04 / cg"
-    "Created: / 25-07-2010 / 08:56:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 05-07-2011 / 10:39:21 / cg"
 ! !
 
 !SyntaxHighlighter2 methodsFor:'accessing'!
@@ -761,7 +775,7 @@
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.2 2011-07-03 17:48:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.3 2011-07-05 09:02:03 cg Exp $'
 !
 
 version_SVN