2006-10-15 19:01:37 -04:00
|
|
|
IN: temporary
|
2006-10-28 02:44:59 -04:00
|
|
|
USING: gadgets-scrolling gadgets test generic kernel ;
|
|
|
|
|
|
|
|
|
|
timers [ init-timers ] unless
|
2006-10-15 19:01:37 -04:00
|
|
|
|
|
|
|
|
[ t ]
|
|
|
|
|
[ <y-slider> slider-elevator [ timer-gadget? ] is? ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
2006-10-28 02:44:59 -04:00
|
|
|
[ ] [
|
|
|
|
|
<y-slider> slider-elevator
|
|
|
|
|
dup elevator-click stop-timer-gadget
|
|
|
|
|
] unit-test
|
