Mercurial > gui
diff examples/popup.ur @ 7:48a4180171b0
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 |
line wrap: on
line diff
--- a/examples/popup.ur Tue Apr 26 20:27:04 2011 -0430 +++ b/examples/popup.ur Fri May 06 23:00:22 2011 -0430 @@ -8,7 +8,8 @@ val testNav' = navAdd (mkNavItem "item 3" (bless "http://item3.org")) testNav -val otherFormat = {FormatMenu = fn ctl menu => <xml><h3>A Custom {ctl} Format</h3><ul>{menu}</ul></xml>, +val otherFormat = {FormatMenu = fn ctl menu => <xml><h3>A Custom {ctl} Format</h3>{menu}</xml>, + WrapMenu = fn menu => <xml><div><ul>{menu}</ul></div></xml>, OpenCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>View</a></xml>, CloseCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>Hide</a></xml>}