see plug-ins/perl/Changes

1999-03-08 20:05:08 +00:00
parent 28a4c66e32
commit 872e522891
4 changed files with 29 additions and 3 deletions
--- a/plug-ins/perl/Gimp/Fu.pm
+++ b/plug-ins/perl/Gimp/Fu.pm
@ -164,8 +164,12 @@ sub interact($$$@) {

   # only pull these in if _really_ required
   # gets us some speed we really need
-   require Gtk; import Gtk;
-   init Gtk; # gross hack...
+   eval {
+      require Gtkx; import Gtk;
+      init Gtk; # gross hack...
+   };
+   die "The Gtk perl module is required to run perl-scripts in interactive mode!\n" if $@;
+
   parse Gtk::Rc Gimp->gtkrc;

   require Gimp::UI; import Gimp::UI;