From e954f09e068d76de3db637fd4962a1d9b793e64c Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sun, 3 Sep 2000 21:10:52 +0000
Subject: [PATCH] This fixes bug 111580 by checking for the gtk-perl version,
 reporting with error_window() and STDOUT.  Decided against Documentation for
 right now.

---
 gBootRoot | 36 ++++++++++++++++++++++--------------
 1 file changed, 22 insertions(+), 14 deletions(-)

diff --git a/gBootRoot b/gBootRoot
index 51c3c7f..1240a69 100644
--- a/gBootRoot
+++ b/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 $date = "08.09.2000";
+my $version = "1.2.2";
+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
-and powerful.  The most important button to familiarize yourself
-with is the Submit button which starts the whole process, dialogs are
-presented as the process continues asking you if you want to continue "OK" or
-stop "Cancel".
+The most important button to familiarize yourself with is the Submit button 
+which starts the whole process; dialogs are 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.