Mercurial > gui
diff examples/datebox.ur @ 15:8300d5f0dc19
Replace ChangePoller with SourceL, plus some other rearrangements
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 07 Aug 2011 14:38:52 -0400 |
parents | 0827320b0f04 |
children | 554e342665fe |
line wrap: on
line diff
--- a/examples/datebox.ur Fri Aug 05 18:55:24 2011 -0430 +++ b/examples/datebox.ur Sun Aug 07 14:38:52 2011 -0400 @@ -4,7 +4,7 @@ dayCtl <- Datebox.create tm; -load <- return (Datebox.addListener (fn d => alert (show d.Day)) dayCtl); +load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day))); return <xml>