ASUnitTests/SetWindowBounds.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set b to (get bounds of window 1) -- for later restoration
   6                 set bounds of window 1 to {0, 0, 40, 40}
   7                 if (get bounds of window 1) is not {0, 0, 40, 40} then
   8                         --It's possible that by calling set, I've done some kind of
   9                         --undefined behavior, so that I can't reliably call it again
  10                         --to restore the window bounds
  11                         --However, it's more likely that the setBounds method is simply
  12                         --not implemented, so no harm was done. No need to restore, then.
  13                         error
  14                 end
  15                 --however, if I'm here, then I do need to restore
  16                 set the bounds of window 1 to b
  17         end tell
  18 end run