diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-09-15 12:23:42 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-15 12:23:42 -0400 |
commit | 56492a2c4801e14de9f195b924bff0b48f68d2c4 (patch) | |
tree | 6a91bb53b96551cfc883f26a56233821d6768f8c /demo/more/grid.ur | |
parent | cbf9a437d79ca88f901d97c4d8881f7d4e711d2d (diff) |
Fixed a Mono_reduce bug, which was breaking selection enabling in Grid
Diffstat (limited to 'demo/more/grid.ur')
-rw-r--r-- | demo/more/grid.ur | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demo/more/grid.ur b/demo/more/grid.ur index 56230c8e..412fe585 100644 --- a/demo/more/grid.ur +++ b/demo/more/grid.ur @@ -143,10 +143,10 @@ functor Make(M : sig <xml><tr class={tr}> <td> <dyn signal={b <- signal grid.Selection; - return (if not b then + return (if b then <xml><ccheckbox source={sd}/></xml> else - <xml>No</xml>)}/> + <xml/>)}/> </td> <td> @@ -200,7 +200,7 @@ functor Make(M : sig (fn [t] meta => meta.Initial) [_] M.aggFolder M.aggregates) grid.Rows; return <xml><tr> - <td/><td/> + <th colspan={3}>Aggregates</th> {foldRX2 [aggregateMeta M.row] [id] [_] (fn [nm :: Name] [t :: Type] [rest :: {Type}] [[nm] ~ rest] meta acc => <xml><td class={agg}>{meta.Display acc}</td></xml>) |