<image>

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index cabac068..ece4bfef 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -797,6 +797,12 @@ val submit : ctx ::: {Unit} -> use ::: {Type}
                    -> tag ([Value = string, Action = $use -> transaction page] ++ boxAttrs)
                           ([Form] ++ ctx) ([Form] ++ ctx) use []
 
+val image : ctx ::: {Unit} -> use ::: {Type}
+             -> [[Form] ~ ctx] =>
+                   unit
+                   -> tag ([Src = url, Width = int, Height = int, Alt = string, Action = $use -> transaction page] ++ boxAttrs)
+                          ([Form] ++ ctx) ([Form] ++ ctx) use []
+
 val label : bodyTag ([For = string, Accesskey = string] ++ tableAttrs)