|
11
|
1 #{
|
|
|
2 //mquery functions
|
|
|
3 q <- foreign: :query {}
|
|
|
4 qall <- foreign: :query {}
|
|
|
5 each <- foreign: :iterable fun {}
|
|
|
6 addClass <- foreign: :node className {}
|
|
|
7 removeClass <- foreign: :node className {}
|
|
|
8
|
|
|
9 //tabletprog JS helpers
|
|
|
10 setP <- foreign: :object property val {}
|
|
|
11 getP <- foreign: :object property {}
|
|
|
12
|
|
|
13 //js builtins
|
|
|
14 console <- foreign: #{
|
|
|
15 log <- foreign: #{}
|
|
|
16 }
|
|
|
17
|
|
|
18 main <- {
|
|
|
19 each: (qall: "li") :idx el {
|
|
|
20 el setP: "onclick" :event {
|
|
|
21 srcel <- (q: "#src")
|
|
|
22 srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML")
|
|
|
23 }
|
|
|
24 }
|
|
|
25 (q: "#ops_button") setP: "onclick" :event {
|
|
|
26 addClass: (q: ".controls") "showops"
|
|
|
27 }
|
|
|
28
|
|
|
29 (q: "#builtin_button") setP: "onclick" :event {
|
|
|
30 removeClass: (q: ".controls") "showops"
|
|
|
31 }
|
|
|
32 }
|
|
|
33
|
|
|
34 }
|
