<url-field> ( gopher-gadget -- field )

Vocabulary

gopher.ui

Inputs

gopher-gadget

an object

Outputs

field

an object

Definition

USING: accessors kernel ui.gadgets.editors ui.tools.common ;

IN: gopher.ui

: <url-field> ( gopher-gadget -- field )
    [ show-gopher ] curry
    <action-field> "Gopher URL" >>default-text white-interior ;