Mercurial > repos > tabletprog
comparison editor.tp @ 12:6e4851a204a5
Add ability to load code into editor
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 21 Mar 2012 23:13:51 -0700 |
parents | 5447cff52da6 |
children | 85fb6ba15bc6 |
comparison
equal
deleted
inserted
replaced
11:5447cff52da6 | 12:6e4851a204a5 |
---|---|
3 q <- foreign: :query {} | 3 q <- foreign: :query {} |
4 qall <- foreign: :query {} | 4 qall <- foreign: :query {} |
5 each <- foreign: :iterable fun {} | 5 each <- foreign: :iterable fun {} |
6 addClass <- foreign: :node className {} | 6 addClass <- foreign: :node className {} |
7 removeClass <- foreign: :node className {} | 7 removeClass <- foreign: :node className {} |
8 get <- foreign: :url onSuccess onFail onOther {} | |
8 | 9 |
9 //tabletprog JS helpers | 10 //tabletprog JS helpers |
10 setP <- foreign: :object property val {} | 11 setP <- foreign: :object property val {} |
11 getP <- foreign: :object property {} | 12 getP <- foreign: :object property {} |
12 | 13 |
14 console <- foreign: #{ | 15 console <- foreign: #{ |
15 log <- foreign: #{} | 16 log <- foreign: #{} |
16 } | 17 } |
17 | 18 |
18 main <- { | 19 main <- { |
19 each: (qall: "li") :idx el { | 20 //bind handlers for file browser links |
21 each: (qall: "a") :idx el { | |
22 el setP: "onclick" :event { | |
23 console log: "click" | |
24 link <- foreign: this | |
25 get: (link getP: "href") :request { | |
26 addClass: (q: "body") "editorMode" | |
27 console log: (request getP: "responseText") | |
28 (q: "#src") setP: "textContent" (request getP: "responseText") | |
29 } | |
30 console log: "returning false" | |
31 foreign: false | |
32 } | |
33 } | |
34 | |
35 //bind handlers for editor buttons | |
36 each: (qall: ".controls li") :idx el { | |
20 el setP: "onclick" :event { | 37 el setP: "onclick" :event { |
21 srcel <- (q: "#src") | 38 srcel <- (q: "#src") |
22 srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML") | 39 srcel setP: "textContent" (srcel getP: "textContent") + (el getP: "textContent") |
23 } | 40 } |
24 } | 41 } |
25 (q: "#ops_button") setP: "onclick" :event { | 42 (q: "#ops_button") setP: "onclick" :event { |
26 addClass: (q: ".controls") "showops" | 43 addClass: (q: ".controls") "showops" |
27 } | 44 } |