{
$sel = `ls -sl`;
string $menu = `promptDialog -message "Enter new name:" -button "Ok" -button "Cancel" 
	-defaultButton "Ok" -cancelButton "Cancel" -dismissString "Cancel"`; 

if (`size $sel` < 0 || $menu == "Ok" )
	{
	$newName = `promptDialog -q`;
	for ($obj in $sel)
		{
		rename $obj $newName;
		}
	}
}