From 0e5d538cedae0eefdbb6c1bfb6203744e3d889e1 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 14 Feb 2015 22:07:48 +0000
Subject: [PATCH] 55_InfoPanel.pm: updated

git-svn-id: https://svn.fhem.de/fhem/trunk@7989 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/55_InfoPanel.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index f5e1db6d1..a6b2160ce 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -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;
         }