Closing all but the active windows of an app

[Liedenfrost]

Is there a way to close all but the active windows in Mac apps (I'm running 10.6.5). I often end up having 10 Safari screens open and it would be great to be able to close all but the current one I'm looking at.

Thanks.

 

[GGJstudios]

http://hints.macworld.com/article.php?story=20040522162226208
If you use tabs instead of multiple windows, it's much easier.

 

[Hal Itosis]

tell app "safari"
	repeat while window 2 exists
		close window 2
	end repeat
end tell

 

[Liedenfrost]

Thanks for the code. When I run it, though, it doesn't automatically end; it just keeps looping and I have to manually quit it.

 

[spinnerlys]

You could assign the Safari > Windows > Merge all Windows command via System Preferences > Keyboard > Keyboard Shortcuts to a keyboard shortcut and then use that assigned keyboard shortcut plus Command + Option + W to close all but the active tabs, then Command + W to close the active window.

 

[Hal Itosis]

Thanks for the code. When I run it, though, it doesn't automatically end; it just keeps looping and I have to manually quit it.

You're right... that's weird. Works perfect in Finder.
[must be a Safari bug, as that syntax is pretty straightforward.]