ImageSequence.st
author Claus Gittinger <cg@exept.de>
Sun, 29 Jan 2017 02:26:51 +0100
changeset 3853 5a78ffcf69de
parent 887 5e198d0881fa
child 3917 26886da33871
permissions -rw-r--r--
#FEATURE by cg class: TypeConverter changed: #timeOfClass:withFormat:orDefault:language:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG 
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	      All Rights Reserved
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
886
1f614850a058 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 631
diff changeset
    15
OrderedCollection subclass:#ImageSequence
887
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    16
	instanceVariableNames:'loop iterationCount'
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	classVariableNames:''
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	poolDictionaries:''
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	category:'Graphics-Images'
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!ImageSequence class methodsFor:'documentation'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
copyright
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
 COPYRIGHT (c) 1997 by eXept Software AG 
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	      All Rights Reserved
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 This software is furnished under a license and may be used
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 other person.  No title to or ownership of the software is
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 hereby transferred.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
documentation
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    An ImageSequence represents a sequence of images as contained
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    in an animated gif or in a movie file.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    ImageSequence itself is abstract and possibly redefined to hold
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    additional attributes by specific movie representations.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    [author:]
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
        Claus Gittinger
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    [see also:]
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
        ImageFrame
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
        Image
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
887
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    56
!ImageSequence methodsFor:'accessing'!
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    57
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    58
iterationCount
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    59
    "return the iterationCount.
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    60
     The sequence is to be played that often."
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    61
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    62
    ^ iterationCount
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    63
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    64
    "Created: / 1.4.1998 / 14:53:43 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    65
    "Modified: / 1.4.1998 / 14:54:46 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    66
!
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    67
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    68
iterationCount:something
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    69
    "set the iterationCount.
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    70
     The sequence is to be played that often."
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    71
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    72
    iterationCount := something.
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    73
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    74
    "Created: / 1.4.1998 / 14:53:43 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    75
    "Modified: / 1.4.1998 / 14:54:53 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    76
!
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    77
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    78
loop
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    79
    "return the value of the loop flag;
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    80
     If true, this is considered an endless-loop sequence."
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    81
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    82
    ^ loop
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    83
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    84
    "Created: / 1.4.1998 / 14:53:47 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    85
    "Modified: / 1.4.1998 / 14:54:23 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    86
!
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    87
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    88
loop:aBoolean
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    89
    "set the value of the loop flag;
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    90
     If true, this is considered an endless-loop sequence."
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    91
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    92
    loop := aBoolean.
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    93
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    94
    "Created: / 1.4.1998 / 14:53:47 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    95
    "Modified: / 1.4.1998 / 14:54:15 / cg"
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    96
! !
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
    97
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
!ImageSequence class methodsFor:'documentation'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
version
887
5e198d0881fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 886
diff changeset
   101
    ^ '$Header: /cvs/stx/stx/libview2/ImageSequence.st,v 1.4 1998-04-01 12:54:59 cg Exp $'
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
! !