equal
deleted
inserted
replaced
1323 ^ reader image |
1323 ^ reader image |
1324 ]. |
1324 ]. |
1325 ^ nil |
1325 ^ nil |
1326 |
1326 |
1327 "Modified: 22.4.1996 / 19:11:58 / cg" |
1327 "Modified: 22.4.1996 / 19:11:58 / cg" |
|
1328 ! |
|
1329 |
|
1330 imagesFromFile:aFileName |
|
1331 "read all images (in my format) from aFileName. |
|
1332 Return a collection of images or nil on error." |
|
1333 |
|
1334 |result inStream| |
|
1335 |
|
1336 inStream := self streamReadingFile:aFileName. |
|
1337 inStream isNil ifTrue:[ |
|
1338 'ImageReader [warning]: file open error' errorPrintCR. |
|
1339 ^ nil |
|
1340 ]. |
|
1341 result := self imagesFromStream:inStream. |
|
1342 inStream close. |
|
1343 ^ result |
|
1344 |
|
1345 "Created: 4.4.1997 / 21:40:52 / cg" |
|
1346 "Modified: 4.4.1997 / 21:42:38 / cg" |
|
1347 ! |
|
1348 |
|
1349 imagesFromStream:aStream |
|
1350 "read all images (in my format) from aStream. |
|
1351 Return a collection of images or nil (if unrecognized format or error)" |
|
1352 |
|
1353 |reader| |
|
1354 |
|
1355 reader := self new fromStream:aStream. |
|
1356 reader notNil ifTrue:[ |
|
1357 reader hasMultipleImages ifTrue:[ |
|
1358 ^ reader images |
|
1359 ]. |
|
1360 ^ Array with:(reader image) |
|
1361 ]. |
|
1362 ^ nil |
|
1363 |
|
1364 "Modified: 22.4.1996 / 19:11:58 / cg" |
|
1365 "Created: 4.4.1997 / 21:41:54 / cg" |
1328 ! ! |
1366 ! ! |
1329 |
1367 |
1330 !ImageReader class methodsFor:'image writing'! |
1368 !ImageReader class methodsFor:'image writing'! |
1331 |
1369 |
1332 save:anImage onFile:aFileName |
1370 save:anImage onFile:aFileName |
1413 if the size is need to be known (for example: for formatting purposes)" |
1451 if the size is need to be known (for example: for formatting purposes)" |
1414 |
1452 |
1415 dimensionCallBack := aBlock |
1453 dimensionCallBack := aBlock |
1416 |
1454 |
1417 "Created: 14.9.1996 / 17:10:58 / cg" |
1455 "Created: 14.9.1996 / 17:10:58 / cg" |
|
1456 ! |
|
1457 |
|
1458 hasMultipleImages |
|
1459 ^ false |
|
1460 |
|
1461 "Created: 4.4.1997 / 21:37:06 / cg" |
1418 ! |
1462 ! |
1419 |
1463 |
1420 height |
1464 height |
1421 "return the height of the image" |
1465 "return the height of the image" |
1422 |
1466 |
1657 ! ! |
1701 ! ! |
1658 |
1702 |
1659 !ImageReader class methodsFor:'documentation'! |
1703 !ImageReader class methodsFor:'documentation'! |
1660 |
1704 |
1661 version |
1705 version |
1662 ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.40 1997-02-18 19:31:40 cg Exp $' |
1706 ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.41 1997-04-04 19:51:28 cg Exp $' |
1663 ! ! |
1707 ! ! |