Mercurial > gui

view examples/datebox.ur @ 12:bbdedfde154e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a calendar control.
author Karn Kallio <kkallio@eka>
date Thu, 28 Jul 2011 10:24:34 -0430
parents
children 0827320b0f04
line wrap: on
line source
fun main () =

tm <- now;

dayCtl <- Datebox.createCalendarCtl tm;

return
    <xml>
      <head><title>Datebox Example</title></head>
      <body>
        {Datebox.renderCalendarCtl (fn (d : Datebox.date) => alert (show d.Year)) dayCtl}
      </body>
    </xml>