Alexander

Great, that you implement the option of having under scores in the selectors.

--Hannes

On Thu, 29 Apr 2010 14:30:48.164 0000, commits at source.squeak.org
<commits at source.squeak.org> wrote:
> Alexander Lazarevi&#263; uploaded a new version of ShoutCore to project The
> Trunk:
> http://source.squeak.org/trunk/ShoutCore-laza.19.mcz
>
> ==================== Summary ====================
>
> Name: ShoutCore-laza.19
> Author: laza
> Time: 29 April 2010, 4:30:33.725 pm
> UUID: 93422ad0-5dad-453c-afd4-5bd9f0441432
> Ancestors: ShoutCore-ul.18
>
> Make Shout display symbols with underscores correctly if
> allowUnderscoreSelectors is true
>
> =============== Diff against ShoutCore-ul.18 ===============
>
> Item was changed:
>   ----- Method: SHParserST80>>parseSymbolIdentifier (in category 'parse')
> -----
>   parseSymbolIdentifier
>   	| c start end |
>   	c := self currentChar.
> + 	self failUnless: (c isLetter or: [c == $: or: [c == $_ and: [self
> allowUnderscoreSelectors]]]).
> - 	self failUnless: (c isLetter or: [c == $:]).
>   	start := sourcePosition.	
>   	[c := self nextChar.
> + 	c isAlphaNumeric or: [c == $: or: [c == $_ and: [self
> allowUnderscoreSelectors]]]] whileTrue.
> - 	c isAlphaNumeric or: [c == $:]]
> - 		whileTrue: [].
>   	end := sourcePosition - 1.
>   	c := source copyFrom: start - 1 to: end.
>   	self scanPast: #symbol start: start - 1 end: end.
>   	^c!
>
>
>