diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor index 6c6bed5b70..31f603798e 100644 --- a/basis/ui/tools/browser/browser.factor +++ b/basis/ui/tools/browser/browser.factor @@ -98,12 +98,6 @@ M: browser-gadget focusable-child* search-field>> ; : browser-window ( -- ) "help.home" (browser-window) ; -: error-help-window ( error -- ) - { - [ error-help ] - [ dup tuple? [ class-of ] [ drop "errors" ] if ] - } 1|| (browser-window) ; - \ browser-window H{ { +nullary+ t } } define-command : com-browse ( link -- ) @@ -111,6 +105,12 @@ M: browser-gadget focusable-child* search-field>> ; [ [ raise-window ] [ gadget-child show-help ] bi ] [ (browser-window) ] if* ; +: help-error ( error -- ) + { + [ error-help ] + [ dup tuple? [ class-of ] [ drop "errors" ] if ] + } 1|| com-browse ; + : show-browser ( -- ) [ browser-gadget? ] find-window [ [ raise-window ] [ request-focus ] bi ] [ browser-window ] if* ; diff --git a/basis/ui/tools/debugger/debugger.factor b/basis/ui/tools/debugger/debugger.factor index 92f8229e94..847b8f7eb2 100644 --- a/basis/ui/tools/debugger/debugger.factor +++ b/basis/ui/tools/debugger/debugger.factor @@ -81,7 +81,7 @@ debugger "gestures" f { : com-traceback ( debugger -- ) continuation>> traceback-window ; -: com-help ( debugger -- ) error>> error-help-window ; +: com-help ( debugger -- ) error>> help-error ; : com-edit ( debugger -- ) error>> edit-error ; diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor index f9ca9ceeee..07367747fa 100644 --- a/basis/ui/tools/error-list/error-list.factor +++ b/basis/ui/tools/error-list/error-list.factor @@ -136,7 +136,7 @@ TUPLE: error-display < track ; control-value [ inspector ] when* ; : com-help ( error-display -- ) - control-value [ error>> error-help-window ] when* ; + control-value [ error>> help-error ] when* ; : com-edit ( error-display -- ) control-value [ edit-error ] when* ;