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

Comparing CV/lib/Gtk2/CV.pm (file contents):
Revision 1.18 by root, Thu Jul 21 01:04:29 2005 UTC vs.
Revision 1.30 by root, Sat Oct 28 01:26:09 2006 UTC

 package Gtk2::CV;
-use XSLoader;
-$VERSION = '0.5';
-XSLoader::load "Gtk2::CV", $VERSION;
 use Gtk2;
 use Glib;
 use IO::AIO;
+BEGIN {
+   use XSLoader;
+   $VERSION = '1.3';
+   XSLoader::load "Gtk2::CV", $VERSION;
+}
 my $aio_source;
+IO::AIO::min_parallel 32;
+# 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 {
+            eval { IO::AIO::poll_some 64 };
+            warn $@ if $q;#d#
+            1
+         },
+         undef,
+         &Glib::G_PRIORITY_LOW;
 }
 sub disable_aio {
    remove Glib::Source $aio_source if $aio_source;
    undef $aio_source;
 }
 enable_aio;
-IO::AIO::max_outstanding 128;
 sub find_rcfile($) {
    my $path;
    for (@INC) {
 sub require_image($) {
    new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
 }
+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, 0xffc0c0c0, 0xff606060,
+   )
+}
+# TODO: make preferences
+sub dealpha($) {
+   &dealpha_compose
+}
 1;

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