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

One more walker fix

slava 2006-08-28 07:08:58 +00:00
parent da86b54ed9
commit 850c5705fd
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
TODO.FACTOR.txt
View File

@ -2,8 +2,6 @@
- write "foo| " and put caret at | then select word element: selects - write "foo| " and put caret at | then select word element: selects
space space
- workspace:
- tool help
- new browser: - new browser:
- show currently selected vocab & words - show currently selected vocab & words
- scroll to existing won't work - scroll to existing won't work
@ -19,13 +17,15 @@
- clean up interactor and listener commands -- there is a lot of - clean up interactor and listener commands -- there is a lot of
duplication duplication
- keyboard help persists after clicking on a link - keyboard help persists after clicking on a link
- grouping commands into categories
- apropos and help search - apropos and help search
======================================================================== ========================================================================
+ ui: + ui:
- grouping commands into categories
- tool help
- merge keyboard help with help in some way
- keyboard help: hide commands whose gestures are shadowed - keyboard help: hide commands whose gestures are shadowed
- x11.app has a problem with A+ keys - x11.app has a problem with A+ keys
- status bar showing number of words needing a recompile - status bar showing number of words needing a recompile

15
library/ui/tools/walker.factor
View File

@ -43,16 +43,19 @@ TUPLE: walker-gadget model quot ns ;
swap dup walker-gadget-ns swap dup walker-gadget-ns
[ slip update-stacks ] bind ; inline [ slip update-stacks ] bind ; inline
: walker-command ( gadget quot -- )
over walker-gadget-ns [ with-walker ] [ 2drop ] if ; inline
: reset-walker ( walker -- ) : reset-walker ( walker -- )
f over set-walker-gadget-ns f over set-walker-gadget-ns
f over walker-gadget-model set-model f over walker-gadget-model set-model
f swap walker-gadget-quot set-model ; f over walker-gadget-quot set-model ;
: walker-step [ step ] with-walker ; : walker-step [ step ] walker-command ;
: walker-step-in [ step-in ] with-walker ; : walker-step-in [ step-in ] walker-command ;
: walker-step-out [ step-out ] with-walker ; : walker-step-out [ step-out ] walker-command ;
: walker-step-back [ step-back ] with-walker ; : walker-step-back [ step-back ] walker-command ;
: walker-step-all dup [ step-all ] with-walker reset-walker ; : walker-step-all dup [ step-all ] walker-command reset-walker ;
walker-gadget { walker-gadget {
{ f "Step" T{ key-down f f "s" } [ walker-step ] } { f "Step" T{ key-down f f "s" } [ walker-step ] }