鼠标动作SVG

时间:2016-07-29 21:19:42

标签: perl svg interactive

任何人都可以为我提供一个使用svg鼠标操作的简单示例吗?我无法在网上找到任何好的例子。当我点击一个矩形时,我想显示一条消息。我正在使用SVG模块来开发图形。

1 个答案:

答案 0 :(得分:0)

文档有点稀疏,但您可以随时查阅软件包的测试文件以获取灵感。

https://github.com/szabgab/SVG/blob/master/t/09-script.t

t / 09-script.t - 第39-49行

my $rect = $svg->rect(
    x       => 10,
    y       => 10,
    fill    => 'red',
    stroke  => 'black',
    width   => '10',
    height  => '10',
    onclick => "alert('hello'+' '+'world')"
);

$out = $rect->xmlify;

生成svg代码段

<rect fill="red" height="10" onclick="alert('hello'+' '+'world')" stroke="black" width="10" x="10" y="10" />

其他鼠标操作可以类似地包含在键/值对列表中。完整的属性列表:SVG Attribute Reference