Fix for finding the right "front most window" in an app

Script.applescript

tell application "System Events"
	set myFrontMost to name of first item of (processes whose frontmost is true)
	tell application process myFrontMost
		-- The trick here is that you can't rely on "window 1" to be the one you're after,
		-- So let's filter the UI elements list by subroles.
		-- Emacs return a a total bogus AXTextField:AXStandardWindow, but we can stil work with it
		set theWindows to (every UI element whose subrole is "AXStandardWindow")
		
		-- For Activity Monitor (others?)
		if theWindows is {} then set theWindows to (every UI element whose subrole is "AXDialog")
		
		if theWindows is {} then
			beep
			return
		end if
		
		set theWindow to (first item of theWindows)
		tell theWindow
			set position to {0, 0}
			set size to {800, 600}
		end tell
	end tell
end tell