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

Interactor fix

db4
Slava Pestov 2008-05-07 02:32:58 -05:00
parent a6ab5c3a47
commit 7fbad98d97
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/ui/tools/interactor/interactor-tests.factor
View File

@ -8,6 +8,8 @@ tools.test kernel calendar parser accessors ;
[
[ ] [ <pane> <pane-stream> <interactor> "interactor" set ] unit-test
[ ] [ "interactor" get register-self ] unit-test
[ ] [ "[ 1 2 3" "interactor" get set-editor-string ] unit-test
[ ] [ <promise> "promise" set ] unit-test

5
extra/ui/tools/interactor/interactor.factor
View File

@ -14,7 +14,9 @@ IN: ui.tools.interactor
TUPLE: interactor output history flag mailbox thread waiting help ;
: register-self ( interactor -- )
self >>thread drop ;
<mailbox> >>mailbox
self >>thread
drop ;
: interactor-continuation ( interactor -- continuation )
thread>> continuation>> value>> ;
@ -40,7 +42,6 @@ TUPLE: interactor output history flag mailbox thread waiting help ;
interactor construct-editor
V{ } clone >>history
<flag> >>flag
<mailbox> >>mailbox
dup <help-model> >>help
swap >>output ;