Mercurial > urweb

changeset 2157:9c8016d99969

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add HTML 'align' attribute
author Adam Chlipala <adam@chlipala.net>
date Thu, 02 Jul 2015 13:02:37 -0400
parents d857da05f042
children b90103106177
files lib/ur/basis.urs tests/align.ur
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lib/ur/basis.urs	Thu Jul 02 12:42:49 2015 -0400
+++ b/lib/ur/basis.urs	Thu Jul 02 13:02:37 2015 -0400
@@ -851,8 +851,8 @@
 con boxEvents = focusEvents ++ mouseEvents ++ keyEvents ++ resizeEvents ++ scrollEvents
 con tableEvents = focusEvents ++ mouseEvents ++ keyEvents
 
-con boxAttrs = [Data = data_attr, Id = id, Title = string, Role = string] ++ boxEvents
-con tableAttrs = [Data = data_attr, Id = id, Title = string] ++ tableEvents
+con boxAttrs = [Data = data_attr, Id = id, Title = string, Role = string, Align = string] ++ boxEvents
+con tableAttrs = [Data = data_attr, Id = id, Title = string, Align = string] ++ tableEvents
 
 val span : bodyTag boxAttrs
 val div : bodyTag boxAttrs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/align.ur	Thu Jul 02 13:02:37 2015 -0400
@@ -0,0 +1,4 @@
+fun main () : transaction page = return <xml><body>
+  <p align="left">Left</p>
+  <p align="right">Right</p>
+</body></xml>