Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.435.mcz
==================== Summary ====================
Name: Collections-nice.435 Author: nice Time: 30 March 2011, 9:50:07.129 pm UUID: f53b9d14-89c3-4105-8e0b-41cd10076918 Ancestors: Collections-nice.434
Use #newCompiler #newParser
=============== Diff against Collections-nice.434 ===============
Item was changed: ----- Method: Text>>makeSelectorBold (in category 'emphasis') ----- makeSelectorBold "For formatting Smalltalk source code, set the emphasis of that portion of the receiver's string that parses as a message selector to be bold."
| parser i | string size = 0 ifTrue: [^ self]. i := 0. [(string at: (i := i + 1)) isSeparator] whileTrue. (string at: i) = $[ ifTrue: [^ self]. "block, no selector" + [(parser := Compiler newParser) parseSelector: string] on: Error do: [^ self]. - [(parser := Compiler parserClass new) parseSelector: string] on: Error do: [^ self]. self makeBoldFrom: 1 to: (parser endOfLastToken min: string size)!
Item was changed: ----- Method: Text>>makeSelectorBoldIn: (in category 'emphasis') ----- makeSelectorBoldIn: aClass "For formatting Smalltalk source code, set the emphasis of that portion of the receiver's string that parses as a message selector to be bold."
| parser | string size = 0 ifTrue: [^self]. + (parser := aClass newParser) parseSelector: string. - (parser := aClass parserClass new) parseSelector: string. self makeBoldFrom: 1 to: (parser endOfLastToken min: string size)!
squeak-dev@lists.squeakfoundation.org