bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
freesource 2000-09-03 21:10:52 +00:00
parent ccc12e7977
commit e954f09e06
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
gBootRoot
View File

@ -29,12 +29,6 @@ use strict;
init Gtk; 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? # Perhaps you are wondering where to learn how to program with Gtk-Perl?
# There is an excellent tutorial by Stephen Wilhelm at # 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). # right libraries are copied over to initrd and the size is checked).
# I need to remember to edit this # 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; my $pwd = `pwd`; chomp $pwd;
use File::Basename; use File::Basename;
@ -220,6 +215,21 @@ if (!-d "$tmp1/gbootroot_mnt$$") {
} }
my $verbosefn = "$tmp/verbose"; 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"); my $window = new Gtk::Window("toplevel");
# special policy # special policy
$window->set_policy( $false, $true, $true ); $window->set_policy( $false, $true, $true );
@ -400,7 +410,6 @@ $hbutton->show();
$box2->pack_start( $hbutton, $true, $true, 0 ); $box2->pack_start( $hbutton, $true, $true, 0 );
$box2->show(); $box2->show();
$window->show(); $window->show();
main Gtk; main Gtk;
exit( 0 ); exit( 0 );
@ -1048,6 +1057,7 @@ sub error_window {
$error_window->set_title("gBootRoot ERROR"); $error_window->set_title("gBootRoot ERROR");
$error_window->border_width(15); $error_window->border_width(15);
my $label = new Gtk::Label($error); my $label = new Gtk::Label($error);
$label->set_justify("left") if $_[1];
$error_window->vbox->pack_start( $label, $true, $true, 15 ); $error_window->vbox->pack_start( $label, $true, $true, 15 );
$label->show(); $label->show();
my $button = new Gtk::Button("OK"); my $button = new Gtk::Button("OK");
@ -1930,11 +1940,9 @@ mini distributions simple.
How to Use gBootRoot: 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 The first row has only one choice "lilo." Clicking on the menu on the right
selects the boot method. selects the boot method.