summaryrefslogtreecommitdiff
path: root/demo/more/grid0.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/grid0.ur')
-rw-r--r--demo/more/grid0.ur34
1 files changed, 34 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>