ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/lib/Gtk2/CV.pm
(Generate patch)

Comparing CV/lib/Gtk2/CV.pm (file contents):
Revision 1.27 by root, Sun Oct 22 21:51:13 2006 UTC vs.
Revision 1.31 by root, Sat Oct 28 23:09:02 2006 UTC

13 XSLoader::load "Gtk2::CV", $VERSION; 13 XSLoader::load "Gtk2::CV", $VERSION;
14} 14}
15 15
16my $aio_source; 16my $aio_source;
17 17
18IO::AIO::min_parallel 32;
19IO::AIO::max_poll_time 0.01;
20
18# we use a low priority to give GUI interactions as high a priority 21# we use a low priority watcher to give GUI interactions as high a priority
19# as possible. 22# as possible.
20sub enable_aio { 23sub enable_aio {
21 $aio_source ||= 24 $aio_source ||=
22 add_watch Glib::IO IO::AIO::poll_fileno, 25 add_watch Glib::IO IO::AIO::poll_fileno,
23 in => sub { IO::AIO::poll_cb; 1 }, 26 in => sub {
24 undef, 27 eval { IO::AIO::poll_cb };
28 warn $@ if $@;#d#
29 1
30 },
31 undef,
25 &Glib::G_PRIORITY_LOW; 32 &Glib::G_PRIORITY_LOW;
26} 33}
27 34
28sub disable_aio { 35sub disable_aio {
29 remove Glib::Source $aio_source if $aio_source; 36 remove Glib::Source $aio_source if $aio_source;
30 undef $aio_source; 37 undef $aio_source;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines