Mercurial > urweb
diff demo/more/grid1.ur @ 930:51bc7681c47e
Nullable columns *might* be working, but too much JS is generated for the page to load in finite time
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 12 Sep 2009 15:08:16 -0400 |
| parents | 0a91c6ee7eec |
| children | be6585b4058b |
line wrap: on
line diff
--- a/demo/more/grid1.ur Sat Sep 12 10:36:17 2009 -0400 +++ b/demo/more/grid1.ur Sat Sep 12 15:08:16 2009 -0400 @@ -4,11 +4,11 @@ PRIMARY KEY Id sequence s -table t : {Id : int, A : int, B : string, C : bool, D : int} +table t : {Id : int, A : int, B : string, C : bool, D : int, E : option int} PRIMARY KEY Id, CONSTRAINT Foreign FOREIGN KEY (D) REFERENCES t1(Id) ON DELETE CASCADE -fun page (n, s) = return <xml>A = {[n]}, B = {[s]}</xml> +(*fun page (n, s) = return <xml>A = {[n]}, B = {[s]}</xml>*) open Make(struct val tab = t @@ -23,6 +23,8 @@ C = {New = return False, Inj = _}, D = {New = return 0, + Inj = _}, + E = {New = return None, Inj = _}} structure F = Direct.Foreign(struct @@ -34,10 +36,11 @@ val cols = {Id = Direct.readOnly [#Id] ! "Id" Direct.int, A = Direct.editable [#A] ! "A" Direct.int, B = Direct.editable [#B] ! "B" Direct.string, - C = Direct.editable [#C] ! "C" Direct.bool, + C = Direct.editable [#C] ! "C" Direct.bool(*, D = Direct.editable [#D] ! "D" F.meta, + E = Direct.editable [#E] ! "E" (Direct.nullable Direct.int), DA = computed "2A" (fn r => 2 * r.A), - Link = computedHtml "Link" (fn r => <xml><a link={page (r.A, r.B)}>Go</a></xml>)} + Link = computedHtml "Link" (fn r => <xml><a link={page (r.A, r.B)}>Go</a></xml>)*)} end) fun main () =