William Bowling is sharing code with you

Bitbucket is a code hosting site. Unlimited public and private repositories. Free for small teams.

Don't show this again

wbowling / adium (fork of adium / adium)

Fork of Adium for patches/improvements

Clone this repository (size: 338.7 MB): HTTPS / SSH 
hg clone https://bitbucket.org/wbowling/adium
hg clone ssh://hg@bitbucket.org/wbowling/adium

adium / ASUnitTests / CantSetServiceName.applescript

  • 5c8436556791
  • 18 loc
  • 448 bytes
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

global HandyAdiumScripts

on run
        tell application "Adium"
                set n to (get name of service "AIM")
                set s to (get service "AIM")
                try
                        set name of service "AIM" to "dummy"
                        --should never get here!
                        set name of s to n --restore
                        --actually this won't restore because service names are what's 
                        --used in objectSpecifier to refer to these objects...
                        error
                on error number num
                        if num is -2700 then error
                end try
        end tell
end run