#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Mon, 06 May 2019 13:58:10 +0200
changeset 8675 62c554057380
parent 8674 e29a561c0fbe
child 8676 47ea6f5a3076
#UI_ENHANCEMENT by cg class: ResourcePack changed: #readFromFile:directory:
ResourcePack.st
--- a/ResourcePack.st	Tue Apr 23 16:30:55 2019 +0200
+++ b/ResourcePack.st	Mon May 06 13:58:10 2019 +0200
@@ -1733,12 +1733,19 @@
     ].
 
     triedFilename := inStream pathName.
-    [
-        ok := self readFromResourceStream:inStream in:(triedFilename asFilename directoryName).
-    ] ensure:[
-        inStream close.
+    Error handle:[:ex |
+        Logger warning:'ResourcePack [warning]: aborted read of "%1" due to error: %2'
+               with:triedFilename
+               with:ex description.
+        ok := false.
+    ] do:[
+        [
+            ok := self readFromResourceStream:inStream in:(triedFilename asFilename directoryName).
+        ] ensure:[
+            inStream close.
+        ].
     ].
-
+    
     ok ifTrue:[
         packsFileName := triedFilename
     ] ifFalse:[
@@ -1749,7 +1756,7 @@
     ].
 
     "Modified: / 20-08-2011 / 17:10:02 / cg"
-    "Modified: / 27-03-2019 / 11:01:57 / Claus Gittinger"
+    "Modified: / 06-05-2019 / 13:57:25 / Claus Gittinger"
 !
 
 readFromResourceStream:inStream in:dirName