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"
Mac OS X Hints
http://hints.macworld.com/article.php?story=20091122005247214