Mercurial > repos > tabletprog

comparison src/editor.tp @ 141:15aac5334b64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
140:bf8f75b69048 141:15aac5334b64
11 11
12 //editor.js functions 12 //editor.js functions
13 getEl <- foreign: :from idx {} 13 getEl <- foreign: :from idx {}
14 setEl <- foreign: :to idx val {} 14 setEl <- foreign: :to idx val {}
15 goFullScreen <- foreign: {} 15 goFullScreen <- foreign: {}
16 create_symbol <- foreign: :name {}
16 17
17 //TP Parser 18 //TP Parser
18 parser <- foreign: #{ 19 parser <- foreign: #{
19 parse <- foreign: :str {} 20 parse <- foreign: :str {}
20 } 21 }
236 } 237 }
237 } 238 }
238 event stopPropagation: (foreign: undefined) 239 event stopPropagation: (foreign: undefined)
239 } 240 }
240 241
242 replaceNode:with <- :astnode domnode :newnode {
243
244 }
245
241 lambdaClick <- :domnode astnode event { 246 lambdaClick <- :domnode astnode event {
242 selectNode: domnode 247 selectNode: domnode
243 popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key { 248 popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key {
244 console log: "foooobar!" 249 replaceNode: astnode domnode with: (create_symbol: key)
245 } 250 }
246 inner <- if: ((astnode args) length) > 0 { 251 inner <- if: ((astnode args) length) > 0 {
247 (astnode args) getEl: 0 252 (astnode args) getEl: 0
248 } else: { 253 } else: {
249 (astnode expressions) getEl: 0 254 (astnode expressions) getEl: 0