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

ui.tools.walker: Rewrite to remove 'g'

db4
Eduardo Cavazos 2008-07-13 23:59:32 -05:00
parent e9bcc9bd31
commit 4daa358f40
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/ui/tools/walker/walker.factor
View File

@ -61,12 +61,11 @@ M: walker-gadget focusable-child*
swap >>continuation swap >>continuation
swap >>status swap >>status
dup continuation>> <traceback-gadget> >>traceback dup continuation>> <traceback-gadget> >>traceback
[
toolbar,
g status>> self <thread-status> f track,
g traceback>> 1 track,
] make-gadget ;
dup <toolbar> f track-add*
dup status>> self <thread-status> f track-add*
dup traceback>> 1 track-add* ;
: walker-help ( -- ) "ui-walker" help-window ; : walker-help ( -- ) "ui-walker" help-window ;
\ walker-help H{ { +nullary+ t } } define-command \ walker-help H{ { +nullary+ t } } define-command