کد زیر این مشکل را حل میکند:
\documentclass{beamer}
\usetheme{Warsaw}
\usefonttheme{serif}
\usepackage{xepersian}
\settextfont{XB Roya}
\setdigitfont{XB Roya}
\title{یک اسلاید نمونه}
\subtitle{زیرعنوان اسلاید}
\author{نام نویسنده}
\makeatletter
\expandafter\let\csname beamer@@tmpop@frametitle@shadow theme\endcsname\relax
\defbeamertemplate*{frametitle}{shadow theme}
{
\nointerlineskip
\vskip-2pt
\hbox{\leavevmode
\advance\beamer@leftmargin by -12bp
\advance\beamer@rightmargin by -12bp
\beamer@tempdim=\textwidth
\advance\beamer@tempdim by \beamer@leftmargin
\advance\beamer@tempdim by \beamer@rightmargin
\hskip-\Gm@lmargin\hbox{
\setbox\beamer@tempbox=\hbox{\begin{minipage}[b]{\paperwidth}
\vbox{}\vskip-.75ex
\rightskip0.3cm
\leftskip0.3cm plus1fil\leavevmode
\insertframetitle
\ifx\insertframesubtitle\@empty
\strut\par
\else
\par{\usebeamerfont*{framesubtitle}{\usebeamercolor[fg]{framesubtitle}\insertframesubtitle}\strut\par}
\fi
\nointerlineskip
\vbox{}
\end{minipage}}
\beamer@tempdim=\ht\beamer@tempbox
\advance\beamer@tempdim by 2pt
\begin{pgfpicture}{0pt}{0pt}{\paperwidth}{\beamer@tempdim}
\usebeamercolor{frametitle right}
\pgfpathrectangle{\pgfpointorigin}{\pgfpoint{\paperwidth}{\beamer@tempdim}}
\pgfusepath{clip}
\pgftext[left,base]{\pgfuseshading{beamer@frametitleshade}}
\end{pgfpicture}
\hskip-\paperwidth
\box\beamer@tempbox
}
\hskip-\Gm@rmargin
}
\nointerlineskip
\vskip-0.2pt
\hbox to\textwidth{\hskip-\Gm@lmargin\pgfuseshading{beamer@topshade}\hskip-\Gm@rmargin}
\vskip-2pt
}
\makeatother
\raggedleft
\providetranslation{Example}{مثال}
\providetranslation{Definition}{تعریف}
\begin{document}
\begin{frame}
\maketitle
\end{frame}
\begin{frame}{عنوان اسلاید این صفحه که در اینجا قرار میگیرد}
\begin{example}
این یک مثال است.
\end{example}
\begin{definition}
این یک تعریف است.
\end{definition}
\begin{proof}
این یک اثبات است که در اینجا نوشته میشود و فقط مقدار بیشتر متن و متن که نوشته میشود تا بتوانیم به سطر بعدی برویم.
\end{proof}
\end{frame}
\end{document}
خروجی بصورت زیر خواهد بود که مشکلی ندارد:
