add-navigation-arrow ( str direction -- str ) (original) (raw)

add-navigation-arrow ( str direction -- str )

Vocabulary
ui.tools.browser

Inputs

str an object
direction an object

Outputs

str an object

Definition

USING: kernel sequences ;

IN: ui.tools.browser

: add-navigation-arrow ( str direction -- str )
prev = [ "←" prefix ] [ "→" suffix ] if ;