\documentclass[10pt, xcolor=dvipsnames, professional fonts]{beamer}

\usepackage{ptext}
\usepackage{tikz}
\usepackage{xepersian}
\usefonttheme{serif}
\usetheme{Warsaw}
\useoutertheme{infolines}

\settextfont{XB Tabriz}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\raggedleft
\makeatletter
\define@key{beamercolbox}{left}[0pt]{\def\beamer@colbox@rs{0pt}\def\beamer@colbox@ls{#1 plus1fill}}
\makeatother
\raggedleft

\makeatletter
\expandafter\let\csname beamer@@tmpop@itemize item@default\endcsname\relax
\expandafter\let\csname beamer@@tmpop@itemize subitem@default\endcsname\relax
\expandafter\let\csname beamer@@tmpop@itemize subsubitem@default\endcsname\relax

\defbeamertemplate*{itemize item}{default}{\scriptsize\raise1.25pt\hbox{\donotcoloroutermaths$\blacktriangleleft$}}
\defbeamertemplate*{itemize subitem}{default}{\tiny\raise1.5pt\hbox{\donotcoloroutermaths$\blacktriangleleft$}}
\defbeamertemplate*{itemize subsubitem}{default}{\tiny\raise1.5pt\hbox{\donotcoloroutermaths$\blacktriangleleft$}}

\bidi@patchcmd{\@listi}{\leftmargin}{\rightmargin}{}{}
\let\@listI\@listi
\bidi@patchcmd{\@listii}{\leftmargin}{\rightmargin}{}{}
\bidi@patchcmd{\@listiii}{\leftmargin}{\rightmargin}{}{}
\bidi@patchcmd{\beamer@enum@}{\raggedright}{\raggedleft}{}{}
\bidi@patchcmd{\@@description}{\raggedright}{\raggedleft}{}{}
\bidi@patchcmd{\@@description}{\leftmargin}{\rightmargin}{}{}

\renewcommand{\itemize}[1][]{%
	\beamer@ifempty{#1}{}{\def\beamer@defaultospec{#1}}%
	\ifnum \@itemdepth >2\relax\@toodeep\else
	\advance\@itemdepth\@ne
	\beamer@computepref\@itemdepth% sets \beameritemnestingprefix
	\usebeamerfont{itemize/enumerate \beameritemnestingprefix body}%
	\usebeamercolor[fg]{itemize/enumerate \beameritemnestingprefix body}%
	\usebeamertemplate{itemize/enumerate \beameritemnestingprefix body begin}%
	\list
	{\usebeamertemplate{itemize \beameritemnestingprefix item}}
	{\def\makelabel##1{%
			{%
				\hss\llap{{%
						\usebeamerfont*{itemize \beameritemnestingprefix item}%
						\usebeamercolor[fg]{itemize \beameritemnestingprefix item}##1}}%
			}%
		}%
	}
	\fi%
	\beamer@cramped%
	\raggedleft%
	\beamer@firstlineitemizeunskip%
}
\makeatother
\raggedleft

\makeatletter
\bidi@undef\beamer@@tmpop@footnote@default

\defbeamertemplate*{footnote}{default}
{
	\parindent 1em\noindent%
	\raggedleft
	\hbox to 1.8em{\hfil\insertfootnotemark}\insertfootnotetext\par%
}

\defbeamertemplate*{LTRfootnote}{default}
{
	\parindent 1em\noindent%
	\raggedright
	\hbox to 1.8em{\hfil\insertfootnotemark}\latinfont\insertfootnotetext\par%
}
\footdir@temp\footdir@ORG@bidi@beamer@framefootnotetext\beamer@framefootnotetext{R}
\let\@footnotetext=\beamer@framefootnotetext
\let\@RTLfootnotetext\@footnotetext

\def\@makeLTRfntext#1{%
	\def\insertfootnotetext{#1}%
	\def\insertfootnotemark{\@makefnmark}%
	\usebeamertemplate***{LTRfootnote}}

\newcommand<>\beamer@frameLTRfootnotetext[1]{%
	\global\setbox\beamer@footins\vbox{\@RTLfalse%
		\hsize\framewidth
		\textwidth\hsize
		\columnwidth\hsize
		\unvbox\beamer@footins
		\reset@font\footnotesize
		\@parboxrestore
		\protected@edef\@currentlabel
		{\csname p@footnote\endcsname\@thefnmark}%
		\color@begingroup
		\uncover#2{\@makeLTRfntext{%
				\rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}}%
		\color@endgroup}}


\footdir@temp\footdir@ORG@bidi@beamer@frameLTRfootnotetext\beamer@frameLTRfootnotetext{L}
\let\@LTRfootnotetext=\beamer@frameLTRfootnotetext

\makeatother

\raggedleft

\raggedleft
\makeatletter
\renewenvironment{beamercolorbox}[2][]{%
	\begingroup%
	\def\beamer@colbox@coladd{0pt}%
	\def\beamer@vmode{\leavevmode}%
	\setkeys{beamercolbox}{%
		wd=\textwidth,ht={},dp={},%
		rightskip=0pt,leftskip=0pt plus1fil,%
		sep=0pt,colsep=0pt,colsep*=0pt,%
		shadow=false,rounded=false,ignorebg=false}%
	\setkeys{beamercolbox}{#1}%
	\ifbeamercolorempty[bg]{#2}{\@tempswafalse}{\@tempswatrue}%
	\ifbeamer@colbox@ignorebg\@tempswafalse\fi%
	\def\beamer@colbox@color{#2}%
	\hsize=\beamer@colbox@wd%
	\setbox\beamer@tempbox=\hbox\bgroup\vbox\bgroup%
	\leftskip=\beamer@colbox@ls%
	\advance\leftskip by\beamer@colbox@sep%
	\rightskip=\beamer@colbox@rs%
	\advance\rightskip by\beamer@colbox@sep%
	\ifbeamer@colbox@ignorebg%
	\colorlet{beamer@temp@color}{bg}%
	\usebeamercolor[fg]{#2}%
	\colorlet{bg}{beamer@temp@color}%
	\else%
	\usebeamercolor[fg]{#2}%
	\fi%
	\if@tempswa%
	\advance\leftskip by\beamer@colbox@colsep%
	\advance\rightskip by\beamer@colbox@colsep%
	\ifdim\beamer@colbox@colsep=0pt\else\vskip\beamer@colbox@colsep\fi%
	\ifdim\beamer@colbox@colseps=0pt\else\vskip\beamer@colbox@colseps\fi%
	\fi%
	\ifdim\beamer@colbox@sep=0pt\else\vskip\beamer@colbox@sep\fi%
	\beamer@vmode\ignorespaces}{%
	\ifdim\beamer@colbox@sep=0pt\else\vskip\beamer@colbox@sep\fi%
	\if@tempswa\ifdim\beamer@colbox@colsep=0pt\else\vskip\beamer@colbox@colsep\fi\fi%
	\if@tempswa\ifdim\beamer@colbox@colseps=0pt\else\vskip\beamer@colbox@colseps\fi\fi%
	\egroup\egroup%
	\wd\beamer@tempbox=\hsize%
	\@tempdima=\wd\beamer@tempbox%
	\ifx\beamer@colbox@ht\@empty%
	\else%
	\ht\beamer@tempbox=\beamer@colbox@ht%
	\fi%
	\ifx\beamer@colbox@dp\@empty%
	\else%
	\dp\beamer@tempbox=\beamer@colbox@dp%
	\fi%
	\ifbeamer@colbox@rounded%
	\if@tempswa%
	\begin{beamerboxesrounded}[%
		shadow=\beamer@colbox@shadow,%
		lower=\beamer@colbox@color,%
		upper=normal text,%
		width=\beamer@colbox@wd]{}%
		\box\beamer@tempbox%
	\end{beamerboxesrounded}%
	\else%
	\ifdim\@tempdima>\textwidth%
	\setbox\beamer@tempbox=\hbox to\textwidth{\hss\box\beamer@tempbox\hss}%
	\fi%
	\box\beamer@tempbox%
	\fi%
	\else%
	\if@tempswa\setbox\beamer@tempbox=\hbox{\vbox{%
			\usebeamercolor{\beamer@colbox@color}%
			\advance\hsize by \beamer@colbox@colseps\relax%
			\advance\hsize by \beamer@colbox@colseps\relax%
			\hskip-\beamer@colbox@colseps%
			\fboxsep=0pt\colorbox{bg}{%
				\hskip\beamer@colbox@colseps%
				\hbox{\box\beamer@tempbox}%
				\hskip\beamer@colbox@colseps%
			}%
			\hskip-\beamer@colbox@colseps%
	}}\fi%
	\ifdim\@tempdima>\textwidth%
	\setbox\beamer@tempbox=\hbox to\textwidth{\hskip0pt minus\beamer@leftmargin\relax\box\beamer@tempbox\hskip0pt minus\beamer@rightmargin\relax}%
	\fi%
	\box\beamer@tempbox%
	\fi%
	\endgroup%
}
\makeatother
\providetranslation{Theorem}{قضیه}
\providetranslation{Definition}{تعریف}
\providetranslation{Example}{مثال}

\raggedleft

\makeatletter
\long\def\beamer@newenvnoopt#1#2#3#4{%
	\expandafter\renewcommand\expandafter<\expandafter>\csname#1\endcsname[#2]{#3}%<- here
	\expandafter\long\expandafter\def\csname end#1\endcsname{#4}%
}
\long\def\beamer@newenvopt#1#2[#3]#4#5{%
	\expandafter\renewcommand\expandafter<\expandafter>\csname#1\endcsname[#2][#3]{#4}%<- here
	\expandafter\long\expandafter\def\csname end#1\endcsname{#5}%
}

\renewcommand<>\beamer@columncom[2][\beamer@colmode]{%
	\beamer@colclose%
	\def\beamer@colclose{\end{minipage}\hfill\end{actionenv}\ignorespaces}%
\begin{actionenv}#3%
\setkeys{beamer@col}{#1}%
\begin{minipage}[\beamer@colalign]{#2}%
	\leavevmode\raggedleft\beamer@colheadskip\ignorespaces}

\renewenvironment<>{columns}[1][]{%
	\begin{actionenv}#2%
		\def\beamer@colentrycode{%
			\hbox to\textwidth\bgroup%
			\leavevmode%
			\hskip-\beamer@leftmargin%
			\nobreak%
			\beamer@tempdim=\textwidth%
			\advance\beamer@tempdim by\beamer@leftmargin%
			\advance\beamer@tempdim by\beamer@rightmargin%
			\hbox to\beamer@tempdim\bgroup%
			\hbox{}\hfill\ignorespaces}%
		\def\beamer@colexitcode{\egroup%
			\nobreak%
			\hskip-\beamer@rightmargin\egroup}%
		\ifbeamer@centered\setkeys{beamer@col}{c}\else\setkeys{beamer@col}{t}\fi%
		\setkeys{beamer@col}{#1}%
		\par%
		\leavevmode\beamer@colentrycode%
		\def\beamer@colclose{}\ignorespaces}%
	{\beamer@colclose\def\beamer@colclose{}\beamer@colexitcode\end{actionenv}}%

\makeatother

\raggedleft
\makeatletter
\expandafter\let\csname beamer@@tmpop@subsection in toc@default\endcsname\relax
\expandafter\let\csname beamer@@tmpop@subsubsection in toc@default\endcsname\relax
\defbeamertemplate*{subsection in toc}{default}
{\leavevmode\rightskip=1.5em\inserttocsubsection\par}

\defbeamertemplate*{subsubsection in toc}{default}
{\leavevmode\normalsize\usebeamerfont{subsection in toc}\rightskip=3em%
	\usebeamerfont{subsubsection in toc}\inserttocsubsubsection\par}
\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{document}
	
	\begin{frame}
		\begin{example}
			برای مثال اول داریم:
			\begin{itemize}
				\item 
				\ptext[1]
			\end{itemize}	
		\end{example}
		\ptext[2]
	\end{frame}

\end{document}