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

* Changed the version checking code because 0.7004 does this;

Browse Source 
version_check(CLASS, req_maj, req_min, req_micro) vs
  version_check(req_maj, req_min, req_micro)
* Using other version checks *_version.
This commit is contained in:
freesource 2000-12-10 06:52:49 +00:00
parent e378c43935
commit a778b2e255
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gBootRoot
View File

@ -263,17 +263,32 @@ verbosity_box();
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name" start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level" # "verbosity level"
# Gtk::check_version expects different arguments .7004 so will have
# to check for the version instead.
# Right now >= 0.7000 is o.k. # Right now >= 0.7000 is o.k.
if (Gtk::check_version("1","0","7") =~ /too old/) { #if (Gtk::check_version(undef,"1","0","7") =~ /too old/) {
if (Gtk->major_version < 1) {
et();
}
elsif (Gtk->micro_version < 7) {
et();
}
elsif (Gtk->minor_version < 2) {
et();
}
sub et {
error_window("gBootRoot is presently being developed with gtk-perl" . error_window("gBootRoot is presently being developed with gtk-perl" .
" version $gtk_perl_version.\nYou are using a" . " version $gtk_perl_version.\nYou are using a" .
" version of gtk-perl < 0.7000. You may still be able\n" . " version of gtk-perl < 0.7002. You may still be able\n" .
" to use this program, but you may encounter problems." . " to use this program, but you may encounter problems." .
" See the FAQ\nfor places to get a newer gtk-perl version." . " See the FAQ\nfor places to get a newer gtk-perl version." .
" \n\nThe most common error reported:\n\"Can't locate" . " \n\nThe most common error reported:\n\"Can't locate" .
" object method\""); " object method\"");
#,"center"); #,"center");
print "Using a version of gtk-perl < 0.7000\n"; print "Using a version of gtk-perl < 0.7002\n";
} }
my $window = new Gtk::Window("toplevel"); my $window = new Gtk::Window("toplevel");
@ -1053,7 +1068,6 @@ sub Generate {
yard($kernel,$template_dir,$template); yard($kernel,$template_dir,$template);
} }
#print "$root_selection $root_filename $method $template\n";
} # end sub Generate } # end sub Generate
@ -1281,18 +1295,6 @@ sub verbosity_box {
} # end sub verbosity_box } # end sub verbosity_box
sub make_menu_item {
my( $name, $callback, $data ) = @_;
my $item;
$item = new Gtk::MenuItem( $name );
$item->signal_connect( "activate", $callback, $data );
$item->show();
return $item;
}
sub fileselect { sub fileselect {
my ($widget,$ent,$name,$order,$device) = @_; my ($widget,$ent,$name,$order,$device) = @_;