Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Mads Lindstrom

By: a guest on Aug 30th, 2008  |  syntax: Haskell  |  size: 0.30 KB  |  views: 50  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. main :: IO ()
  2. main = start $
  3.        do w  <- frame []
  4.           p <- panel w []
  5.           en <- intEntry p []
  6.           set en [ on click := \x -> print x >> propagateEvent ]
  7.           set w [ layout := container p $ row 10 [ widget en, glue ]
  8.                 , size := Size 300 300
  9.                 ]