lib/Gtk2/CV.pm

package Gtk2::CV;

use XSLoader;

$VERSION = 0.12;

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

use Gtk2;

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.6
Committed:	Fri Nov 7 04:41:18 2003 UTC (20 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.5:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	package Gtk2::CV;
2
3			use XSLoader;
4
5	root	1.6	$VERSION = 0.12;
6	root	1.3
7			XSLoader::load "Gtk2::CV", $VERSION;
8	root	1.1
9	root	1.2	use Gtk2;
10
11	root	1.4	sub find_rcfile {
12	root	1.2	my $path;
13
14			for (@INC) {
15	root	1.4	$path = "$_/Gtk2/CV/$_[0]";
16			return $path if -r $path;
17	root	1.2	}
18
19	root	1.4	die "FATAL: can't find required file $_[0]\n";
20			}
21
22			sub require_image {
23			new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
24	root	1.2	}
25
26	root	1.1	1;
27