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.5 by root, Fri Nov 7 03:07:01 2003 UTC vs.
Revision 1.19 by root, Tue Aug 16 02:08:06 2005 UTC

1package Gtk2::CV; 1package Gtk2::CV;
2 2
3use XSLoader; 3use XSLoader;
4 4
5$VERSION = 0.11; 5$VERSION = '0.5';
6 6
7XSLoader::load "Gtk2::CV", $VERSION; 7XSLoader::load "Gtk2::CV", $VERSION;
8 8
9use Gtk2; 9use Gtk2;
10use Glib;
10 11
12use IO::AIO;
13
14my $aio_source;
15
16# we use a low priority to give GUI interactions as high a priority
17# as possible.
18sub enable_aio {
19 $aio_source ||=
20 add_watch Glib::IO IO::AIO::poll_fileno,
21 in => sub { IO::AIO::poll_cb; 1 },
22 undef,
23 &Glib::G_PRIORITY_LOW;
24}
25
26sub disable_aio {
27 remove Glib::Source $aio_source if $aio_source;
28 undef $aio_source;
29}
30
31enable_aio;
32IO::AIO::max_outstanding 128;
33
11sub find_rcfile { 34sub find_rcfile($) {
12 my $path; 35 my $path;
13 36
14 for (@INC) { 37 for (@INC) {
15 $path = "$_/Gtk2/CV/$_[0]"; 38 $path = "$_/Gtk2/CV/$_[0]";
16 return $path if -r $path; 39 return $path if -r $path;
17 } 40 }
18 41
19 die "FATAL: can't find required file $_[0]\n"; 42 die "FATAL: can't find required file $_[0]\n";
20} 43}
21 44
22sub require_image { 45sub require_image($) {
23 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]"; 46 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
24} 47}
25 48
261; 491;
27 50

Diff Legend

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