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

[Roger Gilliar]

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.