>>465 w :: Frame b :: Button t :: TextBox l :: Label pushEvent :: Button -> Event () text :: Prop w String bgcolor :: Prop w Color enable :: Prop w Bool
w <- frame [text := const "hoge", show := const () <$> createEvent w] t <- textbox [bgcolor := changeColor <$> pushEvent b] l <- label w [text := changeString <$> pushEvent b] b <- button w [enable := const False <$> pushEvent b]
