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

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

This reverts commit 913e69500f.
db4
John Benediktsson 2014-11-30 07:13:10 -08:00
parent 4b1690b9c1
commit d0357cc349
1 changed files with 7 additions and 3 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 kernel sequences sets ui.commands """USING: accessors assocs kernel sequences sets ui.commands
ui.gadgets.editors ui.gestures ; ui.gadgets.editors ui.gestures ui.tools.listener ;
"multiline" multiline-editor get-command-at [ "multiline" multiline-editor get-command-at [
{ {
@ -50,7 +50,11 @@ ui.gadgets.editors ui.gestures ;
{ 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" }