Haskell SOEGraphics窗口不会关闭

Question

我目前正在按照书中的练习:"哈斯克尔表达学校"进行第三章创建图形.本书使用SOEGraphics模块,演示在窗口中绘制一些简单文本,然后按下按钮关闭它.

但是,在编译和执行后,我发现尽管窗口出现了屏幕上的文本,但无论我按哪个键或者焦点是在命令行还是窗口本身,窗口都会拒绝关闭.

以下是本书的源代码:

module Main where
import SOE
main =  runGraphics(
        do  w <- openWindow
                "My First Graphics Program" (300, 300)
            drawInWindow w (text(100,200) "HelloGraphicsWorld")
            k <- getKey w
            closeWindow w
        )

让窗口关闭的唯一方法是强制它使用CTRL-C退出.我的代码中是否有一些我忽略的东西？该程序使用GHC 7.4.1编译,并在Ubuntu上运行.

Answer 1

尝试getKeyChar而不是getKey. 某些操作系统中的首选使用方法和/或行为似乎发生了变化。