TerminateTransactions

Author: JerryI

Kernel/Evaluator.wl

@@ -2,6 +2,7 @@ BeginPackage["CoffeeLiqueur`Notebook`Evaluator`", {"KirillBelov`Objects`", "Jerr
 
 StandardEvaluator::usage = "StandardEvaluator[opts__] creates a basic Evaluator"
 EvaluateTransaction;
+TerminateTransactions;
 
 ReadyQ;
 Container::usage = "a static construction used for combinning StaticEvaluators and Kernels"
@@ -42,6 +43,18 @@ InitializedContainer[k_(*Kernel*)][t_Transaction] := Module[{evaluator, state},
     t 
 ]
 
+InitializedContainer[k_(*Kernel*)][$Aborted] := Module[{diposableToken},
+    Print["Termination Eval"];
+    diposableToken = Function[Null,
+        Echo["Aborting Kernel"];
+        If[k["State"] === "Initialized", GenericKernel`AbortEvaluation[k] ];
+        diposableToken = Null;
+    ];
+
+    TerminateTransactions[#, diposableToken] &/@ Flatten[eList];
+    ClearAll[diposableToken];
+]
+
 StandardEvaluator /: ReadyQ[StandardEvaluator[o_(*Kernel*)] ] := True
 
 StandardEvaluator /: Print[evaluator_StandardEvaluator, msg_] := Echo[evaluator["Name"] <> " >> " <> ToString[msg] ]

Views/Notebook/Notebook.wlx

@@ -727,7 +727,7 @@ Component[OptionsPattern[]] := With[{
                 Return[];
             ];
 
-            If[notebook["Evaluator"]["Kernel"]["State"] === "Initialized", GenericKernel`AbortEvaluation[notebook["Evaluator"]["Kernel"]] (*`*) ];
+            notebook["Evaluator"][$Aborted];
             Map[Function[cell,
                 cell["State"] = "Idle";
                 EventFire[cell, "State", "Idle"];