private void ShowEraseButton(IBlockView hit)
{
eraseButton.Location = new Point(hit.AbsolutePos().X, 2);
eraseButton.Show();
}
public static Rectangle AbsoluteBounds(this IBlockView v)
{
return(new Rectangle(v.AbsolutePos(), v.Assemble().Size));
}
private void ShowEraseButton(IBlockView hit)
{
eraseButton.Location = new Point(hit.AbsolutePos().X, 2);
eraseButton.Show();
}
internal void MouseDown(Point p)
{
if (state == CanvasState.TextEditing)
{
// Since the mousedown registered, we've clicked outside the textbox
ResetTextEditState();
}
else if (state == CanvasState.Ready)
{
if (canvasView.PaletteRect.Contains(p))
{
int x = canvasView.PaletteRect.Left;
int y = canvasView.PaletteRect.Top;
IBlock[] defaultArgs;
string funcName = palette.HitTest(p.Offseted(-x, -y), out defaultArgs);
if (funcName != "")
{
IBlock b = blockSpace.makeNewBlock(funcName, defaultArgs);
TopLevelScript s = AddTopLevel(b, p.Offseted(-5, -5));
dragged = blockViews[b];
draggingOrigin = p;
draggedModel = s;
state = CanvasState.Dragging;
PrepareDropRegions(b);
Update(ViewBounds(dragged));
return;
}
}
IBlockView hit = HitTest(p);
if (hit == null)
{
return;
}
if (!allViews.ContainsKey(hit))
{
if (hit.Model.ParentRelationship.Type == ParentRelationshipType.Stack)
{
int i = hit.Model.ParentRelationship.Index;
Point np = hit.AbsolutePos();
Rectangle bounds = ViewBounds(hit.AbsoluteAncestor());
BlockStack parent = (BlockStack)hit.Model.ParentRelationship.Parent;
TopLevelScript splitted = SplitBlockStack(parent, i, np);
Update(bounds);
draggedModel = splitted;
hit = blockViews[splitted.Block];
}
else if (hit.Model.ParentRelationship.Type == ParentRelationshipType.Arg)
{
if (hit is ITextualView)
{
// We shouldn't detach e.g a number argument from its block
// but we should enable the user to edit it
SetEditState((ITextualView)hit);
return;
}
int i = hit.Model.ParentRelationship.Index;
Point np = hit.AbsolutePos();
Rectangle bounds = ViewBounds(hit.AbsoluteAncestor());
InvokationBlock parent = (InvokationBlock)hit.Model.ParentRelationship.Parent;
TopLevelScript splitted = TakeoutBlockArgument(parent, i, np);
Update(bounds);
draggedModel = splitted;
hit = blockViews[splitted.Block];
}
else if (hit.Model.ParentRelationship.Type == ParentRelationshipType.FormalParameter)
{
ProcDefBlock pd = (ProcDefBlock )hit.Model.ParentRelationship.Parent;
VarAccessBlock va = new VarAccessBlock((VarDefBlock)pd.Bits[hit.Model.ParentRelationship.Index]);
TopLevelScript tls = AddTopLevel(va, p);
hit = ViewFromBlock(va);
draggedModel = tls;
}
else if (hit.Model.ParentRelationship.Type == ParentRelationshipType.None)
{
hit = null;
draggedModel = null;
}
}
else
{
draggedModel = blockSpace.FindScript(hit.Model);
}
if (hit != null)
{
dragged = hit;
draggingOrigin = p;
state = CanvasState.Dragging;
PrepareDropRegions(hit.Model);
}
Update();
}
}
