exception access
authorClaus Gittinger <cg@exept.de>
Sat, 27 Apr 2013 14:27:18 +0200
changeset 2999 a173c8753a07
parent 2998 91c12c87cde1
child 3000 7b530cc76688
exception access
DirectoryView.st
--- a/DirectoryView.st	Thu Apr 25 15:11:10 2013 +0200
+++ b/DirectoryView.st	Sat Apr 27 14:27:18 2013 +0200
@@ -888,7 +888,7 @@
     (image := aGC registeredImageAt: fileName name asSymbol) isNil
     ifTrue:[            
         size < maxImageFileSize ifTrue:[     
-            Object errorSignal handle: [:ex|]
+            Error handle: [:ex|]
             do:[   
                 (image := Image fromFile: fileName name) notNil ifTrue:[
                     image extent y > 22 ifTrue:[         
@@ -901,9 +901,6 @@
     ].
     image notNil ifTrue: [imageFromFile := true. iconKey := fileName name asSymbol].
     ^image
-
-
-
 !
 
 size
@@ -972,3 +969,4 @@
 version
     ^ '$Header$'
 ! !
+