libs/fjsc/resources/bootstrap.factor

   1 : alert ( string -- )
   2   #! Display the string in an alert box
   3   window { } "" "alert" { "string" } alien-invoke ;
   4
   5 "browser-dom" in
   6
   7 : elements ( string -- result )
   8   #! Call JQuery's $ function
   9   window { "result" } "" "$" { "string" } alien-invoke ;
  10
  11 : html ( string -- element )
  12   #! Set the innerHTML of element using jQuery
  13   { } "" "html" { "string" } alien-invoke ;
  14
  15 : bind-event ( name element quot -- )
  16   >function swap { } "" "bind" { "string" "function" } alien-invoke ;
  17
  18 "scratchpad" in
  19
  20 : example1 ( -- )
  21   "<button id='test'>Press Me</button>" "#playground" elements html ;
  22
  23 : example2 ( -- )
  24   "click" "#test" elements [ "clicked" alert ] bind-event ;
  25
  26 : example3 ( -- )
  27   [
  28     [
  29       >r "click" "#test" elements r> [ continue ] curry bind-event
  30       "Waiting for click on button" alert
  31       continue
  32     ] callcc0
  33     drop "Click done!" alert
  34   ] callcc0 ;
  35