steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

C-m expands macros in listener

db4
Slava Pestov 2009-01-16 14:57:23 -06:00
parent 64899f8187
commit 37407cde96
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/ui/tools/operations/operations.factor
View File

@ -10,7 +10,7 @@ tools.profiler tools.test tools.time tools.walker
ui.commands ui.gadgets.editors ui.gestures ui.commands ui.gadgets.editors ui.gestures
ui.operations ui.tools.deploy vocabs vocabs.loader words ui.operations ui.tools.deploy vocabs vocabs.loader words
sequences tools.vocabs classes compiler.units accessors sequences tools.vocabs classes compiler.units accessors
vocabs.parser ; vocabs.parser macros.expander ;
IN: ui.tools.operations IN: ui.tools.operations
V{ } clone operations set-global V{ } clone operations set-global
@ -172,6 +172,13 @@ M: word com-stack-effect def>> com-stack-effect ;
{ +listener+ t } { +listener+ t }
} define-operation } define-operation
: com-expand-macros ( quot -- ) expand-macros . ;
[ quotation? ] \ com-expand-macros H{
{ +keyboard+ T{ key-down f { C+ } "m" } }
{ +listener+ t }
} define-operation
! Operations -> commands ! Operations -> commands
source-editor source-editor
"word" "word"