# HG changeset patch # User Claus Gittinger # Date 1065439903 -7200 # Node ID e8ff2160c206f4c2d04cdb0c0db5eafd135d5519 # Parent 74f82f793e1b758dfc63a3673c19f225fc9e7882 only handle errors diff -r 74f82f793e1b -r e8ff2160c206 DirectoryContentsBrowser.st --- a/DirectoryContentsBrowser.st Mon Oct 06 11:50:03 2003 +0200 +++ b/DirectoryContentsBrowser.st Mon Oct 06 13:31:43 2003 +0200 @@ -1942,7 +1942,7 @@ previewIndex := 0. ] ifFalse:[ (anItem hasMimeType and:[anItem mimeType isImage]) ifTrue:[ - Exception handle:[:ex| + Error handle:[:ex| icon := nil. ] do:[ |scale extent w h | icon := Image fromFile:(anItem fileName pathName). @@ -3041,5 +3041,5 @@ !DirectoryContentsBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.128 2003-09-04 18:55:49 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.129 2003-10-06 11:31:43 cg Exp $' ! !