AppleScript: The Definitive Guide

Constant width
Constant-width italic
Constant-width bold
%
--
code comment in bold
vertical bar |
[square brackets]
image01.jpg
on open folderList
    repeat with aFolder in folderList
        if kind of (info for aFolder) is "Folder" then
            renameStuffIn(aFolder)
        end if
    end repeat
end open
on renameStuffIn(theFolder)
    set ix to 0
    tell application "Finder"
        set folderName to name of theFolder
        set allItems to (get every item of theFolder)
        repeat with thisItem in allItems
            set ix to ix + 1
            set newName to folderName & ix
            set name of thisItem to newName
        end repeat
    end tell
end renameStuffIn
folderList
http
set theProc to (get path to frontmost 
 application as Unicode text)
tell application "Finder"
    activate
    delay 1 -- 

    set theURL to (get the clipboard as string)
end tell
ignoring application responses
    try
        open location theURL
    end try
end ignoring
activate application theProc
delay
open location
set i to 1
tell application "iTunes"
    tell (get view of browser window 1)
        repeat with aTrack in (get every track)
            set track number of aTrack to i
            set i to i + 1
        end repeat
    end tell
end tell
tell application "Microsoft Entourage"
    display dialog "Really delete selected messages completely?"
    set theMessages to current messages
    try
           delete theMessages
        delete theMessages
    end try
end tell
try
    tell application "http://www.boyzoid.com/comp/randomQuote.cfc"
        set returnValue to call soap ¬
            {method name:"GetQuote", parameters:{HTMLformat:false}}
    end tell
    set L to |item| of returnValue
    repeat with anItem in L
        if |key| of anItem is "AUTHOR" then
            set auth to value of anItem
        end if
        if |key| of anItem is "QUOTE" then
            set quot to value of anItem
        end if
    end repeat
    set s to "-- " & return & quot & return & " -- " & auth
on error what
    set s to "No signature today, sorry."
end try
tell application "Microsoft Entourage"
    set sig to signature id 1
    set oldSig to (content of sig)
    set content of sig to s
    tell (make new draft window)
        set signature type to other
        set other signature choice to sig
    end tell
    set content of sig to oldSig
end tell
disk
disk
disk
"set theAddress to \"" & fm address book::email & "\"
tell application \"Mail\"
    tell (make new outgoing message)
        set visible to true
        make new to recipient at end of to recipients ¬¶
            with properties {address:theAddress}
    end tell
end tell"
email
&
email
\
on awake from nib theObject
    tell application "Finder"
        set L to (get name of every disk)
    end tell
    set content of table view 1 of scroll view 1 of window 1 to L
end awake from nib
awake from nib
set content
- (void) awakeFromNib {
    [self willChangeValueForKey:@"diskList"];
    diskList = [[NSMutableArray alloc] init];
    NSAppleScript* scpt = [[[NSAppleScript alloc] initWithSource 
:
        @"tell application \"Finder\"\r"
        "get name of disk 1\r"
        "end tell"]
        autorelease];
    NSAppleEventDescriptor* result = [scpt executeAndReturnError 
: nil];
    if ([result descriptorType] == 'utxt')
        [diskList addObject: [result stringValue]];
    else if ([result descriptorType] == 'list') {
        int i, u = [result numberOfItems];
        for (i=1; i<=u; i++)
            [diskList addObject: [[result descriptorAtIndex: i] stringValue]];
    }
    [self didChangeValueForKey:@"diskList"];
}
awakeFromNib
diskList
NSAppleEventDescriptor
diskList
diskList
    NSAppleScript* scpt = [[[NSAppleScript alloc] initWithContentsOfURL 
:
        [NSURL fileURLWithPath:
            [[NSBundle mainBundle] pathForResource: @"askFinder" ofType: @"scpt"]]
        error: nil] autorelease];
osascript
osascript
-e
osascript
osascript
% 
osascript -ss
tell app "Finder"
get name of every disk
end tell
^D

{"feathers", "gromit", "Network"}
-ss
#!/usr/bin/perl
$s = <<DONE;
    tell app "Finder"
        get name of every disk
    end
DONE
print `osascript -e '$s'`;
do shell script
applescript
href
<a>
applescript://com.apple.scripteditor?
applescript
applescript
action=new&
action=insert&
action=append&
script=
theCode
theCode
%20
%22
%0D
applescript
<a>
applescript
tell application "Finder"
    get name of every disk
end tell
<a href="applescript://com.apple.scripteditor?action=new&script=
tell%20application%20%22Finder%22%0D
    %09get%20name%20of%20every%20disk%0D
end%20tell">click me</a>
applescript
make
    core\move{
        insh:insl{
            kobj:obj {
                form:'name',
                want:'Mbox',
                seld:"appleScript",
                from:'null'( )
            },
            kpos:'end '
        },
        ----:obj {
            form:'indx',
            want:'cobj',
            seld:1,
            from:obj {
                form:'test',
                want:'msg ',
                from:obj {
                    form:'prop',
                    want:'prop',
                    seld:'unBX',
                    from:'null'( )
                },
                seld:cmpd{
                    relo:'bgwt',
                    obj1:obj {
                        form:'prop',
                        want:'prop',
                        seld:'subj',
                        from:exmn($$)
                    },
                    obj2:"applescript"
                }
            }
        }
    }
core
move
insh
insl
kobj
form
want
seld
from
prop
kpos
indx
cobj
test
obj
end
msg
core\move
----
insh
form
want
seld
from
% 
export AEDebugSends=1; export AEDebugReceives=1
% 
open /Applications/Safari.app
open
% 
open http://www.apple.com
open
AE2000 (556): Received an event:
------oo start of event oo------
{ 1 } 'aevt':  GURL/GURL {
          return id: 38666240 (0x24e0000)
     transaction id: 0 (0x0)
  interaction level: 112 (0x70)
     reply required: 0 (0x0)
  target:
    { 1 } 'psn ':  8 bytes {
      { 0x0, 0x3e0001 } (open)
    }
  optional attributes:
    < empty record >
  event data:
    { 1 } 'aevt':  - 1 items {
      key '----' -
        { 1 } 'TEXT':  20 bytes {
          "http://www.apple.com"
        }
    }
}

------oo  end of event  oo------
GURL\GURL
----
osascript
% 
osascript -e 'tell app "Finder" to get disks'
AE2000 (811): Sending an event:
------oo start of event oo------
{ 1 } 'aevt':  core/getd {
          return id: 53149700 (0x32b0004)
     transaction id: 0 (0x0)
  interaction level: 64 (0x40)
     reply required: 1 (0x1)
  target:
    { 2 } 'psn ':  8 bytes {
      { 0x0, 0xc0001 } (Finder)
    }
  optional attributes:
    { 1 } 'reco':  - 1 items {
      key 'csig' -
        { 1 } 'magn':  4 bytes {
          65536l (0x10000)
        }
    }

  event data:
    { 1 } 'aevt':  - 1 items {
      key '----' -
        { 1 } 'obj ':  - 4 items {
          key 'form' -
            { 1 } 'enum':  4 bytes {
              'indx'
            }
          key 'want' -
            { 1 } 'type':  4 bytes {
              'cdis'
            }
          key 'seld' -
            { 1 } 'abso':  4 bytes {
              'all '
            }
          key 'from' -
            { 4 } 'null':  null descriptor
        }
    }
}

------oo  end of event  oo------
core\getd
----
form
want
seld
from
move item 1 of (every message of incoming mail ¬
    whose subject begins with "applescript") ¬
    to end of mailbox "appleScript"
version
"1.10.3"
% 
osascript -e 'tell app "Finder" to get disks'
'tell app "Finder" to get disks'
osascript
script
script myScript
    display dialog "Hello from " & (get my name) & "!"
end script
run myScript — 
Hello from myScript!
script
sayHowdy( )
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
sayHowdy( )
tell app "Finder" to get ref disk 1
tell application "Finder" to get a reference to disk 1
¬
do shell script "echo 'hi'" ¬
    password "myPassword"
do shell script ¬
    "echo 'hi'" password "myPassword"
'osas'
'osas'
'TEXT'
open
'aplt'
'dplt'
'osax'
'aete'
AEUserTermTypes.h
'aete'
'aete'
'aete'
'aete'
'aete'
'aete'
'aete'
'aete'
man sdef
'aete'
get disk 1
disk
disk
tell application "NoSuchApp" to get disk 1
disk
disk
disk
tell application "Eudora"
    get subject of message 1 of mailbox "Trash"
end tell
subject
message
mailbox
tell application "Finder"
    get «class euSu» of «class euMS» 1 of «class euMB» "Trash"
end tell
if 1 = 2 then
    tell application "Eudora"
        get subject of message 1 of mailbox "Trash"
    end tell
else
    display dialog "No problem!"
end if
1
2
tell application "BBEdit"
    activate
    make new text document
end tell
execute
execute
execute
if x <= y
if x is less than or equal to y
get the first word of "hello there"
get the words of "hello there"
get words 1 thru 4 of "now is the winter of our discontent"
get text from word 1 to word 4 of "now is the winter of our discontent"
has scripting terminology
if theApplication has scripting terminology
if has scripting terminology of theApplication
set name to "Matt"
set feet to 7
set count to 9
set center to 1.5
x
x = 4
copy 4 to x
set x to 4
tell 4
    get it + 5
