current-pen ( slider pen -- pen )

Vocabulary

ui.gadgets.sliders.private

Inputs

slider	an object
pen	an object

Outputs

pen

an object

Definition

USING: accessors kernel ;

IN: ui.gadgets.sliders.private

: current-pen ( slider pen -- pen )
    [ slider-enabled? ] [ [ enabled>> ] [ disabled>> ] bi ] bi*
    ? ;