Mercurial > gui

view select.ur @ 11:ccd0a169e827

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clock corrects for skew, so that it matches server time (if an RPC round-trips fast enough)
author Adam Chlipala <adam@chlipala.net>
date Sun, 24 Jul 2011 14:51:16 -0400
parents 4d8165e8f89a
children
line wrap: on
line source
fun crender r =
    <xml><cselect source={r.Selected}>
      {List.mapX (fn r' => <xml><coption value={r'.Key}>{[r'.Display]}</coption></xml>) r.Choices}
    </cselect></xml>

fun crender' r =
    <xml><cselect source={r.Selected}>
      {List.mapX (fn s => <xml><coption>{[s]}</coption></xml>) r.Choices}
    </cselect></xml>