package Gtk::Gdk::Pixmap; use strict; sub create_from_xpm { my ($self, $file) = @_; $file =~ s!^.*/([^/]+)$!$main::prefs{WebPixmapDir}/$1!; $file =~ s/xpm$/png/; return ($file, ""); } 1;