void AddShapeAtPoint(IShape shape, Point point)
{
shape.Name = GetNextName (0);
if (shape.Text.Length == 0 && !(shape is Line))
shape.Text = "...";
shape.SetLocation (Grid ? CutToGrid (point) : point);
DoAddShape (shape);
}