lib/Gtk2/CV.pm

package Gtk2::CV;

use IO::AIO;

use XSLoader;

$VERSION = '0.3';

XSLoader::load "Gtk2::CV", $VERSION;

use Gtk2;
use Glib;

add_watch Glib::IO IO::AIO::poll_fileno, 'in', \&IO::AIO::poll_cb;

sub find_rcfile($) {
   my $path;

   for (@INC) {
      $path = "$_/Gtk2/CV/$_[0]";
      return $path if -r $path;
   }

   die "FATAL: can't find required file $_[0]\n";
}

sub require_image($) {
   new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
}

1;

Revision:	1.13
Committed:	Mon Jul 11 02:14:10 2005 UTC (19 years ago) by root
Branch:	MAIN
Changes since 1.12:	+5 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	package Gtk2::CV;
2
3	root	1.13	use IO::AIO;
4
5	root	1.1	use XSLoader;
6
7	root	1.12	$VERSION = '0.3';
8	root	1.3
9			XSLoader::load "Gtk2::CV", $VERSION;
10	root	1.1
11	root	1.2	use Gtk2;
12	root	1.13	use Glib;
13
14			add_watch Glib::IO IO::AIO::poll_fileno, 'in', \&IO::AIO::poll_cb;
15	root	1.2
16	root	1.9	sub find_rcfile($) {
17	root	1.2	my $path;
18
19			for (@INC) {
20	root	1.4	$path = "$_/Gtk2/CV/$_[0]";
21			return $path if -r $path;
22	root	1.2	}
23
24	root	1.4	die "FATAL: can't find required file $_[0]\n";
25			}
26
27	root	1.9	sub require_image($) {
28	root	1.4	new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
29	root	1.2	}
30
31	root	1.1	1;
32