powerdot with beamerboxesrounded

pdwithbmb.tex

\documentclass{powerdot}

\makeatletter
\newif\ifbmb@shadow
\newdimen\beamer@lastskip
\let\beamer@colorhook\relax
\newcount\beamer@coveringdepth
\def\beamer@lastminutepatches{}
\makeatother

\usepackage{xxcolor,pgfcore} % required
\usepackage{beamerbasercs,beamerbasemodes,beamerbasecolor,beamerbaseboxes,beamerbasethemes} % from beamer
\usecolortheme{default}

% definition of block environments
\newenvironment{block}[2][]{\beamerboxesrounded[#1]{#2}}{\endbeamerboxesrounded}
\newenvironment{exampleblock}[2][]{\block[#1,upper=block title example,lower=block body example]{#2}}{\endblock}
\newenvironment{alertblock}[2][]{\block[#1,upper=block title alerted,lower=block body alerted]{#2}}{\endblock}

% select color theme
\usecolortheme{rose}

\begin{document}

\begin{slide}{Slide}
  \begin{block}[shadow]{Test 1}
    test
  \end{block}
  \begin{exampleblock}[shadow]{Test 2}
    test
  \end{exampleblock}
  \begin{alertblock}[shadow]{Test 3}
    test
  \end{alertblock}
\end{slide}

\end{document}