IN: temporary
USING: gadgets-sliders gadgets test generic kernel timers ;

timers [ init-timers ] unless

[ t ]
[ <y-slider> slider-elevator [ timer-gadget? ] is? ]
unit-test

[ ] [
    <y-slider> slider-elevator
    dup elevator-click stop-timer-gadget
] unit-test