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

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

This reverts commit cf1d12ce78.
db4
Slava Pestov 2011-10-29 14:47:14 -07:00
parent ff27f2c3f7
commit d212b18be3
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/ui/gadgets/editors/editors.factor
View File

@ -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 ;