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

  • bfdbbb6fd385
  • 38 loc
  • 1.1 KB
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

global HandyAdiumScripts

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