diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-11-22 15:30:15 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-11-22 15:30:15 -0500 |
| commit | 1da43b401a4ebcd11ea4bd568326ec70fa1cc3b9 (patch) | |
| tree | cebfef1afa9861c1cc5fb5263cc438406e0f28a0 /demo | |
| parent | ba9cbd82cbd87250308519ae0d9570959d53d75b (diff) | |
grid0 working in IE
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/more/grid0.ur | 34 | ||||
| -rw-r--r-- | demo/more/grid0.urp | 7 |
2 files changed, 41 insertions, 0 deletions
diff --git a/demo/more/grid0.ur b/demo/more/grid0.ur new file mode 100644 index 00000000..3e3d27ab --- /dev/null +++ b/demo/more/grid0.ur @@ -0,0 +1,34 @@ +open Dbgrid + +sequence s +table t : {Id : int, A : int} + PRIMARY KEY Id + +open Make(struct + val tab = t + con key = [Id = _] + + val raw = {Id = {New = nextval s, + Inj = _}, + A = {New = return 0, + Inj = _}} + + val cols = {Id = Direct.readOnly [#Id] ! "Id" Direct.int, + A = Direct.editable [#A] ! "A" Direct.int} + + val aggregates = {} + + val pageLength = None + end) + +fun main () = + grid <- grid; + set (showSelection grid) True; + return <xml> + <head> + <link rel="stylesheet" type="text/css" href="../../grid.css"/> + </head> + <body onload={sync grid}> + {render grid} + </body> + </xml> diff --git a/demo/more/grid0.urp b/demo/more/grid0.urp new file mode 100644 index 00000000..2cb16ec9 --- /dev/null +++ b/demo/more/grid0.urp @@ -0,0 +1,7 @@ +debug +database dbname=test +library grid +sql grid0.sql +allow url ../../grid.css + +grid0 |