com-gopher ( url -- )

Vocabulary

gopher.ui

Inputs

url

an object

Outputs

None

Definition

USING: kernel ui ui.gadgets ;

IN: gopher.ui

: com-gopher ( url -- )
    [ gopher-gadget? ] find-window
    [ [ raise-window ] [ gadget-child show-gopher ] bi ]
    [ open-gopher-window ] if* ;