我一直在尝试解决以下问题：我需要在应用程序运行时在Haskell应用程序中使用OpenGL创建绘图区域。在实际应用中，绘图区域将位于笔记本选项卡中（并且可以有多个）。
直接显示在显示顶级窗口之前初始化的绘图区域。但是，当我尝试将该区域放入之后的窗口时，它已被显示并实现，我无法再实际绘制到绘图区域。我得到的只是一个充满背景色的大区域。
我已经能够将问题简化为一个相当小的例子，我上传了here。在此，单击按钮时会创建绘图区域。里面应该有一个白色的盒子，里面没有。
如何解决此问题以及导致此问题的原因是什么？