intEntry :: Window w -> [Prop IntEntry] -> IO IntEntry
intEntry = compose $ \p ->
    do intEn <- textEntry p [ processEnter := True
                            , on anyKey := handleInput
                            , text := "0"
                            , on mouse := \evt -> do putStrLn "In intEntry mouse event handler"
                                                     evtHandler <- get p (on mouse)
                                                     evtHandler evt
                            ]
...