Re: zoomed attribute of tabbed fullscreen windows


2551phil
 


On 14 Oct 2017, at 13:45, 2551phil <2551phil@...> wrote:


On 14 Oct 2017, at 09:38, Jean-Christophe Helary <jean.christophe.helary@...> wrote:

Is there a way that does not involve using "bounds"… ?

We can use origin and position instead, so long as you have only one monitor, this should work. 

If you have an external display connected, you’ll have to test for the orig/pos of that display as well.



A slightly less-rough ’n’ ready version:


set fs to ""
set fsList to {}
set msg to "No windows in full screen."
tell application "Terminal"
repeat with i from 1 to count of its windows
set this_win to item i of its windows
if this_win's position is {0, 0} then
if this_win's origin is {0, 0} then
set fs to this_win's name
set end of fsList to fs
end if
end if
end repeat
end tell
if (count of fsList) is greater than 0 then
set msg to ""
repeat with i from 1 to count of fsList
set msg to msg & fs & return
end repeat
end if
display dialog msg with title "Terminal Full Screen Windows" buttons "OK" default button "OK"




Best


Phil
@sqwarq

Join applescript@apple-dev.groups.io to automatically receive all group messages.