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
                ]