How to Hide All Windows of an App Other Than the Front One

Questions & Suggestions
15

Thanks Christopher (and @JMichaelTX) for this script.

I've just fiddled a very little bit to avoid minimizing a solitary window:

tell application "System Events"
  tell (first process whose frontmost is true)
    set winList to windows whose subrole is "AXStandardWindow"
    
    if length of winList > 1 then
      set winList to rest of winList
      repeat with theWindow in winList
        try
          tell theWindow to set value of attribute "AXMinimized" to true
        end try
      end repeat
    end if
    
  end tell
end tell

--Alain

2 Likes