FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 10:46:53 +00:00
Code Issues Releases Wiki Activity

55_InfoPanel.pm: updated

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7989 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-02-14 22:07:48 +00:00
parent a02724fe83
commit 0e5d538ced
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/FHEM/55_InfoPanel.pm
View File

@ -335,6 +335,16 @@ sub btIP_itemEllipse {
return $output;
}
sub btIP_itemEmbed {
my ($id,$x,$y,$width,$height,$arg,%params) = @_;
my $embed = "<div id=\"${id}_embedded\" style=\"position:absolute; top:${y}px; left:${x}px; ".
"width:${width}px; height:${height}px; z-index:2; \" >\n".
"$arg\n".
"</div>\n";
return $embed;
}
sub btIP_itemGroup {
my($id,$type,$x,$y) = @_;
return "</g>\n" if $type eq 'close';
@ -970,6 +980,16 @@ sub btIP_evalLayout {
$svg .= btIP_itemEllipse($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link,%params);
}
when("embed") {
($id,$x,$y,$width,$height,$arg)= split("[ \t]+", $def, 6);
($x,$y)= btIP_xy($x,$y,%params);
($width,$height)= btIP_xy($width,$height,%params);
$params{xx} = $x;
$params{yy} = $y;
$arg = AnalyzePerlCommand(undef,$arg);
$defs{$name}{fhem}{div} .= btIP_itemEmbed($id,$x,$y,$width,$height,$arg,%params);
}
when("font") {
$params{font} = $def;
}