From d212b18be302b10d1bbd52e35cdf785b8670fc01 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 29 Oct 2011 14:47:14 -0700 Subject: [PATCH] Revert "ui.gadgets.editors: windows doesn't work like macosx." This reverts commit cf1d12ce783df5d4ea379b4d54eeaaff08c6feac. --- basis/ui/gadgets/editors/editors.factor | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index 42b001243e..ca9c2c165d 100644 --- a/basis/ui/gadgets/editors/editors.factor +++ b/basis/ui/gadgets/editors/editors.factor @@ -5,7 +5,7 @@ combinators combinators.short-circuit documents documents.elements fry grouping kernel locals make math math.functions math.order math.ranges math.rectangles math.vectors models models.arrow namespaces opengl sequences -sorting splitting system ui.baseline-alignment ui.clipboards +sorting splitting ui.baseline-alignment ui.clipboards ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers ui.gestures ui.pens.solid ui.render ui.text unicode.categories ; @@ -429,13 +429,10 @@ editor "caret-motion" f { { T{ key-down f f "END" } end-of-line } { T{ key-down f { C+ } "HOME" } start-of-document } { T{ key-down f { C+ } "END" } end-of-document } -} os macosx? [ - { - { T{ key-down f { C+ } "k" } delete-to-start-of-line } - { T{ key-down f { C+ } "a" } start-of-line } - { T{ key-down f { C+ } "e" } end-of-line } - } append -] when define-command-map + { T{ key-down f { C+ } "k" } delete-to-start-of-line } + { T{ key-down f { C+ } "a" } start-of-line } + { T{ key-down f { C+ } "e" } end-of-line } +} define-command-map : clear-editor ( editor -- ) model>> clear-doc ; -- 2.34.1