summaryrefslogtreecommitdiff
path: root/frontends/amiga/dist/Rexx/ShowTitles.nsrx
blob: 27de74122903a340b7f519ed80d9426e667523b9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
/* 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