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.18 by root, Thu Jul 21 01:04:29 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
16sub enable_aio {
17 $aio_source ||=
18 add_watch Glib::IO IO::AIO::poll_fileno,
19 in => sub { IO::AIO::poll_cb; 1 };
20}
21
22sub disable_aio {
23 remove Glib::Source $aio_source if $aio_source;
24 undef $aio_source;
25}
26
27enable_aio;
28IO::AIO::max_outstanding 128;
29
11sub find_rcfile { 30sub find_rcfile($) {
12 my $path; 31 my $path;
13 32
14 for (@INC) { 33 for (@INC) {
15 $path = "$_/Gtk2/CV/$_[0]"; 34 $path = "$_/Gtk2/CV/$_[0]";
16 return $path if -r $path; 35 return $path if -r $path;
17 } 36 }
18 37
19 die "FATAL: can't find required file $_[0]\n"; 38 die "FATAL: can't find required file $_[0]\n";
20} 39}
21 40
22sub require_image { 41sub require_image($) {
23 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]"; 42 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
24} 43}
25 44
261; 451;
27 46

Diff Legend

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