-- Downloaded From: http://c-command.com/scripts/spamsieve/open-window
-- Last Modified: 2009-01-01



tell application "SpamSieve"
	activate
	set windowNames to {"About", "Blocklist", "Corpus", "Log", "Preferences", "Software Update", "Statistics", "Whitelist", "Quit SpamSieve"}
	choose from list windowNames with prompt "Open SpamSieve window:" without multiple selections allowed
	try
		set theName to item 1 of the result
	on error
		return
	end try
	if theName is "About" then set w to about window
	if theName is "Blocklist" then set w to blocklist window
	if theName is "Corpus" then set w to corpus window
	if theName is "Preferences" then set w to preferences window
	if theName is "Software Update" then set w to software update window
	if theName is "Statistics" then set w to statistics window
	if theName is "Whitelist" then set w to whitelist window
	if theName is "Quit SpamSieve" then quit
	if theName is "Log" then
		edit log
	else
		set w's visible to true
	end if
end tell