From 0eda22fb5a1bc41157a8cadcfad07f129986fb4b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 21 Feb 2008 19:27:43 -0600 Subject: [PATCH] Bug fix --- extra/alarms/alarms.factor | 1 - extra/ui/tools/listener/listener.factor | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/alarms/alarms.factor b/extra/alarms/alarms.factor index 5b198fdb0d..5a48cd9a10 100755 --- a/extra/alarms/alarms.factor +++ b/extra/alarms/alarms.factor @@ -16,7 +16,6 @@ TUPLE: alarm time interval quot entry ; : ( time delay quot -- alarm ) check-alarm alarm construct-boa ; -! Global min-heap SYMBOL: alarms SYMBOL: alarm-thread diff --git a/extra/ui/tools/listener/listener.factor b/extra/ui/tools/listener/listener.factor index db26c2a150..7617b0f32d 100755 --- a/extra/ui/tools/listener/listener.factor +++ b/extra/ui/tools/listener/listener.factor @@ -6,7 +6,7 @@ kernel models namespaces parser quotations sequences ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.labelled ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.tracks ui.gestures ui.operations vocabs words -prettyprint listener debugger threads ; +prettyprint listener debugger threads boxes ; IN: ui.tools.listener TUPLE: listener-gadget input output stack ; @@ -161,6 +161,7 @@ M: listener-gadget handle-gesture* ( gadget gesture delegate -- ? ) M: listener-gadget graft* dup delegate graft* + dup listener-gadget-input interactor-thread ?box 2drop restart-listener ; M: listener-gadget ungraft*