--- a/ImageSequence.st	Wed Apr 01 14:46:30 1998 +0200
+++ b/ImageSequence.st	Wed Apr 01 14:54:59 1998 +0200
@@ -13,7 +13,7 @@
 "
 
 OrderedCollection subclass:#ImageSequence
-	instanceVariableNames:''
+	instanceVariableNames:'loop iterationCount'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Images'
@@ -53,8 +53,50 @@
 "
 ! !
 
+!ImageSequence methodsFor:'accessing'!
+
+iterationCount
+    "return the iterationCount.
+     The sequence is to be played that often."
+
+    ^ iterationCount
+
+    "Created: / 1.4.1998 / 14:53:43 / cg"
+    "Modified: / 1.4.1998 / 14:54:46 / cg"
+!
+
+iterationCount:something
+    "set the iterationCount.
+     The sequence is to be played that often."
+
+    iterationCount := something.
+
+    "Created: / 1.4.1998 / 14:53:43 / cg"
+    "Modified: / 1.4.1998 / 14:54:53 / cg"
+!
+
+loop
+    "return the value of the loop flag;
+     If true, this is considered an endless-loop sequence."
+
+    ^ loop
+
+    "Created: / 1.4.1998 / 14:53:47 / cg"
+    "Modified: / 1.4.1998 / 14:54:23 / cg"
+!
+
+loop:aBoolean
+    "set the value of the loop flag;
+     If true, this is considered an endless-loop sequence."
+
+    loop := aBoolean.
+
+    "Created: / 1.4.1998 / 14:53:47 / cg"
+    "Modified: / 1.4.1998 / 14:54:15 / cg"
+! !
+
 !ImageSequence class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ImageSequence.st,v 1.3 1998-04-01 12:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ImageSequence.st,v 1.4 1998-04-01 12:54:59 cg Exp $'
 ! !