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

ui.backend.gtk: fix yield delay on gtk backend.

db4
John Benediktsson 2014-08-05 11:24:23 -07:00
parent 5ee4ae0fcb
commit e5ac9c9c0f
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/backend/gtk/gtk.factor
View File

@ -60,22 +60,18 @@ M: gtk-clipboard set-clipboard-contents
! Timer
SYMBOL: next-fire-time
: set-timeout*-value ( alien value -- )
swap 0 set-alien-signed-4 ; inline
: timer-prepare ( source timeout* -- ? )
nip next-fire-time get-global nano-count [-]
nip sleep-time 1,000,000,000 or
[ 1,000,000 /i set-timeout*-value ] keep 0 = ;
: timer-check ( source -- ? )
drop next-fire-time get-global nano-count [-] 0 = ;
drop sleep-time 0 = ;
: timer-dispatch ( source callback user_data -- ? )
3drop sleep-time [ 1,000,000,000 ] unless* nano-count +
next-fire-time set-global
yield t ;
3drop yield t ;
: <timer-funcs> ( -- timer-funcs )
GSourceFuncs malloc-struct
@ -84,7 +80,6 @@ SYMBOL: next-fire-time
[ timer-dispatch ] GSourceFuncsDispatchFunc >>dispatch ;
:: with-timer ( quot -- )
nano-count next-fire-time set-global
<timer-funcs> &free
GSource heap-size g_source_new &g_source_unref :> source
source f g_source_attach drop