Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

13 lines (10 sloc) 0.341 kB
import Graphics.UI.WX
bugtext = "Bug: clicking this button\n"
++ "(which closes the window)\n"
++ "causes a crash"
main = start f >> start f
where
f = do w <- frame []
b <- button w [ text := "Crash me" , on command := close w ]
set w [ layout := fill $ column 2 [ label bugtext, widget b ] ]
return ()
Jump to Line
Something went wrong with that request. Please try again.