GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
ssh-jail builder
[mirrors/Programs.git]
/
bash
/
x-mouse
/
xwarppointer
/
swap.pl
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] .`
;
This page took
0.274219 seconds
and
4
git commands to generate.