ManageNames: implement ScNameDlg::IsFormulaValid

1 files changed, 17 insertions, 1 deletions

diff --git a/sc/source/ui/namedlg/namedlg.cxx b/sc/source/ui/namedlg/namedlg.cxx
index 46970a400762..400a1d5346e1 100644
--- a/sc/source/ui/namedlg/namedlg.cxx
+++ b/sc/source/ui/namedlg/namedlg.cxx
@@ -266,7 +266,19 @@ bool ScNameDlg::IsNameValid()
 
 bool ScNameDlg::IsFormulaValid()
 {
-    return true;
+    ScCompiler aComp( mpDoc, maCursorPos);
+    aComp.SetGrammar( mpDoc->GetGrammar() );
+    ScTokenArray* pCode = aComp.CompileString(maEdAssign.GetText());
+    if (pCode->GetCodeError())
+    {
+        delete pCode;
+        return false;
+    }
+    else
+    {
+        delete pCode;
+        return true;
+    }
 }
 
 ScRangeName* ScNameDlg::GetRangeName(const rtl::OUString& rScope)
@@ -387,7 +399,11 @@ void ScNameDlg::RemovePushed()
 void ScNameDlg::NameModified()
 {
     if (!IsFormulaValid())
+    {
+        //TODO: implement an info text
         return;
+    }
+
     ScRangeNameLine aLine;
     mpRangeManagerTable->GetCurrentLine(aLine);
     rtl::OUString aOldName = aLine.aName;