on run
	tell application id "OFOC"
		
		tell front document window of front document
			repeat with oPanel in {sidebar, content}
				set lstValue to value of (selected trees of oPanel where class of its value is project)
				set lngProj to count of lstValue
				if lngProj > 0 then exit repeat
			end repeat
			if lngProj < 1 then return
		end tell
	end tell
	set oProject to first item of lstValue
	
	set lstPath to ProjectPath(oProject)
	
	set {dlm, my text item delimiters} to {my text item delimiters, "/"}
	set strPath to lstPath as Unicode text
	set my text item delimiters to dlm
	
	set strPath to do shell script ("printf '%q' " & quoted form of strPath)
end run

on ProjectPath(oProject)
	tell application id "OFOC"
		tell oProject
			set lstPath to {name}
			set oContainer to container
		end tell
		
		repeat while class of oContainer is not document
			set beginning of lstPath to name of oContainer
			set oContainer to container of oContainer
		end repeat
	end tell
	lstPath
end ProjectPath