diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index b9ab9fc8a6..fbbf73ebb9 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -1,6 +1,5 @@ + 0.87: -- dataflow looks odd - menu Command: quots look dumb - http://paste.lisp.org/display/30426 - "ker" C+u: for a moment, full vocab list is shown diff --git a/library/ui/text/commands.factor b/library/ui/text/commands.factor index e1112b33af..1d68b0157b 100644 --- a/library/ui/text/commands.factor +++ b/library/ui/text/commands.factor @@ -122,7 +122,7 @@ editor "selection" { { "Clear" T{ delete-action } [ remove-editor-selection ] } { "Select all" T{ select-all-action } [ T{ doc-elt } select-elt ] } { "Select line" T{ key-down f { C+ } "l" } [ T{ one-line-elt } select-elt ] } - { "Select word" T{ key-down f { C+ } "w" } [ T{ one-word-elt } select-elt ] } + { "Select word" f [ T{ one-word-elt } select-elt ] } { "Select previous character" T{ key-down f { S+ } "LEFT" } [ T{ char-elt } editor-select-prev ] } { "Select next character" T{ key-down f { S+ } "RIGHT" } [ T{ char-elt } editor-select-next ] } { "Select previous line" T{ key-down f { S+ } "UP" } [ T{ line-elt } editor-select-prev ] } diff --git a/library/ui/tools/dataflow.factor b/library/ui/tools/dataflow.factor index 5d4a2c17b5..babe47e92d 100644 --- a/library/ui/tools/dataflow.factor +++ b/library/ui/tools/dataflow.factor @@ -78,8 +78,7 @@ TUPLE: node-gadget value height ; C: node-gadget ( gadget node height -- gadget ) [ set-node-gadget-height ] keep [ set-node-gadget-value ] keep - swap over set-gadget-delegate - dup faint-boundary ; + swap over set-gadget-delegate ; M: node-gadget pref-dim* dup delegate pref-dim @@ -111,10 +110,6 @@ M: #push node-presents >#push< first ; ] 2map ; -: ( node -- gadget ) - class [ word-name