Scripting refinement

2025-09-21 11:09:55 +02:00
parent 00f5861148
commit 36fe827b00
3 changed files with 79 additions and 25 deletions
@@ -968,8 +968,12 @@ begin
    if FScriptUpdate then
        exit;

+    Memo1.Lines.Clear;
    try
-        FLastAst := TAstScript.Parse(ScriptMemo.Lines.Text)
+        FLastAst := TAstScript.Parse(ScriptMemo.Lines.Text);
+
+        FWorkspace.DeleteChildren;
+        ShowVizualization(14, 14);
    except
        on E: Exception do
            Memo1.Lines.Add(E.Message);