beamer-rl (3may19)

git-svn-id: svn://tug.org/texlive/trunk@50970 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 46 insertions, 26 deletions

diff --git a/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.sty b/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.sty
index 55886644c92..b476c58fb0e 100644
--- a/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.sty
+++ b/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.sty
@@ -1,6 +1,8 @@
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{beamer-rl}
-[2019/03/28 v1.1 LaTeX package to patch beamer for right to left presentation]
+[2019/04/03 v1.2 LaTeX package to patch beamer for right to left presentation]
+
+\RequirePackage[nil,bidi=basic-r,layout=counters.lists.tabular]{babel}
 
 \def\reset@temp#1#2{\expandafter\let\csname beamer@@tmpop@#1@#2\endcsname\relax}
 \def\@@defbeamertemplate#1#2{\reset@temp{#1}{#2}\defbeamertemplate{#1}{#2}}
@@ -10,8 +12,14 @@
 	\@ifstar{\@defbeamertemplate}{\@@defbeamertemplate}%
 }
 
-\let\blackTriangleright\blacktriangleright
-\let\blacktriangleright\blacktriangleleft
+\let\old@blacktriangleright\blacktriangleright
+\let\old@blacktriangleleft\blacktriangleleft
+
+\def\blacktriangleright{%
+	\ifcase\bbl@thepardir \old@blacktriangleright\else\old@blacktriangleleft\fi}
+\def\blacktriangleleft{%
+	\ifcase\bbl@thepardir \old@blacktriangleleft\else\old@blacktriangleright\fi}
+
 
 \let\oldpgfpicture\pgfpicture
 \let\oldendpgfpicture\endpgfpicture
@@ -22,6 +30,9 @@
 \let\oldpgfuseshading\pgfuseshading
 \def\pgfuseshading#1{\babelsublr{\oldpgfuseshading{#1}}}
 
+\hypersetup{unicode}
+
+
 %% beamerbasebox 
 
 \newdimen\bmb@dimc
@@ -235,7 +246,7 @@
 %% beamerbaseauxtemplates
 
 
-% (sub-)section in toc: ball
+% (sub-)section in toc: subsections numbered
 
 \redefbeamertemplate{subsection in toc}{subsections numbered}
 {\leavevmode\leftskip=2em\rlap{\hskip-2em \inserttocsectionnumber\hbox{.}\inserttocsubsectionnumber}\inserttocsubsection\par}
@@ -291,26 +302,38 @@
 	\kern4pt%
 }
 
-
 %% beamerbasenavigation
 
 % User Buttons
 
 \pgfdefobject{beamergotosymbol}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{5pt}{5pt}}
 {
+	\pgfpathqmoveto{1.5bp}{0.5bp}
+	\pgfpathqlineto{3.5bp}{2bp}
+	\pgfpathqlineto{1.5bp}{3.5bp}
+	\pgfusepathqfill
+}
+
+\def\insertgotosymbol{%
+	\begin{pgfpicture}{1pt}{0pt}{6pt}{5pt}
+		\pgfuseobject{\ifcase\bbl@thepardir beamergotosymbol\else beamerreturnsymbol\fi}%
+\end{pgfpicture}}
+
+\pgfdefobject{beamerreturnsymbol}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{5pt}{5pt}}
+{
 	\pgfpathqmoveto{3.5bp}{0.5bp}
 	\pgfpathqlineto{1.5bp}{2bp}
 	\pgfpathqlineto{3.5bp}{3.5bp}
 	\pgfusepathqfill
 }
 
-
-\def\insertgotosymbol{%
-	\begin{pgfpicture}{-1pt}{0pt}{4pt}{5pt}
-		\pgfuseobject{beamergotosymbol}%
+\def\insertreturnsymbol{%
+	\begin{pgfpicture}{1pt}{0pt}{6pt}{5pt}
+		\pgfuseobject{\ifcase\bbl@thepardir beamerreturnsymbol\else beamergotosymbol\fi}%
 \end{pgfpicture}}
 
-\pgfdefobject{beamerskipsymbol}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{7pt}{5pt}}
+
+\pgfdefobject{beamerskipsymbolrl}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{7pt}{5pt}}
 {
 	\pgfpathqmoveto{3.5bp}{0.5bp}
 	\pgfpathqlineto{1.5bp}{2bp}
@@ -321,34 +344,32 @@
 	\pgfusepathqfill
 }
 
