ShellView.st
changeset 762 ba7c3153f9d1
parent 757 d28fb65967a9
child 782 62f2cd2978d5
equal deleted inserted replaced
761:91e524583390 762:ba7c3153f9d1
   290     possibleFileName := ''.
   290     possibleFileName := ''.
   291     stream := (self listOfShellOutput at: anLineIndex) readStream.
   291     stream := (self listOfShellOutput at: anLineIndex) readStream.
   292     fileFound := false.
   292     fileFound := false.
   293     [stream atEnd | fileFound]
   293     [stream atEnd | fileFound]
   294     whileFalse: 
   294     whileFalse: 
   295     [
   295     [      
   296         possibleFileName := possibleFileName, stream next.
   296         possibleFileName := possibleFileName, stream next.
   297         ((((selectedFileName := possibleFileName) asFilename exists) or:
   297         (("((selectedFileName := possibleFileName) asFilename exists) or:"
   298         [(selectedFileName := directory, Filename separator, possibleFileName) asFilename exists])
   298         (selectedFileName := directory, Filename separator, possibleFileName) asFilename exists)
   299          and: [selectedFileName asFilename isDirectory not])
   299          and: [selectedFileName asFilename isDirectory not])
   300         ifTrue:
   300         ifTrue:
   301         [   
   301         [   
   302             |possibleLineIndex listSize lineNumber|
   302             |possibleLineIndex listSize lineNumber|
   303             fileFound := true.  
   303             fileFound := true.