[Blapp-users] Collect open urls in Safari

[David R. <da...@ma...>]

Hello again,

Blapp 6's release motivated me to go back and do some more digging.. 
The following script works in OS 10.2, Beta of GUI scripting and an 
older version of Safari.

cheers!

dAVE


--based on <http://www.macosxhints.com/article.php?story=20030913153245341>

set url_list to {}

tell application "System Events"
	tell process "Safari"
		set winCount to count of windows
		repeat with i from 1 to winCount
			set tabCount to count of radio buttons of window i
			repeat with j from 1 to tabCount
				click radio button j of window i
				set theUrl to value of text field 1 
of group 1 of splitter group 1 of window i
				set theTitle to name of window i
				set url_item to "<a href=\"" & theUrl 
& "\">" & theTitle & "</a>" as text
				set url_list to url_list & url_item
			end repeat
		end repeat
	end tell
	--display dialog url_list as text
end tell