How to get bounds of all open windows?

Scripting Forums AppleScript | Mac OS X
#1

I know the Finder allows you to get and set the bounds of windows, but I’m under the impression that this is not universally applicable to every application. Since I need to be able to get and set the bounds of every open window, perhaps querying the WindowServer might work? I have no idea how to do this, as I obviously can’t open its dictionary (if if even has one). Thoughts?

Nathaniel

#2

The problem is that some apps will report bounds (coordinates of bounding rectangle), and some report size (TopLeft, BottomRight coordinates). If you sort that out, you can generally get them all (look in Code Exchange too - I recall something there).

#3

Here’s a script adapted from one by Nigel Garvey in my files:

-- adapted from a script by Nigel Garvey for resizing windows.
-- this script just finds them all and lists {appName, WinTitle, WinBounds}
set allBounds to {}
tell application "Finder"
	set running to name of processes whose visible is true and name is not "Finder" and name is not "QuickSilver"
	repeat with anApp in running
		try -- for scriptable application, not the Finder.
			tell application anApp
				set allWindows to (every window)
				repeat with aWindow in allWindows
					set Wbounds to (get bounds of theWindow)
					set Wtitle to aWindow's title
					set end of allBounds to {contents of anApp, Wtitle, Wbounds}
				end repeat
			end tell
		on error -- Non-scriptable application, not excluded.
			tell application "System Events"
				tell application process anApp
					set allWindows to (every window)
					repeat with aWindow in allWindows
						set {{p1, p2}, {s1, s2}} to aWindow's {position, size}
						set Wbounds to {p1, p2, p1 + s1, p2 + s2}
						set Wtitle to aWindow's title
						set end of allBounds to {contents of anApp, Wtitle, Wbounds}
					end repeat
				end tell
			end tell
		end try
	end repeat
	-- for the Finder
	set allWindows to (every window whose visible is true)
	repeat with aWindow in allWindows
		set Wbounds to bounds of aWindow
		set Wtitle to aWindow's title
		set end of allBounds to {"Finder", Wtitle, Wbounds}
	end repeat
end tell
#4

Unfortunately, the script given here contains an error, since in the non-GUI scripting part there is a typo (theWindow) instead of aWindow.

In addition, the repeat loop does not need to be used in this part. Also, for myself and those who need it, I simplified the script, eliminating the confusion with nested tell blocks. I’ll post it here just in case:

 

on windowsInfo() -- all windows info in form {appName, WinTitle, WinBounds}
	tell application "System Events" to set runningApps to name of processes whose visible is true
	set allBounds to {}
	repeat with anApp in runningApps
		try
			tell application anApp to tell (windows whose visible is true) to set end of allBounds to {contents of anApp, name as text, item 1 of bounds}
		on error
			tell application "System Events" to tell process anApp
				repeat with aWindow in (get windows)
					set {{p1, p2}, {s1, s2}} to aWindow's {position, size}
					set end of allBounds to {contents of anApp, aWindow's title, {p1, p2, p1 + s1, p2 + s2}}
				end repeat
			end tell
		end try
	end repeat
	return allBounds
end windowsInfo

windowsInfo()