ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
automove-background
Revision:
1.2
Committed:
Fri Jan 20 14:41:07 2006 UTC
(18 years, 6 months ago) by
root
Branch:
MAIN
Changes since
1.1
:
+6 -1 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->parent, $self->DefaultRootWindow,
8
0, 0
9
);
10
11
$self->cmd_parse ("\033]20;;=+$x+$y\007");
12
}