equal
deleted
inserted
replaced
4235 |
4235 |
4236 "Created: 4.11.1995 / 20:36:53 / cg" |
4236 "Created: 4.11.1995 / 20:36:53 / cg" |
4237 "Modified: 19.9.1997 / 10:42:25 / cg" |
4237 "Modified: 19.9.1997 / 10:42:25 / cg" |
4238 ! |
4238 ! |
4239 |
4239 |
|
4240 resourceDirectory |
|
4241 "return the directory where my resource file is supposed to live. |
|
4242 Here, take the package and assume that a directory named 'resources' exists |
|
4243 in my package directory. |
|
4244 Return nil, if no such directory exists." |
|
4245 |
|
4246 |prjDir rsrcDir| |
|
4247 |
|
4248 prjDir := Smalltalk projectDirectoryForClass:self. |
|
4249 |
|
4250 (prjDir notNil |
|
4251 and:[(prjDir := prjDir asFilename) exists |
|
4252 and:[(rsrcDir := prjDir construct:'resources') exists]]) ifTrue:[ |
|
4253 ^ rsrcDir |
|
4254 ]. |
|
4255 ^ nil |
|
4256 |
|
4257 " |
|
4258 Object resourceDirectory |
|
4259 View resourceDirectory |
|
4260 ApplicationModel resourceDirectory |
|
4261 " |
|
4262 ! |
|
4263 |
4240 resourcePackName |
4264 resourcePackName |
4241 "return the name which is used as the fileNameBase of my resource file. |
4265 "return the name which is used as the fileNameBase of my resource file. |
4242 Notice, that this will undergo the same name translation process as |
4266 Notice, that this will undergo the same name translation process as |
4243 done with class-source file names. (see ResourcePack). |
4267 done with class-source file names. (see ResourcePack). |
4244 The default here is the classes name - this can be redefined in classes |
4268 The default here is the classes name - this can be redefined in classes |
4808 ! ! |
4832 ! ! |
4809 |
4833 |
4810 !Class class methodsFor:'documentation'! |
4834 !Class class methodsFor:'documentation'! |
4811 |
4835 |
4812 version |
4836 version |
4813 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.452 2004-01-23 15:55:51 penk Exp $' |
4837 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.453 2004-02-03 15:45:01 cg Exp $' |
4814 ! ! |
4838 ! ! |