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 / CloseChat.applescript

  • 5c8436556791
  • 14 loc
  • 498 bytes
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

global HandyAdiumScripts

on run
        tell application "Adium"
                set newChat to HandyAdiumScripts's makeNewChat()
                tell account (HandyAdiumScripts's defaultAccount)
                        set newChat2 to make new chat with contacts {contact (HandyAdiumScripts's otherParticipant)} at end of chats of (get window of newChat)
                end tell
                set c to count chats of (get window of newChat)
                close newChat2
                if (count chats of (get window of newChat)) is not c - 1 then error
                close (get window of newChat)
        end tell
end run