ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
automove-background
Revision:
1.5
Committed:
Mon Feb 6 05:47:06 2006 UTC
(18 years, 4 months ago) by
root
Branch:
MAIN
CVS Tags:
rel-7_7, rel-7_6
Changes since
1.4
:
+4 -10 lines
Log Message:
*** empty log message ***
File Contents
#
Content
1
#! perl
2
3
sub on_configure_notify {
4
my ($self, $event) = @_;
5
6
my ($x, $y) = $self->XTranslateCoordinates (
7
$self->vt, $self->DefaultRootWindow,
8
0, 0
9
);
10
11
$self->cmd_parse ("\033]20;;=+$x+$y\007");
12
}