From 0d4e5da8f354c4f2964463bb8c9dc47386245890 Mon Sep 17 00:00:00 2001 From: slava Date: Wed, 22 Nov 2006 07:14:56 +0000 Subject: [PATCH] Minor UI tweaks --- TODO.FACTOR.txt | 1 - library/ui/text/commands.factor | 2 +- library/ui/tools/dataflow.factor | 9 ++------- library/ui/tools/listener.factor | 2 +- library/ui/tools/operations.factor | 13 +++++++------ 5 files changed, 11 insertions(+), 16 deletions(-) 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