gopher-gadget

Vocabulary

gopher.ui

Definition

USING: ui.tools.common ;

IN: gopher.ui

TUPLE: gopher-gadget < tool history scroller url-field ;

Methods

USING: accessors arrays gopher.ui kernel ui.gadgets
ui.gadgets.viewports ui.tools.browser.history ;

M: gopher-gadget history-value
    [ control-value ] [ scroller>> scroll-position ] bi 2array ;


USING: accessors gopher.ui kernel models present
ui.gadgets.editors ;

M: gopher-gadget model-changed
    [ value>> present ]
    [ url-field>> editor>> set-editor-string ] bi* ;


USING: accessors gopher.ui kernel sequences ui.gadgets
ui.gadgets.scrollers ui.tools.browser.history ;

M: gopher-gadget set-history-value
    [ first2 ] dip
    [ set-control-value ] [ scroller>> set-scroll-position ]
    bi-curry bi* ;