Minimize windows in slow motion via hot screen corner

Dec 04, '09 07:30:01AM

Contributed by: atoxx

Do you like the slow motion effect on minimization, but do not like to hold the Shift key every time you do it -- and you dislike double-clicking the title bar when you want to minimize a window? If so, then take a look at the following AppleScript. I use this AppleScript with CornerClick, which is a (free) utility that lets you assign actions, including running AppleScripts, to the corners of your screen.

With the following Applescript, you can trigger a "Minimize with slow motion effect." Assign it to a corner using CornerClick, and you can minimize a window in slow motion with a flick of the mouse. Here's the script:

tell application "System Events"
  keystroke "m" using command down
  key down shift
  delay 0.3
  key up shift
end tell

tell application "System Events"
  set proc to name of the first process whose frontmost is true
  tell process proc
    -- add error trapping here
    tell its window 1
      set w to its name
      if get value of attribute "AXMinimized" is false then
        tell application "System Events"
          keystroke "m" using command down
          key down shift
          delay 0.3
          key up shift
        end tell
      end if
    end tell
    --
  end tell
end tell

say "Collapse" using "Alex"
You'll see the script tries to minimize twice, as sometimes OS X does not react on the first try with CornerClick. It also provides audio feedback when it's done. Try it out if you like; it's just a visual effect, nothing more.

[robg adds: I haven't tested this one.]

Comments (1)


Mac OS X Hints
http://hints.macworld.com/article.php?story=20091122005247214