Browse Source

Renames the Method -> lilo method to 2 disk compression. It should be noted

that presently lilo() is the default and the value for METHOD isn't checked
since only one bott method is presently provided.
master
freesource 24 years ago
parent
commit
df8b6f1f20
  1. 12
      gbootroot

12
gbootroot

@ -440,11 +440,11 @@ my $entry = entry($false,0);
my $opt = Gtk::OptionMenu->new(); my $opt = Gtk::OptionMenu->new();
$tooltips->set_tip( $opt, "Choose the Boot method.", "" ); $tooltips->set_tip( $opt, "Choose the Boot method.", "" );
my $menu = Gtk::Menu->new(); my $menu = Gtk::Menu->new();
my $item = Gtk::MenuItem->new("Method -> lilo" ); my $item = Gtk::MenuItem->new("2 disk compression" );
$item->show(); $item->show();
# Eventually get_menu, or something totally different will be used. # Eventually get_menu, or something totally different will be used.
$item->signal_connect( 'activate',sub { $entry->set_text("lilo"); $item->signal_connect( 'activate',sub { $entry->set_text("2 disk compression");
$container[METHOD] = "lilo"}); $container[METHOD] = "2 disk compression"});
$menu->append( $item ); $menu->append( $item );
$opt->set_menu( $menu ); $opt->set_menu( $menu );
$box2->pack_start( $opt, $true, $true, 0 ); $box2->pack_start( $opt, $true, $true, 0 );
@ -1908,7 +1908,8 @@ sub entry {
my($edit,$num) = @_; my($edit,$num) = @_;
my $entry = Gtk::Entry->new(); my $entry = Gtk::Entry->new();
$entry->set_editable( $true );
$entry->set_editable( $false ) if $edit == 0;
if ($num == 0) { if ($num == 0) {
$entry->signal_connect( "activate", sub { $entry->signal_connect( "activate", sub {
@ -2213,7 +2214,8 @@ elsif (defined $container[METHOD] && defined $container[KERNEL] &&
$container[ABS_APPEND] $container[ABS_APPEND]
); );
lilo(); lilo(); # This is the default now, and the value for
# METHOD doesn't matter now.
} }
} # end sub submit } # end sub submit

Loading…
Cancel
Save