-\def\insertskipsymbol{%
-	\begin{pgfpicture}{-1pt}{0pt}{8pt}{5pt}
-		\pgfuseobject{beamerskipsymbol}%
-\end{pgfpicture}}
-
-
-\pgfdefobject{beamerreturnsymbol}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{5pt}{5pt}}
+\pgfdefobject{beamerskipsymbol}{\pgfpoint{0pt}{-1pt}}{\pgfpoint{7pt}{5pt}}
 {
 	\pgfpathqmoveto{1.5bp}{0.5bp}
 	\pgfpathqlineto{3.5bp}{2bp}
 	\pgfpathqlineto{1.5bp}{3.5bp}
+	\pgfpathqmoveto{3.5bp}{0.5bp}
+	\pgfpathqlineto{5.5bp}{2bp}
+	\pgfpathqlineto{3.5bp}{3.5bp}
 	\pgfusepathqfill
 }
 
-\def\insertreturnsymbol{%
+\def\insertskipsymbol{%
 	\begin{pgfpicture}{-1pt}{0pt}{6pt}{5pt}
-		\pgfuseobject{beamerreturnsymbol}%
+		\pgfuseobject{\ifcase\bbl@thepardir beamerskipsymbol\else beamerskipsymbolrl\fi}%
 \end{pgfpicture}}
 
+\def\beamergotobutton#1{\beamerbutton{\insertgotosymbol\ #1}}
+\def\beamerreturnbutton#1{\beamerbutton{\insertreturnsymbol\ #1}}
+\def\beamerskipbutton#1{\beamerbutton{\insertskipsymbol\ #1}}
 
 %% beamerbaseframesize
 
-
 %
 % Zoom stuff
 %
 
-\def\framezoom<#1><#2>{\@ifnextchar[{\beamer@framezoom<#1><#2>}{\beamer@framezoom<#1><#2>[]}}
 \def\beamer@framezoom<#1><#2>[#3](#4,#5)(#6,#7){%
 	\par\nointerlineskip%
 	\global\beamer@slidehaszoomtrue%
@@ -370,6 +391,7 @@
 		\global\setbox\beamer@zoombox=\vbox to0pt{\unvbox\beamer@zoombox\box\@tempboxa}%
 	}%
 	\only<#2>{%
+		\pardir TLT% 
 		\@ifundefined{\beamer@labelzoomed}%
 		{%
 			\hypertarget{\beamer@labelzoomed}{}%
@@ -413,12 +435,10 @@
 			\dp\@tempboxa=0pt%
 			\setbox\beamer@framebox=\vbox to\beamer@frametextheight{{%
 					\ifbeamer@plainframe\beamer@leftmargin=\Gm@lmargin\fi%
-					\let\pgfpicture\oldpgfpicture
-					\let\endpgfpicture\oldendpgfpicture
-					\textdir TLT
+					\pardir TLT% 
 					\begin{pgfpicture}{\beamer@leftmargin}{-\beamer@frametextheight}{\beamer@leftmargin}{0pt}
 						\pgftext[left,top]{\box\@tempboxa}
-						\pgfpathrectangle{\pgfpoint{-\@tempdimb}{-\@tempdimc}}{\pgfpoint{\@tempdimb}{\@tempdimc}}%
+						\pgfpathrectangle{\pgfpoint{0pt}{-\@tempdimc}}{\pgfpoint{\@tempdimb}{\@tempdimc}}%
 						\pgfusepath{clip}
 						\begingroup
 						\pgftransformscale{\beamer@temp}
@@ -431,7 +451,7 @@
 			}}%
 			
 			\setbox\beamer@framebox=\vbox{%
-				\nobreak\vbox{}\nobreak\par\nobreak\beamer@entrycode\nobreak%
+	            \nobreak\vbox{}\nobreak\par\nobreak\beamer@entrycode\nobreak%
 				\nointerlineskip\unvbox\beamer@frametitlebox%
 				\nobreak%
 				\box\beamer@framebox %