… | |
… | |
1340 | |
1340 | |
1341 | $self->_add ($source, ptr => pointerMove => |
1341 | $self->_add ($source, ptr => pointerMove => |
1342 | origin => $origin, x => $x*1, y => $y*1, duration => $duration*1) |
1342 | origin => $origin, x => $x*1, y => $y*1, duration => $duration*1) |
1343 | } |
1343 | } |
1344 | |
1344 | |
|
|
1345 | =item $al = $al->cancel ($source) |
|
|
1346 | |
|
|
1347 | Executes a pointer cancel action. |
|
|
1348 | |
|
|
1349 | =cut |
|
|
1350 | |
|
|
1351 | sub cancel { |
|
|
1352 | my ($self, $source) = @_; |
|
|
1353 | |
|
|
1354 | $self->_add ($source, ptr => "pointerCancel") |
|
|
1355 | } |
|
|
1356 | |
1345 | =item $al = $al->keyDown ($key, $source) |
1357 | =item $al = $al->keyDown ($key, $source) |
1346 | |
1358 | |
1347 | =item $al = $al->keyUp ($key, $source) |
1359 | =item $al = $al->keyUp ($key, $source) |
1348 | |
1360 | |
1349 | Press or release the given key. |
1361 | Press or release the given key. |
… | |
… | |
1369 | $al->key ("{Enter}"); |
1381 | $al->key ("{Enter}"); |
1370 | |
1382 | |
1371 | =item $al = $al->type ($string, $source) |
1383 | =item $al = $al->type ($string, $source) |
1372 | |
1384 | |
1373 | Convenience method to simulate a series of key press and release events |
1385 | Convenience method to simulate a series of key press and release events |
1374 | for the keys in C<$string>. There is no syntax for special keys, |
1386 | for the keys in C<$string>, one pair per extended unicode grapheme |
1375 | everything will be typed "as-is" if possible. |
1387 | cluster. There is no syntax for special keys, everything will be typed |
|
|
1388 | "as-is" if possible. |
1376 | |
1389 | |
1377 | =cut |
1390 | =cut |
1378 | |
1391 | |
1379 | our %SPECIAL_KEY = ( |
1392 | our %SPECIAL_KEY = ( |
1380 | "Unidentified" => 0xE000, |
1393 | "Unidentified" => 0xE000, |