Image.st
changeset 1777 092df37a0fc8
parent 1774 4241f730e0a6
child 1778 d32dfda7597d
--- a/Image.st	Tue Jun 24 16:25:14 1997 +0200
+++ b/Image.st	Tue Jun 24 16:37:12 1997 +0200
@@ -1145,7 +1145,7 @@
 
     readerClass := FileFormats at:(suffix asLowercase) ifAbsent:nil.
     readerClass notNil ifTrue:[
-        mustDecompress ifTrue:[
+        mustDecompress == true ifTrue:[
             inPipe := PipeStream readingFrom:'gunzip <' , pathName.
             inPipe notNil ifTrue:[
                 [
@@ -1219,7 +1219,7 @@
      ]
     "
 
-    "Modified: 24.6.1997 / 16:09:01 / cg"
+    "Modified: 24.6.1997 / 16:36:28 / cg"
 !
 
 fromFile:aFileName on:aDevice
@@ -10910,6 +10910,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.202 1997-06-24 14:18:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.203 1997-06-24 14:37:12 cg Exp $'
 ! !
 Image initialize!