mirror of
https://github.com/Ranchero-Software/NetNewsWire.git
synced 2024-12-27 10:02:37 +01:00
43cfb54437
Consolidate GetURL AppleEvent handling into AppDelegate+Scriptability file Add scripting access groups to sdef Add exists command Add ‘permalink’ and ‘external url’ properties to the article scripting object Add a unit test to verify the behavior of ‘current article’
32 lines
646 B
AppleScript
32 lines
646 B
AppleScript
|
|
|
|
property uparrowKeyCode : 126
|
|
property downarrowKeyCode : 125
|
|
property rightarrowKeyCode : 124
|
|
property leftarrowKeyCode : 123
|
|
|
|
to activateEvergreen()
|
|
tell application "Evergreen"
|
|
activate
|
|
end tell
|
|
end activateEvergreen
|
|
|
|
to multipleKeyCodes(keycode, numberOfKeys)
|
|
tell application "System Events"
|
|
tell process "Evergreen"
|
|
repeat numberOfKeys times
|
|
key code keycode
|
|
end repeat
|
|
end tell
|
|
end tell
|
|
end multipleKeyCodes
|
|
|
|
try
|
|
activateEvergreen()
|
|
multipleKeyCodes(rightarrowKeyCode, 1)
|
|
on error message
|
|
return {test_result:false, script_result:message}
|
|
end try
|
|
|
|
return {test_result:true, script_result:"selected an article"}
|