Mercurial > gui

comparison examples/popup.ur @ 7:48a4180171b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Shifted some more generic theme navigation code to the library. Also generalized formatting options a bit for popupNav.
author Karn Kallio <kkallio@eka>
date Fri, 06 May 2011 23:00:22 -0430
parents f17b869fbb71
children
comparison
equal deleted inserted replaced
6:f17b869fbb71 7:48a4180171b0
6 emptyNavBar) 6 emptyNavBar)
7 7
8 val testNav' = navAdd (mkNavItem "item 3" (bless "http://item3.org")) 8 val testNav' = navAdd (mkNavItem "item 3" (bless "http://item3.org"))
9 testNav 9 testNav
10 10
11 val otherFormat = {FormatMenu = fn ctl menu => <xml><h3>A Custom {ctl} Format</h3><ul>{menu}</ul></xml>, 11 val otherFormat = {FormatMenu = fn ctl menu => <xml><h3>A Custom {ctl} Format</h3>{menu}</xml>,
12 WrapMenu = fn menu => <xml><div><ul>{menu}</ul></div></xml>,
12 OpenCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>View</a></xml>, 13 OpenCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>View</a></xml>,
13 CloseCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>Hide</a></xml>} 14 CloseCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>Hide</a></xml>}
14 15
15 16
16 fun main () = 17 fun main () =