# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 891434790 -7200
# Node ID 1f614850a058672d7a41ffdfa02988f0bc0b6d01
# Parent  f9b35ab9ae83bb6c290a08de03d8578a2013072d
*** empty log message ***

diff -r f9b35ab9ae83 -r 1f614850a058 ImageSequence.st
--- a/ImageSequence.st	Wed Apr 01 14:45:23 1998 +0200
+++ b/ImageSequence.st	Wed Apr 01 14:46:30 1998 +0200
@@ -12,8 +12,8 @@
 
 "
 
-Object subclass:#ImageSequence
-	instanceVariableNames:'frames'
+OrderedCollection subclass:#ImageSequence
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Graphics-Images'
@@ -53,26 +53,8 @@
 "
 ! !
 
-!ImageSequence methodsFor:'accessing'!
-
-frames
-    "return the value of the instance variable 'frames' (automatically generated)"
-
-    ^ frames
-
-    "Created: 24.6.1997 / 20:43:20 / cg"
-!
-
-frames:something
-    "set the value of the instance variable 'frames' (automatically generated)"
-
-    frames := something.
-
-    "Created: 24.6.1997 / 20:43:21 / cg"
-! !
-
 !ImageSequence class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ImageSequence.st,v 1.2 1997-06-27 17:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ImageSequence.st,v 1.3 1998-04-01 12:46:30 cg Exp $'
 ! !