Mercurial > gui

diff examples/datebox.ur @ 15:8300d5f0dc19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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>