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

ui.tools.listener: update docs for Emacs-style text entry.

db4
John Benediktsson 2014-11-29 21:18:52 -08:00
parent 0f69430f8d
commit 913e69500f
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/tools/listener/listener-docs.factor
View File

@ -41,8 +41,8 @@ $nl
"Then you can run the following code, or add it to your " { $link ".factor-rc" } "." "Then you can run the following code, or add it to your " { $link ".factor-rc" } "."
$nl $nl
{ $code { $code
"""USING: accessors assocs kernel sequences sets ui.commands """USING: accessors kernel sequences sets ui.commands
ui.gadgets.editors ui.gestures ui.tools.listener ; ui.gadgets.editors ui.gestures ;
"multiline" multiline-editor get-command-at [ "multiline" multiline-editor get-command-at [
{ {
@ -50,11 +50,7 @@ ui.gadgets.editors ui.gestures ui.tools.listener ;
{ T{ key-down f { C+ } "a" } start-of-line } { T{ key-down f { C+ } "a" } start-of-line }
{ T{ key-down f { C+ } "e" } end-of-line } { T{ key-down f { C+ } "e" } end-of-line }
} append members } append members
] change-commands drop multiline-editor update-gestures ] change-commands drop multiline-editor update-gestures"""
"interactor" interactor get-command-at [
[ drop T{ key-down f { C+ } "k" } = not ] assoc-filter
] change-commands drop interactor update-gestures"""
} }
$nl $nl
{ $heading "Implementation" } { $heading "Implementation" }