end tell
tell
get
it
4 + 5
tell
get
car
cdr
cons
n
(define remvix
    (lambda (ix ls)
        (cond
            ((null? ls)
                '( ))
            ((= ix 1)
                (cdr ls))
            (else
                (cons (car ls) (remvix (- ix 1) (cdr ls)))))))
(remvix 2 '(mannie moe jack))
on remvix(ix, ls)
    if ls is {} then
        return {}
    else if ix is 1 then
        return rest of ls
    else
        return {item 1 of ls} & remvix(ix - 1, rest of ls)
    end if
end remvix
remvix(2, {"Mannie", "Moe", "Jack"})
set x to 1
copy x + 1 to y
display dialog y
set x to 1
copy (display dialog x) to y
set
copy
\r
\n
\r\n
set pep to "Manny
Moe
Jack"
\r
\n
return
\r
\n
set pep to "Manny" & return & "Moe"
return pep
pep
"Manny
Moe"
set pep to "Manny\rMoe\nJack"
set pep to "Manny
Moe
Jack"
set a to ¬
    1
set a to 1 ¬

set b to 2
set s to "one very long line " & ¬
    "deserves another"
5
result
5
display dialog result  
5
tell application "Finder"
    get the name of every folder
end tell
set L to the result
tell application "Finder"
    count folders
end tell
set c to the result
tell application "Finder"
    set L to (get the name of every folder)
    set c to count folders
end tell
result
result
set L to {"Mannie", "Moe"}
set end of L to "Jack"
L
{"Mannie", "Moe", "Jack"}
result
"Jack"
result
L
result
result
result
result
result
result
result
return
on add(x, y)
    return x + y
end add
display dialog add(1, 2)
on add(x, y)
    x + y
end add
display dialog add(1, 2)
result
return
return
return
return
on add(x, y)
    x + y
end add
set z to add(1, 2)
z
z
z
return z
z
on add(x, y)
    x + y
end add
set z to add(1, 2)
return z
return z
return
z
set a to 1 -- this a comment on the same line as a command
-- this a comment on a line by itself
(*
*)
set a to 1 (* because we feel like it;
tomorrow we may not feel like setting a to 1 *)
(* in fact things could be very different tomorrow,
but I really can't speak to that issue just now *)
set b to 2 (* this seems a good idea too *)
set a to (* because we feel like it *) 1
(* here's a good idea *) set a to 1
(* outer comment
(* inner comment *)
rest of outer comment *)
(* "this works fine" and so does |this| *)
(*
set a to 7
*)
--(*
set a to 7
--*)
(* set a to 1 -- and why not? *)
a
b
a is less than b
a < b

a is b
a = b
a ≤ b
a <= b
a less than or equal b
a is less than or equal to b
a is not greater than b
a isn't greater than b
a does not come after b
a doesn't come after b
a ≤ b
a ≤ b
a is less than or equal to b
a is less than or equal to b
a is not greater than b
a is not greater than b
a does not come after b
a does not come after b
application
app
a ≠ b
a is not b
a = b
a is b
end
myHandler( )
on myHandler( )
    repeat 3 times
        display dialog "Howdy"
    end repeat
end myHandler
on myHandler
end myHandler
repeat
end repeat
tell application "Finder"
    if exists folder "Mannie" then
        reveal folder "Mannie"
    end if
end tell
tell application "Finder" to if exists folder "Mannie" then
    reveal folder "Mannie"
end if
end
end
end repeat
end
repeat
end repeat
local (x)
bundle
    x = 4
msg (x)
bundle
local x
repeat 1 times
    set x to 4
end repeat
display dialog x
the
set the x to the 9
display dialog the (get the the the the x + the 1)
on
end
repeat 3 times
    display dialog "Howdy"
end repeat
script
script 
scriptName

    -- 

end script
on
on 
handlerName
( )
    -- 

end
handlerName
capword
capword
capword
capword
"hello there"
"Hello There"
on
script
5
"howdy"
if
on
repeat
on
on myHandler( )
    if weekday of (get current date) is Monday then
        repeat 3 times
            display dialog "Howdy"
        end repeat
    end if
end myHandler
if
display dialog
repeat
repeat
if
if
repeat 3 times
    on sayHowdy( )
        display dialog "howdy"
    end sayHowdy
end repeat -- 
on outer( )
    on sayHowdy( )
        display dialog "howdy"
    end sayHowdy
end outer -- 
on outer( )
    script s
        on sayHowdy( )
            display dialog "howdy"
        end sayHowdy
    end script
end outer
on sayHowdy( )
    display dialog "howdy"
end sayHowdy
sayHowdy( )
set x to 1
on outer( )
    set xx to 1
    script s
        set xxx to 1
        on sayHowdy( )
            display dialog "howdy"
        end sayHowdy
        set xxxx to 1
    end script
    set xxxxx to 1
end outer
set xxxxxx to 1
set
display dialog
outer
xx
xx
run
on run
    display dialog "howdy"
end run
on run
display dialog "howdy"
display dialog
display dialog
on run
    display dialog "howdy"
end run
display dialog "howdy"
on run
    display dialog "howdy"
end run
on sayHowdy( )
    display dialog "hello"
end sayHowdy
script s
    display dialog "bonjour"
end script
sayHowdy
on sayHowdy( )
    display dialog "howdy"
end sayHowdy
on run
    on sayHowdy( )
        display dialog "howdy"
    end sayHowdy
end run -- 
sayHowdy
set x to 1
on sayHowdy( )
    display dialog "howdy"
end sayHowdy
set x to 2
sayHowdy
set x to 5
set
copy
=
x = 5
x
set
copy
set
set L to {1, 2, 3}
set LL to L -- 

set end of L to 4 -- 

LL -- 
{1, 2, 3, 4}
set
variableName
value
value
variableName
value
variableName
value
variableName
set {x, y, z} to {1, 2, 3}
z -- 
3
 x 
 y 
set x to x + 1
x
1
x
set x to 5
x
get
set x to (get x) + 1
get
get
set 
variableName
 to 
value
value
variableName
set x to 5
returning
set
5 returning x
copy 
value
 to 
variableName
value
variableName
copy 5 to x
copy
put
to
into
put 5 into x
copy 5 to x
set x to x + 1
x
x
x
set x to 5
set x to x + 1
null
missing value
set
copy
s
script s
    display dialog "howdy"
end script
s
5
"howdy"
set x to 5
set x to 5.2
set x to "hello"
set x to string
set x to {"fee", "fie", "fo", "fum"}
set x to (path to current user folder)
x
[a-zA-Z_]
[a-zA-Z0-9_]
set myVar to 5
set myvar to myvar + 1
myvar
myVar
set myVar to 5
set myVar to myVar + 1
set myVar to 5
set mybar to myvar + 1
set myVar to 5
set mybar to myVar + 1
mybar
myvar
strict
set avariable to 7
set aVariable to 7
set avariable to 7
avariable
set myvar to 7
set myVar to 7
set myvar to 7
|
set |1| to 2
if |1| is 2 then
    display dialog "The laws of logic are suspended."
end if
set |monZéro| to 0
set |my big long variable name with spaces| to 7
set |MyVar| to 5
set |MyVar| to |Myvar| + 1 -- 
|Myvar|
|MyVar|
\n
\r
\t
\|
\\
set |is| to "ought"
is
script
script 
scriptName

    -- 

end script
script s
    display dialog "howdy"
end script
s
s
on run
run
run
run
script s
    display dialog "howdy"
end script
run s -- 
Howdy
script s
    display dialog "howdy"
end script
tell s
    run -- 
Howdy

end tell
script s
    display dialog "howdy"
end script
tell s to run -- 
Howdy
script myScript
end script
run myScript -- 
property 
propertyName
 : 
initialValue
script s
    property x : 5
end script
property
prop
script s
    property x : 10
    display dialog x -- 
10

    set x to 5
    display dialog x -- 
5

end script
property x : 5
display dialog x
set
copy
property L : {1, 2, 3}
script s
    property LL : L
    set end of LL to 4
end script
run s
L -- 
{1, 2, 3, 4}
script myScript
    display dialog "Howdy"
end script
set x to myScript
run x -- 
Howdy
script myScript
    display dialog "Howdy"
end script
set myScript to 9
display dialog myScript -- 
9
script sayHowdy
    display dialog "Howdy"
end script
script sayGetLost
    display dialog "Get Lost"
end script
set sayHowdy to sayGetLost
run sayHowdy -- 
Get Lost
set
copy
set
script sayHello
    property greeting : "Hello"
    display dialog greeting
    set greeting to "Get Lost"
end script
set x to sayHello
run sayHello -- 
Hello

run x -- 
Get Lost
sayHello
greeting
sayHello
x
greeting
sayHello
x
set
x
sayHello
of
's
script myScript
    property x : "Howdy"
    on sayHowdy( )
        display dialog x
    end sayHowdy
    script innerScript
        display dialog x
    end script
end script
set x of myScript to "Hello"
myScript's sayHowdy( ) -- 
Hello

run innerScript of myScript --
Hello
its
script myScript
    property x : "Howdy"
    on sayHowdy( )
        display dialog x
    end sayHowdy
    script innerScript
        display dialog x
    end script
end script
tell myScript
    set its x to "Hello"
    sayHowdy( ) -- 
Hello

    run its innerScript -- 
Hello

end tell
its
myScript
its
x
x
myScript
its
innerScript
innerScript
its
sayHowdy
script myScript
    property x : 5
end script
tell myScript
    set its x to (its x) + 1
end tell
display dialog myScript's x
6
7
property x : 5
set x to x + 1
display dialog x
6
7
x
x
x
x
x
myScript
myScript
script outerScript
    script innerScript
        property x : 5
        on increment( )
            set x to x + 1
        end increment
    end script
    tell innerScript to increment( )
    display dialog innerScript's x
end script
run outerScript -- 
6
 7
script myScript
    script myInnerScript
        display dialog "Hello"
    end script
    run myInnerScript
end script
script myNastyScript
    display dialog "Get lost"
end script
run myScript
set myScript's myInnerScript to myNastyScript
Hello
Get lost
myInnerScript
myNastyScript
myInnerScript
repeat 3 times
    script s
        property x : 1
        display dialog x
        set x to x + 1
    end script
    run s
end repeat
x
x
x
1
2
3
1
1
1
s
s
script myScript
    on run
        script myInnerScript
            property x : 10
        end script
        tell myInnerScript
            set its x to (its x) + 1
            display dialog its x
        end tell
    end run
end script
run myScript -- 
11
11
myInnerScript
property x : 5
set x to x + 1
display dialog x
x
x
display dialog
property x : 5
set x to x + 1
try
    display dialog x
on error
    return 0
end try
run script
store script
script sayHello
    display dialog "Hello"
end script
store script sayHello in file "myDisk:myFile.scpt" replacing yes
display dialog "Hello"
store script
load script
store script
run script
path to
set thePath to (path to desktop as string) & "myPrefs.scpt"
script myPrefs
    property favoriteColor : ""
end script
try
    set myPrefs to load script file thePath
on error
    set favoriteColor of myPrefs to text returned of ¬
        (display dialog "Favorite Color:" default answer ¬
            "" buttons {"OK"} default button "OK")
    store script myPrefs in file thePath replacing yes
end try
display dialog "Your favorite color is " & favoriteColor of myPrefs
set thePath to (path to me as string) & "Contents:Resources:myPrefs.scpt"
set thePath to (path to preferences as string) & "myPrefs.scpt"
property favoriteColor : ""
load script
n
-- 

set f to (path to desktop as string) & "library.scpt"
set lib to load script alias f
-- 

set L to {"Mannie", "Moe", "Jack"}
set L2 to lib's remvix(2, L)
L2 -- 
{"Mannie", "Jack"}
remvix
remvix
remvix
load script
remvix
-- 

property f : (path to desktop as string) & "library.scpt"
property lib : load script alias f
-- 

set L to {"Mannie", "Moe", "Jack"}
set L2 to lib's remvix(2, L)
L2 -- 
{"Mannie", "Jack"}
lib
load script
load script
load script 
aliasOrFile
aliasOrFile
set myScript to load script alias "myDisk:myFile.scpt"
run script 
aliasOrFile
 [with parameters 
list
]
aliasOrFile
list
run script alias "myDisk:myFile.scpt"
store script 
scriptObject
 [in 
aliasOrFile
 [replacing yes|no]]
scriptObject
aliasOrFile
replacing
yes
no
store script sayHello in file "myDisk:myFile.scpt" replacing yes
parent
parent
parent
copy
set
mommy
baby
baby
parent
baby
mommy
script mommy
    on talk( )
        display dialog "How do you do?"
    end talk
end script
script baby
    property parent : mommy
end script
baby's talk( ) -- 
How do you do?
 script mommy
    on talk( )
        display dialog "How do you do?"
    end talk
end script
script baby
    property parent : mommy
    talk( )
end script
run baby -- 
How do you do?
baby
baby
script mommy
    property address : "123 Main Street"
end script
script baby
    property parent : mommy
end script
display dialog baby's address -- 
123 Main Street

set baby's address to "234 Chestnut Street"
display dialog mommy's address -- 
234 Chestnut Street
my
its
my
my
its
script mommy
    property address : "123 Main Street"
end script
script baby
    property parent : mommy
    on tellAddress( )
        display dialog my address
    end tellAddress
end script
baby's tellAddress( ) -- 
123 Main Street
script mommy
    script talk
        display dialog "How do you do?"
    end script
end script
script baby
    property parent : mommy
end script
run baby's talk -- 
How do you do?
my
its
script mommy
    script talk
        display dialog "How do you do?"
    end script
end script
script baby
    property parent : mommy
    run my talk
end script
run baby -- 
How do you do?
my
script mommy
    on talk( )
        display dialog "How do you do?"
    end talk
end script
script baby
    property parent : mommy
    talk( )
end script
run baby -- 
How do you do?
my
its
script mommy
    on tellWeight( )
        display dialog my weight
    end tellWeight
end script
script baby
    property parent : mommy
    property weight : "9 pounds"
end script
baby's tellWeight( ) -- 
9 pounds
baby
baby
mommy
my weight
mommy
weight
weight
baby
baby
mommy
my
my
weight
weight
script mommy
    property weight : "120 pounds"
    on tellWeight( )
        display dialog my weight
    end tellWeight
end script
script baby
    property parent : mommy
    property weight : "9 pounds"
end script
script baby2
    property parent : mommy
    property weight : "8 pounds"
end script
mommy's tellWeight( ) -- 
120 pounds

baby's tellWeight( ) -- 
9 pounds

baby2's tellWeight( ) -- 
8 pounds
my weight
my
its
script mommy
    on cry( )
        display dialog "Boo-hoo, sniff sniff..."
    end cry
    on beSad( )
        cry( )
    end beSad
end script
script baby
    property parent : mommy
    on cry( )
        display dialog "Waaaaaaa!"
    end cry
end script
baby's beSad( ) -- 
Waaaaaaa!
mommy
beSad
baby
baby
cry
continue
continue
parent
parent
continue
script mommy
    property weight : "120 pounds"
    on tellWeight( )
        display dialog my weight
    end tellWeight
end script
script baby
    property parent : mommy
    property weight : "9 pounds"
    parent's tellWeight( ) -- 

    continue tellWeight( ) -- 

end script
run baby -- 
120 pounds, 9 pounds
script myScript
    script myInnerScript
        my parent -- 
 myScript
    end script
    run myInnerScript
end script
run myScript
script myScript
    script myInnerScript
        property parent: myScript -- 

    end script
end script
property x : 10
script outer
    property x : 20
    script inner
    end script
end script
get outer's inner's x -- 
10
x
inner
x
outer
outer
inner
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
script s
end script
tell s to sayHowdy( ) -- 
Howdy
s
sayHowdy
sayHowdy
s
s
s
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
script s
    property parent : 3
end script
tell s to sayHowdy( ) -- 
property x : 5
script myScript
    property x : 10
    display dialog x
end script
run myScript -- 
10
x
myScript
x
myScript
x
myScript
property x : 5
script myScript
    property x : 10
    display dialog my parent's x
end script
run myScript -- 
5
myScript
me
property topLevel : me
property x : 5
script scriptOne
    property x : 10
end script
script scriptTwo
    property x : 20
    property parent : scriptOne
    display dialog topLevel's x
end script
run scriptTwo -- 
5
AppleScript
AppleScript
AppleScript
set pi to 3
display dialog pi -- 
3

display dialog AppleScript's pi -- 
3.141592...

display dialog parent's pi -- 
3.141592...
current application
display dialog (get name of current application) -- 
Script Editor
script myScript
    my parent -- 
«script»

    my parent's parent -- 
«script AppleScript»

    my parent's parent's parent -- 
current application

end script
run myScript
script s
    property parent : {"Mannie", "Moe", "Jack"}
    on greeting( )
        return "Howdy"
    end greeting
end script
tell s
    greeting( ) -- 
"Howdy"

    get item 2 -- 
"Moe"

end tell
s
greeting( )
script s
    property parent : {"Mannie", "Moe", "Jack"}
end script
get s & "Pep" -- 
{«script s», "Pep"}
 {"Mannie", "Moe", "Jack", "Pep"}
its
my
its
its
its
script s
    property p : 10
end script
tell s
    get p
end tell
p
its
s
p
p
script s
    on h( )
        return 10
    end h
end script
tell s
    get h
end tell
h
its
script s
    on h( )
        return 10
    end h
end script
tell s
    h( ) -- 
10

end tell
script x
    property greeting : "Howdy"
    on myHandler( )
        display dialog greeting
    end myHandler
    script y
        display dialog greeting
        myHandler( )
    end script
end script
run x's y -- 
Howdy
greeting
myHandler
y
greeting
myHandler
y
myHandler
x
myHandler
myHandler
x
script x
    property greeting : "Howdy"
    on myHandler( )
        display dialog greeting
    end myHandler
    script y
        x's myHandler( ) -- 

    end script
end script
run x's y -- 
Howdy
run
count
script s
end script
tell s to count -- 
0
count
count
count
script theCount
    on count
        return "1, 2, 3, ha ha ha"
    end count
end script
tell theCount to count -- 
"1, 2, 3, ha ha ha"
s
count
count
script s
    property parent : {"Mannie", "Moe", "Jack"}
end script
tell s to count -- 
3
count
tell application "Finder"
    sayHowdy( ) -- 

end tell
on
on 
handlerName
( )
    -- 

end
handlerName
on
to
on sayHowdy( )
    display dialog "howdy"
end sayHowdy
sayHowdy
sayHowdy
on sayHowdy( )
    display dialog "howdy"
end sayHowdy
sayHowdy( )
1
1
on getRam( )
    set bytes to system attribute "ram "
    return bytes div (2 ^ 20)
end getRam
getRam
1024
getRam( )
1024
1024
on getRam( )
    set bytes to system attribute "ram "
    return bytes div (2 ^ 20)
end getRam
display dialog "You have " & getRam( ) & "MB of RAM. Wow!"
getRam( )
1024
return
return
result
return
on noValue( )
    return
end noValue
set x to noValue( )
x
x
x
on noValue( )
    return
end noValue
set x to 1
set x to noValue( )
set x to x + 1 -- 
on getRam( )
    set bytes to system attribute "ram "
    return bytes div (2 ^ 20)
end getRam
set s to "You have " & getRam( ) & "MB of RAM. Wow! "
set s to s & getRam( ) & "MB is a lot!"
display dialog s
on getRam( )
    set bytes to system attribute "ram "
    return bytes div (2 ^ 20)
end getRam
set myRam to getRam( )
set s to "You have " & myRam & "MB of RAM. Wow! "
set s to s & myRam & "MB is a lot!"
display dialog s
eraseMyHardDisk( )
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
set sayHello to sayHowdy
sayHello( ) -- 
Howdy
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
set sayHowdy to 9
display dialog sayHowdy -- 
9
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
on sayGetLost( )
    display dialog "Get Lost"
end sayGetLost
set sayHello to sayGetLost
sayHello( ) -- 
Get Lost
on sayHello( )
    display dialog "Hello"
end sayHello
on sayGetLost( )
    display dialog "Get Lost"
end sayGetLost
set L to {sayHello, sayGetLost}
-- 

set h to item (random number from 1 to 2) of L
h( )
on subtract(x, y)
    return x - y
end subtract
subtract(3, 2) -- 
1
3
2
add( )
x
3
y
2
1
10
8
x
y
on subtract(x, y)
    return x - y
end subtract
set x to 2
set y to 3
subtract(y, x) -- 
1
y
x
y
x
3
x
2
y
on extend(LL)
    set end of LL to "Jack"
end extend
set L to {"Mannie", "Moe"}
extend(L)
L -- 
{"Mannie", "Moe", "Jack"}
extend( )
L
extend
L
L
extend
L
script myScript
    property x : 10
end script
on myHandler(s)
    set s's x to 20
end myHandler
myHandler(myScript)
display dialog myScript's x -- 
20
on byValue(x)
    copy x to y
    return y
end byValue
on extend(LL)
    set end of LL to "Jack"
end extend
set L to {"Mannie", "Moe"}
extend(byValue(L))
L -- 
{"Mannie", "Moe"}
on
on greet(what)
    display dialog what
end greet
greet( ) -- 
shift
on area(L)
    set a to item 1 of L
    if (count L) = 2 then
        set b to item 2 of L
    else
        set b to item 1 of L
    end if
    return a * b
end area
area({3, 4}) -- 
12

area({3}) --
9
on greet(R)
    set defaults to {greeting:"Hello", whom:"World"}
    set R to R & defaults
    display dialog R's greeting & ", " & R's whom & "!"
end greet
greet({whom:"Everybody"}) -- 
Hello, Everybody!

greet({greeting:"Howdy"}) -- 
Howdy, World!

greet({greeting:"Bonjour", whom:"Monde"}) -- 
Bonjour, Monde!

greet({}) --
Hello, World!
person
firstName
lastName
age
place
person
person given firstName:"Matt", lastName:"Neuburg", age:51, place:"Ojai"
on person given firstName:fir, lastName:las
    display dialog fir & space & las
end person
on handlerWithNoParameters( )
    -- 

end handlerWithNoParameters
handlerWithNoParameters( )
on handlerWithOneParameter(x)
    -- 

end handlerWithOneParameter
on handlerWithFourParameters(a, b, c, d)
    -- 

end handlerWithFourParameters
handlerWithOneParameter(7)
handlerWithFourParameters("hey", "ho", "hey", "nonny no")
of
of
of
of
of
of
on firstLetter from aWord
    return character 1 of aWord
end firstLetter
display dialog (firstLetter from "hello")

on sum of x beside y
    return x + y
end sum
display dialog (sum of 1 beside 2)

on stopping by woods on aSnowyEvening
    return woods & aSnowyEvening
end stopping
display dialog (stopping on "horse" by "farm")
with
without
true
false
true
false
with
without
with
without
and
on stopping by woods on aSnowyEvening
    if woods and aSnowyEvening then
        return "lovely, dark and deep"
    else
        return "ugly and shallow"
    end if
end stopping
display dialog (stopping with on and by)
display dialog (stopping with by without on)
of
on sum of L beside dummy
    set total to 0
    repeat with aNumber in L
        set total to total + aNumber
    end repeat
    return total
end sum
sum(1, 2, 3, 4, 5, 6, 7) -- 
28
on 
handlerName
 ... given 
paramName1
:
varName1
, 
paramName2
:
varName2,
 ...
given
handlerName
 ... given 
paramName1
:
value1
, 
paramName2
:
value2,
 ...
with
without
given
with
without
and
true
false
on sum given theOne:x, theOther:y
    return x + y
end sum
display dialog (sum given theOther:2, theOne:3)

on scout given loyal:loyal, trustworthy:trustworthy
    if loyal and trustworthy then
        return "eagle"
    else
        return "sparrow"
    end if
end scout
display dialog (scout with loyal and trustworthy)

on area of side1 beside side2 given measure:m
    return ((side1 * side2) as string) & space & m
end area
area of 4 beside 5 given measure:"inches" -- "20 inches"
with
on adding folder items to ff after receiving L
    -- 

end adding folder items to
adding folder items to
after receiving
ff
L
on clicked theObject
    -- 

end clicked
clicked
theObject
adding folder items to
clicked
on adding folder items to ff after receiving L
    display dialog ff & space & L
end adding folder items to
adding folder items to "howdy" after receiving "there"
get
copy
set
script s
    on run {what, what2}
        display dialog what & space & what2
    end run
end script
run s -- 
run script
run script s with parameters {"howdy", "there"}
run script
continue
property args : null
script s
    on run {what, what2}
        display dialog what & space & what2
    end run
end script
script trampoline
    property parent : s
    continue run args
end script
set args to {"howdy", "there"}
run trampoline
on run {what}
    display dialog what
end run
run script
on filter(L)
    if L = {} then return L
    if {class of item 1 of L} is in {real, integer, number} then
        return {item 1 of L} & filter(rest of L)
    else
        return filter(rest of L)
    end if
end filter
filter({"hey", 1, "ho", 2, 3}) -- 
{1, 2, 3}
max
max
max
on remvix(L, ix)
    if L is {} then return {}
    if ix is 1 then
        return rest of L
    else
        return item 1 of L & remvix(rest of L, ix - 1)
    end if
end remvix
set L to {}
set max to 505
repeat with x from 1 to max
    set end of L to x
end repeat
remvix(L, max)
script s
    on filter(L)
        if L = {} then return L
        if {class of item 1 of L} is in {real, integer, number} then
            return {item 1 of L} & filter(rest of L)
        else
            return filter(rest of L)
        end if
    end filter
end script
set f to s's filter
f({"hey", 1, "ho", 2, 3}) -- 
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
on doThis(what)
    what( )
end doThis
doThis(sayHowdy) -- 
what( )
what
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
on doThis(what)
    global what2
    set what2 to what
    what2( )
end doThis
doThis(sayHowdy) -- 
Howdy
script sayHowdy
    display dialog "Howdy"
end script
on doThis(what)
    run what
end doThis
doThis(sayHowdy) -- 
Howdy
run
script myScript
    on doAnything( )
    end doAnything
    doAnything( )
end script
on doThis(what)
    run what
end doThis
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
set myScript's doAnything to sayHowdy
doThis(myScript) -- 
Howdy
on sayHowdy( )
    display dialog "Howdy"
end sayHowdy
on doThis(what)
    script whatToDo
        property theHandler : what
        theHandler( )
    end script
    run whatToDo
end doThis
doThis(sayHowdy) -- 
Howdy
theHandler
what
theHandler
filter
filter( )
on filter(L, crit)
    script filterer
        property criterion : crit
        on filter(L)
            if L = {} then return L
            if criterion(item 1 of L) then
                return {item 1 of L} & filter(rest of L)
            else
                return filter(rest of L)
            end if
        end filter
    end script
    return filterer's filter(L)
end filter
on isNumber(x)
    return ({class of x} is in {real, integer, number})
end isNumber
filter({"hey", 1, "ho", 2, 3}, isNumber)
on makeHandler( )
    script x
        on greet( )
            display dialog "Howdy"
        end greet
    end script
    return x's greet
end makeHandler
set y to makeHandler( )
y( ) -- 
Howdy
on scriptMaker( )
    script myScript
        property x : "Howdy"
        display dialog x
    end script
    return myScript
end scriptMaker
set s to scriptMaker( )
run s -- 
Howdy
scriptMaker
run scriptMaker( ) -- 
Howdy
x
on scriptMaker(what)
    script myScript
        property x : what
        display dialog x
    end script
    return myScript
end scriptMaker
set s to scriptMaker("Hello")
run s -- 
Hello
filter
on makeFilterer(crit)
    script filterer
        property criterion : crit
        on filter (L)
            if L = {} then return L
            if criterion(item 1 of L) then
                return {item 1 of L} & (filter (rest of L))
            else
                return filter (rest of L)
            end if
        end filter
    end script
    return filterer
end makeFilterer
on isNumber(x)
    return ({class of x} is in {real, integer, number})
end isNumber
on isText(x)
    return ({class of x} is in {string, text, Unicode text})
end isText
set numbersOnly to makeFilterer(isNumber)
set textOnly to makeFilterer(isText)
tell numbersOnly
    filter ({"hey", 1, "ho", 2, "ha", 3}) -- 
{1, 2, 3}

    filter ({"Mannie", 7, "Moe", 8, "Jack", 9}) -- 
{7, 8, 9}

end tell
tell textOnly
    filter ({"hey", 1, "ho", 2, "ha", 3}) -- 
{"hey", "ho", "ha"}

    filter ({"Mannie", 7, "Moe", 8, "Jack", 9}) -- 
{"Mannie", "Moe", "Jack"}

end tell
c
c
increment
on newCounter( )
    script aCounter
        property c : 0
        on increment( )
            set c to c + 1
        end increment
    end script
    return aCounter
end newCounter
-- 

set counter1 to newCounter( )
counter1's increment( )
counter1's increment( )
counter1's increment( )
set counter2 to newCounter( )
counter2's increment( )
counter1's increment( )
display dialog counter1's c -- 
4

display dialog counter2's c --
1
handlerOne
scriptOne
handlerOne
-- 

on handlerOne( )
    -- 

    script scriptOne
        -- 

    end script
    -- 

end handlerOne
-- 

script scriptTwo
    -- 

    on handlerTwo( )
        -- 

    end handlerTwo
    -- 

    script scriptThree
        -- 

    end script
    -- 

end script
--
local x
global x
x
property x : 10
script myScript
    display dialog x
end script
on myHandler( )
    display dialog x
end myHandler
run myScript -- 
10

myHandler( ) --
10
x
property x : 5
script scriptOne
    property x : 10
    script scriptTwo
        property x : 20
        display dialog x
    end script
    display dialog x
    run scriptTwo
end script
script scriptThree
    property x : 30
    display dialog x
end script
script scriptFour
    display dialog x
end script
display dialog x -- 
5

run scriptOne -- 
10, 20

run scriptThree -- 
30

run scriptFour --
5
script scriptOne
    property x : 10
    script inner
        property x : 20
        display dialog scriptOne's x -- 
10

    end script
end script
script scriptTwo
    display dialog scriptOne's x -- 
10

    display dialog x -- 

end script
run scriptOne's inner
run scriptTwo
scriptOne
scriptOne
inner
scriptOne
x
inner
inner
scriptOne
x
scriptOne
scriptOne
scriptTwo
scriptOne
scriptOne
scriptOne
x
scriptOne
scriptOne
run myScript -- 
Howdy

script myScript
    display dialog "Howdy"
end script
myHandler( ) -- 
Howdy

on myHandler( )
    display dialog "Howdy"
end myHandler
display dialog x -- 
Howdy

property x : "Howdy"
run myScript
script myScript
    display dialog myOtherScript's x -- 

end script
script myOtherScript
    property x : "Howdy"
end script
run myScript
script myScript
    myHandler( )
end script
on myHandler( )
    display dialog "Howdy"
end myHandler
myScript
myHandler
myHandler
myHandler( )
myScript
myHandler
myScript
myScript
myHandler
myHandler
myHandler
run myScript
script myScript
    myHandler -- 

end script
on myHandler( )
    display dialog "Howdy"
end myHandler
on myHandler( )
    run myScript
    script myScript -- 

        display dialog "Howdy"
    end script
end myHandler
myHandler( )
local a
local b, c, d
script myScript
    local x
x
x
x
x
x
myScript
x
myScript
x
local x
set x to 5
script myScript
    display dialog x 

end script
run myScript
x
x
display dialog x
myScript
x
x
x
x
display dialog x
property x : 5
script myScript
    local x
    display dialog x -- 

end script
run myScript
property x : 5
script myScript
    local x
    on myHandler( )
        set x to 10
    end myHandler
    myHandler( )
    set x to 20
end script
run myScript
display dialog x -- 
10
10
20
myScript
x
local x
myHandler
x
myScript
x
myHandler
x
x
myScript
x
x
on myHandler(what)
    local x
    set x to 7
end myHandler
myHandler("howdy")
display dialog what -- 

display dialog x --
on myHandler( )
    local x
    set x to 5
    script myScript
        on h( )
            display dialog x
        end h
        h( )
    end script
    run myScript
end myHandler
myHandler( ) -- 
5
on h( )
    script s
        display dialog "howdy"
    end script
    script ss
        run s
    end script
    run ss
end h
h( ) -- 
howdy
global a
global b, c, d
global x
set x to 5
on myHandler( )
    display dialog x
end myHandler
myHandler( ) -- 
5
x
myHandler
myHandler
x
set x to 5
on myHandler( )
    display dialog x
end myHandler
global x
set x to 10
myHandler( ) -- 
x
x
on setX( )
    global x
    set x to 5
end setX
on getX( )
    global x
    display dialog x
end getX
setX( )
getX( ) -- 
5
x
x
on setX( )
    global x
    set x to 5
end setX
setX( )
display dialog x -- 
5
x
setX
x
on setX( )
    global x
    set x to 5
end setX
on getX( )
    display dialog x
end getX
setX( )
getX( ) -- 
x
getX
x
getX
getX
x
getX
global x
x
on incrementOrReport(report)
    global ct
    if report then return ct
    try
        set ct to ct + 1
    on error
        set ct to 1
    end try
end incrementOrReport
incrementOrReport(false)
incrementOrReport(false)
incrementOrReport(false)
incrementOrReport(true) -- 
3
on setX( )
    global x
    try
        set x to x + 1
    on error
        set x to 5
    end try
end setX
on getX( )
    global x
    display dialog x
end getX
setX( )
getX( ) -- 
5
6
on setX( )
    global x
    set x to x + 1
end setX
on getX( )
    global x
    display dialog x
end getX
setX( )
getX( ) -- 
6

7

property x : 5
x
setX
getX
x
x
global topLevel, x
set topLevel to me
set x to 5
script s
    property x : 10
    display dialog topLevel's x
end script
run s -- 
5
global x
set x to 10
script outer
    property x : 20
    script inner
        global x
        display dialog x
    end script
end script
run outer's inner -- 
10
global x
inner
inner
x
outer
x
x
script myScript
    global x
    on myHandler( )
        set x to 5
    end myHandler
    myHandler( )
end script
on getX( )
    global x
    display dialog x
end
run myScript
getX( ) -- 
5
myScript
global x
x
myHandler
myHandler
getX
set x to 5
on getX( )
    global x
    display dialog x
end getX
getX( ) -- 
5
x
getX
x
x
getX
x
getX
getX
on run
    set howdy to "Howdy"
    sayHowdy( ) -- 
Howdy

end run
on sayHowdy( )
    global howdy
    display dialog howdy
end sayHowdy
set x to 5
on getX( )
    set x to 10
    display dialog x
end getX
getX( ) -- 
10

display dialog x --
5
x
x
getX
10
x
x
getX
x
getX
getX
script s
    set x to 10
    on myHandler( )
        display dialog x
    end myHandler
    myHandler( )
end script
run s -- 
on getX( )
    set x to 10
    script s
        display dialog x
    end script
    run s
end getX
getX( ) -- 
10
x
set x to 5
x
x
global x
x
x
on myHandler( )
    set x to 5
end
x
x
x
x
x
myHandler
set f to (path to desktop as string) & "lib.scpt"
run (load script alias f)
x -- 
"howdy"
x
set x to "howdy"
x
x
local x
x
if 1 is 2 then
    local x
end if
set x to 7
on myHandler( )
    global x
    display dialog x
end myHandler
myHandler( ) -- 
global x, y, z
script myScript
    property x : 1
    local y
    yy
    z
end script
myScript
x
y
yy
myScript
z
myScript
myScript
z
myScript
z
global x
set x to 5
on myHandler( )
    display dialog x -- 

end myHandler
set x to 10
myHandler( ) -- 
10
10
5
x
myHandler
myHandler
x
x
myHandler
global x
myHandler
x
myHandler
x
myHandler
myHandler
x
x
myHandler
x
property x : 5
script myScript
    display dialog x -- 

end script
script myOtherScript
    set x to 20 -- 

    run myScript -- 

end script
set x to 10
run myScript -- 
10

run myOtherScript --
20
set x to 5
local x -- 
on getX( )
    display dialog x
    global x -- 

end getX
on myHandler(what)
    global what -- 

end
on getX( )
    global x
    local x -- 

end getX
on getX( )
    local x
    global x -- 

end getX
local x
global x
set x to 5
on setX( )
    set x to 10
end setX
on getX( )
    display dialog x
end getX
setX( )
getX( ) -- 
10

display dialog x --
5
x
setX
getX
x
x
x
x
x
global x
set x to 5
local x
on getX( )
    display dialog x
end getX
getX( ) -- 
5

display dialog x --
x
my
global x
set x to 5
local x
set x to 10
x -- 
10

my x --
5
global x
set x to 10
repeat with x from 1 to 5
end repeat
x -- 
5

my x --
10
script myScript
    property x : 4
    display dialog x
    local x
    display dialog x
end script
run myScript -- 
4
x
x
script myScript
    property x : 10
    local x
    set x to 20
    on myHandler( )
        display dialog x
    end myHandler
    myHandler( )
    display dialog x
end script
run myScript -- 
10
20
property x: 10
global x -- 
global x
set x to 10
script myScript
    global x
    set x to 5
    property x : 20
    display dialog x
end script
run myScript -- 
5

display dialog x --
10
myScript
x
myScript
x
myScript
myScript
x
property x : 5
script myScript
    display dialog x
end script
set x to 20
set dummy to myScript
set x to 10
run myScript -- 
20
myScript
x
dummy
copy
set
x
x
x
property x : 5
on h( )
    script myScript
        display dialog x
    end script
    return myScript
end h
set x to 10
set s to h( )
run s -- 
10

set x to 20
run s -- 
10

set x to 30
run s --
10
global x
h
on h( )
    local x
    set x to "howdy"
    script myScript
        display dialog x
    end script
    return myScript
end h
set s to h( )
run s -- 
howdy
on scriptMaker(what)
    script myScript
        display dialog what
    end script
    return myScript
end scriptMaker
set s to scriptMaker("Hello")
run s -- 
Hello
        property x : what
makeFilterer
criterion
crit
        property criterion : crit
what
scriptMaker
scriptMaker
myScript
what
myScript
what
what
load script
run script
store script
load script
run script
set f to (path to desktop as string) & "myScript.scpt"
global greeting
set greeting to "Howdy"
property farewell : "Byebye"
script s
    display dialog greeting
    display dialog farewell
end script
store script s in file f replacing yes
greeting
farewell
s
display dialog
f
f
f
store script
parent
AppleScript
run script
set f to (path to desktop as string) & "myScript.scpt"
run script alias f -- 
Howdy
Byebye
load script
set f to (path to desktop as string) & "myScript.scpt"
set s to load script alias f
global greeting
set greeting to "Bonjour"
property farewell : "Au revoir"
run s -- 
Bonjour
Byebye
greeting
farewell
farewell
greeting
set f to (path to desktop as string) & "myScript.scpt"
set s to load script alias f
set greeting to "Bonjour"
property farewell : "Au revoir"
run s -- 
Bonjour
Byebye
greeting
greeting
greeting
set f to (path to desktop as string) & "myScript.scpt"
script s
    global greeting
    display dialog greeting
end script
store script s in file f replacing yes
greeting
greeting
set f to (path to desktop as string) & "myScript.scpt"
set greeting to "Howdy"
run (load script alias f) -- 
Howdy
count
count
count
count
tell 1
    count -- 

end tell

script s
end script
tell s
    h( ) -- 

end tell

tell application "Finder"
    tell folder 1
        using terms from application "iPhoto"
            start slideshow
            -- 

        end using terms from
    end tell
end tell

tell application "Finder"
    tell folder 1
        h( ) -- 

    end tell
end tell

tell application "Finder"
    using terms from application "iPhoto"
        start slideshow -- 

    end using terms from
end tell

tell application "Finder"
    h( ) -- 

end tell
get
set
copy
class
class of 7 -- 
integer

class of "howdy" -- 
string

class of {"Mannie"} -- 
list

class of class of 1975 --
class
class
class
integer
class
class
type class
class
type class
type class
2 as boolean -- 
count
count
myScript
script myScript
    count
end script
of
count
script s
    on count
        return "1, 2, 3, ha ha ha"
    end count
end script
count s -- 
"1, 2, 3, ha ha ha"

count "hello" -- 
5

count {1, 2, 3} -- 
3

count application "Finder" -- 
32
of
get
set
copy
get
count
count of "hello" -- 
5

get count of "hello" -- 
5

script s
    display dialog "howdy"
end script
get run of s -- 
howdy

get display dialog of "howdy" -- 
howdy
of
of
's
quit
quit application "Finder"
tell
tell
target
to
tell "hello"
    count -- 
5

end tell
tell "hello" to count -- 
5

tell application "Finder"
    count -- 
32

end tell
tell application "Finder" to count --
32
sleep application "Finder" -- 

tell application "Finder" to sleep --
of
of
in
's
x
of
y
y
's
x
of
of
of
open file 1 of application "Finder"
tell file 1 of application "Finder" to open
open application "Finder"'s file 1
tell application "Finder"'s file 1 to open
of
tell application "Finder"
    open file 1
end tell
of
tell
open
application "Finder"
open
file 1
of
local n, c
tell application "Finder"
    tell folder 1
        tell file 1
            set n to name
            set c to comment
        end tell
    end tell
end tell
of
of
tell application "Finder"
    tell folder 1
        tell file 1
            open
        end tell
    end tell
end tell

tell application "Finder"
    tell file 1 of folder 1
        open
    end tell
end tell

tell application "Finder"
    open file 1 of folder 1
end tell

tell application "Finder"
    tell folder 1
        open file 1
    end tell
end tell
tell folder 1 of application "Finder"
folder
tell
of
of
tell
of
tell
tell application "Finder"
    tell folder 1
..
tell application "Finder"
    open file 1 of folder 1
    open file 1 of folder 2
end tell
tell application "Microsoft Entourage"
    tell in box folder
        move message 1 to folder "temp"
        -- 

    end tell
end tell
folder "temp" of in box folder
folder "temp"
tell application "Microsoft Entourage"
    move message 1 of in box folder to folder "temp"
end tell
of
folder "temp"
tell application "Microsoft Entourage"
    set ftemp to folder "temp"
    tell in box folder
        move message 1 to ftemp
    end tell
end tell
set x to "howdy"
tell application "Finder"
    count x
end tell
x
x
x
set newname to "someFolder"
tell application "Finder"
    set oldname to name of folder 1
    set name of folder 1 to newname
end tell
display dialog oldname
oldname
newname
    set oldname to name of folder 1
    get name of folder 1
oldname
on whatNumber( )
    return 1
end whatNumber
tell application "Finder"
    get folder whatNumber( ) -- 

end tell
whatNumber
whatNumber
of
tell
tell application "iTunes"
    tell application "Finder"
        count folders
    end tell
end tell
count
count folders of application "Finder" of application "iTunes"
count folders of application "Finder"
of
tell
tell application "Finder"
    count "howdy"
end tell
"howdy"
get
get
tell application "Finder"
    name of folder 1
end tell
get
get
tell application "Finder"
    get name of folder 1
end tell
tell application "Finder" to name of folder 1
get
tell application "Finder"
    set oldname to name of folder 1
end tell
tell application "Finder"
    set oldname to (get name of folder 1)
end tell
get
get
get
get
tell application "Finder" to display dialog (name of folder 1)
-- 
tell application "Finder" to display dialog (get name of folder 1) -- 
Mannie
name of folder 1
display dialog
get
get
tell application "TextEdit" to delete word 1 of document 1
tell 
 application "TextEdit" to delete (get word 1 of document 1)
get
"This"
get
set
get
tell 7 to get -- 
it
of it
its
it
it
tell application "Finder"
    tell folders
        it -- 
every folder of application "Finder"

    end tell
end tell
it
tell application "Finder"
    tell folder 1
        open file 1
        open it
    end tell
end tell
it
it
home
its
home
set home to "Ojai"
tell application "Finder"
    get home -- 
folder "mattneub" of folder "Users"...

end tell
home
it
it
tell application "Finder"
    tell folder 1
        get container -- 
container

    end tell
end tell
container
its
of
tell application "Finder"
    tell folder 1
        get its container -- 
folder "Desktop" of...

    end tell
    get container of folder 1 -- 
folder "Desktop" of...

end tell
tell application "Microsoft Word"
    tell find object of selection
        set content to "o"
        tell replacement
            set content to "a"
        end tell
        execute find replace replace all
    end tell
end tell
replacement
        tell its replacement
get
it
tell application "Microsoft Word"
    tell (get find object of its selection)
        set its content to "o"
        tell (get its replacement)
            set its content to "a"
        end tell
        execute find replace replace all
    end tell
end tell
me
me
of me
my
script myScript
    me -- 
«script myScript»

end script
run myScript
me -- 
«script»

parent of me --
«script AppleScript»
me
me
on reverseString(s)
    set text item delimiters to ""
    return (reverse of characters of s) as string
end reverseString
tell application "Finder"
    set name of folder 1 to reverseString(get name of folder 1)
    -- 

end tell
reverseString( )
reverseString
reverseString
me
    set name of folder 1 to my reverseString(get name of folder 1)
me
home
home
my
set home to "Ojai"
tell application "Finder"
    get my home -- 

end tell
my
home
home
set home to "Ojai"
tell application "Finder"
    get |home| -- 
"Ojai"

end tell
my
home
me
reveal
on reveal(what)
    display dialog (get name of what)
end reveal
tell application "Finder"
    reveal(file 1) -- 

end tell
my
on reveal(what)
    display dialog (get name of what)
end reveal
tell application "Finder"
    my reveal (file 1) -- 

end tell
my
on reveal(what)
    display dialog (get name of what)
end reveal
tell application "Finder"
    |reveal|(file 1) -- 

end tell
on reveal(what)
    display dialog (get name of what)
end reveal
tell application "Finder"
    my |reveal|(file 1)
end tell
reveal
my
me
me
of
tell
folder 1 of application "Finder"
of
tell
length
item
item 1
name
file
tell application "Finder"
    get startup disk
    set startup disk to disk "gromit"
    -- 

end tell
get
tell application "Finder"
    set s to name of disk 1
    set s to "yoho"
end tell
s
s
tell application "Finder"
    set d to disk of folder 1
end tell
d 
-- startup disk of application "Finder"
tell application "Finder"
    set d to disk of folder 1
end tell
get name of d -- 
"feathers"
d
get
name
tell application "Finder"
    set d to disk of folder 1
end tell
set name 
 of d to "yoho" --
get version of application "Finder" -- 
10.4.2
middle
form
want
seld
from
tell application "Finder" to get disk "main"
named
name
tell application "Finder" to get name of disk 2 -- 
"gromit"
1
2
-1
-2
count
tell application "Finder" to get disk 2
index
1st disk
third disk
last disk
front disk
back disk
index
tell application "Finder" to get index of disk 2 -- 
3
id
ID
tell application "Microsoft Entourage"
    set messageID to ID of message 1 of in box folder -- 
2849

    -- 

    get message id messageID
end tell
some
tell application "Finder"
    name of some disk -- "gromit"
    name of some disk -- "feathers"
    name of some disk -- "feathers"
end tell
every
tell application "Finder" to get every disk
tell application "Finder" to get disks
every
thru
through
beginning
end
get words 1 thru 4 of "now is the winter of our discontent"
get words beginning thru 4 of "now is the winter of our discontent"
every
from
to
beginning
end
get words from character 12 to character 17 of "now is the winter"
get words from character 12 to character -1 of "now is the winter"
get words from character 12 to end of "now is the winter"
get words 1 to 3 of "now is the winter of our discontent" -- 
before
after
tell application "TextEdit"
    tell document 1
        get word after word 1
    end tell
end tell
before
in front of
after
behind
in back of
insertion point
tell application "BBEdit"
    tell text of window 1
        get insertion point before word 4
    end tell
end tell
insertion point
contents
tell application "BBEdit"
    tell text of window 1
        set pt to insertion point before word 4
        set contents of pt to "great "
    end tell
end tell
location reference
at
to
duplicate
make
move
before
after
at after
beginning of
end of
beginning
end
tell application "TextEdit"
    tell text of document 1
        make new word at after word 2 with data "not "
        -- 

    end tell
end tell

tell application "TextEdit"
    tell text of document 1
        duplicate word 1 to end
        -- 

    end tell
end tell

tell application "TextEdit"
    tell text of document 1
        duplicate word 1 to beginning of word 3
        -- 

    end tell
end tell

tell application "TextEdit"
    tell text of document 1
        duplicate word 1 to word 7
        -- 

    end tell
end tell

tell application "Script Debugger"
    move window 2 to beginning
    -- 

end tell
every
some
where
whose
it
it
tell application "Finder" to get files where name begins with "s"
tell application "Finder" to get every file where name begins with "s"
tell application "Finder" to get files where name of it begins with "s"
tell application "Finder" to get files where its name begins with "s"
tell application "Finder" to get files whose name begins with "s"
every
file
files
where
whose
name
name
of it
its
begins with
"s"
it is
it is not
tell application "System Events"
    get process 1 whose frontmost is true
    get process 1 where it is frontmost
end tell
it
tell application "Microsoft Entourage"
    get every POP account whose email address contains "matt" -- 
{}

end tell
its
whose
where
tell application "Microsoft Entourage"
    get every POP account whose its email address contains "matt"
    -- 
{POP account id 1

end tell
it
tell application "TextEdit"
    tell text of document 1
        get every word where it contains "t"
        get words whose it contains "t"
    end tell
end tell
where it
words
contains
words
contents
it
tell application "BBEdit"
    tell text 1 of window 1
        get every word whose contents contains "t"
    end tell
end tell
every
tell application "BBEdit"
    tell text 1 of window 1
        get word 1 whose contents contains "t"
    end tell
end tell
every
tell application "TextEdit"
    tell document 1
        words where it begins with "t" and it ends with "t" -- 
{"test"}

    end tell
end tell
tell application "Finder"
    get every disk whose name begins with "g" -- 
"gromit"

end tell
set pepBoys to {"Mannie", "Moe", "Jack"}
tell pepBoys
    get every item whose text begins with "M" -- 

end tell
tell application "Finder" to get name of every disk
tell application "iTunes"
    tell view of browser window 1
        get name of every track
    end tell
end tell
tell application "iTunes"
    tell view of browser window 1
        get database ID of every track whose name contains "Palestrina"
    end tell
end tell
tell application "Finder"
    get file 1 of every folder
end tell
tell application "Address Book"
    get every email of every person
end tell
tell application "Finder"
    get every file of every folder
end tell
tell application "Microsoft Entourage"
    move (every message of in box folder where address of its sender ¬
        contains "lambert") to folder "temp"
end tell
tell application "BBEdit"
    contents of every word of window 1 -- 
{"this", "is", "a", "test"}

end tell
tell application "BBEdit"
    length of every word of window 1 -- 
4

end tell
tell application "BBEdit"
    tell document 1
        set L to get contents of every word
        set L2 to {}
        repeat with aWord in L
            set end of L2 to length of aWord
        end repeat
    end tell
end tell
set {x, y, z} to {1, 2, 3}
tell
of
tell application "Finder"
    set {x, y} to {name, comment} of folder 1
end tell
{x, y} -- 
{"Mannie", "howdy"}
name of folder 1
comment of folder 1
of
tell application "Finder"
    tell folder "Mannie"
        set {comment, name} to {"zowie", "Jack"}
    end tell
end tell
tell application "Finder"
    tell folder "Mannie"
        set {name, comment} to {"Jack", "zowie"} -- 

    end tell
end tell
folder "Mannie"
comment of folder "Mannie"
application
tell application "BBEdit"
get POSIX path of file "myDisk:myFile"
set f to "myDisk:myFile"
get POSIX path of file f
folder 1 of application "Finder"
tell application "Finder"
    set x to (get folder 1)
end tell
x
folder "Mannie" of desktop of application "Finder"
x
tell application "Finder"
    set x to (get folder 1)
    display dialog (get name of x) -- 
Mannie

end tell
x
folder "Mannie" of desktop of application "Finder"
x
get name of x
get name of folder "Mannie" of desktop of application "Finder"
folder 1
folder "Mannie" of desktop of application "Finder"
folder 1
folder "Mannie"
of desktop
tell application "Finder"
    set x to (get folder 1)
end tell
name of x -- 
"Mannie"
name of x
folder "Mannie" of desktop of application "Finder"
x
tell application "Finder"
    get name of folder "Mannie" of desktop
end tell
folder
desktop
x
folder
desktop
x
of
tell
tell application "Finder"
    set x to (get folder 1)
end tell
name of x -- 
"Mannie"
tell application "Finder"
    get folder 1
    get name of folder "Mannie" of desktop
end tell
tell application "Finder"
    set x to folder 1
    display dialog (get name of x) -- 
Mannie

    set name of x to "Moe"
    display dialog (get name of x) -- 

end tell
x
display dialog
folder "Mannie" of desktop of application "Finder"
display dialog
folder "Mannie"
a reference to
ref
a ref
ref to
set x to 100
set y to a reference to x
tell application "Finder"
    set x to a reference to folder 1
end tell
x -- 
folder 1 of application "Finder"
tell application "Finder"
    set x to a reference 
 to disk 99 of folder 1 of label "yoho"
end tell
get name of x --
string
integer
string
integer
reference
set x to a reference to "hey"
set y to a reference to 9
tell application "Finder" to set z to folder 1
class of x -- 
string

class of y -- 
integer

class of z --
folder
tell application "Finder" to set x to folder 1
x as reference -- 
of
tell application "Finder" to set x to folder 1
x -- 
folder "Mannie" of
...

set x to a reference to y
x --
y of «script»
on isRef(valueToTestAsRef)
    try
        valueToTestAsRef as reference
        return true
    on error
        return false
    end try
end isRef
-- 

tell application "Finder"
    set x to folder 1
end tell
isRef(x) -- 
true

set x to "haha"
isRef(x) -- 
false

isRef(a reference to x)) --
true
tell application "Finder"
    set x to folder 1
end tell
name of x -- 
Mannie

class of x -- 
folder

set name of x to "Moe"
folder
name
folder
name
tell application "Finder"
    set x to a reference to name of folder 1
end tell
set x to "Moe"
folder 1
"Moe"
x
"Moe"
set x to 3
set y to a reference to x
x = y -- 
false

y = 3 --
false
3
a reference to x
set x to 3
set y to a reference to x
x = y -- 
false

x + 0 = y + 0 -- 
true

x is not less than y and x is not greater than y --
true
contents of
tell application "Finder"
    set x to a reference to name of folder 1
end tell
set contents of x to "Moe"
set x to 10
set y to a reference to x
set contents of y to 20
x -- 
20
set x to 3
set y to a reference to x
x = contents of y -- 
true
contents of
contents of
contents of
contents of
set x to contents of "Mannie"
contents of x -- 
"Mannie"
x
y
set x to 3
set y to a reference to x
contents of x = contents of y -- 
true
set x to "Mannie"
set contents of x to "Moe" -- 
set "Mannie" to "Moe"
"Mannie"
contents of
tell application "Finder"
    set x to folder 1
end tell
x -- 
folder "Mannie" of desktop of application "Finder"

set x to contents of x
x -- 
folder "Mannie" of folder "Desktop" of folder "mattneub" of
¬

folder "Users" of startup disk of application "Finder"

set x to contents of x
x -- 
folder "Mannie" of folder "Desktop" of folder "mattneub" of
¬
folder "Users" of startup disk of application "Finder"
get
contents
contents
contents of
contents
contents
contents
selection-object
word
contents
contents
tell application "BBEdit"
    set w to contents of word 4 of window 1
end tell
w -- 
"test"
tell application "BBEdit"
    set w to contents of (get word 4 of window 1)
end tell
w -- 
characters 11 thru 14 of text document 1 of application "BBEdit"
tell application "BBEdit"
    set x to word 4 of window 1
    set w to contents of x
end tell
w -- 
characters 11 thru 14 of text document 1 of application "BBEdit"
tell application "BBEdit"
    set x to a reference to word 4 of window 1
    set x to contents of x
    set w to contents of x
end tell
w -- 
characters 11 thru 14 of text document 1 of application "BBEdit"
tell application "BBEdit"
    set x to a reference to word 4 of window 1
    get contents of text of x -- 
"test"

end tell
content
contents
local x
set x to {1, 2, 3}
set y to a reference to x
get item 1 of y -- 
local y
set x to {1, 2, 3}
set y to a reference to x
get item 1 of y -- 
1
script myScript
    property x : 5
    set y to a reference to x
    set contents of y to y + 1
    display dialog x
end script
run myScript -- 
6
script myScript
    property x : 5
    display dialog x
end script
tell myScript
    set y to a reference to its x
    set contents of y to y + 1
    run -- 
6

end tell
local x
tell application "Finder"
    set x to folder 1
end tell
on setName(theRef)
    set name of theRef to "Jack"
end setName
setName(x)
reference to
on doubleRef(theRef)
    set contents of theRef to 2 * theRef
end doubleRef
script s
    property x : 5
    display dialog x
end script
doubleRef(a reference to s's x)
run s -- 
10
doubleRef
on getNameOfAnything(theRef)
    return name of theRef
end getNameOfAnything
tell application "Finder" to set x to folder 1
tell application "Microsoft Entourage" to set y to message 1 of in box folder
getNameOfAnything(x) -- 
"Mannie"

getNameOfAnything(y) --
"Order Confirmation"
script myScript
    property x : 3
    return a reference to x
end script
set y to run myScript
set contents of y to 10
myScript's x -- 
10
on getFolderByNumber(n)
    local x
    tell application "Finder"
        set x to folder n
    end tell
    return x
end getFolderByNumber
getFolderByNumber(1) -- 
folder "Moe" of desktop of application "Finder"
on findInList(what, L)
    repeat with i from 1 to count L
        if item i of L is what then
            return (a reference to item i of L)
        end if
    end repeat
    return
end findInList
local pep
set pep to {"Mannie", "Moe", "Jack"}
set contents of findInList("Moe", pep) to "Larry"
pep -- 
{"Mannie", "Larry", "Jack"}
findInList
L
item 2 of {"Mannie", "Moe", "Jack"}
findInList
string
integer
folder
application
application
app
tell application "Finder"
    activate
    get (the clipboard)
end tell
-- 
{«class RECT»:«data RECT0000000000B40075»
,¬
picture:«data PICTFA480000000000B40075001102FF0C
»}
data
« »
true
false
if
repeat while
choose file
exists
class of true -- 
boolean

class of (1 < 2) --
boolean
class of 1 -- 
integer

class of 1.1 --
real
536870911
e
1e2 -- 
 100.0
2.1e26 -- 
 2.1E+26
0.123456789012345 -- 
number
small integer
-32768
32767
set x to 4 as small integer
class of x -- 
integer

class of (ASCII number "a") --
integer
double
real
fixed
extended
integer
real
current date
date "5/25/2005" -- 
 date "Wednesday, May 25, 2005 12:00:00 AM"
"5/25/2005"
date "25/5/2005"
set s to "December 25, 800"
date s -- 
date "Monday, December 25, 2800 12:00:00 AM"
set s to "December 25, 1000"
set d to date s
set year of d to 800
d -- 
date "Monday, December 25, 0800 12:00:00 AM"
set s to "8/10/2005 4:45 PM"
(date s) + 56845 -- 
date "Thursday, August 11, 2005 8:32:25 AM"
set s to "2/25"
set d to date s -- 
date "Friday, February 25, 2005 12:00:00 AM"

set d2 to date "10:30" of d -- 
date "Friday, February 25, 2005 10:30:00 AM"

set d3 to date "1/24" of d2 --
date "Monday, January 24, 2005 10:30:00 AM"
set s to "May 31"
set d to date s
set month of d to June
d -- 
date "Friday, July 1, 2005 12:00:00 AM
"
hours
minutes
seconds
set s to "8/10/2005 10:00 PM"
set d to date s
set hours of d to ((hours of d) + 100)
d -- 
date "Monday, August 15, 2005 2:00:00 AM"
set
copy
set s to "May 31"
set d to date s
set d2 to d
set month 
 of d2 to June
d --
date "Friday, July 1, 2005 12:00:00 AM"
year
month
January
February
month
day
hours
minutes
seconds
hours
minutes
seconds
time
weekday
Monday
Tuesday
date string
short date string
time string
time string
date string
set s to "5/25/2005"
set d1 to date s
set t to "4PM"
set d2 to date t
set d3 to date (time string of d2) of d1 -- 
date "Wednesday, May 25, 2005 4:00:00 PM"
set s to "howdy"
class of s -- 
string
""
\"
\t
\r
\n
\\
ASCII character
tell application "Tex-Edit Plus"
    set text of window 1 to "Now is the winter"
    get word after character 3 of text of window 1 -- 
"is"

end tell
get word after character 3 of "Now is the winter" --
text
length
count
quoted form
quoted form
quoted form of "life's a \"bowl\" of cherries"
-- 
"'life'\\''s a \"bowl\" of cherries'"
set s to quoted form of "life's a \"bowl\" of cherries"
do shell script "echo " & s -- 
"life's a \"bowl\" of cherries"
every
character
word
paragraph
CRLF
text
words 1 thru 3 of "Now is the winter" -- 
{"Now", "is", "the"}

text from word 1 to word 3 of "Now is the winter" --
"Now is the"
text item
text item delimiters
text item
text item delimiters
text item delimiters
text item
text item delimiters
text item delimiters
text item delimiters
set text item delimiters to ":"
text items of "feathers:Users:mattneub" -- 
{"feathers", "Users", "mattneub"}

set text item delimiters to "tt"
text items of "Matt" -- 
{"Ma", ""}

set text item delimiters to "s"
set howMany to (count text items of "Mississippi") - 1
howMany --
4
text item delimiters
text item delimiters
text item delimiters
pi
characters
words
paragraphs
tell application "Finder" to set x to (get name of disk 1)
class of x -- 
Unicode text
ASCII character
character
'utxt'
set n to «data utxt03910313030103BB03BA03B703C303C403B903C2»
set n to n as Unicode text
tell application "Finder"
    set name of folder "Mannie" to n
end tell
set L to {913, 787, 769, 955, 954, 951, 963, 964, 953, 962}
set s to (path to desktop as string) & "tempFile"
set f to a reference to file s
open for access f with write permission
repeat with aChar in L
    write aChar to f as small integer -- 

end repeat
close access f
set s to (path to desktop as string) & "tempFile"
set f to a reference to file s
open for access f
set s to read f as Unicode text
close access f
s
«class utf8»
do shell script
set p to "print pack(\"U10\", 0x0391, 0x0313, 0x0301, 0x03BB, 0x03BA, " & ¬
    "0x03B7, 0x03C3, 0x03C4, 0x03B9, 0x03C2);"
set s to do shell script "perl -e " & quoted form of p
s
international text
styled text
styled text
string
tell application "Finder"
    activate
    set x to (the clipboard)
end tell
x as record
-- 
{«class ktxt»:"test"
,¬
«class ksty»:«data styl000100000000000D000A00100000000C000000000000»}
class of ((path to desktop) as string) -- 
string
(path to desktop) as string
result as record -- 
{«class ktxt»:"feathers:Users:mattneub:Desktop:",
«class ksty»:«data styl0001000000000010000E00030000000C000000000000»}
"howdy" as Unicode text as string as record -- 
{«class ktxt»:"howdy",
«class ksty»:«data styl0001000000000010000E00030000000C000000000000»}
get name of application "Tex-Edit Plus"
file
file "feathers:Users:mattneub:"
set x to file "feathers:Users:mattneub:"
-- 
set x to a reference to file "feathers:Users:mattneub:"
x -- 
file "feathers:Users:mattneub:" of «script»
store script
tell application "BBEdit"
    get file of window 1 -- 
alias "feathers:Users:mattneub:someFile"

end tell
file
window
save
tell application "GraphicConverter"
    set s to "feathers:Users:mattneub:Desktop:joconde"
    save window 1 in alias s as PICT
    -- 

end tell
tell application "GraphicConverter"
    set s to "feathers:Users:mattneub:Desktop:joconde"
    save window 1 in file s as PICT
-- 

end tell
tell application "GraphicConverter"
    set s to "feathers:Users:mattneub:Desktop:joconde"
    save window 1 in s as PICT
end tell
POSIX file
file
POSIX file
POSIX file "/Users/mattneub/"
file "features:Users:mattneub:"
«class furl»
file URL
set x to POSIX file "/Users/mattneub"
set y to file "feathers:Users:mattneub"
set x to file "feathers:Users:mattneub"
set y to file "feathers:Users:mattneub"
-- 
set x to file "feathers:Users:mattneub"
-- 

set y to file "feathers:Users:mattneub"
set s1 to "/Users/mattneub"
set x to POSIX file s1
set s2 to "feathers:Users:mattneub"
set y to a reference to file s2
set s to "/alice/in/wonderland"
POSIX file s -- 
file "feathers:alice:in:wonderland"
file URL
file
choose file name
file specification
'fss '
tell application "BBEdit"
    set r to check syntax file "feathers:Users:mattneub:Desktop:testing.html"
    class of result_file of item 1 of r -- 
file specification

end tell
file specification
file
file specification
POSIX path of file "alice:in:wonderland" -- 
"/alice/in/wonderland"

POSIX path of file "gromit" --
"/Volumes/gromit/"
info for
info for file "feathers:Users:mattneub:someFile"
list folder
file
file
file
POSIX path
tell application "Finder"
    get owner of file "feathers:Users:mattneub:myFile" -- 
mattneub

end tell
owner
folder "Mannie"
file
file
set f to a reference to file "feathers:Users:mattneub:myFile"
tell application "Finder"
    get owner of f
    -- 

end tell
f
alias file
every
set empty to {}
set pep to {"Mannie", "Moe"}
set pep3 to "Jack"
empty & pep & {pep3} -- 
{"Mannie", "Moe", "Jack"}
tell application "Finder"
    set L to {name of folder 1, name of folder 2}
    set {oldname1, oldname2} to L
    set {name of folder 1, name of folder 2} to {"f1", "f2"}
end tell
set
copy
set L1 to {"Mannie", "Moe"}
set L2 to L1
set end of L1 to "Jack"
item 3 of L2 -- 
"Jack"
set L1 to {"Mannie", "Moe"}
set L2 to {L1, "Pep"}
set end of L1 to "Jack"
item 3 of item 1 of L2 -- "Jack"
item 1
item 100
set L to {"Mannie", "Moe"}
set item 1 of L to "Larry"
L -- 
{"Larry", "Moe"}
set L to {"Moe"}
set end of L to "Jack"
set beginning of L to "Mannie"
L -- 
{"Mannie", "Moe", "Jack"}
on listInsert(L, what, ix)
    if ix = 1 then
        return {what} & L
    else
        return {item 1 of L} & listInsert(rest of L, what, ix - 1)
    end if
end listInsert
listInsert({"Mannie", "Jack"}, "Moe", 2) -- 
{"Mannie", "Moe", "Jack"}
set
set
set L to {"Mannie", "Moe", "Jack"}
set end of L to L
count L -- 
4

count item 4 of L -- 
4

count item 4 of item 4 of item 4 of item 4 of item 4 of L -- 
4

items 1 thru 3 of item 4 of item 4 of item 4 of L --
{"Mannie", "Moe", "Jack"}
L
L
L
L
L
L
set L1 to {"Mannie", "Moe", "Jack"}
set L2 to {"Curly", "Larry"}
set end of L1 to L2
set end of L2 to L1
item 1 of item 4 of L1 -- 
"Curly"

item 1 of item 3 of L2 --
"Mannie"
bounding rectangle
rgb color
point
length
count
rest
reverse
item
every
classname
classname
every
item 2 of {23, "skiddoo", "catch", 22} whose class is integer -- 
integer 2 of {23, "skiddoo", "catch", 22} -- 
22
class
make
set R to {who:"Matt", town:"Ojai"}
item
beginning
end
local who, town
set {who:who, town:town} to {town:"Ojai", who:"Matt"}
{who, town} -- 
{"Matt", "Ojai"}
set
copy
set R2 to {who:"Matt", town:"Ojai"}
set R1 to R2
set who of R2 to "Jaime"
R1 -- 
{who:"Jaime", town:"Ojai"}
set L to {"Mannie", "Moe"}
set R to {pep:L}
set end of R's pep to "Jack"
item 3 of L -- 
"Jack"
set R to {who:"Matt", town:"Ojai"}
set who of R to "Jaime"
R -- 
{who:"Jaime", town:"Ojai"}

set R to R & {friend:"Steve"}
R --
{who:"Jaime", town:"Ojai", friend:"Steve"}
set R to {who:"Matt", town:"Ojai"} & {who:"Jaime"}
R -- 
{who:"Matt", town:"Ojai"}
friend
set R to {who:"Jaime", town:"Ojai"}
set R to {friend:"Steve"} & R
R -- 
{friend:"Steve", who:"Jaime", town:"Ojai"}

set R to {who:"Jaime", town:"Ojai", friend:"Matt"}
set R to {friend:"Steve"} & R
R --
{friend:"Steve", who:"Jaime", town:"Ojai"}
set R to {who:"Matt", town:"Ojai", cycle:null}
set cycle of R to R
who of cycle of cycle of cycle of cycle of R -- 
"Matt"
length
count
'usrf'
set R to {name:"Matt", character:"impeccable", town:"Ojai", age:51}
name
character
'pnam'
'cha '
town
age
'usrf'
"town"
"age"
{
    'pnam':"Matt",
    'cha ':"impeccable",
    'usrf':[
        "town",
        "Ojai",
        "age",
        51
    ]
}
set R to {|name|:"Matt", |character|:"impeccable", town:"Ojai", age:51}
get |name| of R -- 
"Matt"

get name of R --
set town to "Ojai"
set R to {name:"Matt", town:null}
set town of R to town -- 
town
set town to "Ojai"
set R to {name:"Matt", town:null}
tell R
    set town to town
end tell
R -- 
{name:"Matt", town:null}
set town to "Ojai"
set R to {name:"Matt", town:null}
tell R
    set its town to town
end tell
R -- 
{name:"Matt", town:"Ojai"}
set R to {name:"Matt", town:"Ojai"}
get property IDs of R -- 
{"pnam"}

get user property names of R --
{"town"}
run script
global r
set r to {name:"Matt", age:51}
on getWhat(what)
    set s to "on run {r}
get " & what & " of r
end"
    run script s with parameters {r}
end getWhat
getWhat("name")
"30"
30
on sendMeAString(s)
    if {class of s} is not in {string, Unicode text} then
        error "Can't make some data into the expected type."
    end if
    -- 

end sendMeAString
tell application "Finder"
    set sidebar width of window 1 to "123"
end tell
sidebar width
tell application "Finder"
    set name of folder 1 to 6
    -- 

end tell
as
9 as string -- 
"9"

9 as boolean -- 
set className to string
9 as className -- 
"feathers:" as alias
alias 
 "feathers:"
tell application "Finder"
    folder 1 as string
end tell
tell application "Finder"
    get "9" as integer
end tell
"9"
tell application "Finder"
    tell "9"
        get it as integer
    end tell
end tell
tell application "Finder"
    set x to folder 1
end tell
name of x as integer
x
name of x
as
tell application "Finder"
    get folder 1 as integer -- 

end tell
tell application "Finder"
    get name of folder 1 as integer -- 

end tell
get
tell application "Finder"
    folder 1 as list -- 

end tell
as list
tell application "Finder"
    {folder 1}
end tell
value
 as 
class
value
class
[get]
reference
 as 
class
reference
class
true
false
"true"
"false"
"true"
true
false
true
false
1
0
1
0
true
false
repeat with
x
x div 1
round
"1a"
0
integer
real
number
"1.1" as real -- 
1.1

"1" as real -- 
1.0

"1.0" as integer -- 
1

"1.1" as integer -- 
class 
 of ("1" as number) -- integer 

class of ("1.1" as number) -- real
"1.1" as number as integer -- 
1
number
true as integer
true as number
1.9.3
1.93
1.10
1.1
1.93
1.10.3
1.1003
tell application "Finder"
    set v to (get version)
end tell
v as real -- 
string as string -- 
"string"

italic as string -- 
"italic"
display dialog
display dialog string -- 
TEXT
month
Sunday
1
as text
as string
string
text
string
'TEXT'
text
'ctxt'
tell application "Finder"
    say (get name of disk 1)
    -- 

end
say
POSIX path
set a to alias "gromit:Users:matt2:reason:Resources:"
POSIX path of a -- 
"/Volumes/gromit/Users/matt2/reason/Resources/"

a as string -- 
"gromit:Users:matt2:reason:Resources:"

a reference to file (a as string)
-- file "gromit:Users:matt2:reason:Resources:" of «script»
set s to "gromit:Users:matt2:reason:Resources:"
s as alias -- 
alias "gromit:Users:matt2:reason:Resources:"
POSIX path
set f to a reference to file "gromit:Users:matt2:reason:Resources:"
f as alias -- 
alias "gromit:Users:matt2:reason:Resources:"

POSIX path of f -- 
"/Volumes/gromit/Users/matt2/reason/Resources/"
set s to "/Volumes/gromit/Users/matt2/reason/Resources/"
POSIX file s as string -- 
"gromit:Users:matt2:reason:Resources:"

s as POSIX file -- 
file "gromit:Users:matt2:reason:Resources:"
on pathExists of s given posixStyle:b
    try
        if b then
            POSIX file s as alias
        else
            s as alias
        end if
        return true
    on error
        return false
    end try
end pathExists
pathExists of "gromit:Users:matt2" without posixStyle -- 
true

pathExists of "/Volumes/gromit/Users/matt2" with posixStyle -- 
true
POSIX path
POSIX path
set R to {name:"Matt", age:51}
R as list -- 
{"Matt", 51}
on listToRecord(L)
    script myScript
        return {«class usrf»:L}
    end script
    return run script myScript
end listToRecord
set R to listToRecord({"name", "haha", "age", 51})
R -- 
{|name|:"haha", age:51}
name
name
name
{true} as string -- 
"true"
text item delimiters
text item delimiters
text item delimiters
text item delimiters
{"Manny", {"Moe", "Jack"}} as string -- 
"MannyMoeJack"
text item delimiters
{"Manny", {"Moe", "Jack"}} as string -- 
"Manny, Moe, Jack"
text items
on containingFolder(s)
    set text item delimiters to ":"
    return (items 1 thru -2 of text items of s) as string
end containingFolder
containingFolder("feathers:Users:mattneub:Documents:someDoc")
-- "feathers:Users:mattneub:Documents"
text item delimiters
display dialog
on coerceForDisplay(L)
    try
        L as record
    on error s
        set c to characters of s
        set u to count c
        repeat with i from 1 to u
            if item i of c is "{" then exit repeat
        end repeat
        repeat with j from u to 1 by -1
            if item j of c is "}" then exit repeat
        end repeat
        set text item delimiters to ""
        return (items i thru j of c) as string
    end try
end coerceForDisplay
display dialog coerceForDisplay({"pep", 3, {"Mannie", "Moe", "Jack"}})
-- {"pep", 3, {"Mannie", "Moe", "Jack"}}
as
3 feet
3
feet
3 as feet
yards
yards
on feetToYards(ft)
    return ft as feet as yards as number
end feetToYards
feetToYards(3) -- 
1.0
units
on convert(val, unit1, unit2)
    set text item delimiters to " "
    set conv to do shell script ({"units", unit1, unit2} as string)
    return val * (word 1 of paragraph 1 of conv as real)
end convert
convert(4, "feet", "meters") -- 
1.2192
as
of
as
1 and 1 -- 
1
and
1
1 as boolean and 1 -- 
true
1
1
"3" + "4" -- 
7
3 + 4 * 2 -- 
11

3 * 4 + 2 -- 
14
x * 1.0
2.32 * 100.0 div 1 -- 
231
number1
 + 
number2
date
 +
integer
&
number1
 - 
number2
date
 - 
integer
date - date
-
number
number
 * 
number
number1
 / 
number2
number1
 div 
number2
x div 1
x as integer
4 div 5 -- 
0

(4 / 5) as integer -- 
1
number1
 mod 
number1
number1
 ^ 
number2
boolean1
 and 
boolean2
true
boolean1
 or 
boolean2
false
not 
boolean
considering
{1, 2} = {2, 1} -- 
false

{name:"Matt", age:"51"} = {age:"51", name:"Matt"} -- 
true
=
{"2"} = 2 -- 
false
{"2"} ≥ 2 -- 
true
{"2"} ≤ 2 and {"2"} ≥ 2 -- 
true
4
x
x = 4
operand1
 = 
operand2
true
is equal to
equal
equals
equal to
operand1
 ≠ 
operand2
true
=
is not
isn't
is not equal to
is not equal
isn't equal
does not equal
doesn't equal
<>
!=
operand1
 < 
operand2
true
is less than
less than
comes before
operand1
 > 
operand2
true
is greater than
greater than
comes after
operand1
 ≤ 
operand2
true
<=
is less than or equal to
is
to
does not come after
is not greater than
operand1
 ≥ 
operand2
true
>=
is greater than or equal to
is
to
does not come before
is not less than
"test"
"e"
considering
{1, 2} contains 2 -- 
true
2
{2}
{1, 2} contains {2} -- 
true
{1, 2, 3} contains {2, 3} -- 
true
{1, 2, 3} contains {1, 3} -- 
false

{1, 2, 3} contains {3, 2} -- 
false
{{1}, {2}} contains {2} -- 
false

{{1}, {2}} contains {{2}} -- 
true
2
{2}
{{2}}
{name:"Matt", age:"51"} contains {name:"Matt"} -- 
true

{name:"Matt", age:"51"} contains {title:"Matt"} -- 
false

{name:"Matt", age:"51"} contains {name:"Socrates"} -- 
false
{name:"Matt", age:"51"} contains {age:"51", name:"Matt"} -- 
true
{name:"Matt", age:"51"} contains {} -- 
true

{} contains {name:"Matt", age:"51"} -- 
false
"51" contains 5 -- 
true
; 
 "51" 
 "5"
51 contains 5 -- 
false
; 
 {51} 
 {5}
{"7"} * 7 -- 
49
contains
{"7"} contains 7 -- 
false
{7}
tell application "Microsoft Entourage"
    every contact contains contact 1
    -- 

end tell
{contact 1}
contact 1 as list
string1
 contains 
string2
string2
 is in 
string1
list1
 contains 
list2
list2
 is in 
list1
record1
 contains 
record2
record2
 is in
record1
is in
contains
is in
string1
 begins with 
string2
list1
 begins with
list2
contains
starts with
string1
 ends with 
string2
list1
 ends with
list2
contains
"three" & 20 -- 
"three20"

3 & "twenty" -- 
{3, "twenty"}
{"Mannie"} & "Moe" & "Jack" -- 
{"Mannie", "Moe", "Jack"}
"MannieMoeJack"
text item delimiters
set text item delimiters to ""
"butter" & {"field", 8} -- 
"butterfield8"
{1, 2, 3} & {4, 5, 6} -- 
{1, 2, 3, 4, 5, 6}
{1, 2, 3, {4, 5, 6}}
{1, 2, 3} & {{4, 5, 6}}
set L1 to {}
set L2 to {"mannie"}
set L1 to L1 & L2
set item 1 of L1 to "moe"
L2 -- 
{"moe"}
L1
L2
L1
L2
copy
set
copy L1 & L2 to L1
set end of
set s to "anti"
set s to s & "dis"
set s to s & "establishment"
set s to s & "arianism"
set text item delimiters to ""
set L to {}
set end of L to "anti"
set end of L to "dis"
set end of L to "establishment"
set end of L to "arianism"
set s to L as string
set r to {who:"Jaime", town:"Ojai"} & {who:"Matt", friend:"Steve"}
r -- 
{who:"Jaime", town:"Ojai", friend:"Steve"}
set R1 to {}
set R2 to {name:"Matt"}
set R1 to R1 & R2
set name of R1 to "Neuburg"
R2 -- 
{name:"Neuburg"}
special concat
special concat {who:{"Matt"}} with {who:{"Neuburg"}} -- 
{who:{"Matt", "Neuburg"}}
string1
 & 
string2
list1
 & 
list2
record1
 &
record2
3 + 4 * 2 -- 
11

(3 + 4) * 2 -- 
14
set r to random number
round r rounding up
round random number rounding up
-- 
random number
rounding up
random number
round (random number) rounding up
tell application "System Events"
    copy name of every process where it is frontmost to theProc
end tell
tell application "System Events"
    copy (name of every process where it is frontmost) to theProc
end tell
get
get
tell application "System Events"
    copy get name of every process where it is frontmost to theProc
    -- 

end tell
copy get
tell application "System Events"
    copy (get name of every process where it is frontmost) to theProc
end tell
tell application "System Events"
    set L to name of every process
    frontmost of process item 1 of L
    -- 

end tell
tell application "System Events"
    set L to name of every process
    frontmost of process (item 1 of L)
end tell
if
tell application "Finder"
    if name of folder 1 contains "e" then
name of folder 1
"e"
"e"
tell application "Finder"
    set f1 to folder 1
    set f2 to folder "Mannie"
    f1 = f2 -- 
false

end tell
tell application "Finder"
    if name of folder 1 is name of folder 2 then
tell application "Finder"
    name of every folder whose name contains "E"
end tell
contains "E"
contains
considering
tell application "Finder"
    considering case
        name of every folder whose name contains "E"
    end considering
end tell
-- 
{"emptyFolder", "Test Me"}
"E"
considering
considering
tell application "Finder"
    set L to name of every folder
end tell
set L2 to {}
considering case
    repeat with aName in L
        if aName contains "E" then
            set end of L2 to contents of aName
        end if
    end repeat
end considering
L2
get name of every
AppleScript
AppleScript
AppleScript
AppleScript
property pi : 3
AppleScript's pi -- 
3.14159265359
pi
tab
text item delimiters
pi
tab
AppleScript
return
return
return
"This is a line." & return & "This is another line."
"an item" & tab & "another item"
quote & "This is cool," & quote & " said Tom frigidly."
"word" & space & "otherWord"
text item delimiters
text item
set text item delimiters to ":"
text item 1 of (path to system folder as string)
minutes
set area to pi * (radius ^ 2)
(current date) + 30 * minutes -- 
(current date) + 2 * hours -- 
(current date) + 2 * days -- 
(current date) + 2 * weeks -- 
display dialog AppleScript's version -- 
"1.10.3"

AppleScript's version as real -- 
1.1003
yes
yes
constant
class
replacing
store script
yes
no
ask
replacing 42
store script
weekday
yes
PICT
TIFF
GIF
BMP
JPEG
open for access f write permission true
store script s in f replacing yes
tell application "Finder" to get description of folder 1 -- 
missing value
missing value
set aPerson to {name:null, age:null, town:null}
on styles
off styles
tell application "Tex-Edit Plus"
    set tsr to style of word 4 of document 1
    on styles of tsr -- 
{underline}

end tell
considering case
    "heyho" contains "H" -- 
false

end considering
ignoring application responses
    tell application "GraphicConverter" to quit
end ignoring
name of 

 current application -- 
Script Editor
weekday of (current date) -- 
Wednesday
month of (current date) -- 
May
set
copy
get
run
error
launch 
application
launch
activate 
application
reopen 
application
reopen
launch
activate
quit 
application
count
count
class
s
character
count 
object
[each 
class
]
count every 
class
 of 
object
 count 
class-plural
 of 
object
class
object
log 
value
value
stop log
start log
log
stop log
start log
end
end if
end
if
end if
if 
condition
 then
    -- 

end if
else
if 
condition
 then
    -- 

else
    -- 

end if
else
if 
condition1
 then
    -- 

else if 
condition2
 then
    -- 

-- 

condition3

condition4

[else]
-- 

end if
set x to random number from 1 to 10
set guess to text returned of ¬
    (display dialog "Pick a number from 1 to 10" default answer "")
try
    set guess to guess as number
on error
    return
end try
if guess < 1 or guess > 10 then
    display dialog "I said from 1 to 10!"
else if guess < x then
    display dialog "Too small. I was thinking of " & x
else if guess > x then
    display dialog "Too big. I was thinking of " & x
else
    display dialog "Just right."
end if
if 
condition
 then
whatToDo
whatToDo
if
then
repeat
repeat
repeat 
whatKindOfRepeat

    -- 

end repeat
whatKindOfRepeat
exit repeat
end repeat
return
return
whatKindOfRepeat
repeat
    display dialog "Prepare to loop forever."
    exit repeat
end repeat
display dialog "Just kidding."
whatKindOfRepeat
times
repeat 3 times
    display dialog "This is really boring."
end repeat
display dialog "ZZzzzz...."
next repeat
continue
exit repeat
next repeat
exit repeat
set L to {2, -5, 33, 4, -7, 8}
set total to 0
repeat (count L) times
    repeat 1 times
        set x to item 1 of L
        set L to rest of L
        if x < 0 then exit repeat
        set total to total + x
    end repeat
end repeat
total -- 
47
whatKindOfRepeat
while
end repeat
set response to "Who's there?"
repeat while 
 response = "Who's there?"
    set response to button returned of ¬
        (display dialog "Knock knock!" buttons {"Enough!", "Who's there?"})
end repeat
whatKindOfRepeat
until
end repeat
repeat while
repeat until
repeat while not
set response to ""
repeat until response = "Enough!"
    set response to button returned of ¬
        (display dialog "Knock knock!" buttons {"Enough!", "Who's there?"})
end repeat
do...until
repeat until
repeat with
repeat with 
variableName
 from 
startInteger
 to 
endInteger
 [by 
stepInteger
]
repeat with
repeat with
startInteger
endInteger
stepInteger
startInteger
endInteger
stepInteger
end repeat
startInteger
variableName
variableName
1
stepInteger
variableName
endInteger
stepInteger
end repeat
variableName
repeat with
repeat while
repeat until
repeat with
variableName
variableName
repeat with
variableName
repeat with
repeat with x from 3 to 1 by -1
    display dialog x
end repeat
display dialog "Blast off!"
repeat with...in
repeat with 
variableName
 in
list
variableName
theCount
theListRef
x
x
x
theCount
end repeat
variableName
a reference to item x of theListRef
theCount
theListRef
x
variableName
variableName
repeat with x in {1, 2, 3}
    -- 

end repeat
x
1
2
3
a reference to item 1 of {1, 2, 3}
a reference to item 2 of {1, 2, 3}
a reference to item 3 of {1, 2, 3}
variableName
repeat with x in {1, 2, 3}
    display dialog x -- 
1, 2, 3

end repeat
variableName
repeat with x in {1, 2, 3}
    if x = 2 then
        display dialog "2"
    end if
end repeat
x
2
x
a reference to item 2 of {1, 2, 3}
2
repeat with x in {1, 2, 3}
    if contents of x = 2 then
        display dialog "2"
    end if
end repeat
set L1 to {1, 2, 3}
set L2 to {}
repeat with x in L1
    set end of L2 to x
end repeat
L2
{1, 2, 3}
L2 -- 
{item 1 of {1, 2, 3}, item 2 of {1, 2, 3}, item 3 of {1, 2, 3}}
L1
L2
L2
L1
set L1 to {1, 2, 3}
set L2 to {}
repeat with x in L1
    set end of L2 to contents of x
end repeat
L2 -- 
{1, 2, 3}
variableName
set L to {1, 2, 3}
repeat with x in L
    set contents of x to item x of {"Mannie", "Moe", "Jack"}
end repeat
L -- 
{"Mannie", "Moe", "Jack"}
on findInList(what, L)
    repeat with anItem in L
        if contents of anItem is what then
            return anItem
        end if
    end repeat
    return
end findInList
local pep
set pep to {"Mannie", "Moe", "Jack"}
set contents of findInList("Moe", pep) to "Larry"
pep -- 
{"Mannie", "Larry", "Jack"}
listRef
set L to {1, 2, 3}
repeat with x in L
    set L to {"Mannie", "Moe", "Jack"}
    display dialog x -- 
1

2

3

end repeat
x
a reference to item 1 of {1, 2, 3}
a reference to item 2 of {1, 2, 3}
a reference to item 3 of {1, 2, 3}
L
listRef
listRef
set L to {1, 2, 3}
repeat with x in L
    display dialog x -- 
1

    set beginning of L to contents of x
end repeat
L --
{1, 1, 1, 1, 2, 3}
L
L
1
theCount
repeat with...in
repeat with x in every 
class
set total to 0
tell application "Finder"
    count folders -- 
6

    repeat with x in every folder
        set total to total + 1
    end repeat
end tell
total --
50
count every 
class
 each item
item
tell application "Microsoft Entourage"
    repeat with x in every contact
repeat with x in every 
class
x
tell application "Microsoft Entourage"
    repeat with x in every contact
x
a reference to item 1 of every contact
a reference to item 2 of every contact
a reference to item 3 of every contact
tell application "Microsoft Entourage"
    repeat with x in every contact
        get name of x
    end repeat
end tell
 tell application "BBEdit"
    repeat with w in (every word of document 1 where its text begins with "t")
        set text of w to "howdy"
    end repeat
end tell
w
a reference to item 
x
 of every word of window 1 of application "BBEdit" ¬
    where its text begins with "t"
w
"t"
"t"
a reference to item 2 of every word of window 1 of application "BBEdit" ¬
    where its text begins with "t"
repeat with x in every 
class
repeat with x in (get every 
class
)
set L to (get every 
class
)
repeat with x in L
repeat with...in
tell application "Finder"
    repeat with x in (get every folder) -- 
tell application "BBEdit"
    set L to (get every word of document 1 where its text begins with "t")
    repeat with w in (reverse of L)
        set text of w to "howdy"
    end repeat
end tell
tell 
target

    -- 

end tell
tell 
target
 to
command
of
tell
get frontmost of application "Finder" -- 
false
frontmost
using terms from application "Finder"
    set f to a reference to folder 1
end using terms from
folder
target
using terms from 
application

    -- 

end using terms from
application
tell application "Finder"
    using terms from application "Microsoft Entourage"
        get name of folder 1 -- 

    end using terms from
end tell
folder
folder
using terms from application "Finder"
    tell application someVariable
        get name of folder 1
    end tell
end using terms from
tell application someVariable
    using terms from application "Finder"
        get name of folder 1
    end using terms from
end tell
someVariable
someVariable
folder
folder
set whatMachine to text returned of ¬
    (display dialog "Machine to connect to:" default answer "eppc://")
-- 

eppc://duck.local

tell application "Finder" of machine whatMachine
    using terms from application "Finder"
        get name of disk 1 -- 
"OmniumGatherum"

    end using terms from
end tell
getThing
using terms from application "Microsoft Entourage"
    set n1 to a reference to name of folder 1 of application "Microsoft Entourage"
end using terms from
using terms from application "Finder"
    set n2 to a reference to name of folder 1 of application "Finder"
end using terms from
on getThing(R)
    return (get contents of R)
end getThing
getThing(n1) -- 
"Inbox"

getThing(n2) --
"Mannie"
using terms from application "someAppThatMightBeMissing"
    set s to "someAppThatMightBeMissing"
    tell application s
        doYourThing
    end tell
end using terms from
with timeout of 
integer
 second[s]
    -- 

end timeout
integer
8947848
8947848
with timeout of 100000 seconds
    tell application "Finder"
        get every application file of entire contents ¬
            of disk 1 where its creator type is "aplt"
    end tell
end timeout
with transaction
    -- 

end transaction
with transaction
end transaction
tell application "FileMaker Pro"
    with transaction
        tell database 1
            show every record
            set f to create new request
            set cell "lastname" of f to "neuburg"
            find
        end tell
    end transaction
end tell
with transaction
begin transaction
end transaction
end transaction
end transaction
transaction
end transaction
ignoring application responses
    -- 

end ignoring
offset
case
diacriticals
expansion
hyphens
punctuation
white space
numeric strings
considering | ignoring 
considerations
 [but ignoring | considering 
considerations
]
    -- 

end considering | ignoring
considerations
and
ignoring hyphens, expansion and punctuation
    considering white space but ignoring case and diacriticals
        "a-" = "Å!" -- 
true

    end considering
end ignoring
set bigEpsilon to «data utxt0395» as Unicode text
set littleEpsilon to «data utxt03B5» as Unicode text
ignoring case
    bigEpsilon = littleEpsilon -- 
true

end ignoring
numeric strings
"1.10" > "1.9.3" -- 
false

considering numeric strings
    "1.10" > "1.9.3" -- 
true

end considering
1
1
10
9
display dialog
error
error [
messageString
]
    [number 
shortInteger
]
    [partial result 
list
]
    [from 
anything
]
    [to 
class
]
messageString
number
-2700
partial result
from
to
item
messageString
error "Things fall apart, the centre cannot hold."
error
messageString
32
-128
display dialog
try
    -- 

end try
end try
set x to "Cancel"
try
    set x to button returned of (display dialog "Press a button.")
end try
display dialog "You pressed " & x
set L to {}
set x to 1
tell application "Finder"
    try
        repeat
            set end of L to name of disk x
            set x to x + 1
        end repeat
    end try
end tell
L -- 
{"feathers", "gromit", "Network"}
try
    -- 

on error [
parameters
]
    -- 

end try
parameters
error
on num(what)
    try
        return what as number
    on error s number i partial result p from f to t
        set s to "Handler num got an error: " & s
        error s number i partial result p from f to t
    end try
end num
num("howdy") -- 
askUser
on askUser( )
    try
        set x to text returned of ¬
            (display dialog "Give me a number:" default answer "")
        set x to (x as number)
    on error
        askUser( )
    end try
    error x
end askUser
try
    askUser( )
on error what
    display dialog "Your number is " & what
end try
on getFavoriteColor( )
    try
        set r to display dialog "What is your favorite color?" default answer ""
    on error
        error number 1001
    end try
    set s to text returned of r
    if s = "" then error number 1000
    return s
end getFavoriteColor
set c to ""
repeat until c is not ""
    try
        set c to getFavoriteColor( )
    on error number n
        if n = 1000 then
            display dialog "You didn't enter a color!" buttons "OK"
        else if n = 1001 then
            display dialog "Why did you cancel? Tell me!" buttons "OK"
        end if
    end try
end repeat
display dialog "Aha, you like " & c & ", eh?"
getFavoriteColor
1000
1001
on error
error
-1728
set n to text returned of ¬
    (display dialog "What disk would you like the name of?" default answer "")
try 

    tell application "Finder" to set x to name of disk (n as integer)
    display dialog x
on error e number n partial result p from f to t
    if n = -1728 then
        display dialog "I don't think that disk exists. " & e
    else
        error e number n partial result p from f to t
    end if
end try
on error
error
on error e number -1728
    display dialog "I don't think that disk exists. " & e
end try
-1728
-1700
set n to text returned of ¬
    (display dialog "What disk would you like the name of?" default answer "")
try
    try
        tell application "Finder" to set x to name of disk (n as integer)
        display dialog x
    on error e number -1728
        display dialog "I don't think that disk exists. " & e
    end try
on error e number -1700
    display dialog "I don't think that was an integer."
end try
on askUser( )
    set n to text returned of ¬
        (display dialog "What disk would you like the name of?" default answer "")
    try
        tell application "Finder" to set x to name of disk (n as integer)
        display dialog x
    on error e number -1728
        display dialog "I don't think that disk exists. " & e
    end try
end askUser
try
    askUser( )
on error e number -1700
    display dialog "I don't think that was an integer."
end try
try
    tell application "Finder"
        activate
        with timeout of 1 second
            display dialog "Press a button." giving up after 2
        end timeout
    end tell
on error number -1712
    activate
    display dialog "Ha ha, not fast enough!"
end try
run script
run script
run script
run script
set d to "window 1"
set p to "What Finder object would you like the name of?"
set r to display dialog p default answer d
set s to text returned of r
set s to "tell app \"Finder\" to get name of " & s
try
    set res to run script s
    display dialog res
on error
    display dialog "Sorry, that didn't work."
end try
run script
make
folder
tell application "Finder"
    set c to display dialog ((count folders) as string)
end tell
tell application "iTunes"
    tell application "Finder"
        count folders
    end tell
end tell
tell application "Finder"
    using terms from application "iTunes"
        count folders -- 

    end using terms from
end tell
folder
folder
folders
get
set
copy
set
to
folder
count
string
display dialog
c
'cfol'
'core\cnte'
core\cnte {
    kocl:'cfol',
    ----:'null'( )
}
local count
-- 
count
set sel to {length:2, offset:4}
-- 
offset
length
local desktop
-- 

--
desktop
path to
set desktop to 7 -- 
tell application "Finder"
    set container to 7 -- 

end tell
container
container
tell application "Finder"
    script eject -- 

    end script
end tell
eject
filter
    return filterer's filter(L)
    -- 
filter
set count to 0 -- 
set year to 2005 -- 
local year
set year to 2005 -- 
local container, x
set container to "howdy"
tell application "Finder"
    set x to container
end tell
x -- 
container
x
container
container
x
set home to "Ojai"
tell application "Finder"
    get home
    -- 
folder "mattneub" of folder "Users" of startup disk of application "Finder"

end tell
beep
beep
beep
on beep (what)
    display dialog what
end beep
beep 3 -- 
3
beep 3
set count to 0
set myVar to 10
count
myVar
count
home
home
home
container
beep
beep
local year
set year to 2005 -- 
year
local bounds
tell application "Finder"
    set bounds to (get bounds of item 1)
end tell
bounds -- 
{-33, -33, 31, 31}
bounds
bounds
bounds
bounds
bounds
get
bounds
bounds
set
bounds
bounds
set
of
its
bounds
bounds
tell application "Finder"
    set bounds to (get bounds of item 1)
    -- 

end tell
bounds
bounds
home
home
home
local home
tell application "Finder"
    set home to (get bounds of item 1)
    -- 

end tell
local |count|
set |count| to 0
set |year| to 2005
set sel to {length:2, |offset|:4}
local |desktop|
tell application "Finder"
    set |container| to 7
end tell
tell application "Finder"
    script |eject|
    end script
end tell
on |beep|(what)
    display dialog what
end |beep|
beep 1 -- 

|beep|("howdy") --
howdy
filter
filter
|filter|
set home to "Ojai"
tell application "Finder"
    get home
    -- 
folder "mattneub" of folder "Users" of startup disk of application "Finder"

end tell
home
home
home
set home to "Ojai"
tell application "Finder"
    get my home -- 

end tell
set home to "Ojai"
tell application "Finder"
    get |home| -- 
"Ojai"

end tell
on reverseString(s)
    set text item delimiters to ""
    return (reverse of characters of s) as string
end reverseString
tell application "Finder"
    set name of folder 1 to reverseString(get name of folder 1)
    -- 

end tell
reverseString
reverseString
my
my
reveal
folder
name
'pnam'
count
local folder
set folder to 5
tell application "Finder"
    set |folder| to 10
end tell
folder -- 
5
folder
file information
info for
'asdr'
'cfol'
folder
local |folder|
set |folder| to 5
tell application "Finder"
    set |folder| to 10
end tell
|folder| -- 
10
tell application "BBEdit"
    tell text window 1
        offset of "i" in (get contents of word 1)
        -- 

    end tell
end tell
offset
offset
tell application "Finder"
    get name of eject -- 

end tell
tell application "Finder"
    set container to "howdy"
    -- 

end tell
tell application "Finder"
    duplicate x by y -- 

end tell
duplicate
by
tell application "Finder"
    get name 1 -- 

end tell
every
tell application "Finder"
    folder -- 
folder

    folders -- 
{...}

    folders 1 -- 
 folder 1
    folder 1 thru 2 -- 
 folders 1 thru 2
end tell
tell application "Finder" to get column 1 of desktop
column
list view options
tell application "Finder" to eject the item of file 1
item
file
tell application "Finder"
    tell folder 1
        make new extension hidden
    end tell
end tell
make
new
extension hidden
tell application "Finder" to folder the item
folder
get
tell application "Finder" to get folder index item
folder 1
item
constant
property
class
event
event
«»
get name of «class cdis» 1 of application "Finder" -- 
"feathers"
name
disk
disk
offset
path to
path to application support from user domain
-- 
alias "feathers:Users:mattneub:Library:Application Support:"

tell application "System Events"
    path to application support from user domain
    -- 
alias "feathers:Library:Application Support:"

end tell
user domain
user domain
tell application "System Events"
    path to application support from «constant fldmfldu»
    -- 
alias "feathers:Users:mattneub:Library:Application Support:"

end tell
user domain
set userdomain to user domain
tell application "System Events"
    path to application support from userdomain
    -- 
alias "feathers:Users:mattneub:Library:Application Support:"

end tell
run script
run script
property userdomain : run script ("«constant fldmfldu»")
tell application "System Events"
    path to application support from userdomain
    -- 
alias "feathers:Users:mattneub:Library:Application Support:"

end tell
tell application "Finder"
    get «class euSu» of «class euMS» 1 of «class euMB» "Trash"
end tell
print settings
cover page
lwec
«class lwec»
tell application "iTunes"
    display dialog (kind of source 1 as string) -- 
library

end tell
kind
display dialog
library
"library"
tell application "iTunes"
    display dialog (kind of source 1 as string) -- 
«constant ****kLib»

end tell
set R to {«class kACD»:"audio CD", «class kLib»:"library", ¬
    «class kTrk»:"track listing"}
tell application "iTunes"
    set k to (get kind of source 1)
    display dialog (get property k in R) -- 
library

end tell
'aete'
display dialog
set the clipboard to
set...to
the
clipboard
local clipboard, tester
set clipboard to "Mannie" -- 
 clipboard
set the tester to "Moe" -- 
 tester 

set the clipboard to "Jack" --
text item delimiters
tell application "Finder"
    get text item delimiters -- 

end tell
text item delimiters
'txdl'
'txdl'
my
AppleScript's
tell application "Finder"
    get my text item delimiters -- 

end tell
tell application "Finder"
    get space
end tell
space
space
space
space
of
text item delimiters
'aete'
'aete'
disk
capacity
ejectable
string
track
'****'
'obj '
'insl'
'type'
'prop'
convert
list of reference
disk
format
'edfm'
Mac OS Extended format
audio format
Mac OS Extended format
close
saving
'savo'
yes
no
ask
yes
no
ask
format
close
saving
yes/no/ask
file
folder
disk
file
files
folder
folders
disk
disks
every
get disks
get every disk
disks
disk
desktop-object
every
text
every
item
file
container
item
item
file
container
file
container
item
item
name
file
container
folder
container
item
name
container
entire contents
folder
item
file
container
file
container
desktop window
Finder window
window
folder
container
item
ID
container
item
item
item
item
item
item
tell application "Finder"
    class of item 1 of desktop -- 
document file

 item

end tell
disk
disk
container
item
disk
disk
disk
container
item
item
folder
container
container
folder
item
name
'pnam'
'utxt'
'pnam'
name
application
application
get document 1
tell application "BBEdit"
    set d to document 1 -- 

    get name of d -- 

end tell
tell application "BBEdit"
    set d to find tag "style" start_offset 0
    class of d -- 
tag result

    start_offset of tag of d -- 
225

    end_offset of tag of d -- 
259

end tell
tag result
record
class
tag result
tell application "BBEdit"
    set d to find tag "style" start_offset 0
end tell
start_offset of tag of d -- 
'aete'
Finder preferences
reveal
'misc\mvis'
'----'
add
list of alias
to
location reference
track
delete
bus slot
exists
make
select
word
text style info
copy
cut
undo
'aevt\oapp'
'aevt\odoc'
'aevt\pdoc'
'aevt\quit'
'aeut'
get
set
'aeut'
'aeut'
upper case
print depth
'aeut'
'aeut'
'aeut'
small integer
location reference
make
count
exists
of
null( )
null( )
application
null( )
application
tell application "iTunes"
    get playlist "library" -- 
library playlist id 40 of source id 35

end tell
tell application "Finder"
    get folder 1 -- 
folder "Mannie" of desktop

end tell
tell application "Microsoft Entourage"
    get email address 1 of contact 1 -- 
"[email protected]"

    get label of email address 1 of contact 1 -- 
home

end tell
label
email address
contents
email address
contents
mailbox
mailbox
mail folder
tell application "Eudora" to count messages of mailbox "In"
mailbox
mailbox
tell application "Finder" to get item 1 of Finder window 1
file
tell application "Finder" to get files 1 thru 2 of folder 1
tell application "Eudora" to get mailbox 1 -- 
tell application "Eudora" to get name of mailbox 1 -- 
"In"
tell application "Eudora" to count messages of mailbox 1
tell application "Eudora" to count mailboxes -- 
address
address
address
tell application "Microsoft Entourage"
    tell folder 1
        tell message 1
            tell recipient 1
                get address of address -- 

            end tell
        end tell
    end tell
end tell
tell application "Microsoft Entourage"
    tell folder 1
        tell message 1
            tell recipient 1
                get address of its address -- 
"[email protected]"

            end tell
        end tell
    end tell
end tell
desktop
tell application "Finder" to get class of desktop -- 
desktop
desktop
desktop-object
desktop-object
desktop
desktop
desktop-object
end transaction
'misc\endt'
end transaction
contents
contents of
recipient
recipient type
'rtyp'
as
get...as
tell application "Microsoft Entourage"
    get path to desktop as string
end tell
tell application "Microsoft Entourage"
    get path to desktop recipient type string
end tell
'obj '
in box folder
folder
convert
in
save
save
tell application "GraphicConverter"
    set s to "feathers:Users:mattneub:Desktop:joconde"
    save window 1 in s as PICT
end tell
'aeut'
alias or string
do shell script
choose URL
URL
expand
reveal
tell application "Finder"
    repeat with d in (get every disk)
        -- 

    end repeat
end tell
every disk
disk
make
at
tell application "Finder" to make Finder window
add
to
make
make
make
new
new
make
new
message
message window
window
document
window
Finder window
at 
location reference
 --
tell application "Eudora"
    make new message at end of mailbox "Out"
end tell
at
tell application "NoteTaker"
    tell current notebook
        tell current page
            make new entry at beginning of entries
        end tell
    end tell
end tell
at beginning of entries
at
at
tell application "BBEdit"
    tell window 1
        make new word at word 2 with data "howdy"
    end tell
end tell
tell application "TextEdit"
    tell text of document 1
        make new word at word 2 with data "howdy"
    end tell
end tell
tell application "Finder"
    make new folder at folder 1
end tell
with
with data
with properties
with data
with properties
make
tell application "Mailsmith"
    tell message window 1
        make new to_recipient with properties {address:"[email protected]"}
    end tell
end tell
with properties
selection
application
selection
tell application "Address Book"
    name of selection
    -- 

end tell
tell application "Address Book"
    set L to {}
    repeat with aThing in (get selection)
        set end of L to (get name of aThing)
    end repeat
    L
end tell
selection
current playlist
current messages
selection
select
delete
tell application "Eudora"
    delete message 1 of mailbox "Out"
    -- 

end tell
tell application "Eudora"
    move message 1 of mailbox "Out" to end of mailbox "Trash"
end tell
insert
make
make
delete
delete
delete 
reference
 --
close
get...as
alias list
tell application "Finder"
    get every disk as alias list
    -- 
{alias "feathers:", alias "gromit:", alias "Network:"}

end tell
path to
as
string
alias
Unicode text
if application file n has scripting terminology then
if application file n is has scripting terminology then -- 
has scripting terminology
scriptable
close
saving
no
close
close
close
to
make
text_object
text_object
offset
display dialog
load script
store script
display dialog
set f to "gromit:Applications (Mac OS 9):SimpleText"
tell application f to display dialog "hello" -- 
display dialog
min monitor depth -- 
8
set f to "gromit:Applications (Mac OS 9):SimpleText"
tell application f to get min monitor depth
-- 
set f to "gromit:Applications (Mac OS 9):SimpleText"
tell application f to «event aevtgmnd» -- 
8
«event aevtgmnd» -- 
try
    tell me to «event ascrgdut»
end try
the ticks
«event JonstikC»
try
    run script "get the ticks"
on error -- 

    set jons to choose file with prompt "Please find Jon's Commands:"
    set sa to path to scripting additions from user domain
    tell application "Finder" to duplicate jons to sa
    try
        tell me to «event ascrgdut»
    end try
end try
display dialog (run script "get the ticks") -- 
1974834
load script
store script
run script
POSIX file
do shell script
osascript
-128
open for access
read
write
open for access
set f to open for access ((path to desktop as string) & "testing")
close access f
set f to ((path to desktop as string) & "testing")
open for access f
close access alias f
set f to ((path to desktop as string) & "testing")
open for access f
close access f
-- 
write
starting at
set pep to {"Mannie", "Moe", "Jack"}
set f to (path to current user folder as string) & "testFile"
try
    set fNum to open for access file f with write permission
on error
    close access file f
    return
end try
try
    set eof fNum to 0 -- 

    set eof fNum to (count pep) * 32
    repeat with i from 1 to (count pep)
        write item i of pep to fNum starting at (i - 1) * 32
    end repeat
    close access fNum
on error
    close access fNum
end try
set f to choose file of type "TEXT"
try
    set fNum to open for access f
on error
    close access f
    return
end try
set L to {}
try
    set ct to (get eof fNum) / 32
    repeat with i from 1 to ct
        set end of L to read fNum from (i - 1) * 32 ¬
            before ASCII character 0 -- 

    end repeat
    close access fNum
on error
    close access fNum
end try
L -- 
{"Mannie", "Moe", "Jack"}
-128
set r to display dialog "Quick! Pick a Pep Boy!" buttons {"Mannie", "Moe", "Jack"} ¬
    with icon caution giving up after 3
set favoritePepBoy to button returned of r
if favoritePepBoy is "" and gave up of r then set notFastEnough to true
set whoIsIt to text returned of (display dialog "What is your name?" ¬
    default answer "" buttons {"OK"} default button "OK")
display
dialog
tell application "Finder"
    display alert "Pep Alert" message "Mannie, Moe, and Jack welcome you."
end tell
false
set p to choose from list {"Mannie", "Moe", "Jack"} with prompt "Pick a Pep Boy:"
set f to choose file of type {"public.text"} without invisibles
choose file
set f to choose folder with prompt "Pick a folder:"
set f to choose file name with prompt "Where shall I save this stuff?"
set theApp to choose application as alias
tell application "Finder"
    set isScriptable to has scripting terminology of theApp
end tell
if isScriptable then display dialog "It's scriptable!"
choose URL showing File servers -- 
"afp://duck.local."
choose remote application
-- 
application "Finder" of machine "eppc://192.168.0.4/?uid=501&pid=178"

using terms from application "Finder"
    set ap to choose remote application -- 

    -- 

    tell ap
        get name of window 1 -- 
Desktop

    end tell
end using terms from
rgb color
choose color default color {9000, 10000, 50000} -- 
{50000, 9000, 10000}
beep
alert volume of (get volume settings) -- 
75
set volume output volume 100 alert volume 100
beep
tell application "SpeechRecognitionServer"
    set s to listen for {"yes", "no"} with prompt "Would you like me to beep?" ¬
        giving up after 10
end tell
if s is "yes" then
    say "Okay, I will beep now." displaying "Okay."
    beep
else
    say "Okay, then I won't." displaying "Okay."
end if
system attribute
set v to system version of (system info)
display dialog "You are running system " & v & "!"
set n to system attribute "sysv"
set s to "print sprintf \"%lx\", " & n
set v to do shell script "perl -e " & quoted form of s
set L to characters of v
set v to "." & item -1 of L
set v to "." & item -2 of L & v
set v to ((items 1 thru -3 of L) as string) & v
display dialog "You are running system " & v & "!"
system attribute
system attribute "SHELL" -- 
"/bin/bash"
path to
path to desktop -- 
alias "feathers:Users:mattneub:Desktop:"

path to "cmnu" -- 
alias "feathers:Library:Contextual Menu Items:"
current application
path to me
path to application "Finder"
-- 
alias "feathers:System:Library:CoreServices:Finder.app:"
display dialog ((path to resource "description.rtfd") as string)
-- 
feathers:Users:mattneub:Library:Scripts:myScriptBundle.scptd:Contents:
    Resources:description.rtfd

set f to path to resource "app.icns" in bundle ¬
    alias "feathers:Applications:Mail.app:"
display dialog "Time to check your mail!" with icon f
list disks -- 
{"feathers", "gromit", "Network"}
list folder (path to home folder)
-- 
{".bash_history", ".CFUserTextEncoding", ".DS_Store", ".ssh", ...}
without size
set uf to (path to home folder as string)
set L to list folder uf
set s to {}
repeat with f in L -- 

    set end of s to size of (info for file (uf & f))
end repeat
set maxItem to 0
set maxVal to 0
repeat with i from 1 to (count s) -- 

    if item i of s > maxVal then
        set maxItem to i
        set maxVal to item i of s
    end if
end repeat
display dialog "The biggest thing in your home folder is: " & item maxItem of L
set f to (path to desktop as string) & "newfile.txt"
set ff to open for access file f
close access ff
using delimiter
until
before
set f to (path to desktop as string) & "someUTF16file.txt"
set ff to open for access file f
set d1 to read ff as Unicode text
d1 -- 
"Mannie¬Moe¬Jack"

-- 
delimiter 

set notsign to "¬" as Unicode text
set L to read ff from 1 as Unicode text using delimiter notsign
L -- 
{"Mannie", "Moe", "Jack"}

-- 
before 

set d2 to read ff from 1 as Unicode text before notsign
close access ff
d2 -- 
"Mannie"
set f to a reference to file ((path to desktop as string) & "justTesting")
open for access f with write permission
write {"Mannie", "Moe", "Jack"} as list to f
close access f
open for access f
set L to read f as list
close access f
L -- 
{"Mannie", "Moe", "Jack"}
write "Howdy" to f
set ourEof to get eof of f
write "Doody" to f starting at ourEof + 1
eof
ASCII character 82 -- 
"R"
ASCII number "Ribbit" -- 
82
0
offset of "bb" in "Ribbit" -- 
3
-- 

clipboard info
-- 
{{string, 20}, {«class ut16», 44}, {«class hfs », 80}, {«class
 utf8», 20}, {Unicode text, 42}, {picture, 2616}, {«class icns», 43336},
{«class furl», 62}}
as record
-- 

set r to the clipboard as record
-- 
{string:"Hawaii Itinerary.pdf", «class ut16»:"Hawaii Itinerary.pdf",
«class hfs »:«data hfs 0000...0000», «class utf8»:"Hawaii
Itinerary.pdf", Unicode text:"Hawaii Itinerary.pdf", picture:«data PICT0A38...000FF»,
 «class icns»:«data icns6963...0000», «class furl»:file
"feathers:Users:mattneub:Desktop:Hawaii Itinerary.pdf"}

type identifier of (info for «class furl» of r) -- 
"com.adobe.pdf"

the clipboard as «class furl» -- 
rounding  as taught in school
round 1.3 -- 
1
random number
set L to {}
repeat 10 times
    if (random number 1) as boolean then
        set end of L to "heads"
    else
        set end of L to "tails"
    end if
end repeat
L -- 
{"heads", "tails", "heads", "heads", "heads",
     "tails", "heads", "heads", "heads", "heads"}
time string of (current date) -- 
"10:41:13 AM"
(time to GMT) / hours -- 
-7.0
delay 1
beep
afp
choose URL
smb
do shell script
mount_afp
-- 

set s to choose URL showing File servers
mount volume s as user name "mattneub" with password "teehee"
-- 

mount volume "afp://matt%20neuburg:[email protected]/OmniumGatherum"
mount volume "afp://duck.local/OmniumGatherum" ¬
    as user name "matt neuburg" with password "teehee"
-- 

mount volume "afp://duck.local"
"AppleScript"
current date
the ticks
repeat while
set x to 1
tell application "Finder"
    set f1 to folder "f1"
    set f2 to folder "f2"
    repeat while ((count items of f1) < (count items of f2))
        make new folder at f1 with properties {name:("f" & x)}
        set x to x + 1
    end repeat
end tell
count
set x to 1
tell application "Finder"
    set f1 to folder "f1"
    set f2 to folder "f2"
    set c1 to count items of f1
    set c2 to count items of f2
    repeat while c1 < c2
        make new folder at f1 with properties {name:("f" & x)}
        set x to x + 1
        set c1 to c1 + 1
    end repeat
end tell
repeat with x from...to
repeat with...in
tell application "BBEdit"
    repeat with w in every word of document 1
        if contents of text of w begins with "t" then
            change case w making raise case
        end if
    end repeat
end tell
w
a reference to item 1 of every word of document 1 of application "BBEdit"
a reference to item 2 of every word of document 1 of application "BBEdit"
a reference to item 3 of every word of document 1 of application "BBEdit"
every word
every word
tell application "BBEdit"
    set L to (get every word of document 1)
    repeat with w in L
        if contents of text of w begins with "t" then
            change case w making raise case
        end if
    end repeat
end tell
tell application "BBEdit"
    set L to ¬
        (get every word of document 1 where contents of text of it begins with "t")
    repeat with w in L
        change case w making raise case
    end repeat
end tell
tell application "Finder"
    set L to (get every folder)
    set L2 to {}
    repeat with f in L
        set end of L2 to name of f
    end repeat
end tell
tell application "Finder"
    set L to (get name of every folder)
end tell
set L to {}
set total to 0
set bignum to 5000
repeat with i from 1 to bignum
    set end of L to i
end repeat
repeat with i from 1 to bignum
    set total to total + (item i of L)
end repeat
total -- 
12502500
set L to {}
set refL to a reference to L
set total to 0
set bignum to 5000
repeat with i from 1 to bignum
    set end of L to i
end repeat
repeat with i from 1 to bignum
    set total to total + (item i of refL)
end repeat
total -- 
12502500
set L to {}
set total to 0
set bignum to 5000
repeat with i from 1 to bignum
    set end of L to i
end repeat
repeat with i from 1 to bignum
    set total to total + (item i of my L)
end repeat
total -- 
12502500
my
L
L
L
on myHandler( )
    set L to {}
    script myScript
        property refL : L
    end script
    set total to 0
    set bignum to 5000
    repeat with i from 1 to bignum
        set end of L to i
    end repeat
    repeat with i from 1 to bignum
        set total to total + (item i of myScript's refL)
    end repeat
    return total
end myHandler
myHandler( ) -- 
12502500
set end of
set end of
display dialog
set t to the ticks
repeat 5000 times
    tell application "Finder" to get offset of "i" in "ticks"
end repeat
set t1 to (the ticks) - t
set t to the ticks
repeat 5000 times
    tell me to get offset of "i" in "ticks"
end repeat
set t2 to (the ticks) - t
return {t1, t2} -- 
{944, 71}
set x to (get current date)
repeat 500 times
    tell application "iTunes"
        get name of it
    end tell
end repeat
set y to (get current date)
set z to (y - x)
tell application "Finder"
    activate
    display dialog z
end tell
of
"BBEdit"
"BBEdit 6.5"
"Microsoft Excel"
"UserLand Frontier?"
"?"
tell application "xxx"
"Excel"
"Microsoft Excel"
"Excel"
tell application "gromit:Users:matt2:Info Process:FileMaker 5.5:FileMaker Pro.app"
    launch
    get version -- 
"7.0v3"

end tell
choose remote application
unload
% 
sudo launchctl load -w /System/Library/LaunchDaemons/eppc 
.plist
choose remote application
choose remote application
application "Finder" of machine "eppc://duck.local/?uid=501&pid=179"
username:password@
uid
pid
tell application "Finder" of machine "eppc://duck.local"
    -- 

    get name of every window
end tell

tell application "Finder" of machine "eppc://mattneub:[email protected]"
    -- 

    get name of every window
end tell

set s to "eppc://mattneub:[email protected]/Finder"
-- 

tell application s
    get name of window 1
end tell

set s to "eppc://mattneub:[email protected]/Finder"
-- 

tell application s
    get name of window 1
end tell

set s to "eppc://mattneub:[email protected]/?uid=501&pid=179"
-- 

tell application s
    get name of window 1
end tell
name
window
set s to "eppc://mattneub:[email protected]/Finder?uid=501"
using terms from application "Finder"
    tell application s
        get name of every disk
        -- 
{"OmniumGatherum", "Network", "SecretSharer", "Puma"}

    end tell
end using terms from
tell application "Finder" of machine "eppc://duck.local"
    say "Watson, come here, I want you."
end tell
tell application "Finder" of machine "eppc://duck.local"
    display dialog "Watson, come here, I want you."
    -- 

end tell
store script
run script
load script
set s to "eppc://mattneub:[email protected]/Finder?uid=501"
using terms from application "Finder"
    tell application s
        get name of every process
        -- 
{"loginwindow", "Dock", "SystemUIServer", "Finder", "LaunchBar",
            "UniversalAccess", "System Events"}

    end tell
end using terms from
tell application "Finder" of machine "eppc://duck.local"
    open item "OmniumGatherum:Applications:Utilities:Terminal.app"
end tell
set m to "eppc://mattneub:[email protected]"
tell application "Finder" of machine m
    using terms from application "Finder"
        open application file id "com.barebones.BBEdit"
    end using terms from
end tell
tell application "BBEdit" of machine m
    using terms from application "BBEdit"
        set contents of document 1 to "Hello, world!"
    end using terms from
end tell
do shell script
osascript
uid
choose remote application
set L to {}
repeat with i from 501 to 520
    set m to "eppc://mattneub:[email protected]/?uid=" & (i as string)
    using terms from application "Finder"
        try
            tell application "Finder" of machine m
                get (desktop as string)
                set end of L to i
            end tell
        end try
    end using terms from
end repeat
L -- 
{501, 502}
on test(m)
    tell application "Finder" of machine m
        set n to (get name of window 1)
    end tell
    display dialog n
end test
test("eppc://mattneub:[email protected]/?uid=501") -- 
mattneub

test("eppc://mattneub:[email protected]/?uid=502") --
guest
localhost
tell application "Finder" to get name of window 1 -- 
mattneub

set m to "eppc://mattneub:teehee@localhost/?uid=502"
tell application "Finder" of machine m
    get name of window 1 -- 
mrclean

end tell
call xmlrpc
call soap
http
tell application "http://www.xxx.com/someApplication"
tell application "someApplication" of machine "http://www.xxx.com"
call xmlrpc
call xmlrpc {method name: 
methodName
, parameters: 
parameterList
}
call soap
call soap {method name: 
methodName
, ¬
    method namespace uri: 
uri
, ¬
    parameters: 
parameterRecord
, ¬
    SOAPAction: 
action
}
method namespace uri
parameters
examples.getStateName
tell application "http://superhonker.userland.com/rpc2"
    call xmlrpc ¬
        {method name:"examples.getStateName", ¬
        parameters:30} -- 
"New Jersey"

end tell
tell application "http://superhonker.userland.com"
    call soap ¬
        {method name:"getStateName", ¬
        SOAPAction:"/examples", ¬
        parameters:{statenum:30}} -- 
"New Jersey"

end tell
generalSOAP
call soap
on generalSOAP(u, m, s, a, p)
    using terms from application "http://www.apple.com/placebo"
        tell application u
            return call soap ¬
                {method name:m, ¬
                 method namespace uri:s, ¬
                 parameters:p, ¬
                 SOAPAction:a}
        end tell
    end using terms from
end generalSOAP
generalSOAP("http://services.xmethods.net:80/soap", ¬
    "getQuote", "urn:xmethods-delayed-quotes", ¬
    "", {Symbol:"AAPL"}) -- 
74.93
call soap
call xmlrpc
call soap
call soap
do JavaScript
tell application "System Events"
    get full name of current user
    make new login item at end of login items with properties ¬
        {path:"/Applications/Safari.app"}
end tell
tell application "System Events"
    name of folder 1 of desktop folder of user domain -- 
"Mannie"

end tell
tell application "Finder" to set f to (get file 1 as string)
tell application "System Events"
    try
        set f to audio file f
    on error
        error "Not an audio file."
    end try
    set k to kind of f
    tell (get contents of f)
        set t to (its duration) / (its time scale)
        set min to t div 60
        set sec to round (t mod 60) rounding as taught in school
    end tell
    return k & ", " & min & ":" & sec -- 
MP3 Audio File, 2:43

end tell
tell application "System Profiler"
    set s to (XML text of document 1)
end tell
on findElementWithValue(e, v)
    tell application "System Events"
        repeat with i from 1 to (count XML elements of e)
            if value of XML element i of e is v then
                return i
            end if
        end repeat
    end tell
    error "not found"
end findElementWithValue
tell application "System Events"
    set x to make new XML data with data s
    set e to XML element 1 of XML element 1 of x
    set e to first XML element of e where ¬
        value of XML element 2 of it is "SPHardwareDataType"
    set i to my findElementWithValue(e, "_items")
    set e to XML element 1 of XML element (i + 1) of e
    set i to my findElementWithValue(e, "machine_name")
    return value of XML element (i + 1) of e -- 
iMacG5

end tell
tell application "System Profiler"
    set s to (XML text of document 1)
end tell
tell application "System Events"
    set p to make new property list item with data s
    set p to property list item 1 of p
    set p to property list item "_items" of p
    set p to property list item 1 of p
    return value of property list item "machine_name" of p -- 
iMacG5

end tell
do script
do shell script
curl
set f to (path to application "Keychain Scripting")
tell application "Keychain Scripting" to quit
tell application "Finder" to open f
delay 5 -- 

tell application "Keychain Scripting"
    tell (get current keychain)
        set k to (get first generic key whose name is "mattneub")
        get {account, description, service, password} of k
        -- 
{"mattneub", "application password", "iTools", "teehee"}

    end tell
end tell
sips —help
tell application "Image Events"
    set f to (path to desktop as string) & "bigImage.tiff"
    set f2 to POSIX path of (path to desktop) & "/smallerImage.tiff"
    set im to open file f
    scale im by factor 0.5
    save im in f2
end tell
property fieldnames : {"firstname", "lastname", "book"}
property theData : {{"Matt", "Neuburg", "AppleScript"}, ¬
    {"Charles", "Dickens", "Pickwick"}, ¬
    {"William", "Shakespeare", "Hamlet"}}
tell application "Database Events"
    set d to (make new database with properties {name:"people"})
    tell d
        repeat with i from 1 to (count theData)
            set r to (make new record with properties {name:""})
            repeat with j from 1 to (count fieldnames)
                tell r to make new field with properties ¬
                    {name:item j of fieldnames, value:item j of item i of theData}
            end repeat
        end repeat
        save
    end tell
    delete every database -- 

end tell
tell application "Database Events"
    tell database "~/Documents/Databases/people.dbev"
        get value of field "book" of ¬
            (every record where value of field "firstname" is "Matt")
         -- 
"AppleScript"

    end tell
end tell
sqlite3
set d to space & "~/Desktop/people.db" & space
set s to "sqlite3" & d & quote
set s to s & "create table people(firstname, lastname, book); "
set s to s & "insert into people values('matt','neuburg','AppleScript'); "
set s to s & "insert into people values('charles','dickens','Pickwick'); "
set s to s & "insert into people values('william', 'shakespeare', 'Hamlet');"
set s to s & quote
do shell script s
set d to space & "~/Desktop/people.db" & space
set s to "sqlite3 -list" & d & quote
set s to s & "select book from people where firstname = 'matt';"
set s to s & quote
do shell script s -- 
"AppleScript"
click
keystroke
radio button
menu item
UI element
application process
tell application "TextEdit" to activate
tell application "System Events"
    tell application process "TextEdit"
        tell menu 1 of menu bar item "Format" of menu bar 1
            click menu item 4
        end tell
    end tell
end tell
tell application process "TextEdit"
tell application "TextEdit"
of
tell
UI element
tell application "System Preferences"
    activate
    set current pane to pane "com.apple.preferences.sharing"
end tell
tell application "System Events"
    tell application process "System Preferences"
        tell tab group 1 of window "Sharing"
            click radio button "Services"
            select row 1 of table 1 of scroll area 1
            click button 1
        end tell
    end tell
end tell
tell application "TextEdit" to activate
-- 

tell application "System Events"
    tell application process "TextEdit"
        tell window 1
            tell text area 1 of scroll area 1
                get value of attribute "AXSelectedText" -- 
"test"

                get value of attribute "AXSelectedTextRange" -- 
{11,14}

            end tell
        end tell
    end tell
end tell
tell application "TextEdit"
    activate
    close window 1
end tell
tell application "System Events"
    tell application process "TextEdit"
        tell window 1
            repeat while not (exists sheet 1)
                delay 0.5
            end repeat
            click button "Don't Save" of sheet 1
        end tell
    end tell
end tell
set s to text returned of (display dialog "Word to define:" default answer "")
-- 
prestidigitation

tell application "Dictionary" to activate
open location "DICT:///" & (s as string)
tell application "System Events"
    tell application process "Dictionary"
        tell UI element 1 of scroll area 1 of scroll area 1 of group 1 of window 1
            set s to value of it
        end tell
    end tell
end tell
s -- 
Dictionary
prestidigitation |?prest??dij??t? sh ?n| noun formal magic tricks performed as entertainment.
DERIVATIVES prestidigitator |-?dij??t?t?r| noun ORIGIN mid 19th cent.: from French, from
preste 'nimble' + Latin digitus 'finger' + -ation
.
do shell script
osascript
curl
do shell script
do shell script
do shell script
bash
tcsh
do shell script
sh
sh
bash
do shell script
/usr/bin/perl
perl
perl
do shell script
printf
set theNum to text returned of (display dialog "Enter a number:" default answer "")
set s to "printf %X " & theNum
display dialog (do shell script s)
do shell script
do shell script
with administrator privileges
user name
password
do shell script
with administrator privileges
sudo
perl
do shell script
with administrator privileges
do shell script
top
top -l1
bc
bc
bc
set theNum to text returned of (display dialog "Enter a number:" default answer "")
set t to path to temporary items
set posixT to POSIX path of t
set f to open for access file ((t as string) & "bctemp") with write permission
write "obase = 16\n" to f
write (theNum as string) & "\n" to f
write "quit\n" to f
close access f
set s to "/usr/bin/bc " & quoted form of (posixT & "bctemp")
display dialog (do shell script s)
text returned
display dialog
bc
quoted form
system attribute
s
quoted form
-e
curl
$s = "";
while (<>) {
    $s .= $_;
}
$s =~ m{search results (.*)$}si;
$1 =~ m{<table(.*?)</table>}si;
@rows = ($1 =~ m{<tr(.*?)</tr>}sig);
for ($i=0;$i<$#rows;$i++) {
    ($links[$i], $titles[$i]) =
        ($rows[$i+1] =~ m{<a href="(.*?)">(.*?)</a>}i);
}
print join "\n", @links, @titles;
curl
curl
set t to text returned of ¬
    (display dialog "Search TidBITS for:" default answer "")
set text item delimiters to "+"
set t to (words of t) as string
set d to "'-response=TBSearch.lasso&-token.srch=TBAdv"
set d to d & "&Article+HTML=" & t
set d to d & "&Article+Author=&Article+Title=&-operator"
set d to d & "=eq&RawIssueNum=&-operator=equals&ArticleDate"
set d to d & "=&-sortField=ArticleDate&-sortOrder=descending"
set d to d & "&-maxRecords=20&-nothing=MSExplorerHack&-nothing"
set d to d & "=Start+Search' "
set u to "http://db.tidbits.com/TBSrchAdv.lasso"
set f to POSIX path of file ((path to temporary items as string) & "tempTidBITS")
do shell script "curl -d " & d & " -o " & f & " " & u
set perlScript to ... --
where is the Perl script?

set r to do shell script "perl " & perlScript & " " & f
set L to paragraphs of r
set half to (count L) / 2
set L1 to items 1 thru half of L
set L2 to items (half + 1) thru -1 of L
set choice to (choose from list L2) as string
repeat with i from 1 to half
    if item i of L2 is choice then
        open location (item i of L1)
        exit repeat
    end if
end repeat
perlScript
set perlScript to POSIX path of file ((path to desktop as string) & "perlScript.pl")
set perlScript to quoted form of POSIX path of (path to resource "parseHTML.pl")
path to resource
osalang
osacompile
osascript
osascript
osalang
% 
osalang -l

ascr appl cgxervdh  AppleScript
scpt appl cgxervdh  Generic Scripting System
osalang
osalang
osacompile
% 
cat > textfile.txt

tell app "Finder"

display dialog "Hello, world!"

end

^D

%
osacompile -o compiledfile.scpt textfile.txt
osacompile
osascript
-o
osacompile
osascript
osacompile
% 
osascript textfile.txt

%
osascript compiledfile.scpt
osascript
% 
osascript
tell app "Finder"
display dialog "Hello, world!"
end
^D
-e
bash
% 
osascript -e $'tell app "Finder"\rdisplay dialog "Hello, world!"\rend'
-e
% 
osascript -e 'tell app "Finder"' -e 'display dialog "Hello, world!"' -e 'end'
osascript
-ss
% 
osascript -ss -e 'tell app "Finder" to get name of every disk'

{"feathers", "gromit", "Network"}
% 
osascript -e 'tell app "Finder" to get name of every disk'

feathers, gromit, Network
% 
osascript -e '{"Mannie", {"Moe"}}'

Mannie, Moe
% 
osascript -e 'tell app "Address Book" to get name of every person'
    | tr, "\n" | sort -bf -k2 | uniq -d

 Mark Anbinder
 Mary Byrd
 Jeff Carlson
return
\r
% 
osascript -e 'set pep to "Manny" & return & "Moe"'

Moeny
% 
osascript -e 'set pep to "Manny" & (ASCII character 10) & "Moe"'

Manny
Moe
"Moe"
"Manny"
tr
% 
osascript -e 'set pep to "Manny" & return & "Moe"' | tr "\r" "\n"

Manny
Moe
display dialog
osascript
osascript
display dialog
osascript
osascript
% 
cat > textfile.txt
on run what
set total to 0
repeat with anItem in what
set total to total + anItem
end
return total
end
^D

% 
osascript textfile.txt 1 2 3

6
osascript
osascript
$s = `osascript -e "tell app \\"Finder\\" to get name of every disk"`;
"Finder"
osascript
$howdy = 'tell app "Finder"
display dialog "howdy"
end';
`osascript -e '$howdy'`;
#!/usr/bin/perl
$s = <<"END_S";
    tell application "Finder"
        count disks
    end tell
END_S
chomp ($numDisks = `osascript -ss -e '$s'`);
print "You have $numDisks disks.\n",
    "Which one would you like to know the name of?\n",
    "Type a number between 1 and $numDisks: ";
while (<>) {
    chomp;
    last if $_ < 1 || $_ > $numDisks;
    $ss = <<"END_SS";
        tell application "Finder"
            get name of disk $_
        end tell
END_SS
    print `osascript -ss -e '$ss'`,
        "Type a number between 1 and $numDisks: ";
}
osascript
% 
./disker.pl

You have 3 disks.
Which one would you like to know the name of?
Type a number between 1 and 3: 
1

"feathers"
Type a number between 1 and 3: 
2

"gromit"
Type a number between 1 and 3:
4
osascript
#!/usr/bin/ruby
class Histogram
    def initialize
        @tally = Hash.new(0)
    end
    def analyze(s)
        s.split.each do |word|
            myword = word.downcase.gsub(/[^a-z0–9]/, "")
            @tally[myword] = @tally[myword] + 1 if !myword.empty?
        end
        @tally.sort { |x,y| y[1]<=>x[1] }
    end
end
analysis = Histogram.new.analyze(File.new(ARGV[0]).read)
counter = 1
oneline = ""
analysis[0..29].each do |entry|
    oneline = oneline + "set the value of cell 1 of " +
        "row #{counter.to_s} to \"#{entry[0]}\"\n"
    oneline = oneline + "set the value of cell 2 of " +
        "row #{counter.to_s} to #{entry[1].to_s}\n"
    counter = counter + 1
end
script = <<DONE
    tell application "Microsoft Excel"
        activate
        tell worksheet 1
            #{oneline}
        end tell
        select range "A1:B30"
        set chartSheet to make new chart sheet at beginning of active workbook
        set c to active chart
        tell c
            set chart type to bar clustered
            set has title to true
            set caption of its chart title to "30 Most Frequent Words"
            set has legend to false
            apply data labels type data labels show label without legend key
        end tell
        repeat with axt in {category axis, series axis, value axis}
            repeat with ax in {primary axis, secondary axis}
                try
                    tell (get axis c axis type axt which axis ax)
                        set has major gridlines to false
                        set has minor gridlines to false
                        set has title to false
                    end tell
                    set has axis c axis type axt axis group ax without axis exists
                end try
            end repeat
        end repeat
    end tell
DONE
`osascript -ss -e '#{script}'`
% 
histogram.rb somefile.txt
music CD appeared
on music CD appeared d
    set diskName to d as alias as string
    set text item delimiters to ":"
    set diskName to text item 1 of diskName
    tell application "Finder"
        set L to name of every file of disk diskName
    end tell
    tell application "iTunes"
        activate
        set temp to {diskName, choose from list L}
        play file (temp as string)
    end tell
end music CD appeared
folder actions enabled
path
on adding folder items to ff after receiving L
    tell application "Finder"
        repeat with f in L
            set n to name of f
            if n ends with ".hqx" then
                tell application "StuffIt Expander" to expand f
            end if
        end repeat
    end tell
    tell application "System Events"
        if process "StuffIt Expander" exists then
            tell application "StuffIt Expander" to quit
        end if
    end tell
end adding folder items to
handle CGI request
handle CGI request
handle CGI request
given «class TraL»
property crlf : "\r\n"
property http_header : "MIME-Version: 1.0" & crlf & ¬
    "Content-type: text/html" & crlf & crlf
property s : ""

on makeLine(whatName, whatValue)
    return "<p><b>" & whatName & ":</b> " & whatValue & "</p>" & return
end makeLine
on addLine(whatName, whatValue)
    set s to s & makeLine(whatName, whatValue)
end addLine

on handle CGI request path_args ¬
    from virtual host virtual_host ¬
        searching for http_search_args ¬
        with posted data post_args ¬
        using access method method ¬
        from address client_address ¬
        from user username ¬
        using password pword ¬
        with user info from_user ¬
        from server server_name ¬
        via port server_port ¬
        executing by script_name ¬
        of content type content_type ¬
        referred by referer ¬
        from browser user_agent ¬
        of action type action_path ¬
        from client IP address client_ip ¬
        with full request full_request ¬
        with connection ID connection_id ¬
        using action action
    set s to http_header
    set s to s & ¬
        "<html><head><title>Echo Page</title></head>" & return
    set s to s & "<body><h1>Echo Page</h1>" & return
    addLine("virtual_host", POSIX path of virtual_host)
    addLine("path_args", path_args)
    addLine("http_search_args", http_search_args)
    addLine("post_args", post_args)
    addLine("method", method)
    addLine("client_address", client_address)
    addLine("username", username)
    addLine("password", pword)
    addLine("from_user", from_user)
    addLine("server_name", server_name)
    addLine("server_port", server_port)
    addLine("script_name", script_name)
    addLine("content_type", content_type)
    addLine("referer", referer)
    addLine("user_agent", user_agent)
    addLine("action_path", action_path)
    addLine("client_ip", client_ip)
    addLine("full_request", "</p><pre>" & full_request & "</pre><p>")
    addLine("connection_ID", connection_id)
    addLine("action", action)
    set s to s & "<hr><i>" & (current date) & "</i>"
    set s to s & "</body></html>"
    return s
end handle CGI request
<p><b>
param_name
:</b>
param_value
</p>
cron
on incoming_call given call:theCall, ¬
    callername:theName, ¬
    callerid:theId, ¬
    ringcount:theCount
    -- 

end incoming_call
on menuselect(menuName, itemName)
    -- 

end menuselect
tell application "UI Actions"
    tell UI action "Script Editor-AXWindowCreated"
        set d to date string of (get timestamp)
        set w to affected UI element
    end tell
end tell
tell application "System Events"
    set n to title of w
    if n begins with "Untitled" then
        tell application "Script Editor"
            set text of document n to "-- " & d
        end tell
    end if
end tell
display dialog
launch
reopen
activate
idle
quit
continue quit
continue quit
on run
    display dialog "Howdy!"
end run
on reopen
    display dialog "Get to Work!"
end reopen
on quit
    display dialog "Farewell!"
    continue quit
end quit
on idle
    beep
    activate
    display dialog "Get to Work!"
    return 1 * minutes
end idle
run
reopen
idle
quit
quit
idle
reopen
run
activate
launch
quit
launch
run
-128
continue quit
global shouldQuit
global didCleanup
on run
    set shouldQuit to false
    set didCleanup to false
    try
        -- 
lengthy operation goes here

        repeat with x from 1 to 10
            if shouldQuit then error
            say (x as string)
            delay 5
        end repeat
    on error
        tell me to quit
    end try
end run
on quit
    if not didCleanup then
        -- 
cleanup operation goes here

        say "cleaning up"
        set didCleanup to true
    end if
    set shouldQuit to true
    continue quit
end quit
continue quit
open
open
open
on open what
    set total to 0
    repeat with f in what
        if folder of (info for f size no) then set total to total + 1
    end repeat
    display dialog (total as string) & " folder(s)"
end open
property total : 0
on open what
    repeat with f in what
        if folder of (info for f size no) then set total to total + 1
    end repeat
    display dialog (total as string) & " folder(s)"
end open
set thePath to (path to resource "applet.icns") as string
set text item delimiters to ":"
set thePath to ((text items 1 thru -2 of thePath) as string) & ":myPrefs.scpt"
script myPrefs
    property favoriteColor : ""
end script
try
    set myPrefs to load script file thePath
on error
    set favoriteColor of myPrefs to text returned of ¬
        (display dialog "Favorite Color:" default answer ¬
            "" buttons {"OK"} default button "OK")
    store script myPrefs in file thePath replacing yes
end try
display dialog "Your favorite color is " & favoriteColor of myPrefs
set thePath to (path to me as string) & "Contents:Resources:myPrefs.scpt"
path to resource
on sayHowdy(toWhom)
    activate
    display dialog "Howdy, " & toWhom
end sayHowdy
tell application "howdy"
    sayHowdy("Matt")
end tell
{button returned:"OK"}
Call·subroutine
'ascr\psbr'
sayHowdy("Matt")
x
x
s
s
call method
curl
window "search"
will open
will open
Application: launched
Menu: choose menu item
Menu: choose menu item
performClose:
search
Window: will open
Action: clicked
results
Window: should close
Action: double clicked
on will open theObject
    (*Add your script here.*)
end will open

on launched theObject
    (*Add your script here.*)
end launched

on choose menu item theObject
    (*Add your script here.*)
end choose menu item

on clicked theObject
    (*Add your script here.*)
end clicked

on double clicked theObject
    (*Add your script here.*)
end double clicked

on should close theObject
    (*Add your script here.*)
end should close
launched
global perlScriptPath, L1, L2, textSought, titleSought, authorSought

on launched theObject
    local f
    set f to (path to resource "parseHTML.pl")
    set perlScriptPath to quoted form of (POSIX path of f)
end launched
will open
theObject
will open
theObject
on will open theObject
    tell theObject
        call method "setDisplayedWhenStopped:" of progress indicator 1 with parameter 0
    end tell
end will open
call method
[theProgressIndicator setDisplayedWhenStopped: NO];
choose menu item
call method
on choose menu item theObject
    hide window "results"
    tell window "search"
        tell matrix 1
            set content of cell 1 to ""
            set content of cell 2 to ""
            set content of cell 3 to ""
            call method "selectTextAtIndex:" of it with parameter 0
        end tell
        show
    end tell
end choose menu item
clicked
doTheSearch
on clicked theObject
    tell matrix 1 of window "search"
        set textSought to my urlEncode(content of cell 1)
        set titleSought to my urlEncode(content of cell 2)
        set authorSought to my urlEncode(content of cell 3)
    end tell
    if length of textSought < 5 and length of titleSought < 5 and ¬
        length of authorSought < 5 then
        beep
        return
    end if
    doTheSearch( )
end clicked

on urlEncode(what)
    set text item delimiters to "+"
    return (words of what) as string
end urlEncode
feedbackBusy
curl
call method
on feedbackBusy(yn)
    tell window "search"
        if yn then
            set enabled of button 1 to false
            start progress indicator 1
        else
            set enabled of button 1 to true
            stop progress indicator 1
        end if
        call method "display" of it
    end tell
end feedbackBusy
doTheSearch
feedbackBusy
curl
curl
on doTheSearch( )
    local d, f, r
    set d to "'-response=TBSearch.lasso&-token.srch=TBAdv"
    set d to d & "&Article+HTML=" & textSought
    set d to d & "&Article+Author=" & authorSought
    set d to d & "&Article+Title=" & titleSought
    set d to d & "&-operator"
    set d to d & "=eq&RawIssueNum=&-operator=equals&ArticleDate"
    set d to d & "=&-sortField=ArticleDate&-sortOrder=descending"
    set d to d & "&-maxRecords=2000&-nothing=MSExplorerHack&-nothing"
    set d to d & "=Start+Search' "
    set u to "http://db.tidbits.com/TBSrchAdv.lasso"
    set f to (POSIX path of (path to temporary items)) & "tempTidBITS"
    feedbackBusy(true)
    try
        do shell script ¬
            "curl -s --connect-timeout 25 -m 120 -d " & d & " -o " & f & " " & u
        set r to do shell script ("perl " & perlScriptPath & " " & f)
        feedbackBusy(false)
        set L to paragraphs of r
        set half to (count L) / 2
        set L1 to items 1 thru half of L
        set L2 to items (half + 1) thru -1 of L
        displayResults( )
    on error
        feedbackBusy(false)
        beep
    end try
end doTheSearch
doTheSearch
displayResults
displayResults
double clicked
should close
on displayResults( )
    tell table view 1 of scroll view 1 of window "results"
        set contents to L2
    end tell
    show window "results"
end displayResults

on double clicked theObject
    try
        open location (item (clicked row of theObject) of L1)
    end try
end double clicked

on should close theObject
    hide theObject
    return false
end should close
lame
lame
do shell script
namePopup
fastSwitch
cbrSwitch
cbrText
example
action
clicked
action
changed
update parameters
awake from nib
value
value
enabled
cbrText
exampleText
window "search"
awake from nib
theObject
updateInterface
property theView : missing value

on awake from nib theObject
    set theView to theObject
    updateInterface( )
end awake from nib

on action theObject
    updateInterface( )
end action

on clicked theObject
    updateInterface( )
end clicked

on changed theObject
    updateInterface( )
end changed
updateInterface
lame
example
on updateInterface( )
    tell theView
        set s to title of popup button 1
        set s1 to "lame --preset "
        if (state of button "fastSwitch") is 1 then
            if state of button "cbrSwitch" is 0 then
                if s is in {"medium", "standard", "extreme"} then
                    set s1 to s1 & "fast "
                end if
            end if
        end if
        if (state of button "cbrSwitch") is 1 then
            try
                set s to "cbr " & (content of text field "cbrText" as integer)
            on error
                set s to "cbr 128"
            end try
        end if
        set content of text field "example" to s1 & s
    end tell
end updateInterface
example
lame
exampleText
parameters
update parameters
parameters
theParameters
exampleText
theParameters
on update parameters theObject parameters theParameters
    updateInterface( )
    set |exampleText| of theParameters to (content of text field "example" of theView)
    return theParameters
end update parameters
input
parameters
update parameters
input
exampleText
parameters
lame
lame
bash
on run {input, parameters}
    set myInput to (input as list)
    set L to {}
    repeat with anAlias in input
        set end of L to quoted form of POSIX path of anAlias
    end repeat
    set text item delimiters to space
    set theFiles to L as string
    set s to "arr=(" & theFiles & "); "
    set s to s & "for i in \"${arr[@]}\"; "
    set s to s & "do echo /usr/local/bin/" & |exampleText| of parameters & space
    set s to s & "\"$i\" \"${i%\\.*}.mp3\"; done"
    ignoring application responses
        tell application "Terminal" to do script s
    end ignoring
    return input
end run
'aete'
@interface MyObject : NSObject
{
    NSMutableArray* persons;
    NSMutableArray* pairs;
    // 
outlets go here

}
// 
method declarations go here

@end
persons
@class Pair;
@interface Person : NSObject {
    NSString* name;
    Pair* pair;
}
- (NSString *)name;
- (void)setName:(NSString *)aName;
- (Pair *)pair;
- (void)setPair:(Pair *)aPair;
// 
other method declarations go here

@end
name
pair
pairs
person1
person2
pairs
pair
pair
person
person
name
persons
persons
application
<key>NSAppleScriptEnabled</key>
<string>YES</string>
<key>OSAScriptingDefinition</key>
<string>pairs.sdef</string>
count
count
count
delete
exists
make
get
set
quit
name
frontmost
version
person
name
person
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dictionary SYSTEM "file://localhost/System/Library/DTDs/sdef.dtd">
<dictionary title="Pairs Dictionary">
    <suite name="Standard Suite" code="????"
    description="Common classes and commands for most applications.">
        <cocoa name="NSCoreSuite"/>
        <command name="count" code="corecnte" description="Return the number of
         elements of a particular class within an object.">
            <cocoa class="NSCountCommand"/>
            <direct-parameter description="the object whose elements are to be
             counted" type="specifier"/>
            <parameter name="each" code="kocl" description="The class of objects to
             be counted." type="type" optional="yes">
                <cocoa key="ObjectClass"/>
            </parameter>
            <result description="the number of elements" type="integer"/>
        </command>
        <command name="delete" code="coredelo" description="Delete an object.">
            <cocoa class="NSDeleteCommand"/>
            <direct-parameter description="the object to delete" type="specifier"/>
        </command>
        <command name="exists" code="coredoex"
        description="Verify if an object exists.">
            <cocoa class="NSExistsCommand"/>
            <direct-parameter description="the object in question"
             type="specifier"/>
            <result description="true if it exists, false if not" type="boolean"/>
        </command>
        <command name="make" code="corecrel" description="Make a new object.">
            <cocoa name="Create" class="NSCreateCommand"/>
            <parameter name="new" code="kocl"
            description="The class of the new object." type="type">
                <cocoa key="ObjectClass"/>
            </parameter>
            <parameter name="at" code="insh" description="The location at which to
             insert the object." type="location specifier" optional="yes">
                <cocoa key="Location"/>
            </parameter>
            <parameter name="with data" code="data" description="The initial data
             for the object." type="any" optional="yes">
                <cocoa key="ObjectData"/>
            </parameter>
            <parameter name="with properties" code="prdt" description="The initial
             values for properties of the object." type="record" optional="yes">
                <cocoa key="KeyDictionary"/>
            </parameter>
            <result description="to the new object" type="specifier"/>
        </command>
    </suite>
name
frontmost
version
person
person

<suite name="Pairs Suite" code="pAIR" description="The Pairs suite">

        <class name="application" code="capp" description="An application&apos;s top
         level scripting object.">
            <cocoa class="NSApplication"/>

<element description="The persons." type="person">
                <cocoa key="persons"/>
            </element>

            <property name="name" code="pnam"
            description="The name of the application." type="text" access="r"/>
            <property name="frontmost" code="pisf" description="Is this the
             frontmost (active) application?" type="boolean" access="r">
                <cocoa key="isActive"/>
            </property>
            <property name="version" code="vers"
            description="The version of the application." type="text" access="r"/>
        </class>

<class name="person" code="pRSN" description="A person." plural="persons">
            <cocoa class="Person"/>
            <property name="name" code="pnam"
            description="The person&apos;s name." type="text">
                <cocoa key="name"/>
            </property>
        </class>
    </suite>

</dictionary>
'pAIR'
'pRSN'
name
person
'pnam'
person
persons
person
person
name
name
name
application
person
persons
persons
name
setName:
tell application "Pairs"
    get person 1
end tell
[<NSApplication 0x314220> valueForUndefinedKey:]: this class is not key value coding-
compliant for the key persons
application
application
- (BOOL)application:(NSApplication *)sender delegateHandlesKey:(NSString *)key {
    if ([key isEqualToString: @"persons"]) return YES;
    return NO;
}
tell application "Pairs"
    count persons -- 
2

    name of person 1 -- 
"Jack"

    name of person 2 -- 
"Jill"

    name of every person -- 
{"Jack", "Jill"}

    name of every person whose name ends with "k" -- 
{"Jack"}

    exists person "Jack" -- 
true

    exists person "Matt" -- 
false

    delete person "Jack"
    count persons -- 
1

    get name of person 1 -- 
"Jill"

    set name of person 1 to "Mannie"
    name of every person -- 
{"Mannie"}

end tell
person
persons
name
person
setName:
name
objectSpecifier
person "Matt" of application "Pairs"
get person 1
make new person
objectSpecifier
person
application
name
person
@implementation NSObject (MNscriptability)

- (void) returnError:(int)n string:(NSString*)s {
    NSScriptCommand* c = [NSScriptCommand currentCommand];
    [c setScriptErrorNumber:n];
    if (s) [c setScriptErrorString:s];
}
@end
@implementation Person (MNscriptability)

- (NSScriptObjectSpecifier *)objectSpecifier {
    NSScriptClassDescription* appDesc
        = (NSScriptClassDescription*)[NSApp classDescription];
    return [[[NSNameSpecifier alloc]
        initWithContainerClassDescription:appDesc
        containerSpecifier:nil
        key:@"personsArray"
        name:[self name]] autorelease];
}
- (NSString *)personName {return name;}

- (void)setPersonName:(NSString *)aName {
    if ([[NSScriptCommand currentCommand] isKindOfClass: [NSCreateCommand class]])
        [self setName:aName];
    else
        [master scripterWantsToChangeName:aName of:self];
}
@end
objectSpecifier
application
name
persons
setPersonName:
master
make new person
alloc
init
with properties {name:"whatever"}
setPersonName:
master
person
persons
person
@implementation MyObject (MNscriptability)

- (BOOL)application:(NSApplication *)sender delegateHandlesKey:(NSString *)key {
    if ([key isEqualToString: @"personsArray"]) return YES;
    return NO;
}
- (unsigned int)countOfPersonsArray {
    return [persons count];
}
- (Person *)objectInPersonsArrayAtIndex:(unsigned int)i {
    return [persons objectAtIndex: i];
}
application:delegateHandlesKey:
persons
- (BOOL) canGivePerson:(Person*)p name:(NSString*)name {
    if (!name || [name isEqualToString:@""]) {
        [self returnError:errOSACantAssign
            string:@"Can't give person empty name."];
        return NO;
    }
    if ([self existsPersonWithName: name]) {
        [self returnError:errOSACantAssign
            string:@"Can't give person same name as existing person."];
        return NO;
    }
    return YES;
}
- (void) scripterWantsToChangeName:(NSString*)n of:(Person*)p {
    if ([n isEqualToString: [p name]]) return; // nothing to do
    if (![self canGivePerson:p name:n]) return;
    [p setName: n];
}
- (void)insertObject:(Person *)p inPersonsArrayAtIndex:(unsigned int)index {
    if (![self canGivePerson:p name:[p name]]) return;
    [p setMaster: self];
    [persons insertObject:p atIndex:index];
}
- (void)insertInPersonsArray:(Person *)p {
    if (![self canGivePerson:p name:[p name]]) return;
    [p setMaster: self];
    [persons addObject:p];
}
person
person
person
person
person
make new person
-(void)removeObjectFromPersonsArrayAtIndex:(unsigned int)index {
    [self returnError:OSAMessageNotUnderstood string:nil];
}
-(void)removeFromPersonsArrayAtIndex:(unsigned int)index {
    [self returnError:OSAMessageNotUnderstood string:nil];
}
@end
person
tell application "Pairs"
    get name of every person -- 
{"Jack", "Jill"}

    delete person "Jack"
    -- 
error: Pairs got an error: person "Jack" doesn't understand the delete message

    make new person
    -- 
error: Pairs got an error: Can't give person empty name

    make new person at end with properties {name:"Moe"}
    -- 
person "Moe" of application "Pairs"

    set name of person "Jill" to "Mannie"
    set name of person 1 to "Mannie"
    -- 
error: Pairs got an error: Can't give person same name as existing person

    make new person with properties {name:"Mannie"}
    -- 
error: Pairs got an error: Can't give person same name as existing person

end tell
person
gender
male
female
gender
int
gender
setGender
<enumeration name="genders" code="gEND" description="A gender." inline="2">
    <enumerator name="male" code="gMAL" description="Male gender."/>
    <enumerator name="female" code="gFEM" description="Female gender."/>
</enumeration>
enum {
    MALE='gMAL',
    FEMALE='gFEM'
} genders;
person
<property name="gender" code="gNdR" description="The person&apos;s gender.">
    <cocoa key="personGender"/>
</property>
personGender
setPersonGender:
person
person
pair
person
to
pair person 1 to person 2
<command name="pair" code="pAiRpAiR">
    <direct-parameter description="One person." type="person"/>
    <parameter name="to" code="othR" description="The other person." type="person">
        <cocoa key="otherPerson"/>
    </parameter>
</command>
person
<responds-to name="pair">
    <cocoa method="scripterSaysPair:"/>
</responds-to>
pair
scripterSaysPair:
evaluatedArguments
scripterSaysPair:
- (void)scripterSaysPair:(NSScriptCommand*)command {
    Person* p1 = [command evaluatedReceivers];
    Person* p2 = [[command evaluatedArguments] valueForKey:@"otherPerson"];
    if (self != p1 || self == p2) {
        [self returnError:errOSACantAssign string:@"Invalid pairing."];
        return;
    }
    [master scripterWantsToPair:p1 with:p2];
}
person
pair
persons
paired
person
partner
- (id) personPartner {
    Pair* myPair = [self pair];
    if (!myPair) return [NSNull null];
    return ([myPair person1] == self ? [myPair person2] : [myPair person1]);
}
- (void) setPersonPartner:(id)newPartner {
    [self returnError:errOSACantAssign string:@"Partner property is read-only."];
}
- (BOOL) personPaired {
    return ([self pair] != nil);
}
- (void) setPersonPaired:(BOOL)newPaired {
    [self returnError:errOSACantAssign string:@"Paired property is read-only."];
}
personPartner
missing value
person
displayResults( )
tell application "SearchTidBITS"
    activate
    tell window "search"
        tell matrix 1
            set content of cell 1 to "AppleScript"
            set content of cell 3 to "Matt Neuburg"
        end tell
        tell button 1 to perform action
    end tell
end tell
tell application "SearchTidBITS"
    script s
    end script
    set the script of button 1 of window "search" to s
end tell
perform action
clicked
tell application "SearchTidBITS"
    clicked button 1 of window "search"
    -- 
error: SearchTidBITS got an error: NSReceiversCantHandleCommandScriptError

end tell
tell application "SearchTidBITS"
    set s to (get script of button 1 of window "search")
    tell s
        urlEncode("hi there") -- 
"hi+there"

    end tell
end tell
call method
sdp
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dictionary SYSTEM "file://localhost/System/Library/DTDs/sdef.dtd">
<dictionary title="Dictionary">
    <suite name="SearchTidBITS Suite" code="sTBs">

<class name="application" code="capp" plural="applications"
        inherits="ASKApplicationSuite.NSApplication">
            <cocoa class="NSApplication"/>

            <property name="search text" code="sTBt" description="" type="text">
                <cocoa key="searchText"/>
            </property>
            <property name="search title" code="sTBi" description="" type="text">
                <cocoa key="searchTitle"/>
            </property>
            <property name="search author" code="sTBa" description="" type="text">
                <cocoa key="searchAuthor"/>
            </property>
        </class>
        <command name="do search" code="sTIDdSRC" description="">
            <cocoa class="MyScriptCommand"/>
        </command>
    </suite>
</dictionary>
'capp'
/usr/bin/sdp -fast -o "$BUILT_PRODUCTS_DIR/$FULL_PRODUCT_NAME/Contents/Resources"
"$SOURCE_ROOT/searchTidBITS.sdef"
search text
search title
search author
do search
@implementation MyObject

- (BOOL) application: (id) sender delegateHandlesKey:(NSString*) key {
    NSLog(@"handles key? %@", key);
    if ([key isEqualToString: @"searchText"])
        return YES;
    if ([key isEqualToString: @"searchTitle"])
        return YES;
    if ([key isEqualToString: @"searchAuthor"])
        return YES;
    return NO;
}
- (NSAppleEventDescriptor*) doAS: (NSString*) s {
    NSAppleScript* as = [[NSAppleScript alloc] initWithSource:s];
    NSAppleEventDescriptor* d = [as executeAndReturnError:nil];
    [as release];
    return d;
}
- (NSString*) searchText {
    NSString* s = @"tell current application "
        @"to get content of cell 1 of matrix 1 of window \"search\"";
    return [[self doAS:s] stringValue];
}
- (void) setSearchText: (NSString*) t {
    NSString* s = [NSString stringWithFormat: @"tell current application "
        @"to set content of cell 1 of matrix 1 of window \"search\" "
        @"to \"%@\"", t];
    [self doAS:s];
}
// 

@end
cell
current application
textSought
titleSought
authorSought
do search
@implementation MyScriptCommand

- (NSAppleEventDescriptor*) doAS: (NSString*) s {
    NSAppleScript* as = [[NSAppleScript alloc] initWithSource:s];
    NSAppleEventDescriptor* d = [as executeAndReturnError:nil];
    [as release];
    return d;
}
- (id) performDefaultImplementation {
    NSString* s = @"tell current application "
        @" to perform action of button 1 of window \"search\"";
    [self doAS:s];
    return nil;
}
@end
performDefaultImplementation
clicked
clicked
set search text to
setSearchText:
on setCell(n, s)
    tell current application
        using terms from application "Automator"
            set content of cell n of matrix 1 of window "search" to s
        end using terms from
    end tell
end setCell
on getCell(n)
    tell current application
        using terms from application "Automator"
            get content of cell n of matrix 1 of window "search"
        end using terms from
    end tell
end getCell
NSAppleScript*
trampoline
- (void) awakeFromNib {
    NSString* path = [[NSBundle mainBundle] pathForResource:@"trampoline"
                    ofType:@"scpt"];
    NSURL* url = [NSURL fileURLWithPath:path];
    trampoline = [[NSAppleScript alloc] initWithContentsOfURL:url error:nil];
}
search text
search title
search author
'ascr\psbr'
#define
#define Desc NSAppleEventDescriptor
- (Desc*) callSub:(NSString*)handler params:(Desc*)firstParam, ... {
    Desc* list = [Desc listDescriptor];
    int i=0; va_list ppp; va_start(ppp, firstParam);
    Desc* aParam = firstParam;
    while(aParam) {
        [list insertDescriptor:aParam atIndex:++i];
        aParam = va_arg(ppp, Desc*);
    }
    Desc* h = [Desc descriptorWithString:[handler lowercaseString]];
    Desc* ae = [Desc appleEventWithEventClass:'ascr' eventID:'psbr'
                             targetDescriptor:[Desc nullDescriptor]
                                     returnID:kAutoGenerateReturnID
                                transactionID:kAnyTransactionID];
    [ae setParamDescriptor:h forKeyword:'snam'];
    [ae setParamDescriptor:list forKeyword:keyDirectObject];
    return ae;
}
- (void) setCell: (int) n toString: (NSString*) s {
    Desc* dn = [Desc descriptorWithInt32:n];
    Desc* ds = [Desc descriptorWithString:s];
    [trampoline executeAppleEvent 
:
        [self callSub:@"setCell" params:dn, ds, nil] error:nil];
}
- (id) getCell: (int) n{
    Desc* dn = [Desc descriptorWithInt32:n];
    return [[trampoline executeAppleEvent:
        [self callSub:@"getCell" params:dn, nil] error:nil] stringValue];
}
- (NSString*) searchText {
    return [self getCell: 1];
}
- (void) setSearchText: (NSString*) t {
    [self setCell: 1 toString: t];
}
//
callSub:
'ascr\psbr'
setCell:
getCell:
callSub:
table
selection
selection
selection
application
tell application "FrameMaker 7.0"
    get selection
end tell
inset 1
    of anchored frame 22
        of document "gromit:Users:matt2:extra:astdg:ch02"
            of application "FrameMaker 7.0"
of
inset
anchored frame
inset
inset file
inset file
 (alias) : The file where the graphic originated
inset file
of
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell anchored frame 22
            get inset file of inset 1
        end tell
    end tell
end tell
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps"
anchored frame
every
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        get every anchored frame
    end tell
end tell
{anchored frame 1 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
 anchored frame 2 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
 anchored frame 3 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
...
}
inset file
allFrames
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allFrames to get every anchored frame
        repeat with oneFrame in allFrames
        end repeat
    end tell
end tell
allFrames
oneFrame
oneFrame
allPaths
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allPaths to {}
        set allFrames to get every anchored frame
        repeat with oneFrame in allFrames
            set end of allPaths to inset file of inset 1 of oneFrame
        end repeat
    end tell
end tell
FrameMaker 7.0 got an error: Can't get inset file of inset 1 of anchored frame 1
    of document "gromit:Users:matt2:extra:astdg:ch02".
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allPaths to {}
        set allFrames to get every anchored frame
        repeat with oneFrame in allFrames
            try
                set end of allPaths to inset file of inset 1 of oneFrame
            end try
        end repeat
    end tell
end tell
allPaths
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allPaths to {}
        set allFrames to get every anchored frame
        repeat with oneFrame in allFrames
            try
                set end of allPaths to inset file of inset 1 of oneFrame
            end try
        end repeat
    end tell
end tell
allPaths
{"gromit:Users:matt2:extra:astdg:figs:fileMaker1.eps",
"gromit:Users:matt2:extra:astdg:figs:fileMaker2.eps",
"gromit:Users:matt2:extra:astdg:figs:cocoa.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditorDict.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebugger.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebuggerDict.eps",
"gromit:Users:matt2:extra:astdg:figs:radio.eps",
"gromit:Users:matt2:extra:astdg:figs:automator.eps",
"gromit:Users:matt2:extra:astdg:figs:automator2.eps",
"", "", "", "", "", "", ""}
find
find
 v : Find text, objects, or properties in a Frame document.
    find text/text having paragraph tag/text having character tag/marker/
        marker having type/marker containing text/variable/variable having name/
        anchored frame/table/table having tag/footnote/xref/xref having format/
        unresolved xref/autohyphen : The type of object or property to be found.
        [
with value string
] : The value of the text, tag, type, format, or name
            being found.
        [
with properties
 list of list] : The properties of the text to be found.
             Most text properties will work here. Finding both value and properties
             is unlikely to work, and some combinations of properties don't work
             well together.

in
 reference : The document in which to find.
        [
using
 use case/whole word/use wildcards/backwards/no wrap/find next] :
             The options to be applied to the find.
        → reference : to the object that was found.
tell application "FrameMaker 7.0"
    find anchored frame
end tell
in
tell application "FrameMaker 7.0"
    find anchored frame in document "gromit:Users:matt2:extra:astdg:ch02"
end tell
anchored frame 22 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0"
find
tell application "FrameMaker 7.0"
    set allPaths to {}
    repeat 5 times
        set oneFrame to find anchored frame ¬
            in document "gromit:Users:matt2:extra:astdg:ch02"
        set end of allPaths to inset file of inset 1 of oneFrame
    end repeat
end tell
allPaths
{"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps"}
find
find
using
find next
tell application "FrameMaker 7.0"
    set allPaths to {}
    repeat 5 times
        set oneFrame to find anchored frame ¬
            in document "gromit:Users:matt2:extra:astdg:ch02" using find next
        set end of allPaths to inset file of inset 1 of oneFrame
    end repeat
end tell
allPaths
tell application "FrameMaker 7.0"
    select insertion point after selection
end tell
find
tell application "FrameMaker 7.0"
    find table in document "gromit:Users:matt2:extra:astdg:ch02"
    select insertion point after selection
end tell
tell application "FrameMaker 7.0"
    set allTables to {}
    repeat 5 times
        set oneTable to find table ¬
            in document "gromit:Users:matt2:extra:astdg:ch02"
        set end of allTables to oneTable
        select insertion point after selection
    end repeat
end tell
allTables
{table 33 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
table 34 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
table 32 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
table 35 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0",
table 26 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0"}
table
cell
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell table 33
            get cell 1
        end tell
    end tell
end tell
cell
paragraph
word
text
paragraph
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell table 33
            tell cell 1
                get paragraph 1
            end tell
        end tell
    end tell
end tell
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell table 33
            tell cell 1
                tell paragraph 1
                    get anchored frame 1
                end tell
            end tell
        end tell
    end tell
end tell
anchored frame 22 of document "gromit:Users:matt2:extra:astdg:ch02"
    of application "FrameMaker 7.0"
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        select paragraph 1
    end tell
end tell
selection
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        select paragraph 1 of text flow 1
    end tell
end tell
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allPaths to {}
        select paragraph 1 of text flow 1
        repeat 5 times
            set oneTable to find table in it
            set end of allPaths to inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable
            select insertion point after selection
        end repeat
    end tell
end tell
allPaths
it
it
find
{"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditorDict.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebugger.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebuggerDict.eps",
"gromit:Users:matt2:extra:astdg:figs:fileMaker1.eps"}
find
table having tag
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        set allPaths to {}
        select paragraph 1 of text flow 1
        repeat 5 times
            set oneTable to find table having tag with value "Figure" in it
            set end of allPaths to inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable
            select insertion point after selection
        end repeat
    end tell
end tell
allPaths
using no wrap
table tag
text flow
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            get tables whose table tag is "Figure"
        end tell
    end tell
end tell
count
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            count (get tables whose table tag is "Figure")
        end tell
    end tell
end tell
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            set howMany to count (get tables whose table tag is "Figure")
        end tell
        set allPaths to {}
        select paragraph 1 of text flow 1
        repeat howMany times
            set oneTable to find table having tag with value "Figure" in it
            set end of allPaths to inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable
            select insertion point after selection
        end repeat
    end tell
end tell
allPaths
{"gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptEditorDict.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebugger.eps",
"gromit:Users:matt2:extra:astdg:figs:scriptDebuggerDict.eps",
"gromit:Users:matt2:extra:astdg:figs:fileMaker1.eps",
"gromit:Users:matt2:extra:astdg:figs:fileMaker2.eps",
"gromit:Users:matt2:extra:astdg:figs:radio.eps",
"gromit:Users:matt2:extra:astdg:figs:cocoa.eps",
"gromit:Users:matt2:extra:astdg:figs:automator.eps",
"gromit:Users:matt2:extra:astdg:figs:automator2.eps"}
paragraph
paragraph tag
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            get paragraphs whose paragraph tag is "ChapterLabel"
        end tell
    end tell
end tell
{""}
autoNum string
 (string) : The automatic numbering format string

paragraph number
 (string) : The formatted string representation of the
    paragraph number
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            get paragraph number of paragraphs ¬
                whose paragraph tag is "ChapterLabel"
        end tell
    end tell
end tell
{"
Chapter 2
"}
"
Chapter 2
"
"2"
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            set chapNum to (get paragraph number of paragraphs ¬
                whose paragraph tag is "ChapterLabel")
        end tell
    end tell
end tell
set chapNum to word -1 of item 1 of chapNum
chapNum
item 1
"
Chapter 2
"
word -1
"2"
on pad(s)
    repeat while length of s < 2
        set s to ("0" & s)
    end repeat
    return s
end pad
log pad("2")
log pad("22")
pad
pad
pad
log
pad
    (*02*)
    (*22*)
text item delimiters
text items
on bust(s)
    set text item delimiters to ":"
    set pathParts to text items of s
    set text item delimiters to "."
    set nameParts to text items of last item of pathParts
    return {pathParts, nameParts}
end bust
bust("disk:folder:folder:file.suffix")
{{"disk", "folder", "folder", "file.suffix"}, {"file", "suffix"}}
on pad(s)
    repeat while length of s < 2
        set s to ("0" & s)
    end repeat
    return s
end pad
on bust(s)
    set text item delimiters to ":"
    set pathParts to text items of s
    set text item delimiters to "."
    set nameParts to text items of last item of pathParts
    return {pathParts, nameParts}
end bust
on rename(n1, n2, oldPath)
    set bothLists to bust(oldPath)
    set extension to last item of item 2 of bothLists
    set pathPart to items 1 thru -2 of item 1 of bothLists
    set newFileName to "as_" & pad(n1) & pad(n2)
    set newFileName to newFileName & "." & extension
    set text item delimiters to ":"
    return (pathPart as string) & ":" & newFileName
end rename
rename("2", "3", "disk:folder:folder:oldName.eps")
as string
rename
text item delimiters
"disk:folder:folder:as_0203.eps"
on pad(s)
    repeat while length of s < 2
        set s to ("0" & s)
    end repeat
    return s
end pad
on bust(s)
    set text item delimiters to ":"
    set pathParts to text items of s
    set text item delimiters to "."
    set nameParts to text items of last item of pathParts
    return {pathParts, nameParts}
end bust
on rename(n1, n2, oldPath)
    set bothLists to bust(oldPath)
    set extension to last item of item 2 of bothLists
    set pathPart to items 1 thru -2 of item 1 of bothLists
    set newFileName to "as_" & pad(n1) & pad(n2)
    set newFileName to newFileName & "." & extension
    set text item delimiters to ":"
    return (pathPart as string) & ":" & newFileName
end rename
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:ch02"
        tell text flow 1
            set howMany to count (get tables whose table tag is "Figure")
            set chapNum to (get paragraph number of paragraphs ¬
                whose paragraph tag is "ChapterLabel")
        end tell
        set chapNum to word -1 of item 1 of chapNum
        set allPaths to {}
        select paragraph 1 of text flow 1
        set counter to 1
        repeat howMany times
            set oneTable to find table having tag with value "Figure" in it
            set thisFile to inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable
            set newName to ¬
                my rename(chapNum, (counter as string), thisFile)
            log "I found " & thisFile
            log "I'm thinking of changing it to " & newName
            select insertion point after selection
            set counter to counter + 1
        end repeat
    end tell
end tell
counter
rename
my
rename
counter
rename
pad
counter as string
rename
(*I found gromit:Users:matt2:extra:astdg:figs:scriptEditor.eps*)
(*I'm thinking of changing it to gromit:Users:matt2:extra:astdg:figs:as_0201.eps*)
(*I found gromit:Users:matt2:extra:astdg:figs:scriptEditorDict.eps*)
(*I'm thinking of changing it to gromit:Users:matt2:extra:astdg:figs:as_0202.eps*)
...
tell application "Finder"
    set name of file "feathers:Users:mattneub:Desktop:testing.txt" to "itWorked"
end tell
on justName(s)
    set text item delimiters to ":"
    return last text item of s
end justName
set newShortName to my justName(newName)
tell application "Finder" ¬
    to set name of file thisFile to newShortName
set inset file of inset 1 ¬
    of anchored frame 1 of paragraph 1 of cell 1 of oneTable ¬
    to newName
title
tell application "FrameMaker 7.0"
    set theTitle to (get title of table 36 of document ¬
        "gromit:Users:matt2:extra:astdg:appa")
end tell
tell application "FrameMaker 7.0"
    set theTitle to text from character 2 to -1 of ¬
        (get title of table 36 of document ¬
        "gromit:Users:matt2:extra:astdg:appa")
end tell
"FrameMaker dictionary"
on pad(s)
    repeat while length of s < 2
        set s to ("0" & s)
    end repeat
    return s
end pad
on bust(s)
    set text item delimiters to ":"
    set pathParts to text items of s
    set text item delimiters to "."
    set nameParts to text items of last item of pathParts
    return {pathParts, nameParts}
end bust
on rename(n1, n2, oldPath)
    set bothLists to bust(oldPath)
    set extension to last item of item 2 of bothLists
    set pathPart to items 1 thru -2 of item 1 of bothLists
    set newFileName to "as_" & pad(n1) & pad(n2)
    set newFileName to newFileName & "." & extension
    set text item delimiters to ":"
    return (pathPart as string) & ":" & newFileName
end rename
on justName(s)
    set text item delimiters to ":"
    return last text item of s
end justName
on writeInfo(n1, n2, theName, theTitle)
    set s to return & n1 & "-" & n2 & tab & theName & tab & theTitle & return
    set f to open for access ¬
        file "feathers:Users:mattneub:figs" with write permission
    write s to f starting at (get eof of f)
    close access f
end writeInfo
tell application "FrameMaker 7.0"
    tell document "gromit:Users:matt2:extra:astdg:appa"
        tell text flow 1
            set howMany to count (get tables whose table tag is "Figure")
            set chapNum to (get paragraph number of paragraphs ¬
                whose paragraph tag is "ChapterLabel")
        end tell
        set chapNum to word -1 of item 1 of chapNum
        set allPaths to {}
        select paragraph 1 of text flow 1
        set counter to 1
        repeat howMany times
            set oneTable to find table having tag with value "Figure" in it
            set thisFile to inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable
            set newName to my rename(chapNum, (counter as string), thisFile)
            set newShortName to my justName(newName)
            tell application "Finder" to set name of file thisFile to newShortName
            set inset file of inset 1 ¬
                of anchored frame 1 of paragraph 1 of cell 1 of oneTable ¬
                to newName
            set theTitle to text from character 2 to -1 of (get title of oneTable)
            my writeInfo(chapNum, (counter as string), newShortName, theTitle)
            select insertion point after selection
            set counter to counter + 1
        end repeat
    end tell
end tell
    tell document "gromit:Users:matt2:extra:astdg:appa"
get
set
count
select
find
find
my
it
tell
of
tell application "BBEdit"
    make new document
    tell document 1
        set its text to "Hello, world!"
    end tell
end tell
[[NSWorkspace sharedWorkspace] launchApplication:@"BBEdit"];
NSAppleEventDescriptor* bbedit =
    [NSAppleEventDescriptor descriptorWithDescriptorType:typeApplicationBundleID
        data:[@"com.barebones.bbedit" dataUsingEncoding:NSUTF8StringEncoding]];
NSAppleEventDescriptor* ae =
    [NSAppleEventDescriptor appleEventWithEventClass:'core'
                        eventID:'crel'
                        targetDescriptor:bbedit
                        returnID:kAutoGenerateReturnID
                        transactionID:kAnyTransactionID];
[ae setParamDescriptor:[NSAppleEventDescriptor descriptorWithTypeCode:'docu']
                        forKeyword:'kocl'];
AESendMessage([ae aeDesc], NULL,
                        kAENoReply | kAENeverInteract,
                         kAEDefaultTimeout);
ae =
    [NSAppleEventDescriptor appleEventWithEventClass:'core'
                        eventID:'setd'
                        targetDescriptor:bbedit
                        returnID:kAutoGenerateReturnID
                        transactionID:kAnyTransactionID];
[ae setParamDescriptor:
    [NSAppleEventDescriptor descriptorWithString:@"Hello, world!"]
                        forKeyword:'data'];
AEDesc docu1;
CreateObjSpecifier('docu',
                        [[NSAppleEventDescriptor nullDescriptor] aeDesc],
                        formAbsolutePosition,
                        [[NSAppleEventDescriptor descriptorWithInt32:1] aeDesc],
                        YES, &docu1);
AEDesc allText;
CreateObjSpecifier('ctxt', &docu1, formAbsolutePosition,
                        [[NSAppleEventDescriptor descriptorWithDescriptorType:
                            'abso' bytes:"all " length:4] aeDesc],
                        YES, &allText);
NSAppleEventDescriptor* allTextDesc =
    [[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&allText];
[ae setParamDescriptor:allTextDesc forKeyword:keyDirectObject];
AESendMessage([ae aeDesc], NULL,
                        kAENoReply | kAENeverInteract,
                        kAEDefaultTimeout);
dim ae as AppleEvent
dim theDoc, theText as AppleEventObjectSpecifier
dim s as new shell
s.execute("open -a 'BBEdit'")
ae = NewAppleEvent("core","crel", "R*ch")
ae.macTypeParam("kocl") = "docu"
call ae.send
theDoc = getIndexedObjectDescriptor("docu", nil, 1)
theText = getOrdinalObjectDescriptor("ctxt",theDoc,"all ")
ae = NewAppleEvent("core","setd","R*ch")
ae.objectSpecifierParam("----") = theText
ae.stringParam("data") = "Hello, world!"
call ae.send
with (MacOS.appBySignature("R*ch")) {
    make(_types.document);
    document[1].valueOf( ).text = "Hello, world!";
}
with
of
tell
set
document
root
if !(bbedit.isRunning( ))
    launch.application(bbedit.appinfo.path)
with objectmodel, bbedit
    make(document)
    set(document[1].text,"Hello, world!")
bbedit
system.verbs.apps
objectmodel
system.macintosh
with
objectmodel
bbedit
make
set
bbedit
document
text
objectmodel
bbedit.make
on make (new, at = nil, withProperties = nil)
    return (appleEvent (BBEdit.id, 'core', 'crel', 'kocl', string4 (new), \
        'insh', at, 'prdt', withProperties))}
appleEvent( )
BBEdit.id
id
bbedit
core
crel
kocl
new
kocl
make( )
objectmodel.document
docu
gluemac
% 
sudo /usr/bin/gluemac /Volumes/gromit/Users/matt2/extra/BBEdit\ 8/BBEdit.app

Making glue for '/Volumes/gromit/Users/matt2/extra/BBEdit 8/BBEdit.app'
What is the glue name? [BBEdit]:
Created and installed App glue for 'BBEdit.app, v8.2.3' (BBEdit)
perldoc
gluedoc
% 
gluedoc BBEdit
use Mac::Glue;
my $bb = Mac::Glue->new('BBEdit');
$bb->launch( );
$bb->make(new => 'document');
my $doc = $bb->obj(document => 1);
my $text = $bb->obj(property => 'text', $doc);
$bb->set($text, to => 'Hello, world!');
osascript
pythonw
python
from appscript import *
bb = app('BBEdit')
bb.make(new=k.document)
bb.documents[1].text.set('Hello, world!')
htmldoc.py
help
pythonw
>>> 
bb.documents[1].help('-s')

================================================================================
Appscript Help (-s)

Reference: app(u'/Volumes/gromit/Users/matt2/extra/BBEdit 8/BBEdit.app').documents[1]

--------------------------------------------------------------------------------
Current state of referenced object(s)

--- Get reference ---

app(u'/Volumes/gromit/Users/matt2/extra/BBEdit 8/BBEdit.app').text_documents.first

---- Properties ----

properties:
{k.contents: u'Hello, world!',
 k.ID_: 7038242,
 k.file: k.MissingValue,
 k.modifiable: True,
 k.state_modified: False,
 k.name: u'untitled text 3',
 k.modification_date: datetime.datetime(2005, 9, 22, 12, 51, 51),
 k.source_language: '',
 k.FTP_info: k.MissingValue,
 k.line_breaks: k.Unix,
 k.container: None,
 k.text: u'Hello, world!',
...
'aete'
'aete'

What to type	ASCII equivalent	Result
`\"`	ASCII character 34	Quotation marks
`\t`	ASCII character 9	Tab
`\r`	ASCII character 13	Return
`\n`	ASCII character 10	Newline
`\\`	ASCII character 92	Backslash

meters	inches	feet	yards
miles	kilometers	centimeters	square meters
square feet	square yards	square miles	square kilometers
liters	gallons	quarts	cubic meters
cubic centimeters	cubic feet	cubic inches	cubic yards
kilograms	grams	ounces	pounds
degrees Celsius	degrees Fahrenheit	degrees Kelvin

Command	Four-letter code	Effect
run	`'aevt\oapp'`	Launch the application
open	`'aevt\odoc'`	Open a document or documents
print	`'aevt\pdoc'`	Print a document or documents
quit	`'aevt\quit'`	Quit

Context	Timing
iTunes's Script Menu	0.15 second
Red Sweater FastScripts	0.5 second
Script Debugger	1.5 seconds
Apple's Script Menu	8 seconds
Script Editor	9 seconds
DragThing	Timed out after 500 seconds

Collection	Setting	Value
General	Action name	LAME Encode
General	Application	iTunes
General	Category	iTunes
General	Icon name	iTunes
Parameters	cbrSwitch	Type boolean; value 0
Parameters	cbrText	Type string; value 128
Parameters	exampleText	Type string; value "dummy"
Description	Summary	Encodes files to MP3.

AppleScript: The Definitive Guide – Read Now and Download Mobi

Comments

Leave a Comment Cancel reply

above	beneath	into
against	beside	on
apart from	between	onto
around	by	out of
aside from	for	over
at	from	thru
below	instead of	under

Fig. No.	Filename	Caption (or description)
1-1	wfi_0101.eps	Overview of the Windows NT operating system environment.
1-2	wfi_0102.eps	Name space presented by the Object Manager.
1-3	wfi_0103.eps	Filter drivers in the driver hierarchy.
2-1	wfi_0201.eps	Local File System.
2-2	wfi_0202.eps	Hierarchical name space for directories and files.

AppleScript: The Definitive Guide – Read Now and Download Mobi

Comments

Share This Book

Related Books

The Book of Xen

Linux Server Hacks

Running Linux, 5th Edition

Autodesk 3ds Max 2012 Essentials

Leave a Comment Cancel reply