chrisbirdsall

display dialog "Add tags" default answer "" with icon file "Applications:OmniFocus.app:Contents:Resources:AppIcon.icns"
set noteTags to text returned of result

tell application "OmniFocus"
	tell front document
		tell content of document window 1 -- (first document window whose index is 1)
			set theSelectedItems to value of every selected tree
		end tell
		repeat with anItem in my theSelectedItems
			if note of anItem is not "" then