407 |
407 |
408 "Created: 16.10.1997 / 13:07:24 / cg" |
408 "Created: 16.10.1997 / 13:07:24 / cg" |
409 "Modified: 16.10.1997 / 13:10:00 / cg" |
409 "Modified: 16.10.1997 / 13:10:00 / cg" |
410 ! |
410 ! |
411 |
411 |
|
412 fullAlternativePathName |
|
413 "return my complete MSDOS-path" |
|
414 |
|
415 |altNameComponent fullAlternativePath fullAlternativeDirectoryName| |
|
416 |
|
417 self isRootDirectory ifTrue:[ |
|
418 ^ nameString |
|
419 ]. |
|
420 (self name endsWith:$\) ifTrue:[ |
|
421 ^ (self class named:self pathName) fullAlternativePathName |
|
422 ]. |
|
423 altNameComponent := self info alternativeName. |
|
424 fullAlternativeDirectoryName := self directory fullAlternativePathName. |
|
425 (fullAlternativeDirectoryName endsWith:$\) ifTrue:[ |
|
426 fullAlternativePath := fullAlternativeDirectoryName |
|
427 , (altNameComponent ? self baseName). |
|
428 ] ifFalse:[ |
|
429 fullAlternativePath := fullAlternativeDirectoryName , '\' , (altNameComponent ? self baseName). |
|
430 ]. |
|
431 ^ fullAlternativePath |
|
432 |
|
433 " |
|
434 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativeName |
|
435 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativeName asFilename exists |
|
436 'C:\' asFilename fullAlternativeName |
|
437 " |
|
438 ! |
|
439 |
412 isDirectory |
440 isDirectory |
413 "return true, if I represent a directory |
441 "return true, if I represent a directory |
414 Redefined to care for volumeRoots." |
442 Redefined to care for volumeRoots." |
415 |
443 |
416 self isRootDirectory ifTrue:[^ true]. |
444 self isRootDirectory ifTrue:[^ true]. |