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

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

global HandyAdiumScripts

on run
        tell application "Adium"
                set newChat to HandyAdiumScripts's makeNewChatWindow()
                set cw to (count chat windows)
                close newChat
                delay 1
                if (count chat windows) is not cw - 1 then
                        --ooh! A helpful message.
                        --trying to close again isn't going to help... So I won't restore.
                        error ("count chat windows is " & (count chat windows) & " rather than " & (cw - 1))
                end
                if (exists newChat) then
                        --testing that closing makes something not exist
                        --Again, if this fails, not much I can do to restore.
                        error
                end
        end tell
end run