Merge remote-tracking branch 'stash/main'

Author: rhennigan

Source/Chatbook/Common.wl

@@ -1224,6 +1224,7 @@ chatbookIcon[ name_String ] := chatbookIcon[ name, TrueQ @ $inlineChatbookExpres
 chatbookIcon[ name_String, True  ] := chatbookIcon[ name, Lookup[ $chatbookIcons, name ] ];
 chatbookIcon[ name_String, False ] := Dynamic @ RawBoxes @ FEPrivate`FrontEndResource[ "ChatbookExpressions", name ];
 chatbookIcon[ name_String, False, args__ ] := Dynamic @ RawBoxes @ FEPrivate`FrontEndResource[ "ChatbookExpressions", name ][ args ]; (* Function resources *)
+chatbookIcon[ name_String, False, args__ ] /; $CloudEvaluation := RawBoxes @ FrontEndResource[ "ChatbookExpressions", name ][ args ]; (* CLOUD-25597 *)
 chatbookIcon[ name_String, icon: Except[ _Missing ] ] := icon;
 chatbookIcon // endDefinition;
 

Source/Chatbook/FrontEnd.wl

@@ -1253,6 +1253,7 @@ $statelessProgressIndicator =
 mouseDown // beginDefinition;
 (* Workaround for dynamics freezing in attached cells when mousing over docked cell: *)
 mouseDown[ a_, b_, c_ ] /; $OperatingSystem === "Windows" := Mouseover[ a, b ];
+mouseDown[ a_, b_, c_ ] /; $CloudEvaluation := Mouseover[ a, b ];
 mouseDown[ a_, b_, c_ ] := NotebookTools`Mousedown[ a, b, c ];
 mouseDown // endDefinition;
 

Source/Chatbook/UI.wl

@@ -606,7 +606,12 @@ Options[ errorMessageCloseButton ] = { Appearance -> "NonFatal" };
 errorMessageCloseButton[ OptionsPattern[ ] ] :=
 Button[
 	errorMessageCloseButtonAppearance[ OptionValue[ Appearance ] ],
-	NotebookDelete[ EvaluationCell[ ] ],
+	(* Cloud-25777:
+		We need to coerce the cloud to send the evaluation through the kernel instead of the JS evaluator.
+		We accomplish this with a hack: include an unknown symbol with no side effects. *)
+	(
+		CloudSystem`Private`NoValue`Cloud25777;
+		NotebookDelete[ EvaluationCell[ ] ] ),
 	Appearance       -> "Suppressed",
 	BaselinePosition -> Baseline,
 	ImageSize        -> Automatic