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.21 by root, Sun Aug 21 02:19:16 2005 UTC vs.
Revision 1.30 by root, Sat Oct 28 01:26:09 2006 UTC

6use IO::AIO; 6use IO::AIO;
7 7
8BEGIN { 8BEGIN {
9 use XSLoader; 9 use XSLoader;
10 10
11 $VERSION = '0.5'; 11 $VERSION = '1.3';
12 12
13 XSLoader::load "Gtk2::CV", $VERSION; 13 XSLoader::load "Gtk2::CV", $VERSION;
14} 14}
15 15
16my $aio_source; 16my $aio_source;
17 17
18IO::AIO::min_parallel 32;
19
18# we use a low priority to give GUI interactions as high a priority 20# we use a low priority watcher to give GUI interactions as high a priority
19# as possible. 21# as possible.
20sub enable_aio { 22sub enable_aio {
21 $aio_source ||= 23 $aio_source ||=
22 add_watch Glib::IO IO::AIO::poll_fileno, 24 add_watch Glib::IO IO::AIO::poll_fileno,
23 in => sub { IO::AIO::poll_cb; 1 }, 25 in => sub {
24 undef, 26 eval { IO::AIO::poll_some 64 };
27 warn $@ if $q;#d#
28 1
29 },
30 undef,
25 &Glib::G_PRIORITY_LOW; 31 &Glib::G_PRIORITY_LOW;
26} 32}
27 33
28sub disable_aio { 34sub disable_aio {
29 remove Glib::Source $aio_source if $aio_source; 35 remove Glib::Source $aio_source if $aio_source;
30 undef $aio_source; 36 undef $aio_source;
31} 37}
32 38
33enable_aio; 39enable_aio;
34IO::AIO::max_outstanding 128;
35 40
36sub find_rcfile($) { 41sub find_rcfile($) {
37 my $path; 42 my $path;
38 43
39 for (@INC) { 44 for (@INC) {
51sub dealpha_compose($) { 56sub dealpha_compose($) {
52 return $_[0] unless $_[0]->get_has_alpha; 57 return $_[0] unless $_[0]->get_has_alpha;
53 58
54 Gtk2::CV::dealpha_expose $_[0]->composite_color_simple ( 59 Gtk2::CV::dealpha_expose $_[0]->composite_color_simple (
55 $_[0]->get_width, $_[0]->get_height, 60 $_[0]->get_width, $_[0]->get_height,
56 'nearest', 255, 16, 0xa0a0a0ff, 0x606060ff, 61 'nearest', 255, 16, 0xffc0c0c0, 0xff606060,
57 ) 62 )
58} 63}
59 64
60# TODO: make preferences 65# TODO: make preferences
61sub dealpha($) { 66sub dealpha($) {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines