blink-gadget ( gadget freq -- )


Vocabulary
rosetta-code.metronome

Inputs
gadgetan object
freqan object


Outputs
None

Definition
USING: accessors colors.hsv ui.gadgets ui.pens.solid ;

IN: rosetta-code.metronome

: blink-gadget ( gadget freq -- )
1.0 1.0 1.0 <hsva> <solid> >>interior relayout-1 ;