property pPrefix : "• "
property plngPrefix : length of pPrefix

on run
	tell application id "com.apple.systemevents"
		if (count of (processes where creator type is "OFOC")) < 1 then return
	end tell
	
	tell application id "com.omnigroup.OmniFocus"
		tell front document window of front document
			set my text item delimiters to return & pPrefix
			set str to pPrefix & name of (selected trees of content) as string
			if length of str = plngPrefix then ¬
				set str to pPrefix & name of (selected trees of sidebar) as string
			set my text item delimiters to space
		end tell
	end tell
	return str
end run