Mercurial > gui

comparison 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
comparison
equal deleted inserted replaced
14:0827320b0f04 15:8300d5f0dc19
2 2
3 tm <- now; 3 tm <- now;
4 4
5 dayCtl <- Datebox.create tm; 5 dayCtl <- Datebox.create tm;
6 6
7 load <- return (Datebox.addListener (fn d => alert (show d.Day)) dayCtl); 7 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day)));
8 8
9 return 9 return
10 <xml> 10 <xml>
11 <head><title>Datebox Example</title></head> 11 <head><title>Datebox Example</title></head>
12 <body onload={load}> 12 <body onload={load}>