global proc meshPlacer()
{
	
	changeSelectMode -hierarchical;
	string $windowName = "spencersWindow";
	if (`window -exists $windowName`) 
	{
		deleteUI $windowName;
	}
	string $realWindowName = `window -title "SELECT MESH" -rtf on -mnb off -mxb off -mbv off $windowName`;
	print ("New Window Name = ("+$realWindowName+")\n");
	columnLayout -adjustableColumn true;
	separator -h 20;
	text -label "Select mesh object you want" -align "center" -fn "boldLabelFont";
	text -label "to use for a grid" -align "center" -fn "boldLabelFont";
	separator -h 40;
	button -label "Use as Grid" -h 50 -w 50 -command ("dupChunk()");
	string $cmd = ("delChunk(\""+$realWindowName+"\")");
	print ("The Command =("+$cmd+")\n");
	button -label "Done" -h 25 -w 25 -command $cmd;
	showWindow $realWindowName;
}

global string $myRealName;

global proc string dupChunk()
{
	global string $myRealName;
	string $realList[];
	$realList = `duplicate -rr -name localchunk`;
	
	
	$myRealName = $realList[0];
		
	print ("New Real Name = ("+$myRealName+")\n");
	 
	select -r $myRealName; 
	pickWalk -d down; 
	pickWalk -d down; 
	pickWalk -d down; 
	pickWalk -d down; 
	pickWalk -d up; 
	makeLive; 
	return ($myRealName);
}

global proc delChunk(string $windowName)
{
	print "Deleting chunk==================================\n";
	global string $myRealName;
	print ("Deleting ("+$myRealName+")\n");
	makeLive -none;
	select -r $myRealName; 
	pickWalk -d up; 
	pickWalk -d up; 
	delete;
	print ("Deleting Window ("+$windowName+")\n"); 
	deleteUI  $windowName;
}