content: set windowWidth to 800
  set windowHeight to 600
  delay 0.1
  
  set AppleScript's text item delimiters to "x"
  
  set res to text returned of (display dialog "Enter the width x height:" default answer ((windowWidth & windowHeight) as text))
  
  if res is "" then
    display dialog "You need to enter a correct response"
    return
  end if
  set {windowWidth, windowHeight} to text items of res
  
  set AppleScript's text item delimiters to ""
  
  tell application "Safari"
    set screen_width to (do JavaScript "screen.availWidth" in document 1)
    set screen_height to (do JavaScript "screen.availHeight" in document 1)
  end tell
  
  tell application "System Events"
    set myFrontMost to name of first item of (processes whose frontmost is true)
  end tell
  
  tell application "Finder"
    set {desktopTop, desktopLeft, desktopRight, desktopBottom} to bounds of desktop
  end tell
  
  try
    tell application "System Events"
      tell process myFrontMost
        set {{w, h}} to size of drawer of window 1
      end tell
    end tell
  on error
    set {w, h} to {0, 0}
  end try
  
  tell application "System Events"
    tell process myFrontMost
      try
        set {{w, h}} to size of drawer of window 1
      on error
        set {w, h} to {0, 0}
      end try
      set position of window 1 to {((screen_width - windowWidth) / 2), ((screen_height - windowHeight) / 2.0) - desktopTop}
      set size of window 1 to {windowWidth -w, windowHeight}
    end tell
  end tell