--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/JPEGReader.st	Wed Oct 13 01:31:41 1993 +0100
@@ -0,0 +1,27 @@
+ImageReader subclass:#JPEGReader
+         instanceVariableNames:''
+         classVariableNames:''
+         poolDictionaries:''
+         category:'Graphics-Support'
+!
+
+!JPEGReader methodsFor:'reading from file'!
+
+fromFile:aFileName
+    "make it the easy way: let djpeg convert it to gif,
+     then let GIFReader read the file"
+
+    |tempFileName reader|
+
+    tempFileName := '/tmp/img' , (OperatingSystem getProcessId printString).
+    Transcript showCr:'converting to gif ..'.
+    (OperatingSystem executeCommand:'djpeg -gif ' , aFileName , ' > ' , tempFileName)
+    ifTrue:[
+        reader := GIFReader fromFile:tempFileName.
+        OperatingSystem executeCommand:'rm ' , tempFileName.
+        ^ reader
+    ].
+    ^ nil
+
+    "JPEGReader fromFile:'bitmaps/testimg.jpg'"
+! !