diff options
Diffstat (limited to 'src/mac/RunAppleScript.pl')
| -rw-r--r-- | src/mac/RunAppleScript.pl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/mac/RunAppleScript.pl b/src/mac/RunAppleScript.pl deleted file mode 100644 index 8a4828b89..000000000 --- a/src/mac/RunAppleScript.pl +++ /dev/null @@ -1,16 +0,0 @@ -use Mac::Components; -use Mac::OSA; -use Mac::AppleEvents; - -undef $/; - -$applescript = OpenDefaultComponent(kOSAComponentType, "ascr") or die "AppleScript not installed"; -$script = AECreateDesc "TEXT", <STDIN>; - -$result = OSADoScript($applescript, $script, 0, "TEXT", 0) or die $^E; - -print AEPrint($result), "\n"; - -AEDisposeDesc $result; -AEDisposeDesc $script; -CloseComponent $applescript; |
