author | tm |
Wed, 02 Feb 2000 19:11:27 +0100 | |
changeset 1324 | 50ea68e7e558 |
parent 1323 | fc14ab0fd388 |
child 1325 | a7c38b60f2fb |
ProjectBrowser.st | file | annotate | diff | comparison | revisions |
--- a/ProjectBrowser.st Wed Feb 02 17:45:25 2000 +0100 +++ b/ProjectBrowser.st Wed Feb 02 19:11:27 2000 +0100 @@ -4468,7 +4468,7 @@ p type:self projectType value. dir := self projectDirectory value. - dir := (dir ? '') withoutSeparators asFilename. + dir := (dir ? '') asFilename. (dir exists and:[dir isDirectory]) ifFalse:[ self warn:'Invalid project directory: ' , dir pathName ].