Closed asukaminato0721 closed 1 year ago
Run
BeginPackage["CommandLineUtilities`Display`"];
WolframPlayer;
Begin["`Private`"];
$TemporaryOutput = FileNameJoin@{$TemporaryDirectory, "WolframKernelOutput"};
If[!DirectoryQ@#, CreateDirectory@#] &@$TemporaryOutput;
MakeNotebook[box_] := Notebook[{Cell@BoxData@box}, WindowSize -> All]
WolframPlayer[expr_, box_] := (
StartProcess[
{
"wolframplayer",
Export[FileNameJoin@{$TemporaryOutput, CreateUUID["CDFOutput-"]<>".cdf"}, MakeNotebook@box, "CDF"]
}
]
)
End[];
EndPackage[];
(*$DisplayFunction = WolframPlayer[#, ToBoxes@#]&;*)
$Post = With[{box = ToBoxes@#},
If[FreeQ[DynamicBox|DynamicModuleBox|GraphicsBox|Graphics3DBox]@box,
#,
WolframPlayer[#, box]
]
]&;
Then
Describe the bug
run
Expected behavior
A less noisy output
Screenshots
Environment (please complete the following information):