resource file search
authorClaus Gittinger <cg@exept.de>
Fri, 30 Sep 2005 18:34:26 +0200
changeset 4429 da98b15c600a
parent 4428 599139d322df
child 4430 f370586f73fd
resource file search
ResourcePack.st
--- a/ResourcePack.st	Fri Sep 30 18:31:16 2005 +0200
+++ b/ResourcePack.st	Fri Sep 30 18:34:26 2005 +0200
@@ -291,7 +291,6 @@
         file := Smalltalk getResourceFileName:'resources.rs' forPackage:package.
         file isNil ifTrue:[^ nil].
         rsrcDir := file asFilename directory.
-        self halt.
     ] ifFalse:[
         rsrcDir := rsrcDir asFilename construct:'resources'.
         rsrcDir exists ifFalse:[^ nil].
@@ -1099,7 +1098,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.102 2005-09-30 16:31:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.103 2005-09-30 16:34:26 cg Exp $'
 ! !
 
 ResourcePack initialize!