有没有办法控制Perl Tk :: TopLevel调整大小行为？

Question

我正在构建Perl Tk应用程序。

应用程序的主窗口包含许多使用pack几何管理器组织的小部件。

当用户调整TopLevel窗口大小（用鼠标移动右下角）时，会不断重新绘制TopLevel窗口小部件。这导致了一个非常好的＆＃34;窗口重新调整行为。

在用户释放鼠标按钮之前，有没有办法阻止TopLevel重绘行为？ （然后才根据新尺寸重新绘制小部件？）

我查看了Perl Tk:Wm，Tk:TopLevel文件，但没有找到相关信息。