Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[enhance] dom: added a give_blur binding

  • Loading branch information...
commit 7a183dc1b0b55e24accfd3e3707aa06b743e3569 1 parent 9d2d0bb
@Aqua-Ye Aqua-Ye authored
Showing with 13 additions and 0 deletions.
  1. +7 −0 opabsl/jsbsl/bslDom.js
  2. +6 −0 stdlib/core/xhtml/dom.opa
View
7 opabsl/jsbsl/bslDom.js
@@ -379,6 +379,13 @@
return dom;
}
+##register give_blur: Dom.private.element -> Dom.private.element
+##args(dom)
+{
+ dom.blur();
+ return dom;
+}
+
##register get_value: Dom.private.element -> string
##args(dom)
{
View
6 stdlib/core/xhtml/dom.opa
@@ -583,6 +583,12 @@ Dom = {{
void
)
+ give_blur(dom:dom): void =
+ (
+ _ = %% BslDom.give_blur %%(of_selection(dom))
+ void
+ )
+
/**
* Get the [id] of an item.
*
Please sign in to comment.
Something went wrong with that request. Please try again.