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

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

db4
John Benediktsson 2011-10-19 09:41:49 -07:00
parent 0816b8667c
commit a625197ba5
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
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 ui.baseline-alignment ui.clipboards sorting splitting system 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,10 +429,13 @@ 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+ } "k" } delete-to-start-of-line }
{ T{ key-down f { C+ } "a" } start-of-line } { T{ key-down f { C+ } "a" } start-of-line }
{ T{ key-down f { C+ } "e" } end-of-line } { T{ key-down f { C+ } "e" } end-of-line }
} define-command-map } append
] when define-command-map
: clear-editor ( editor -- ) : clear-editor ( editor -- )
model>> clear-doc ; model>> clear-doc ;