--- 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 {