show-gopher ( url gopher-gadget -- )

Vocabulary

gopher.ui

Inputs

url	an object
gopher-gadget	an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets ui.tools.browser.history
webbrowser ;

IN: gopher.ui

: show-gopher ( url gopher-gadget -- )
    [ [ ?gopher-url ] [ f ] if* ] dip over
    [ protocol>> "gopher" = ] [ t ] if* [
        [
            2dup control-value =
            [ 2drop ] [ nip history>> add-history ] if
        ] [ set-control-value ] 2bi
    ] [ drop open-url ] if ;