author | Claus Gittinger <cg@exept.de> |
Tue, 05 Jul 2011 11:02:03 +0200 | |
changeset 10150 | 3792ee8840ea |
parent 10149 | d390c010293f |
child 10151 | 8d04d7db6448 |
--- 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