Mercurial > repos > tabletprog
diff 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 |
line wrap: on
line diff
--- a/editor.tp Wed Mar 21 21:42:38 2012 -0700 +++ b/editor.tp Wed Mar 21 23:13:51 2012 -0700 @@ -5,6 +5,7 @@ each <- foreign: :iterable fun {} addClass <- foreign: :node className {} removeClass <- foreign: :node className {} +get <- foreign: :url onSuccess onFail onOther {} //tabletprog JS helpers setP <- foreign: :object property val {} @@ -16,10 +17,26 @@ } main <- { - each: (qall: "li") :idx el { + //bind handlers for file browser links + each: (qall: "a") :idx el { + el setP: "onclick" :event { + console log: "click" + link <- foreign: this + get: (link getP: "href") :request { + addClass: (q: "body") "editorMode" + console log: (request getP: "responseText") + (q: "#src") setP: "textContent" (request getP: "responseText") + } + console log: "returning false" + foreign: false + } + } + + //bind handlers for editor buttons + each: (qall: ".controls li") :idx el { el setP: "onclick" :event { srcel <- (q: "#src") - srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML") + srcel setP: "textContent" (srcel getP: "textContent") + (el getP: "textContent") } } (q: "#ops_button") setP: "onclick" :event {