From 7d41081084eb96523e52980e6f2d40d4301b5346 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sun, 4 Sep 2016 11:29:27 +0000
Subject: [PATCH] 55_InfoPanel.pm: add movecalculated

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

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index 511ce77fb..b958ee56c 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -1119,6 +1119,12 @@ sub btIP_evalLayout {
           $svg .= btIP_itemLongpoll($id,$x,$y,$text,%params);
         }
         
+        when("movecalculated") {
+          my ($tox,$toy)= split('[ \t]+', $def, 2);
+          $params{xx} = AnalyzePerlCommand(undef,$tox);
+          $params{yy} = AnalyzePerlCommand(undef,$toy);
+        }
+
         when("moveby") {
           my ($byx,$byy) = split('[ \t]+', $def, 2);
           my ($x,$y)= btIP_xy($byx,$byy,%params);
@@ -1724,6 +1730,11 @@ Please read <a href="http://forum.fhem.de/index.php/topic,32828.0.html" target="
            <ul>move most recently x- and y-coordinates by given steps<br/>
            </ul></li><br/>
        <br/>
+       <li><code>movecalculated &lt;{perlSpecial x}&gt; &lt;{perlSpecial y}&gt;</code><br/>
+           <br/>
+           <ul>calculate x- and y-coordinates by perlSpecials<br/>
+           </ul></li><br/>
+       <br/>
        <li><code>moveto &lt;x&gt; &lt;y&gt;</code><br/>
            <br/>
            <ul>move x- and y-coordinates to the given positon<br/>