SHARE
TWEET

Mads Lindstrom

a guest Aug 30th, 2008 50 Never
  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.                 ]
RAW Paste Data
Top