2019-07-28 23:53:15 +03:00
|
|
|
|
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
|
2015-06-02 22:52:35 +03:00
|
|
|
|
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
|
|
|
|
|
|
using System;
|
2015-05-14 22:35:07 +03:00
|
|
|
|
using System.Collections.Generic;
|
|
|
|
|
|
using PascalABCCompiler.SyntaxTree;
|
|
|
|
|
|
using System.Text;
|
|
|
|
|
|
using Debugger;
|
|
|
|
|
|
|
|
|
|
|
|
namespace VisualPascalABC
|
|
|
|
|
|
{
|
|
|
|
|
|
public class ImmediateEvaluateAction : ICSharpCode.TextEditor.Actions.AbstractEditAction
|
|
|
|
|
|
{
|
|
|
|
|
|
public override void Execute(ICSharpCode.TextEditor.TextArea textArea)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (WorkbenchServiceFactory.DebuggerManager.IsRunning)
|
|
|
|
|
|
{
|
|
|
|
|
|
int line = textArea.Caret.Line;
|
|
|
|
|
|
string val = WorkbenchServiceFactory.DebuggerManager.ExecuteImmediate
|
|
|
|
|
|
(textArea.Document.GetText(textArea.Document.GetLineSegment(textArea.Caret.Line)));
|
|
|
|
|
|
if (val != null)
|
|
|
|
|
|
{
|
|
|
|
|
|
textArea.Document.TextContent += Environment.NewLine+val+Environment.NewLine;
|
|
|
|
|
|
textArea.Caret.Line = line + 2;
|
|
|
|
|
|
textArea.Caret.Column = 0;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
|
|
|
|
|
{
|
|
|
|
|
|
int line = textArea.Caret.Line;
|
|
|
|
|
|
textArea.Document.TextContent += Environment.NewLine;
|
|
|
|
|
|
textArea.Caret.Line = line + 1;
|
|
|
|
|
|
textArea.Caret.Column = 0;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
