Mercurial > repos > tabletprog
diff src/editor.tp @ 141:15aac5334b64
Started work on replacing nodes with a symbol when a symbol button is clicked
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 09 Aug 2013 01:36:53 -0700 |
parents | 8285784f5ff5 |
children |
line wrap: on
line diff
--- a/src/editor.tp Fri Aug 09 01:35:29 2013 -0700 +++ b/src/editor.tp Fri Aug 09 01:36:53 2013 -0700 @@ -13,6 +13,7 @@ getEl <- foreign: :from idx {} setEl <- foreign: :to idx val {} goFullScreen <- foreign: {} +create_symbol <- foreign: :name {} //TP Parser parser <- foreign: #{ @@ -238,10 +239,14 @@ event stopPropagation: (foreign: undefined) } +replaceNode:with <- :astnode domnode :newnode { + +} + lambdaClick <- :domnode astnode event { selectNode: domnode popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key { - console log: "foooobar!" + replaceNode: astnode domnode with: (create_symbol: key) } inner <- if: ((astnode args) length) > 0 { (astnode args) getEl: 0