--- a/Smalltalk.st Mon Oct 15 00:23:02 2018 +0200
+++ b/Smalltalk.st Mon Oct 15 01:06:59 2018 +0200
@@ -7750,14 +7750,7 @@
pF notNil ifTrue:[
^ pF.
].
- ].
-
-"/ pF := self searchPath:(self realSystemPath) for:aFileName in:('resources/styles').
-"/ pF notNil ifTrue:[
-"/ ^ pF.
-"/ ].
- f ~= aFileName ifTrue:[
- #('../Resources' '.resources' 'resources') do:[:eachPossibleRsrcDir |
+ f ~= aFileName ifTrue:[
pF := self searchPath:(self realSystemPath)
for:f
in:(eachPossibleRsrcDir).
@@ -7765,10 +7758,6 @@
^ pF.
].
].
-"/ pF := self searchPath:(self realSystemPath) for:f in:('resources/styles').
-"/ pF notNil ifTrue:[
-"/ ^ pF.
-"/ ].
].
^ nil
].
@@ -7799,6 +7788,8 @@
^ nil
"
+ Smalltalk projectDirectoryForPackage:'stx:libtool'
+
Smalltalk getResourceFileName:'SystemBrowser.rs' forPackage:'stx:libtool'
Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'
Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'
@@ -8049,10 +8040,10 @@
"given a packageID, return the path to its package directory;
nil if not found."
- |prj prjDir|
-
^ aPackage asPackageId packageDirectory.
+"/ |prj prjDir|
+"/
"/ "/ there might be a package specific resource directory ...
"/ "/ in the directory, from which the project was loaded
"/ prj := Project projectWithId:aPackage.