equal
deleted
inserted
replaced
1653 'ImageReader [warning]: file open error' errorPrintCR. |
1653 'ImageReader [warning]: file open error' errorPrintCR. |
1654 ^ nil |
1654 ^ nil |
1655 ]. |
1655 ]. |
1656 [ |
1656 [ |
1657 reader := self new fromStream:inStream. |
1657 reader := self new fromStream:inStream. |
1658 ] valueNowOrOnUnwindDo:[ |
1658 ] ensure:[ |
1659 inStream close. |
1659 inStream close. |
1660 ]. |
1660 ]. |
1661 ^ reader |
1661 ^ reader |
1662 |
1662 |
1663 " |
1663 " |
2148 ! ! |
2148 ! ! |
2149 |
2149 |
2150 !ImageReader class methodsFor:'documentation'! |
2150 !ImageReader class methodsFor:'documentation'! |
2151 |
2151 |
2152 version |
2152 version |
2153 ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.75 2001-09-13 09:01:07 cg Exp $' |
2153 ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.76 2002-02-26 13:03:36 cg Exp $' |
2154 ! ! |
2154 ! ! |