# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1365820053 25200
# Node ID 152b6cfb98b6668bb50720a8680de364ea13c792
# Parent  76a21129e8f561f6b86897affc78a31eb2f3a181
Click-to-select no longer selects the whole lambda when it shouldn't and no longer replaces the selected code with a single symbol.

diff -r 76a21129e8f5 -r 152b6cfb98b6 src/editor.tp
--- a/src/editor.tp	Fri Apr 12 19:25:54 2013 -0700
+++ b/src/editor.tp	Fri Apr 12 19:27:33 2013 -0700
@@ -70,7 +70,7 @@
 	each: syms :idx key {
 		inscope appendChild: (newEl: "li" #{
 			textContent <- key
-			onclick <- { handler: key }
+			onclick <- :Event { handler: key }
 		})
 	}
 }
@@ -81,7 +81,7 @@
 		domnode textContent!: key
 		astnode name!: key
 	}
-	event stopPropagation
+	event stopPropagation: (foreign: undefined)
 }
 
 funClick <- :domnode astnode event {
@@ -92,7 +92,7 @@
 		isLambda: ((symtable find: sym) def)
 	}
 	popInscope: syms onClick: {}
-	event stopPropagation
+	event stopPropagation: (foreign: undefined)
 }
 
 lambdaClick <- :domnode astnode event {