comparison lib/ur/basis.urs @ 1560:63311c13d9f7

Added 'target' attribute for 'a' tag.
author Vladimir Shabanov <vshabanoff@gmail.com>
date Mon, 12 Sep 2011 00:43:41 +0400
parents df6a7a22760a
children 5691ec310618
comparison
equal deleted inserted replaced
1559:df6a7a22760a 1560:63311c13d9f7
728 val ol : bodyTag boxAttrs 728 val ol : bodyTag boxAttrs
729 val ul : bodyTag boxAttrs 729 val ul : bodyTag boxAttrs
730 730
731 val hr : bodyTag boxAttrs 731 val hr : bodyTag boxAttrs
732 732
733 val a : bodyTag ([Link = transaction page, Href = url] ++ boxAttrs) 733 val a : bodyTag ([Link = transaction page, Href = url, Target = string] ++ boxAttrs)
734 734
735 val img : bodyTag ([Alt = string, Src = url, Width = int, Height = int, 735 val img : bodyTag ([Alt = string, Src = url, Width = int, Height = int,
736 Onabort = transaction unit, Onerror = transaction unit, 736 Onabort = transaction unit, Onerror = transaction unit,
737 Onload = transaction unit] ++ boxAttrs) 737 Onload = transaction unit] ++ boxAttrs)
738 738