ImageFrame.st
author Claus Gittinger <cg@exept.de>
Sun, 29 Jan 2017 02:26:51 +0100
changeset 3853 5a78ffcf69de
parent 1429 28c9e0f9d239
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
1429
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
    15
"{ Package: 'stx:libview2' }"
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
    16
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
Object subclass:#ImageFrame
1429
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
    18
	instanceVariableNames:'imageHolder delay offset'
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	classVariableNames:''
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	poolDictionaries:''
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	category:'Graphics-Images'
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!ImageFrame class methodsFor:'documentation'!
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
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
 COPYRIGHT (c) 1997 by eXept Software AG 
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	      All Rights Reserved
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 This software is furnished under a license and may be used
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 only in accordance with the terms of that license and with the
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 inclusion of the above copyright notice.   This software may not
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 be provided or otherwise made available to, or used by, any
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 other person.  No title to or ownership of the software is
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 hereby transferred.
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
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
documentation
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    an ImageFrame represents a single image in a sequence
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    (such as an animated GIF or a movie).
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    This class only defines a delayTime (in ms) to the next
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    image; specialized subclasses may add additional attributes.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    [author:]
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
        Claus Gittinger
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    [see also:]
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
        ImageSequence
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
        Image
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
! !
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
!ImageFrame methodsFor:'accessing'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
delay
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    "return the value of the instance variable 'delay' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    ^ delay
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    "Created: 21.6.1997 / 13:05:47 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
delay:something
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    "set the value of the instance variable 'delay' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    delay := something.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    "Created: 21.6.1997 / 13:05:47 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
image
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
    "return the image as represented by the imageFrame.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
     Here, the imageHolders value is returned"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
    ^ imageHolder value
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
    "Created: 21.6.1997 / 13:05:30 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
885
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    85
image:anImage
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    86
    "set the image as represented by the imageFrame."
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    87
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    88
    imageHolder := anImage
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    89
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    90
    "Created: / 21.6.1997 / 13:05:30 / cg"
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    91
    "Modified: / 1.4.1998 / 14:25:33 / cg"
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    92
!
f9b35ab9ae83 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 617
diff changeset
    93
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
imageHolder
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
    "return the value of the instance variable 'imageHolder' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
    ^ imageHolder
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
    "Created: 21.6.1997 / 13:05:53 / cg"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
imageHolder:something
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
    "set the value of the instance variable 'imageHolder' (automatically generated)"
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    imageHolder := something.
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
    "Created: 21.6.1997 / 13:05:53 / cg"
1429
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   108
!
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   109
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   110
offset
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   111
    "return the value of the instance variable 'offset' (automatically generated)"
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   112
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   113
    ^ offset
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   114
!
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   115
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   116
offset:something
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   117
    "set the value of the instance variable 'offset' (automatically generated)"
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   118
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   119
    offset := something.
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
! !
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
!ImageFrame class methodsFor:'documentation'!
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
version
1429
28c9e0f9d239 remember offsets in imageSequences
martin
parents: 885
diff changeset
   125
    ^ '$Header: /cvs/stx/stx/libview2/ImageFrame.st,v 1.3 2000-11-15 15:05:02 martin Exp $'
617
20a86b0e23d2 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
! !