Revert "ui.gadgets.editors: windows doesn't work like macosx."

[factor.git] / basis / ui / gadgets / editors / editors.factor

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 42b001243ed097c4fa50d0a3d1bc3b4a28b54b67..ca9c2c165decddd35bca7fc107932fdc80585a02 100644 (file)
--- 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 ;