tell application id "OGfl"
	tell front window 
		set lstShapes to selection
		set oShape to first item of lstShapes
		set lstInLines to (incoming lines of oShape where its source is not missing value)
		repeat with oLine in lstInLines
			-- do something to the line
		end repeat
	end tell
end tell