show-help ( link browser-gadget -- )


Vocabulary
ui.tools.browser

Inputs
linkan object
browser-gadgetan object


Outputs
None

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

IN: ui.tools.browser

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