ui.tools: Fix restart.

db4
Doug Coleman 2013-03-23 17:39:48 -07:00
parent daca323523
commit 60cb462826
2 changed files with 2 additions and 2 deletions

View File

@ -22,7 +22,7 @@ M: restart-renderer row-columns
: <restart-list> ( debugger -- gadget ) : <restart-list> ( debugger -- gadget )
dup restarts>> f prefix <model> restart-renderer <table> dup restarts>> f prefix <model> restart-renderer <table>
[ [ \ restart invoke-command ] when* ] >>action [ [ \ continue-restart invoke-command ] when* ] >>action
swap restart-hook>> >>hook swap restart-hook>> >>hook
t >>selection-required? t >>selection-required?
t >>single-click? ; inline t >>single-click? ; inline

View File

@ -46,7 +46,7 @@ IN: ui.tools.operations
} define-operation } define-operation
! Restart ! Restart
[ restart? ] \ restart H{ [ restart? ] \ continue-restart H{
{ +primary+ t } { +primary+ t }
{ +secondary+ t } { +secondary+ t }
{ +listener+ t } { +listener+ t }