wxHaskell：window 显得太小

Question

我在 haskell 中有一个小程序，使用 wxhaskell。它显示一个 window，里面有一个面板，包含一些图纸。问题是 window 缩小到非常小的尺寸，我必须用鼠标将它展开。

如何正确定义尺寸？

这是我的程序：

module Main where
import Graphics.UI.WX
import Graphics.UI.WXCore

main :: IO ()
main
  = start hello

hello :: IO ()
hello = do 
        f    <- frame    [text := "HELLO!"]
        sw <- panel f [ on paint := onpaint]
        set f   [clientSize  := sz 300 300,
                layout := fill $ widget sw]
        return()

    where 
        onpaint dc pnel = do 
            circle dc (pt 200 200) 20 [penKind := PenDash DashDot]
            drawPoint dc (pt 200 200) []

谢谢。

Answer 1

设置最小大小而不是客户端大小

set f [ layout := minsize (sz 300 300) $ widget sw ]

适合我。

wxHaskell：window 显得太小

wxHaskell : the window appears too tiny

user-interface

wxwidgets

haskell

wxhaskell