1 "{ Package: 'stx:libview2' }"

     2 

     3 Object subclass:#MultiImage

     4 	instanceVariableNames:'images'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Graphics-Images'

     8 !

     9 

    10 

    11 !MultiImage class methodsFor:'instance creation'!

    12 

    13 images:imageCollection

    14     ^ self new images:imageCollection

    15 ! !

    16 

    17 !MultiImage methodsFor:'accessing'!

    18 

    19 images:something

    20     "set the value of the instance variable 'images' (automatically generated)"

    21 

    22     images := something.

    23 ! !

    24 

    25 !MultiImage methodsFor:'displaying'!

    26 

    27 displayOn:aGC x:x y:y opaque:opaque

    28     |doOpaque|

    29 

    30     doOpaque := opaque.

    31     images do:[:eachImage |

    32         eachImage displayOn:aGC x:x y:y opaque:doOpaque.

    33         doOpaque := false.

    34     ].

    35 ! !

    36 

    37 !MultiImage class methodsFor:'documentation'!

    38 

    39 version

    40     ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.1 2002-09-11 12:50:38 penk Exp $'

    41 ! !