FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 12:18:46 +00:00
Code Issues Releases Wiki Activity

contrib/InfoPanel: updated

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7766 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-01-29 19:59:02 +00:00
parent ab9f8731e3
commit da7a6dc9db
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/contrib/InfoPanel/55_InfoPanel.pm
View File

@ -45,6 +45,7 @@ sub btIP_itemButton;
sub btIP_itemCircle;
sub btIP_itemDate;
sub btIP_itemEllipse;
sub btIP_itemGroup;
sub btIP_itemImg;
sub _btIP_imgData;
sub _btIP_imgRescale;
@ -249,11 +250,10 @@ sub btIP_itemEllipse {
}
sub btIP_itemGroup {
my($id,$type,$arg) = @_;
my($id,$type,$x,$y) = @_;
return "</g>\n" if $type eq 'close';
$arg = defined($arg) ? $arg : "";
$id = ($id eq '-') ? createUniqueId() : $id;
return "<g id=\"$id\" $arg >" if $type eq 'open';
return "<g id=\"$id\" transform=\"translate($x,$y)\" >" if $type eq 'open';
}
sub btIP_itemImg {
@ -715,9 +715,11 @@ sub btIP_evalLayout($$@) {
}
when("group") {
($id,$text,$arg) = split("[ \t]+", $def, 3);
my $arg = AnalyzePerlCommand(undef, $arg) if($arg);
$svg .= btIP_itemGroup($id,$text,$arg);
($id,$text,$x,$y) = split("[ \t]+", $def, 4);
($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x;
$params{yy} = $y;
$svg .= btIP_itemGroup($id,$text,$x,$y);
}
when("img") {