在 Beamer Block/BeamerColorBox 内粘合

Question

如何才能实现投影仪内的胶水block或beamercolorbox对其外部的间距需求做出反应？在下面的满载幻灯片中，人们会期望胶水收缩到 0，但事实并非如此。

\documentclass{beamer}
\usepackage{lipsum}

\begin{document}
\begin{frame}
\frametitle{Glue in box}
\begin{block}{Theorem}
Some text
\vskip30pt minus 30pt
More text
\end{block}
\lipsum[1]
\end{frame}
\end{document}