equal
deleted
inserted
replaced
4466 |
4466 |
4467 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4467 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4468 p type:self projectType value. |
4468 p type:self projectType value. |
4469 |
4469 |
4470 dir := self projectDirectory value. |
4470 dir := self projectDirectory value. |
4471 dir := (dir ? '') withoutSeparators asFilename. |
4471 dir := (dir ? '') asFilename. |
4472 (dir exists and:[dir isDirectory]) ifFalse:[ |
4472 (dir exists and:[dir isDirectory]) ifFalse:[ |
4473 self warn:'Invalid project directory: ' , dir pathName |
4473 self warn:'Invalid project directory: ' , dir pathName |
4474 ]. |
4474 ]. |
4475 |
4475 |
4476 p directory:self projectDirectory value. |
4476 p directory:self projectDirectory value. |