[Pkg] The Trunk: Collections-nice.435.mcz

[commits at source.squeak.org]

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)!