This fixes bug 111580 by checking for the gtk-perl version, reporting with error_window() and STDOUT. Decided against Documentation for right now.

gBootRoot

@@ -29,12 +29,6 @@ use strict;
 
 init Gtk;
 
-#my $check_version = Gtk::check_version("1","0","7");
-#print $check_version;
-
-# 1 2 7 ... 0.7002
-#Gtk->print('Gtk->major_version, "  ", Gtk->minor_version, "  ", Gtk->micro_version');
-
 
 # Perhaps you are wondering where to learn how to program with Gtk-Perl?
 # There is an excellent tutorial by Stephen Wilhelm at
@@ -95,8 +89,9 @@ my $lilo_conf = "/etc/lilo.conf";
 # right libraries are copied over to initrd and the size is checked).
 
 # I need to remember to edit this
-my $version = "version to be announced soon!";
+my $version = "1.2.2";
-my $date = "08.09.2000";
+my $date = "09.03.2000";
+my $gtk_perl_version = "0.7002";
 my $pwd = `pwd`; chomp $pwd;
 use File::Basename;
 
@@ -220,6 +215,21 @@ if (!-d "$tmp1/gbootroot_mnt$$") {
 }
 my $verbosefn = "$tmp/verbose";
 
+
+# Right now >= 0.7000 is o.k.
+if (Gtk::check_version("1","0","7") =~ /too old/) {
+    error_window("gBootRoot is presently being developed with gtk-perl" . 
+                 " version $gtk_perl_version.\nYou are using a" .
+                 " version of gtk-perl < 0.7000.  You may still be able\n" .
+                 " to use this program, but you may encounter problems." .
+                 " See the FAQ\nfor places to get a newer gtk-perl version." .
+                 " \n\nThe most common error reported:\n\"Can't locate" .
+                 "  object  method\""
+                 
+        ,"center");
+    print "Using a version of gtk-perl < 0.7000\n";
+}
+
 my $window = new Gtk::Window("toplevel");
 # special policy
 $window->set_policy( $false, $true, $true );
@@ -400,7 +410,6 @@ $hbutton->show();
 $box2->pack_start( $hbutton, $true, $true, 0 );
 $box2->show();
 
-
 $window->show();
 main Gtk;
 exit( 0 );
@@ -1048,6 +1057,7 @@ sub error_window {
     $error_window->set_title("gBootRoot ERROR");
     $error_window->border_width(15);
     my $label = new Gtk::Label($error);
+    $label->set_justify("left") if $_[1];
     $error_window->vbox->pack_start( $label, $true, $true, 15 );
     $label->show();
     my $button = new Gtk::Button("OK");
@@ -1930,11 +1940,9 @@ mini distributions simple.
 
 How to Use gBootRoot:
 
-gBootRoot is similar to BootRoot, but it is more efficient
+The most important button to familiarize yourself with is the Submit button 
-and powerful.  The most important button to familiarize yourself
+which starts the whole process; dialogs are presented as the process 
-with is the Submit button which starts the whole process, dialogs are
+continues asking you if you want to continue "OK" or stop "Cancel".
-presented as the process continues asking you if you want to continue "OK" or
-stop "Cancel".
 
 The first row has only one choice "lilo."  Clicking on the menu on the right 
 selects the boot method.