'From VisualWorks® NonCommercial, 7.5 of April 16, 2007 on March 9, 2009 at 4:45:23 am'! "Package Pier-SmalltalkHighlighting(7.6_1.5,lautaro)="! PRDocumentGroup subclass: #PRSmalltalkCode instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Pier-Model-Document'! PRSmalltalkCode class instanceVariableNames: ''! PRSmalltalkCode comment: 'PRSmalltalkCode is a class that parse and then highlights your code to make it nicer in a web browser. To use as default, you should put in each line of your code the string ''[|]''. So, if you want to write: Object>>isKindOf: aClass "Answer a Boolean as to whether the class, aClass, is a superclass or class of the receiver." ^self class includesBehavior: aClass You should put: [|] Object>>isKindOf: aClass [|] "Answer a Boolean as to whether the class, aClass, is a superclass or class of the receiver." [|] ^self class includesBehavior: aClass And also, if you don''t like the pattern string, you can change it in the class PRSmalltalkCode(class)>>mark and then run the method PRDocumentParser>>reinitializeLineMatcher to install the new pattern. This was made using the JS library of Ivan Sagalaev official site: http://softwaremaniacs.org/soft/highlight/en/'! !PRSmalltalkCode class methodsFor: 'instance-creation' stamp: ' 9/3/09 04:45'! parse: aString with: aParser ^aParser combine: self with: (PRText content: (aString allButFirst: self markup size))! ! !PRSmalltalkCode class methodsFor: 'testing' stamp: ' 9/3/09 04:45'! isAbstract ^false! ! !PRSmalltalkCode class methodsFor: 'accessing' stamp: ' 9/3/09 04:45'! markup " PRDocumentParser reinitializeLineMatcher " "if you change the pattern string, you should 'do it' the first comment in order to add the behaviour to the parser of the wiki" ^'[|]'! ! !PRSmalltalkCode methodsFor: 'visiting' stamp: ' 9/3/09 04:45'! accept: aVisitor aVisitor visitSmalltalkCode: self! ! !PRDocumentParser class methodsFor: 'initialization' stamp: ' 9/3/09 04:45'! reinitializeLineMatcher "to reset the default line matchers" ^LineMatcher _ self buildLineMatcher! ! !PRDocumentParser class methodsFor: 'private' stamp: ' 9/3/09 04:45'! buildLineMatcher | result | result _ Dictionary new. result at: PRAnchor markup put: PRAnchor; at: PRHorizontalRule markup put: PRHorizontalRule; at: PRHeader markup put: PRHeader; at: PRUnorderedList markup put: PRUnorderedList; at: PROrderedList markup put: PROrderedList; at: PRTableCell markup put: PRTable; at: PRPreformatted markup put: PRPreformatted; at: PRSmalltalkCode markup put: PRSmalltalkCode. ^result! ! !PRVisitor methodsFor: 'visiting-document' stamp: ' 9/3/09 04:45'! visitSmalltalkCode: anObject self visitDocumentGroup: anObject! ! !PRTextWriter methodsFor: 'visiting-document' stamp: ' 9/3/09 04:45'! visitSmalltalkCode: anObject anObject children do: [:each | self newLine; nextPutAll: each text]! ! !PRViewRenderer methodsFor: 'visiting-document' stamp: ' 9/3/09 04:45'! visitSmalltalkCode: anObject html smalltalkCode with: [self visitAll: anObject children separatedBy: [html text: String crlf]]! ! !PRWikiWriter methodsFor: 'visiting-document' stamp: ' 9/3/09 04:45'! visitSmalltalkCode: anObject anObject children do: [:each | self newLine; nextPutAll: anObject class markup. self nextPutAll: each text]! ! !PRCommand methodsFor: '*pier-seaside-protected' stamp: ' 9/3/09 04:45'! updateRoot: aHtmlRoot "Override customize the section of an HTML document." (aHtmlRoot meta) name: 'robots'; content: self robots. aHtmlRoot bodyAttributes addClass: self cssClass! !