steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

trails: remove unused paused.

factor-shell
John Benediktsson 2018-01-22 12:27:46 -08:00
parent 12b3125720
commit c881f42bb7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/trails/trails.factor
View File

@ -17,13 +17,13 @@ IN: trails
: dot ( pos percent -- ) percent->radius draw-circle ; : dot ( pos percent -- ) percent->radius draw-circle ;
TUPLE: trails-gadget < gadget paused points timer ; TUPLE: trails-gadget < gadget points timer ;
M: trails-gadget graft* M: trails-gadget graft*
[ timer>> start-timer yield ] [ call-next-method ] bi ; [ timer>> start-timer yield ] [ call-next-method ] bi ;
M: trails-gadget ungraft* M: trails-gadget ungraft*
[ timer>> stop-timer ] [ t >>paused call-next-method ] bi ; [ timer>> stop-timer ] [ call-next-method ] bi ;
:: iterate-system ( GADGET -- ) :: iterate-system ( GADGET -- )
! Add a valid point if the mouse is in the gadget ! Add a valid point if the mouse is in the gadget