global proc string[] getVertexNeighbours()
{
	string $res[];	
	string $myVertex[] = `ls -sl`;
	string $obj = `substitute "\.vtx.*" $myVertex[0] ""`;	
	

	select -cl;
	if(size($myVertex) > 1)
	{
		error("Select only one vertex!");
	}
	else
	{
		string $tmp[] = `polyInfo -vertexToEdge $myVertex[0]`;
		string $buffer[];
		
		tokenize $tmp[0] " " $buffer;

		string $connectedEdges[]; 
		
		int $i = 2;
		for($i; $i<size($buffer); $i++ )
		{
			if(strip($buffer[$i]) != "")
			{
				select -add ($obj + ".e["+$buffer[$i]+"]");
			}
		}
		

		string $ev[] = `polyInfo -edgeToVertex`;

		int $ii = 0;
		for($ii; $ii<size($ev); $ii++)
		{
			string $buffer[];
			tokenize $ev[$ii] " " $buffer;
			$res[size($res)] = ($obj + ".vtx[" + $buffer[2] + "]");
			$res[size($res)] = ($obj + ".vtx[" + $buffer[3] + "]");
		}
	}

	select $res;
	return $res;

}