Skip to content
Browse files

[enhance] dom: added a give_blur binding

  • Loading branch information...
1 parent 9d2d0bb commit 7a183dc1b0b55e24accfd3e3707aa06b743e3569 @Aqua-Ye Aqua-Ye committed Dec 16, 2011
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.
*

0 comments on commit 7a183dc

Please sign in to comment.
Something went wrong with that request. Please try again.