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 documents.elements fry grouping kernel locals make math
math.functions math.order math.ranges math.rectangles math.functions math.order math.ranges math.rectangles
math.vectors models models.arrow namespaces opengl sequences 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.commands ui.gadgets ui.gadgets.borders
ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers
ui.gestures ui.pens.solid ui.render ui.text unicode.categories ; 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 f "END" } end-of-line }
{ T{ key-down f { C+ } "HOME" } start-of-document } { T{ key-down f { C+ } "HOME" } start-of-document }
{ T{ key-down f { C+ } "END" } end-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+ } "k" } delete-to-start-of-line } { T{ key-down f { C+ } "e" } end-of-line }
{ T{ key-down f { C+ } "a" } start-of-line } } define-command-map
{ T{ key-down f { C+ } "e" } end-of-line }
} append
] when define-command-map
: clear-editor ( editor -- ) : clear-editor ( editor -- )
model>> clear-doc ; model>> clear-doc ;