2682         filesDo:[:f | Transcript show:'file: '; showCR:f]

  2682         filesDo:[:f | Transcript show:'file: '; showCR:f]

  2683         directoriesDo:[:f | Transcript show:'dir: '; showCR:f]

  2683         directoriesDo:[:f | Transcript show:'dir: '; showCR:f]

  2684     "

  2684     "

  2685 !

  2685 !

  2686 

  2686 

  2688     "evaluate aBlock for all files and directories found under the receiver.

  2690     "evaluate aBlock for all files and directories found under the receiver.

  2689      The blocks are invoked with a relative pathname as string-argument.

  2691      The blocks are invoked with a relative pathname as string-argument.

  2690      The walk is breadth-first (first files, then directories).

  2692      The walk is breadth-first (first files, then directories).

  2691      This excludes any entries for '.' or '..'.

  2693      This excludes any entries for '.' or '..'.

  2692      A proceedable exception is raised for non-accessible directories.

  2694      A proceedable exception is raised for non-accessible directories.

  2736             (filterOrNil isNil or:[filterOrNil value:subDir]) ifTrue:[

  2738             (filterOrNil isNil or:[filterOrNil value:subDir]) ifTrue:[

  2737                 dirBlock value:(p , dN).

  2739                 dirBlock value:(p , dN).

  2738                 subDir

  2740                 subDir

  2739                     recursiveDirectoryContentsWithPrefix:(p , dN) 

  2741                     recursiveDirectoryContentsWithPrefix:(p , dN) 

  2740                     filesDo:fileBlock directoriesDo:dirBlock

  2742                     filesDo:fileBlock directoriesDo:dirBlock

  2741             ].

  2744             ].

  2742         ].

  2745         ].

  2743     ].

  2746     ].

  2744     

  2747     

  2745     "

  2748     "