care for iterationCount
authorClaus Gittinger <cg@exept.de>
Wed, 01 Apr 1998 19:14:16 +0200
changeset 890 f725cdcd43f4
parent 889 85b7aa0e79e4
child 891 192781b5b7e7
care for iterationCount
GIFReader.st
--- a/GIFReader.st	Wed Apr 01 17:21:53 1998 +0200
+++ b/GIFReader.st	Wed Apr 01 19:14:16 1998 +0200
@@ -437,13 +437,24 @@
         ].
     ].
 
+    imageSequence notNil ifTrue:[
+        iterationCount notNil ifTrue:[
+            iterationCount == 0 ifTrue:[
+                imageSequence loop:true.
+            ] ifFalse:[
+                imageSequence loop:false.
+                imageSequence iterationCount:iterationCount.
+            ]
+        ]
+    ].
+
     "
      Image fromFile:'/home/cg/work/stx/goodies/bitmaps/gifImages/animated/vrml.gif'
      Image fromFile:'/home/cg/work/stx/goodies/bitmaps/gifImages/animated/arrow.gif'
     "
 
     "Modified: / 5.7.1996 / 17:32:01 / stefan"
-    "Modified: / 1.4.1998 / 15:00:07 / cg"
+    "Modified: / 1.4.1998 / 19:03:46 / cg"
 !
 
 makeGreyscale
@@ -970,6 +981,6 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.69 1998-04-01 13:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.70 1998-04-01 17:14:16 cg Exp $'
 ! !
 GIFReader initialize!