diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-01-26 08:46:25 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-01-26 08:46:25 -0500 |
| commit | 0bc86f33a7812d38240071378f938ec36a89a6b4 (patch) | |
| tree | bea9c98934bf043ac30f998f268f0d772a68ece7 /lib/ur/basis.urs | |
| parent | 7ed5deb4aa0f7c9a61133a489f0d00e73d95c225 (diff) | |
<img> has dimensions and needs special HTML handling
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index ea50b0b3..fe7119a4 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -654,7 +654,8 @@ val hr : bodyTag boxAttrs val a : bodyTag ([Link = transaction page, Href = url] ++ boxAttrs) -val img : bodyTag ([Src = url, Onabort = transaction unit, Onerror = transaction unit, +val img : bodyTag ([Src = url, Width = int, Height = int, + Onabort = transaction unit, Onerror = transaction unit, Onload = transaction unit] ++ boxAttrs) val form : ctx ::: {Unit} -> bind ::: {Type} |