# HG changeset patch # User Mike Pavone # Date 1332396831 25200 # Node ID 6e4851a204a512ff0fbc4f85899f938c4b701831 # Parent 5447cff52da6e9139534e865e7d50743249d3467 Add ability to load code into editor diff -r 5447cff52da6 -r 6e4851a204a5 editor.css --- a/editor.css Wed Mar 21 21:42:38 2012 -0700 +++ b/editor.css Wed Mar 21 23:13:51 2012 -0700 @@ -27,9 +27,29 @@ display: inline-block; padding: 0; margin: 0; + white-space: pre; + font-family: monospace; + overflow: auto; + height: 100%; +} + +#editor +{ + display: none; + height: 100%; } -ul +body.editorMode > #editor +{ + display: block; +} + +body.editorMode > #browser +{ + display: none; +} + +#editor ul { border-style: solid; border-color: black; @@ -44,22 +64,22 @@ overflow: auto; } -ul:first-child +#editor ul:first-child { border-bottom-width: 0px; } -#operators, .showops > #builtin +#editor #operators, #editor .showops > #builtin { display: none; } -.showops > #operators +#editor .showops > #operators { display: block; } -li +#editor li { display: inline-block; border-style: solid; diff -r 5447cff52da6 -r 6e4851a204a5 editor.tp --- 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 { diff -r 5447cff52da6 -r 6e4851a204a5 index.html --- a/index.html Wed Mar 21 21:42:38 2012 -0700 +++ b/index.html Wed Mar 21 23:13:51 2012 -0700 @@ -13,29 +13,37 @@ -
-