equal
deleted
inserted
replaced
2606 " |
2606 " |
2607 |
2607 |
2608 ^ self suffixes at:1 |
2608 ^ self suffixes at:1 |
2609 ! |
2609 ! |
2610 |
2610 |
|
2611 linkTargetIsDirectory |
|
2612 self isSymbolicLink ifFalse:[^ false]. |
|
2613 |
|
2614 ^ fileName info isDirectory |
|
2615 ! |
|
2616 |
2611 mimeType |
2617 mimeType |
2612 "return the value of the instance variable 'mimeType' (automatically generated)" |
2618 "return the value of the instance variable 'mimeType' (automatically generated)" |
2613 |
2619 |
2614 mimeType isNil ifTrue:[ |
2620 mimeType isNil ifTrue:[ |
2615 mimeType := MIMETypes mimeTypeForFilename:(self fileName). |
2621 mimeType := MIMETypes mimeTypeForFilename:(self fileName). |
3003 ! ! |
3009 ! ! |
3004 |
3010 |
3005 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3011 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3006 |
3012 |
3007 version |
3013 version |
3008 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.121 2003-06-13 11:17:46 penk Exp $' |
3014 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.122 2003-06-17 12:11:14 cg Exp $' |
3009 ! ! |
3015 ! ! |