Permalink
Browse files

[feature] stdlib: added a bsl Client.alert

  • Loading branch information...
1 parent 04e6e8f commit afee3cda3aee21b745ffab0158d7454669f2d972 @Aqua-Ye Aqua-Ye committed Aug 29, 2011
Showing with 7 additions and 0 deletions.
  1. +6 −0 opabsl/jsbsl/bslClient.js
  2. +1 −0 stdlib/web/client/client.opa
View
6 opabsl/jsbsl/bslClient.js
@@ -41,6 +41,12 @@
location.replace(str);
}
+##register alert : string -> void
+ ##args(str)
+ {
+ alert(str);
+ }
+
##register confirm : string -> bool
##args(str)
{
View
1 stdlib/web/client/client.opa
@@ -168,6 +168,7 @@ type JsFunction = external
width = %% BslClient.Client.width %%: -> int
height = %% BslClient.Client.height %%: -> int
goto = %% BslClient.Client.goto %%: string -> void
+ alert = %% BslClient.Client.alert %%: string -> void
confirm = %% BslClient.Client.confirm %%: string -> bool

0 comments on commit afee3cd

Please sign in to comment.