--- CV/lib/Gtk2/CV.pm	2003/11/02 12:55:41	1.1
+++ CV/lib/Gtk2/CV.pm	2003/11/03 01:27:37	1.2
@@ -4,5 +4,19 @@
 
 XSLoader::load "Gtk2::CV", 0.0001;
 
+use Gtk2;
+
+sub require_image {
+   my $path;
+
+   for (@INC) {
+      $path = "$_/Gtk2/CV/images/$_[0]";
+      last if -r $path;
+   }
+
+   eval { new_from_file Gtk2::Gdk::Pixbuf $path }
+      or die "can't find image $_[0] in \@INC";
+}
+
 1;