[Pharo-users] Beginners Question Regarding File I/O

The following code is blocking the while UI until the whole file is read. Why ? Is there a better way to process large text files ? Regards Roger |stream inRec| stream := FileStream readOnlyFileNamed: '/Users/roger/Desktop/d001.txt' . [stream atEnd] whileFalse: [ inRec := stream upTo: Character cr. Transcript show: '@'. ]. stream close.