blob: 38a3c2e679957607bd6405edf2ee2bfdd0ece1c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--
-- AppDelegate.applescript
-- Word Count
--
-- Created by tw on 10/8/18.
-- Copyright © 2018 tw. All rights reserved.
--
script AppDelegate
property parent : class "NSObject"
-- IBOutlets
property theWindow : missing value
property theCharacters : missing value
property theWords : missing value
property theParagraphs : missing value
on applicationWillFinishLaunching_(aNotification)
tell application "TextEdit"
set top_document to document 1
set l_chars to count characters of top_document
set l_words to count words of top_document
set l_paragraphs to count paragraphs of top_document
end tell
theCharacters's setStringValue_(l_chars)
theWords's setStringValue_(l_words)
theParagraphs's setStringValue_(l_paragraphs)
end applicationWillFinishLaunching_
on applicationShouldTerminate_(sender)
-- Insert code here to do any housekeeping before your application quits
return current application's NSTerminateNow
end applicationShouldTerminate_
end script
|
