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.3 by root, Mon Nov 3 16:44:19 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.1; 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
11sub require_image { 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
30sub find_rcfile($) {
12 my $path; 31 my $path;
13 32
14 for (@INC) { 33 for (@INC) {
15 $path = "$_/Gtk2/CV/images/$_[0]"; 34 $path = "$_/Gtk2/CV/$_[0]";
16 last if -r $path; 35 return $path if -r $path;
17 } 36 }
18 37
19 eval { new_from_file Gtk2::Gdk::Pixbuf $path } 38 die "FATAL: can't find required file $_[0]\n";
20 or die "can't find image $_[0] in \@INC"; 39}
40
41sub require_image($) {
42 new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
21} 43}
22 44
231; 451;
24 46

Diff Legend

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