[ViewVC] Diff of: cvs/CV/lib/Gtk2/CV.pm

Comparing CV/lib/Gtk2/CV.pm (file contents):
Revision 1.21 by root, Sun Aug 21 02:19:16 2005 UTC vs.
Revision 1.33 by root, Sat Mar 17 13:12:20 2007 UTC

 use IO::AIO;
 BEGIN {
    use XSLoader;
-   $VERSION = '0.5';
+   $VERSION = '1.4';
    XSLoader::load "Gtk2::CV", $VERSION;
 }
 my $aio_source;
+IO::AIO::min_parallel 32;
+IO::AIO::max_poll_time 0.01;
-# we use a low priority to give GUI interactions as high a priority
+# we use a low priority watcher to give GUI interactions as high a priority
 # as possible.
 sub enable_aio {
    $aio_source ||=
       add_watch Glib::IO IO::AIO::poll_fileno,
-                         in => sub { IO::AIO::poll_cb; 1 },
+         in => sub {
-                         undef,
+            eval { IO::AIO::poll_cb };
+            warn $@ if $@;#d#
+            1
+         },
+         undef,
-                         &Glib::G_PRIORITY_LOW;
+         &Glib::G_PRIORITY_LOW;
 }
 sub disable_aio {
    remove Glib::Source $aio_source if $aio_source;
    undef $aio_source;
 }
+sub flush_aio {
+   enable_aio;
+   IO::AIO::flush;
+}
 enable_aio;
-IO::AIO::max_outstanding 128;
 sub find_rcfile($) {
    my $path;
    for (@INC) {
 sub dealpha_compose($) {
    return $_[0] unless $_[0]->get_has_alpha;
    Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
       $_[0]->get_width, $_[0]->get_height,
-      'nearest', 255, 16, 0xa0a0a0ff, 0x606060ff,
+      'nearest', 255, 16, 0xffc0c0c0, 0xff606060,
    )
 }
 # TODO: make preferences
 sub dealpha($) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines