show-help ( link browser-gadget -- )

Vocabulary
ui.tools.browser

Definition

USING: accessors help.home help.topics kernel models
ui.tools.browser.history ;

IN: ui.tools.browser

: show-help ( link browser-gadget -- )
    [ >link ] dip [
        2dup model>> value>> =
        [ 2drop ]
        [ [ add-recent ] [ history>> add-history ] bi* ] if
    ] [ model>> set-model ] 2bi ;