drag.t

Ming is a library for generating Macromedia Flash files (.swf), written in C, and includes useful ut

BEGIN {$| = 1; print "1..4\n"; }

use strict;

use SWF qw(Button Shape Movie);
use SWF::Constants ':Button';
require 't/config.pl';

#$Test::Harness::switches = '';

SWF::setVersion(4);
my $s = new SWF::Shape();
$s->setRightFill(0xff, 0, 0);
$s->drawLine(1000,0);
$s->drawLine(0,1000);
$s->drawLine(-1000,0);
$s->drawLine(0,-1000);

my $b;
eval{
    $b = new SWF::Button();
};
ok($@);

$b->addShape($s, SWFBUTTON_HIT | SWFBUTTON_UP | SWFBUTTON_DOWN | SWFBUTTON_OVER);
$b->addAction(new SWF::Action("startDrag('/test', 0);"), SWFBUTTON_MOUSEDOWN);
$b->addAction(new SWF::Action("stopDrag();"), SWFBUTTON_MOUSEUP);

ok();

my $p;
eval{
    $p = new SWF::MovieClip();
};

ok();

$p->add($b);
$p->nextFrame();

my $m = new SWF::Movie();
my $i = $m->add($p);
$i->setName('test');
$i->moveTo(1000,1000);
ok();