Mercurial > gui

view examples/datebox.ur @ 14:0827320b0f04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Write calendarCtl in terms of a source with a listener.
author Karn Kallio <kkallio@eka>
date Fri, 05 Aug 2011 18:55:24 -0430
parents bbdedfde154e
children 8300d5f0dc19
line wrap: on
line source
fun main () =

tm <- now;

dayCtl <- Datebox.create tm;

load <- return (Datebox.addListener (fn d => alert (show d.Day)) dayCtl);

return
    <xml>
      <head><title>Datebox Example</title></head>
      <body onload={load}>
        {Datebox.render dayCtl}
      </body>
    </xml>