tdf#98143 ,Providing title for the fullscreen slideshow .

The bug is solved by calling SystemWindow::SetText().

Change-Id: If069adaded88e32a23847d519c4177643ac2acfd
Reviewed-on: https://gerrit.libreoffice.org/66919
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>

sd/inc/strings.hrc

@@ -147,6 +147,7 @@
 #define STR_EFFECTDLG_DOCUMENT                          NC_("STR_EFFECTDLG_DOCUMENT", "Document")
 #define STR_EFFECTDLG_PROGRAM                           NC_("STR_EFFECTDLG_PROGRAM", "Program")
 #define STR_EFFECTDLG_MACRO                             NC_("STR_EFFECTDLG_MACRO", "Macro")
+#define STR_FULLSCREEN_SLIDESHOW                        NC_("STR_FULLSCREEN_SLIDESHOW", "Presenting: %s")
 // Strings for animation effects
 #define STR_INSERT_TEXT                                 NC_("STR_INSERT_TEXT", "Insert Text")
 #define STR_SLIDE_SINGULAR                              NC_("STR_SLIDE_SINGULAR", " Slide")

sd/source/ui/slideshow/slideshow.cxx

@@ -57,6 +57,8 @@
 #include <sdpage.hxx>
 #include <cusshow.hxx>
 #include <optsitem.hxx>
+#include <strings.hrc>
+#include <sdresid.hxx>
 
 using ::com::sun::star::presentation::XSlideShowController;
 using ::sd::framework::FrameworkHelper;
@@ -1111,6 +1113,10 @@ void SlideShow::StartFullscreenPresentation( )
     const sal_Int32 nDisplay (GetDisplay());
     VclPtr<WorkWindow> pWorkWindow = VclPtr<FullScreenWorkWindow>::Create(this, mpCurrentViewShellBase);
     pWorkWindow->SetBackground(Wallpaper(COL_BLACK));
+    OUString Title(SdResId(STR_FULLSCREEN_SLIDESHOW));
+    Title = Title.replaceFirst("%s",
+                               mpCurrentViewShellBase->GetDocShell()->GetTitle(SFX_TITLE_DETECT));
+    pWorkWindow->SetText(Title);
     pWorkWindow->StartPresentationMode( true, mpDoc->getPresentationSettings().mbAlwaysOnTop ? PresentationFlags::HideAllApps : PresentationFlags::NONE, nDisplay);
     //    pWorkWindow->ShowFullScreenMode(sal_False, nDisplay);