com-gemini ( url -- )

Vocabulary

gemini.ui

Inputs

url

an object

Outputs

None

Definition

USING: kernel ui ui.gadgets ;

IN: gemini.ui

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