--- 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$'
! !
+