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

Bug fix

db4
Slava Pestov 2008-02-21 19:27:43 -06:00
parent 929aafadac
commit 0eda22fb5a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/alarms/alarms.factor
View File

@ -16,7 +16,6 @@ TUPLE: alarm time interval quot entry ;
: <alarm> ( time delay quot -- alarm ) : <alarm> ( time delay quot -- alarm )
check-alarm <box> alarm construct-boa ; check-alarm <box> alarm construct-boa ;
! Global min-heap
SYMBOL: alarms SYMBOL: alarms
SYMBOL: alarm-thread SYMBOL: alarm-thread

3
extra/ui/tools/listener/listener.factor
View File

@ -6,7 +6,7 @@ kernel models namespaces parser quotations sequences ui.commands
ui.gadgets ui.gadgets.editors ui.gadgets.labelled ui.gadgets ui.gadgets.editors ui.gadgets.labelled
ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers
ui.gadgets.tracks ui.gestures ui.operations vocabs words ui.gadgets.tracks ui.gestures ui.operations vocabs words
prettyprint listener debugger threads ; prettyprint listener debugger threads boxes ;
IN: ui.tools.listener IN: ui.tools.listener
TUPLE: listener-gadget input output stack ; TUPLE: listener-gadget input output stack ;
@ -161,6 +161,7 @@ M: listener-gadget handle-gesture* ( gadget gesture delegate -- ? )
M: listener-gadget graft* M: listener-gadget graft*
dup delegate graft* dup delegate graft*
dup listener-gadget-input interactor-thread ?box 2drop
restart-listener ; restart-listener ;
M: listener-gadget ungraft* M: listener-gadget ungraft*