Mercurial > urweb

comparison demo/more/grid0.ur @ 1039:8932f855fa85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
grid0 working in IE
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Nov 2009 15:30:15 -0500
parents
children f0afe61a6f8b
comparison
equal deleted inserted replaced
1038:dcc6093e9575 1039:8932f855fa85
1 open Dbgrid
2
3 sequence s
4 table t : {Id : int, A : int}
5 PRIMARY KEY Id
6
7 open Make(struct
8 val tab = t
9 con key = [Id = _]
10
11 val raw = {Id = {New = nextval s,
12 Inj = _},
13 A = {New = return 0,
14 Inj = _}}
15
16 val cols = {Id = Direct.readOnly [#Id] ! "Id" Direct.int,
17 A = Direct.editable [#A] ! "A" Direct.int}
18
19 val aggregates = {}
20
21 val pageLength = None
22 end)
23
24 fun main () =
25 grid <- grid;
26 set (showSelection grid) True;
27 return <xml>
28 <head>
29 <link rel="stylesheet" type="text/css" href="../../grid.css"/>
30 </head>
31 <body onload={sync grid}>
32 {render grid}
33 </body>
34 </xml>