library/ui/test/sliders.factor

   1 IN: temporary
   2 USING: gadgets-scrolling gadgets test generic ;
   3
   4 [ t ]
   5 [ <y-slider> slider-elevator [ timer-gadget? ] is? ]
   6 unit-test
   7
   8 [ ] [ <y-slider> slider-elevator elevator-click ] unit-test