ImageFrame.st
author Claus Gittinger <cg@exept.de>
Mon, 28 Jul 1997 12:43:53 +0200
changeset 673 5e342b1ebe45
parent 617 20a86b0e23d2
child 885 f9b35ab9ae83
permissions -rw-r--r--
added #booleanAspectFor: as a code-saver
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
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
Object subclass:#ImageFrame
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	instanceVariableNames:'imageHolder delay'
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
!ImageFrame 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 ImageFrame represents a single image in a sequence
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    (such as an animated GIF or a movie).
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    This class only defines a delayTime (in ms) to the next
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    image; specialized subclasses may add additional attributes.
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
        ImageSequence
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
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!ImageFrame methodsFor:'accessing'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
delay
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    "return the value of the instance variable 'delay' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    ^ delay
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    "Created: 21.6.1997 / 13:05:47 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
delay:something
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "set the value of the instance variable 'delay' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    delay := something.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    "Created: 21.6.1997 / 13:05:47 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
image
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    "return the image as represented by the imageFrame.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
     Here, the imageHolders value is returned"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
    ^ imageHolder value
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
    "Created: 21.6.1997 / 13:05:30 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
imageHolder
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
    "return the value of the instance variable 'imageHolder' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    ^ imageHolder
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
    "Created: 21.6.1997 / 13:05:53 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
imageHolder:something
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    "set the value of the instance variable 'imageHolder' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
    imageHolder := something.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
    "Created: 21.6.1997 / 13:05:53 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
!ImageFrame class methodsFor:'documentation'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
version
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    ^ '$Header: /cvs/stx/stx/libview2/ImageFrame.st,v 1.1 1997-06-24 11:16:31 cg Exp $'
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
! !