comments
authorClaus Gittinger <cg@exept.de>
Thu, 10 Apr 1997 17:49:56 +0200
changeset 1575 d93e15f64146
parent 1574 7c25ed84ad12
child 1576 b75c64bb5849
comments
Image.st
--- a/Image.st	Thu Apr 10 17:46:29 1997 +0200
+++ b/Image.st	Thu Apr 10 17:49:56 1997 +0200
@@ -9008,12 +9008,41 @@
 
      anImage := Image fromFile:'bitmaps/gifImages/garfield.gif'.
      anImage saveOn:'myImage.tiff' using:TIFFReader.
+    "
+
+    "
+     |anImage|
+
+     anImage := Image fromFile:'bitmaps/gifImages/garfield.gif'.
      anImage saveOn:'myImage.xbm' using:XBMReader.
+    "
+
+    "
+     |anImage|
+
+     anImage := Image fromFile:'bitmaps/gifImages/garfield.gif'.
+     Image cannotRepresentImageSignal handle:[:ex |
+        self warn:'cannot save the image in this format'
+     ] do:[
+        anImage saveOn:'myImage.xbm' using:XBMReader.
+     ]
+    "
+
+    "
+     |anImage|
+
+     anImage := Image fromFile:'bitmaps/gifImages/garfield.gif'.
      anImage saveOn:'myImage.xpm' using:XPMReader.
+    "
+
+    "
+     |anImage|
+
+     anImage := Image fromFile:'bitmaps/gifImages/garfield.gif'.
      anImage saveOn:'myImage.gif' using:GIFReader.
     "
 
-    "Modified: 10.4.1997 / 17:38:24 / cg"
+    "Modified: 10.4.1997 / 17:49:26 / cg"
 ! !
 
 !Image methodsFor:'screen capture'!
@@ -9450,6 +9479,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.164 1997-04-10 15:45:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.165 1997-04-10 15:49:56 cg Exp $'
 ! !
 Image initialize!