From 400db76c31bcd58edc286e7deb7bf7b629ec3427 Mon Sep 17 00:00:00 2001
From: Wolfgang Dautermann <dauti@users.sourceforge.net>
Date: Sun, 27 Oct 2024 12:27:07 +0100
Subject: [PATCH] Fix copy as MathML for boxes.

There is no MathML tag <box/>, use
<menclose notation="box"> ... </menclose>
instead.

For named boxes (don't know if there is a
proper MathML notation) add at least a
comment. (also for the "Copy as LaTeX" case).
---
 src/cells/BoxCell.cpp      | 4 ++--
 src/cells/NamedBoxCell.cpp | 8 +++-----
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/cells/BoxCell.cpp b/src/cells/BoxCell.cpp
index c5a788903..de7929575 100644
--- a/src/cells/BoxCell.cpp
+++ b/src/cells/BoxCell.cpp
@@ -137,8 +137,8 @@ wxString BoxCell::ToTeX() const {
 }
 
 wxString BoxCell::ToMathML() const {
-  return wxS("<apply><box/><ci>") + m_innerCell->ListToMathML() +
-    wxS("</ci></apply>");
+  return wxS("<menclose notation=\"box\">") + m_innerCell->ListToMathML() +
+    wxS("</menclose>");
 }
 
 wxString BoxCell::ToOMML() const {
diff --git a/src/cells/NamedBoxCell.cpp b/src/cells/NamedBoxCell.cpp
index 6201b9ff7..3201fcc2a 100644
--- a/src/cells/NamedBoxCell.cpp
+++ b/src/cells/NamedBoxCell.cpp
@@ -171,14 +171,12 @@ wxString NamedBoxCell::ToTeX() const {
   if (IsBrokenIntoLines())
     return wxEmptyString;
   else
-    return wxS("\\fbox{") + m_innerCell->ListToTeX() + wxS("}");
+    return wxS("\\fbox{") + m_innerCell->ListToTeX() + wxS("} % Named Box, Name: ") + m_boxname->ListToTeX() + wxS("\n");
 }
 
 wxString NamedBoxCell::ToMathML() const {
-  return wxS("<apply><box/><ci>") + m_innerCell->ListToMathML() +
-    wxS("</ci><ci>") +
-    m_boxname->ListToMathML() +
-    wxS("</apply>");
+  return wxS("<menclose notation=\"box\">") + m_innerCell->ListToMathML() +
+    wxS("</menclose><!-- Named Box, Name: " + m_boxname->ListToMathML() + " -->\n");
 }
 
 wxString NamedBoxCell::ToOMML() const {