adium/adium

Today's lesson in not using Apple's private methods: somewhere between old/886f95f00431 and #9620 Apple changed their document icon setup process. Use the new methods and fix #9620.
(transplanted from 5cf365ce9352d25978ffd6073d3bc07573aba518)
global HandyAdiumScripts
on run
tell application "Adium"
set c to (get closeable of window 1)
try
set closeable of window 1 to (not c)
--should not get here
set closeable of window 1 to c --restore
error
on error number num
if num is -2700 then error
end try
end tell
end run