Mouse position: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a second version which doesn't require jmv.) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Typo) |
||
Line 840: | Line 840: | ||
// 'No name set'; |
// 'No name set'; |
||
my $line = "Mouse location: x=$x : y=$y\nWindow under mouse |
my $line = "Mouse location: x=$x : y=$y\nWindow under mouse:\nID: " ~ |
||
$window-id ~ "\nWindow name: " ~ $name ~ "\nScreen #: $screen"; |
$window-id ~ "\nWindow name: " ~ $name ~ "\nScreen #: $screen"; |
||