Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- main :: IO ()
- main = start $
- do w <- frame []
- p <- panel w []
- en <- intEntry p []
- set en [ on click := \x -> print x >> propagateEvent ]
- set w [ layout := container p $ row 10 [ widget en, glue ]
- , size := Size 300 300
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement