equal
deleted
inserted
replaced
26 ! |
26 ! |
27 |
27 |
28 Object subclass:#DirectoryContentsItem |
28 Object subclass:#DirectoryContentsItem |
29 instanceVariableNames:'fileName fileInfo icon fileType |
29 instanceVariableNames:'fileName fileInfo icon fileType |
30 contentsBrowserChangeModificationTime suffix preview group owner |
30 contentsBrowserChangeModificationTime suffix preview group owner |
31 timeAndDate mimeType iconKey mimeTypeForContents' |
31 timeAndDate mimeType iconKey mimeTypeForContents baseName' |
32 classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping' |
32 classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping' |
33 poolDictionaries:'' |
33 poolDictionaries:'' |
34 privateIn:DirectoryContentsBrowser |
34 privateIn:DirectoryContentsBrowser |
35 ! |
35 ! |
36 |
36 |
3082 !DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'presentation'! |
3082 !DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'presentation'! |
3083 |
3083 |
3084 baseName |
3084 baseName |
3085 "returns the baseName of the file" |
3085 "returns the baseName of the file" |
3086 |
3086 |
3087 ^ fileName baseName. |
3087 baseName isNil ifTrue:[ |
|
3088 baseName := fileName baseName. |
|
3089 fileName isDirectory ifTrue:[ |
|
3090 baseName := baseName allBold. |
|
3091 ]. |
|
3092 ]. |
|
3093 ^ baseName |
|
3094 |
|
3095 "Modified: / 09-08-2011 / 14:48:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3088 ! |
3096 ! |
3089 |
3097 |
3090 baseNameWithOutSuffix |
3098 baseNameWithOutSuffix |
3091 "returns the baseName of the file" |
3099 "returns the baseName of the file" |
3092 |
3100 |
3093 | baseNameWithOutSuff | |
3101 | baseNameWithOutSuffix | |
3094 |
3102 |
3095 self isDirectory ifTrue:[^ self baseName]. |
3103 self isDirectory ifTrue:[^ self baseName]. |
3096 baseNameWithOutSuff := self baseName asFilename withoutSuffix asString. |
3104 baseNameWithOutSuffix := self baseName asFilename withoutSuffix asString. |
3097 (baseNameWithOutSuff isEmpty or:[baseNameWithOutSuff = '.']) ifTrue:[ |
3105 (baseNameWithOutSuffix isEmpty or:[baseNameWithOutSuffix = '.']) ifTrue:[ |
3098 ^ self baseName |
3106 ^ self baseName |
3099 ]. |
3107 ]. |
3100 ^ baseNameWithOutSuff. |
3108 ^ baseNameWithOutSuffix. |
3101 ! |
3109 ! |
3102 |
3110 |
3103 date |
3111 date |
3104 "returns the modTimeString" |
3112 "returns the modTimeString" |
3105 |
3113 |
3333 ! ! |
3341 ! ! |
3334 |
3342 |
3335 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3343 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3336 |
3344 |
3337 version |
3345 version |
3338 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.239 2011-07-09 13:53:19 vrany Exp $' |
3346 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.240 2011-08-09 16:21:14 vrany Exp $' |
3339 ! |
3347 ! |
3340 |
3348 |
3341 version_CVS |
3349 version_CVS |
3342 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.239 2011-07-09 13:53:19 vrany Exp $' |
3350 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.240 2011-08-09 16:21:14 vrany Exp $' |
3343 ! ! |
3351 ! ! |