Smalltalk.st
changeset 23449 a03c056447f2
parent 23448 c3a10c2e07a4
child 23450 704f8e20673d
--- 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.