Merge pull request #955 from WolframResearch/954-internal-error-cause…

…d-by-rawboxescell-when-checking-for-graphics Bugfix: Fixed an internal failure caused by `RawBoxes` in graphics check
WolframResearch · Nov 26, 2024 · 76afcaa · 76afcaa
2 parents f319547 + 2943f3d
commit 76afcaa
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Source/Chatbook/Graphics.wl b/Source/Chatbook/Graphics.wl
@@ -69,6 +69,7 @@ graphicsBoxQ[ TemplateBox[ { box_, ___ }, $$graphicsBoxIgnoredTemplates, ___ ] ]
 graphicsBoxQ[ RowBox[ boxes_List ] ] := AnyTrue[ boxes, graphicsBoxQ ];
 graphicsBoxQ[ TemplateBox[ boxes_List, "RowDefault", ___ ] ] := AnyTrue[ boxes, graphicsBoxQ ];
 graphicsBoxQ[ GridBox[ boxes_List, ___ ] ] := AnyTrue[ Flatten @ boxes, graphicsBoxQ ];
+graphicsBoxQ[ StyleBox[ _, "GraphicsRawBoxes", ___ ] ] := True;
 graphicsBoxQ[ ___ ] := False;
 graphicsBoxQ // endDefinition;
 

diff --git a/Source/Chatbook/Serialization.wl b/Source/Chatbook/Serialization.wl
@@ -1105,7 +1105,7 @@ boxesToExpressionURI[ boxes_ ] :=
         Quiet @ ToExpression[ boxes, StandardForm, HoldComplete ],
         {
             HoldComplete[ expr_ ] :> MakeExpressionURI @ Unevaluated @ expr,
-            _? FailureQ :> MakeExpressionURI[ "image", RawBoxes @ boxes ]
+            _? FailureQ :> MakeExpressionURI[ "image", RawBoxes @ StyleBox[ boxes, "GraphicsRawBoxes" ] ]
         }
     ];