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