Re: [Ming-users] Weird problem with Perl binding.

[☼ 林. ☼ (Yung-c. L. <hen...@gm...>]

My environment is Debian Linux 2.6.18-4-486, perl 5.10.0 with SWF
0.4.0-beta6.

Thanks

Yung-chung Lin


On Fri, Aug 8, 2008 at 9:49 PM, ☼ 林永忠 ☼ (Yung-chung Lin) <
hen...@gm...> wrote:

> This line: my $soundobject = SWF::Sound->new("snore.wav", $flag);
>
> Thanks.
>
> Yung-chung Lin
>
>
>
> On Fri, Aug 8, 2008 at 8:36 PM, Klaus Rechert <kl...@re...> wrote:
>
>> Hi,
>>
>> do you have a line number associated with the error message?
>>
>>   Klaus
>>
>>  Hi,
>>>
>>> I put a sound file in a swf file, but I encountered a weird problem. It
>>> emitted a message like "Modification of a read-only value attempted" when I
>>> tried to use SWF::Sound->new.
>>>
>>> My code is listed below. Hope someone can help. Thanks.
>>>
>>> #!/usr/bin/perl
>>>
>>> use strict;
>>> use warnings;
>>> use Data::Dumper;
>>> use SWF::Constants qw(SWFBUTTON_HIT SWFBUTTON_UP SWFBUTTON_DOWN
>>> SWFBUTTON_OVER);
>>> use SWF qw(Action Bitmap Button Constants DisplayItem Fill Font Gradient
>>> Morph Movie MovieClip PrebuiltClip Shape Sound Text TextField);
>>>
>>> sub main {
>>>    my $m = new SWF::Movie();
>>>    $m->setBackground(0xff,0xcc,0x0);
>>>    $m->setDimension(200,100);
>>>
>>>    my $b = new SWF::Button();
>>>
>>>    my $filename = 'snore.wav';
>>>    my $flag = SWF::Constants::SWF_SOUND_22KHZ |
>>> SWF::Constants::SWF_SOUND_8BITS | SWF::Constants::SWF_SOUND_MONO;
>>>
>>>    my $soundobject = SWF::Sound->new("snore.wav", $flag);
>>>
>>>    my $soundinstance = $b->addSound($soundobject,
>>> SWF::Constants::SWFBUTTON_HIT);
>>>
>>>    my $s = new SWF::Shape();
>>>    my $f = $s->addFill(0xff, 0, 0);
>>>    $s->setRightFill($f);
>>>
>>>    $s->movePenTo(0, 0);
>>>    $s->drawLineTo(20, 0);
>>>    $s->drawLineTo(20, 20);
>>>    $s->drawLineTo(0, 20);
>>>    $s->drawLineTo(0, 0);
>>>
>>>    $b->addShape($s, SWF::Constants::SWFBUTTON_HIT |
>>> SWF::Constants::SWFBUTTON_UP | SWF::Constants::SWFBUTTON_DOWN |
>>> SWF::Constants::SWFBUTTON_OVER);
>>>
>>>    $m->add($b);
>>>    $m->nextFrame();
>>>
>>>    $m->save("root/static/flash/empty.swf");
>>> }
>>>
>>> main(@ARGV);
>>>
>>>
>>> Yung-chung Lin
>>> ------------------------------------------------------------------------
>>>
>>> -------------------------------------------------------------------------
>>> This SF.Net email is sponsored by the Moblin Your Move Developer's
>>> challenge
>>> Build the coolest Linux based applications with Moblin SDK & win great
>>> prizes
>>> Grand prize is a trip for two to an Open Source event anywhere in the
>>> world
>>> http://moblin-contest.org/redirect.php?banner_id=100&url=/
>>> ------------------------------------------------------------------------
>>>
>>> _______________________________________________
>>> Ming-users mailing list
>>> Min...@li...
>>> https://lists.sourceforge.net/lists/listinfo/ming-users
>>>
>>>
>>
>>
>