sw: set unique name for fontwork object and style on insertion

Unique name for fontwork is required to be displayed in Navigator pane,
unique style name is important for correct undo/redo work.

Change-Id: If633d0fda9bb98558a311dd1dd9324f9d6d04616
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/87056
Tested-by: Jenkins
Reviewed-by: Thorsten Behrens <Thorsten.Behrens@CIB.de>
diff --git a/sw/source/core/frmedt/fefly1.cxx b/sw/source/core/frmedt/fefly1.cxx
index 8137013..da9be79 100644
--- a/sw/source/core/frmedt/fefly1.cxx
+++ b/sw/source/core/frmedt/fefly1.cxx
@@ -935,6 +935,8 @@
    }
    // insert drawing object into the document creating a new <SwDrawFrameFormat> instance
    SwDrawFrameFormat* pFormat = GetDoc()->getIDocumentContentOperations().InsertDrawObj( aPam, rDrawObj, rFlyAttrSet );
    pFormat->SetName(GetDoc()->GetUniqueShapeName());
    rDrawObj.SetName(pFormat->GetName());

    // move object to visible layer
    SwContact* pContact = static_cast<SwContact*>(rDrawObj.GetUserCall());