#!/usr/bin/perl
use Data::Dumper;

my $a = `xwininfo -name 'FvwmButtons' | grep 'Absolute upper-left X' | awk '{print \$4}'`;
$a =~ s/[\s\n\r]+//;


my $resx = 0;
my $resy = 0;
my $dimensions = (grep (/dimensions/, `xdpyinfo`))[0];
if ($dimensions =~ /.*:\s+(\w+)x(\w+)/) {
    $resx = $1;
    $resy = $2;
}
else {
    close (OUT);
    die "Could not parse xdpyinfo\n";
}

#print Dumper($a, $resx);



if( $a eq $resx ) {
        print "All (FvwmButtons) AnimatedMove -0 -0"
} else {
        print "All (FvwmButtons) AnimatedMove 100 0"
}