changeset 124:1157639353e7

Add dummy handler for clicking a symbol while a lambda is selected. Fix the code for selecting the first inner node of an object literal.
author Mike Pavone <pavone@retrodev.com>
date Mon, 05 Aug 2013 21:38:38 -0700
parents da7f585bf626
children a2d2d8e09291
files src/editor.tp
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/editor.tp	Mon Aug 05 21:34:50 2013 -0700
+++ b/src/editor.tp	Mon Aug 05 21:38:38 2013 -0700
@@ -230,8 +230,7 @@
 lambdaClick <- :domnode astnode event {
 	selectNode: domnode
 	popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key {
-		domnode textContent!: key
-		astnode name!: key
+		console log: "foooobar!"
 	}
 	inner <- if: ((astnode args) length) > 0 {
 		(astnode args) getEl: 0
@@ -247,6 +246,7 @@
 	popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key {
 		console log: "fooobar!"
 	}
+	setSelection: astnode withInNode: ((astnode messages) getEl: 0)
 	event stopPropagation: (foreign: undefined)
 }
 
@@ -292,7 +292,7 @@
 			}
 		}
 	}
-	
+
 	//bind handlers for editor buttons
 	each: (qall: ".controls li") :idx el {
 		el onclick!: :event {
@@ -306,21 +306,21 @@
 	(q: "#lit_button") onclick!: :event {
 		showLit
 	}
-	
+
 	(q: "#in") onclick!: :event {
 		console log: "inwards"
 		if: (selection valid?) {
 			selection in
 		}
 	}
-	
+
 	(q: "#out") onclick!: :event {
 		console log: "outwards"
 		if: (selection valid?) {
 			selection out
 		}
 	}
-	
+
 	path <- (window location) pathname
 	if: (path indexOf: "/edit/") = 0 {
 		editFile: (path substr: 5)