From 913e69500f3d0b9b4203882be84cea093f120454 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 29 Nov 2014 21:18:52 -0800 Subject: [PATCH] ui.tools.listener: update docs for Emacs-style text entry. --- basis/ui/tools/listener/listener-docs.factor | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/basis/ui/tools/listener/listener-docs.factor b/basis/ui/tools/listener/listener-docs.factor index 34650de01b..0f961eab30 100644 --- a/basis/ui/tools/listener/listener-docs.factor +++ b/basis/ui/tools/listener/listener-docs.factor @@ -41,8 +41,8 @@ $nl "Then you can run the following code, or add it to your " { $link ".factor-rc" } "." $nl { $code - """USING: accessors assocs kernel sequences sets ui.commands -ui.gadgets.editors ui.gestures ui.tools.listener ; + """USING: accessors kernel sequences sets ui.commands +ui.gadgets.editors ui.gestures ; "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+ } "e" } end-of-line } } append members -] 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""" +] change-commands drop multiline-editor update-gestures""" } $nl { $heading "Implementation" }