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.30 by root, Sat Oct 28 01:26:09 2006 UTC vs.
Revision 1.32 by root, Thu Nov 2 00:09:15 2006 UTC

14} 14}
15 15
16my $aio_source; 16my $aio_source;
17 17
18IO::AIO::min_parallel 32; 18IO::AIO::min_parallel 32;
19IO::AIO::max_poll_time 0.01;
19 20
20# we use a low priority watcher to give GUI interactions as high a priority 21# we use a low priority watcher to give GUI interactions as high a priority
21# as possible. 22# as possible.
22sub enable_aio { 23sub enable_aio {
23 $aio_source ||= 24 $aio_source ||=
24 add_watch Glib::IO IO::AIO::poll_fileno, 25 add_watch Glib::IO IO::AIO::poll_fileno,
25 in => sub { 26 in => sub {
26 eval { IO::AIO::poll_some 64 }; 27 eval { IO::AIO::poll_cb };
27 warn $@ if $q;#d# 28 warn $@ if $@;#d#
28 1 29 1
29 }, 30 },
30 undef, 31 undef,
31 &Glib::G_PRIORITY_LOW; 32 &Glib::G_PRIORITY_LOW;
32} 33}
33 34
34sub disable_aio { 35sub disable_aio {
35 remove Glib::Source $aio_source if $aio_source; 36 remove Glib::Source $aio_source if $aio_source;
36 undef $aio_source; 37 undef $aio_source;
38}
39
40sub flush_aio {
41 enable_aio;
42 IO::AIO::flush;
37} 43}
38 44
39enable_aio; 45enable_aio;
40 46
41sub find_rcfile($) { 47sub find_rcfile($) {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines