1# ====================================================================
2# Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
3# This program is free software; you can redistribute it and/or modify
4# it under the same terms as Perl itself.
5# ====================================================================
6
7# $Author$
8# $Id$
9
10package SWF::Morph;
11use SWF ();
12
13$SWF::Morph::VERSION = $SWF::VERSION;
14
15sub getShapes{
16    my $self = shift;
17    return ($self->getShape1(), $self->getShape2());
18}
19
201;
21
22__END__
23
24=head1 NAME
25
26SWF::Morph - SWF Morph Class
27
28=head1 SYNOPSIS
29
30	use SWF::Morph;
31	my $morph = new SWF::Morph();
32
33=head1 DESCRIPTION
34
35SWF::Morph twist from one shape to another.
36
37=head1 METHODS
38
39=over 4
40
41=item new SWF::Morph();
42
43Returns an SWF::Morph object.
44
45=item ($shape1, $shape2) = $morph->getShapes();
46
47Returns two SWF::Shape objects. The first one (shape1) is the morph's starting shape while shape2 is its final shape. You may also use "getShape1()" and "getShape2()" methods to get a handle of these shapes.
48
49=item $shape1 = $morph->getShape1();
50
51Returns the morph's starting shape.
52
53=item $shape2 = $morph->getShape2();
54
55Returns the morph's final shape.
56
57=back
58
59=head1 AUTHOR
60
61Soheil Seyfaie (soheil@netcom.ca).
62
63=head1 SEE ALSO
64
65SWF, SWF::DisplayItem, SWF::Shape, SWF::Movie, SWF::MovieClip
66
67=cut
68