ASUnitTests/SetWindowZoomable.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set z to (get zoomable of window 1) --for later restoration
   6                 try
   7                         set zoomable of window 1 to (not z)
   8                         --I shouldn't ever get here.
   9                         --If I have, I know I've screwed something up, and should revert it.
  10                         set zoomable of window 1 to z
  11                         error
  12                 on error number num
  13                         if num is -2700 then error
  14                 end try
  15         end tell
  16 end run