Sstrhsrtj

Based on this question here How to reduce frame title box size in a special case frametitle is flushright but text direction is LTR not RTL although i add textarabic{test}

% !TeX TS-program = xelatex



documentclass{beamer}





mode<presentation>



useinnertheme[shadow=true]{rounded}

%useoutertheme{shadow}

usecolortheme{orchid}

usecolortheme{whale}



setbeamerfont{block title}{size={}}



mode

<all>





author{diabonas}

title{Frame border}

setbeamertemplate{background canvas}{%

{color{black}rule{3pt}{paperheight}hspace*{dimexprpaperwidth-6ptrelax}rule{10pt}{paperheight}}%    

}



makeatletter

mode<presentation>



useoutertheme{split}





setbeamercolor{frametitle}{parent=subsection in head/foot}

setbeamercolor{frametitle right}{parent=section in head/foot}





pgfdeclarehorizontalshading[frametitle.bg,frametitle right.bg]{beamer@frametitleshade}{paperheight}{%

  color(0pt)=(frametitle right.bg);

  color(paperwidth)=(frametitle.bg)}



AtBeginDocument{

  pgfdeclareverticalshading{beamer@topshade}{.982paperwidth}{%

    color(0pt)=(bg);

    color(4pt)=(black!50!bg)}

}



addtobeamertemplate{headline}

{}

{%

  vskip-0.2pt

  hskippaperwidthhskip-0.11cmpgfuseshading{beamer@topshade}

  vskip-2pt

}





defbeamertemplate*{frametitle}{shadow theme}

{%

    selectlanguage{english}%

  nointerlineskip%

  vskip-2pt%

  hbox{leavevmode

    advancebeamer@leftmargin by -12bp%

    advancebeamer@rightmargin by -12bp%

    beamer@tempdim=textwidth%

    advancebeamer@tempdim by beamer@leftmargin%

    advancebeamer@tempdim by beamer@rightmargin%

    hskip-Gm@lmarginhbox{%

      setboxbeamer@tempbox=hbox{begin{minipage}[b]{paperwidth}%

          vbox{}vskip-.75ex% <- was 0.75ex

          leftskip0.3cm%

          rightskip0.6cm plus1filleavevmode

          usebeamercolor[fg]{frametitle}usebeamerfont{frametitle}struthfillotherlanguage{arabic}{insertframetitle}par%

          ifxinsertframesubtitle@emptyelse%

            {usebeamerfont*{framesubtitle}{usebeamercolor[fg]{framesubtitle}insertframesubtitle}strutpar}%

          fi%

          nointerlineskip

          vbox{}%

          end{minipage}}%

      beamer@tempdim=htbeamer@tempbox%

      advancebeamer@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%

      boxbeamer@tempbox%

    }%

    hskip-Gm@rmargin%

  }%

  nointerlineskip

    vskip-0.2pt

    hbox totextwidth{hskip-0.885cmpgfuseshading{beamer@topshade}hskip-Gm@rmargin}

    vskip-2pt

}







mode

<all>



makeatother

usepackage{fontspec}

usepackage{polyglossia}

setdefaultlanguage[numerals=maghrib, calendar=gregorian]{arabic}

setotherlanguage{english}

newfontfamilyarabicfont[Script=Arabic]{Arial}

newfontfamilyarabicfontsf[Script=Arabic]{Arial}

newfontfamilyarabicfonttt[Script=Arabic]{Arial}

newfontfamilyamiri[Script=Arabic]{Arial}



begin{document}

begin{frame}{This frametitle should be right to left}

frame

end{frame}

frame{Content}

begin{frame}

content

end{frame}

section{test}

begin{frame}{Content}

content

end{frame}

section{test2}

end{document} 

Try something like this:

% !TeX TS-program = xelatex



documentclass{beamer}





mode<presentation>



useinnertheme[shadow=true]{rounded}

%useoutertheme{shadow}

usecolortheme{orchid}

usecolortheme{whale}



setbeamerfont{block title}{size={}}



mode

<all>





author{diabonas}

title{Frame border}

setbeamertemplate{background canvas}{%

{color{black}rule{3pt}{paperheight}hspace*{dimexprpaperwidth-6ptrelax}rule{10pt}{paperheight}}%    

}



makeatletter

mode<presentation>



useoutertheme{split}





setbeamercolor{frametitle}{parent=subsection in head/foot}

setbeamercolor{frametitle right}{parent=section in head/foot}





pgfdeclarehorizontalshading[frametitle.bg,frametitle right.bg]{beamer@frametitleshade}{paperheight}{%

  color(0pt)=(frametitle right.bg);

  color(paperwidth)=(frametitle.bg)}



AtBeginDocument{

  pgfdeclareverticalshading{beamer@topshade}{.982paperwidth}{%

    color(0pt)=(bg);

    color(4pt)=(black!50!bg)}

}



addtobeamertemplate{headline}

{}

{%

  vskip-0.2pt

  hskippaperwidthhskip-0.11cmpgfuseshading{beamer@topshade}

  vskip-2pt

}





defbeamertemplate*{frametitle}{shadow theme}

{%

%    selectlanguage{english}%

  nointerlineskip%

  vskip-2pt%

  hbox{leavevmode

    advancebeamer@leftmargin by -12bp%

    advancebeamer@rightmargin by -12bp%

    beamer@tempdim=textwidth%

    advancebeamer@tempdim by beamer@leftmargin%

    advancebeamer@tempdim by beamer@rightmargin%

    hskip-Gm@lmarginhbox{%

      setboxbeamer@tempbox=hbox{begin{minipage}[b]{paperwidth}%

          vbox{}vskip-.75ex% <- was 0.75ex

%          leftskip0.3cm%

          rightskip0.3cm 

%          leavevmode

          usebeamercolor[fg]{frametitle}usebeamerfont{frametitle}strutinsertframetitlepar%

          ifxinsertframesubtitle@emptyelse%

            {usebeamerfont*{framesubtitle}{usebeamercolor[fg]{framesubtitle}insertframesubtitle}strutpar}%

          fi%

          nointerlineskip

          vbox{}%

          end{minipage}}%

      beamer@tempdim=htbeamer@tempbox%

      advancebeamer@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%

      boxbeamer@tempbox%

    }%

    hskip-Gm@rmargin%

  }%

  nointerlineskip

    vskip-0.2pt

    hbox totextwidth{hskip-0.885cmpgfuseshading{beamer@topshade}hskip-Gm@rmargin}

    vskip-2pt

}







mode

<all>



makeatother

usepackage{fontspec}

usepackage{polyglossia}

setdefaultlanguage[numerals=maghrib, calendar=gregorian]{arabic}

setotherlanguage{english}

newfontfamilyarabicfont[Script=Arabic]{Arial}

newfontfamilyarabicfontsf[Script=Arabic]{Arial}

newfontfamilyarabicfonttt[Script=Arabic]{Arial}

newfontfamilyamiri[Script=Arabic]{Arial}



begin{document}



section{section name}



begin{frame}

frametitle{This frametitle should be right to left}

frame

end{frame}



end{document}