From 60cb462826ce14bc08c1056b183981addaf7ac45 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 17:39:48 -0700 Subject: [PATCH] ui.tools: Fix restart. --- basis/ui/tools/debugger/debugger.factor | 2 +- basis/ui/tools/operations/operations.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/tools/debugger/debugger.factor b/basis/ui/tools/debugger/debugger.factor index af987d7dd0..92f8229e94 100644 --- a/basis/ui/tools/debugger/debugger.factor +++ b/basis/ui/tools/debugger/debugger.factor @@ -22,7 +22,7 @@ M: restart-renderer row-columns : ( debugger -- gadget ) dup restarts>> f prefix restart-renderer - [ [ \ restart invoke-command ] when* ] >>action + [ [ \ continue-restart invoke-command ] when* ] >>action swap restart-hook>> >>hook t >>selection-required? t >>single-click? ; inline diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor index 91e37a943f..dbf9b8ac0e 100644 --- a/basis/ui/tools/operations/operations.factor +++ b/basis/ui/tools/operations/operations.factor @@ -46,7 +46,7 @@ IN: ui.tools.operations } define-operation ! Restart -[ restart? ] \ restart H{ +[ restart? ] \ continue-restart H{ { +primary+ t } { +secondary+ t } { +listener+ t }