1BEGIN {$| = 1; print "1..4\n"; } 2 3use strict; 4 5use SWF qw(Button Shape Movie); 6use SWF::Constants ':Button'; 7require 't/config.pl'; 8 9#$Test::Harness::switches = ''; 10 11SWF::setVersion(4); 12my $s = new SWF::Shape(); 13$s->setRightFill(0xff, 0, 0); 14$s->drawLine(1000,0); 15$s->drawLine(0,1000); 16$s->drawLine(-1000,0); 17$s->drawLine(0,-1000); 18 19my $b; 20eval{ 21 $b = new SWF::Button(); 22}; 23ok($@); 24 25$b->addShape($s, SWFBUTTON_HIT | SWFBUTTON_UP | SWFBUTTON_DOWN | SWFBUTTON_OVER); 26$b->addAction(new SWF::Action("startDrag('/test', 0);"), SWFBUTTON_MOUSEDOWN); 27$b->addAction(new SWF::Action("stopDrag();"), SWFBUTTON_MOUSEUP); 28 29ok(); 30 31my $p; 32eval{ 33 $p = new SWF::MovieClip(); 34}; 35 36ok(); 37 38$p->add($b); 39$p->nextFrame(); 40 41my $m = new SWF::Movie(); 42my $i = $m->add($p); 43$i->setName('test'); 44$i->moveTo(1000,1000); 45ok(); 46