Hi all,
I'm trying to write an application with quadratic buttons of size
200x200. I' trying the following code but my buttons don't get
quadratic. Can anybody help me please?
-- Begin Main.hs
module Main (main) where
import Graphics.UI.WX
main :: IO ()
main = start gui
gui :: IO ()
gui = do
f <- frame [ text := "An application" ]
b <- button f [ text := "Quit", on command := close f,
outerSize := size 200 200 ]
set f [ layout := widget b ]
-- End Main.hs
Thx, Huschi!
|
