'From etoys4.0 of 9 October 2008 [latest update: #2261] on 7 September 2009 at 2:47:26 pm'! "Change Set: noReadingAStream-sw Date: 3 September 2009, 7 September 2009 Author: Scott Wallace Fix for SQ-237 Gratuitous 'Reading a stream' message. Version of 7 September follows Bert's advice on JIRA: (a) Don't use the 'format:' construct for the message after all. (b) Run the stream-name through 'translated' before deciding whether or not we're in the degenerate case. As Bert suggests on JIRA, perhaps we want to suppress the progress informer in general -- if we decide to adopt that suggestion, the code in this fileout would be unnecessary."! !PositionableStream methodsFor: 'fileIn/Out' stamp: 'sw 9/7/2009 14:44'! fileIn "This is special for reading expressions from text that has been formatted with exclamation delimitors. The expressions are read and passed to the Compiler. Answer the result of compilation." | msg | msg := self name = 'a stream' translated ifTrue: [''] ifFalse: [self name]. ^ self fileInAnnouncing: 'Reading ' translated, msg! !