equal
deleted
inserted
replaced
7932 SourcePath isNil ifTrue:[ |
7932 SourcePath isNil ifTrue:[ |
7933 SourcePath := self constructPathFor:SourceDirName |
7933 SourcePath := self constructPathFor:SourceDirName |
7934 ]. |
7934 ]. |
7935 |
7935 |
7936 "/ first, try a source subdir along the path. |
7936 "/ first, try a source subdir along the path. |
7937 SourcePath notNil ifTrue:[ |
7937 SourcePath notEmptyOrNil ifTrue:[ |
7938 f := self searchPath:SourcePath for:aFileName in:SourceDirName. |
7938 f := self searchPath:SourcePath for:aFileName in:SourceDirName. |
7939 ]. |
7939 ]. |
7940 f isNil ifTrue:[ |
7940 f isNil ifTrue:[ |
7941 "/ then, try it itself along the path. |
7941 "/ then, try it itself along the path. |
7942 f := self searchPath:self realSystemPath for:aFileName in:nil |
7942 f := self searchPath:self realSystemPath for:aFileName in:nil |