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.19 by root, Tue Aug 16 02:08:06 2005 UTC vs.
Revision 1.27 by root, Sun Oct 22 21:51:13 2006 UTC

1package Gtk2::CV; 1package Gtk2::CV;
2
3use XSLoader;
4
5$VERSION = '0.5';
6
7XSLoader::load "Gtk2::CV", $VERSION;
8 2
9use Gtk2; 3use Gtk2;
10use Glib; 4use Glib;
11 5
12use IO::AIO; 6use IO::AIO;
7
8BEGIN {
9 use XSLoader;
10
11 $VERSION = '1.3';
12
13 XSLoader::load "Gtk2::CV", $VERSION;
14}
13 15
14my $aio_source; 16my $aio_source;
15 17
16# we use a low priority to give GUI interactions as high a priority 18# we use a low priority to give GUI interactions as high a priority
17# as possible. 19# as possible.
… …
27 remove Glib::Source $aio_source if $aio_source; 29 remove Glib::Source $aio_source if $aio_source;
28 undef $aio_source; 30 undef $aio_source;
29} 31}
30 32
31enable_aio; 33enable_aio;
32IO::AIO::max_outstanding 128;
33 34
34sub find_rcfile($) { 35sub find_rcfile($) {
35 my $path; 36 my $path;
36 37
37 for (@INC) { 38 for (@INC) {
… …
44 45
45sub require_image($) { 46sub require_image($) {
46 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]"; 47 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
47} 48}
48 49
50sub dealpha_compose($) {
51 return $_[0] unless $_[0]->get_has_alpha;
52
53 Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
54 $_[0]->get_width, $_[0]->get_height,
55 'nearest', 255, 16, 0xffc0c0c0, 0xff606060,
56 )
57}
58
59# TODO: make preferences
60sub dealpha($) {
61 &dealpha_compose
62}
63
491; 641;
50 65

Diff Legend

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