annotate examples/togglepanel.ur @ 31:b5432d74841a

Update for key/mouse handler change
author Adam Chlipala <adam@chlipala.net>
date Sat, 21 Jul 2012 10:15:14 -0400
parents 93140c5cc972
children
rev   line source
kkallio@8 1 open Gui
kkallio@8 2 open TogglePanel
kkallio@8 3
kkallio@8 4 val defaultContent : xbody = <xml><p>Here I am inside the panel.<br/><b>Default format</b></p></xml>
kkallio@8 5 val otherContent : xbody = <xml><p>Here I am inside the panel.<br/><b>Other format</b></p></xml>
kkallio@8 6
adam@29 7 val otherFormat = fn [[Dyn] ~ body'] =>
adam@20 8 {FormatPanel = fn ctl panel => <xml><span>A Custom {ctl} Format</span>{panel}</xml>,
adam@20 9 OpenCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>View</a></xml>,
adam@20 10 CloseCtl = fn behaviour => <xml><a href={bless "http://#"} onclick={behaviour}>Hide</a></xml>}
kkallio@8 11
kkallio@8 12 fun main () =
kkallio@8 13
adam@20 14 defaultFormatPanel <- create @defaultFormat defaultContent True;
adam@20 15 otherFormatPanel <- create @otherFormat otherContent False;
kkallio@8 16
kkallio@8 17 return <xml>
kkallio@8 18 <head>
kkallio@8 19 <title>A panel that can be shown or hidden.</title>
kkallio@8 20 </head>
kkallio@8 21 <body>
kkallio@8 22 <h1>Example using the togglePanel widget.</h1>
kkallio@8 23 <p>
kkallio@8 24 This is a widget which has a content display panel
kkallio@8 25 which can be shown or hidden.
kkallio@8 26 </p>
kkallio@8 27 <h2>Example of the default format, starting open.</h2>
kkallio@8 28 <p>
kkallio@8 29 {toXml defaultFormatPanel}
kkallio@8 30 </p>
kkallio@8 31 <h2>Example of another format, starting closed.</h2>
kkallio@8 32 <p>
kkallio@8 33 {toXml otherFormatPanel}
kkallio@8 34 </p>
kkallio@8 35 </body>
kkallio@8 36 </xml>