Alexander Lazarević 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!