/* Show all NetSurf windows and tabs open */

options results
address netsurf

windows
wins = result

do w=1 to wins
	windows window w
	tabs = result
	say "Window" w "(" || tabs "tabs)"

	do t=1 to tabs
		gettitle window w tab t
		say " Tab" t || ":" result
	end
end
