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.20 by root, Sun Aug 21 02:18:30 2005 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 = '0.5';
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.
… …
44 46
45sub require_image($) { 47sub require_image($) {
46 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]"; 48 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
47} 49}
48 50
51sub dealpha_compose($) {
52 return $_[0] unless $_[0]->get_has_alpha;
53
54 Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
55 $_[0]->get_width, $_[0]->get_height,
56 'nearest', 100, 10, 0xa0a0a0ff, 0x606060ff,
57 )
58}
59
60# TODO: make preferences
61sub dealpha($) {
62 &dealpha_compose
63}
64
491; 651;
50 66

Diff Legend

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