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

UI walker fixes

slava 2006-07-31 02:20:52 +00:00
parent 70a86f60e3
commit 683b19af37
3 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/tools/describe.factor
View File

@ -93,7 +93,8 @@ DEFER: describe
[ [
hilite-index set dup hilite-quotation set hilite-index set dup hilite-quotation set
1 nesting-limit set 1 nesting-limit set
. pprint
terpri
] with-scope ; ] with-scope ;
: callstack. ( seq -- seq ) : callstack. ( seq -- seq )

22
library/tools/interpreter.factor
View File

@ -99,16 +99,6 @@ SYMBOL: callframe-end
: host-word ( word -- ) unit host-quot ; : host-word ( word -- ) unit host-quot ;
: end-quot ( -- )
callframe-scan get callframe get (host-quot) [ ] (meta-call) ;
: end ( -- )
save-callframe
meta-c [ V{ [ stop ] 0 1 } swap append ] change
meta-interp schedule-thread yield
V{ } clone meta-c set
[ ] (meta-call) ;
GENERIC: do-1 ( object -- ) GENERIC: do-1 ( object -- )
M: word do-1 ( word -- ) M: word do-1 ( word -- )
@ -144,4 +134,14 @@ M: object do ( object -- ) do-1 ;
: step ( -- ) [ do-1 ] next ; : step ( -- ) [ do-1 ] next ;
: into ( -- ) [ do ] next ; : step-in ( -- ) [ do ] next ;
: step-out ( -- )
callframe-scan get callframe get (host-quot) [ ] (meta-call) ;
: step-all ( -- )
save-callframe
meta-c [ V{ [ stop ] 0 1 } swap append ] change
meta-interp schedule-thread yield
V{ } clone meta-c set
[ ] (meta-call) ;

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

@ -46,9 +46,9 @@ TUPLE: walker-gadget track ds rs cs quot ;
: <walker-toolbar> ( -- gadget ) : <walker-toolbar> ( -- gadget )
{ {
{ "Step" step } { "Step" step }
{ "Step in" into } { "Step in" step-in }
{ "Step out" end-quot } { "Step out" step-out }
{ "Step all" end } { "Continue" step-all }
} [ } [
[ [
first2 [ walker-command ] curry <bevel-button> , first2 [ walker-command ] curry <bevel-button> ,