--- CV/lib/Gtk2/CV.pm	2005/08/16 02:08:06	1.19
+++ CV/lib/Gtk2/CV.pm	2005/08/21 02:18:30	1.20
@@ -1,16 +1,18 @@
 package Gtk2::CV;
 
-use XSLoader;
-
-$VERSION = '0.5';
-
-XSLoader::load "Gtk2::CV", $VERSION;
-
 use Gtk2;
 use Glib;
 
 use IO::AIO;
 
+BEGIN {
+   use XSLoader;
+
+   $VERSION = '0.5';
+
+   XSLoader::load "Gtk2::CV", $VERSION;
+}
+
 my $aio_source;
 
 # we use a low priority to give GUI interactions as high a priority
@@ -46,5 +48,19 @@
    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', 100, 10, 0xa0a0a0ff, 0x606060ff,
+   )
+}
+
+# TODO: make preferences
+sub dealpha($) {
+   &dealpha_compose
+}
+
 1;