internal void Relocate(TypeShape shape)
		{
			Diagram diagram = shape.Diagram;
			if (diagram != null)
			{
				Point absolute = new Point(shape.Right, shape.Top);
				Size relative = new Size(
					(int) (absolute.X * diagram.Zoom) - diagram.Offset.X + MarginSize,
					(int) (absolute.Y * diagram.Zoom) - diagram.Offset.Y);

                Window.Location = Window.ParentLocation + relative;
			}
		}
 internal void Init(TypeShape element)
 {
     shape = element;
 }