[mirrors/Programs.git] / bash / x-mouse / xwarppointer / swap.pl

#!/usr/bin/perl

$half = 1600;

$line = `xwarppointer get`;
chomp $line;
@c = split(/ /, $line);

if ($c[0] > $half) {
    $c[0] -= $half;
} else {
    $c[0] += $half;
}

`xwarppointer abspos $c[0] .`;
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/perl
	2
	3	$half = 1600;
	4
	5	$line = `xwarppointer get`;
	6	chomp $line;
	7	@c = split(/ /, $line);
	8
	9	if ($c[0] > $half) {
	10	$c[0] -= $half;
	11	} else {
	12	$c[0] += $half;
	13	}
	14
	15	`xwarppointer abspos $c[0] .`;