Mouse position: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: Slightly better phrasing)
Line 840: Line 840:
// 'No name set';
// 'No name set';


my $line = "Mouse location: x=$x : y=$y\nWindow under mouse:\nID: " ~
my $line = "Mouse location: x=$x : y=$y\nWindow under mouse:\nWindow ID: " ~
$window-id ~ "\nWindow name: " ~ $name ~ "\nScreen #: $screen";
$window-id ~ "\nWindow name: " ~ $name ~ "\nScreen #: $screen";