Resizing a window that extends over the Dock

Question

Sometimes a window extends over the Dock, and it becomes difficult to 'select' the little triangle in the bottom right to resize the window. Any attempt to do so 'sees' the Dock icon instead of the window that's overlapping the Dock.
The only way I have found to get around this is to move the window over to the right far enough to get that triangle in the clear space to the right of the Trash icon.
Is that the only way? (Is there perhaps a keystroke that incrementally resizes the selected window to a smaller size than the current one?)
Thanks.

Answer 1

Try this:
property app_name : ""
set user_input to display dialog "Which application's front window would you like to resize?" default answer "" buttons {"Cancel", "OK"} default button "OK"
if button returned of user_input is "OK" then
set app_name to text returned of user_input as string
end if
tell application app_name
activate
try
set bounds of window 1 to {4, 93, 1000, 700}
on error
display dialog "Not possible"
end try
end tell
Just enter the name of the application, e.g. Safari, FireFox. You can set the bounds in the script to anything you want, of course.
It would be nice to be able to detect the frontmost application but so far I can't do that (it sees the script as the frontmost application which is logical enough).