Browse Source

Root Filesystem selection defaults to $home_rootfs.

master
freesource 24 years ago
parent
commit
9383294f26
  1. 8
      gBootRoot

8
gBootRoot

@ -114,7 +114,7 @@ my $date = "09.03.2000";
my $gtk_perl_version = "0.7002"; my $gtk_perl_version = "0.7002";
my $pwd = `pwd`; chomp $pwd; my $pwd = `pwd`; chomp $pwd;
my $template_dir = "./"; my $template_dir = "./";
my $home_rootfs = "$home/root_filesystem"; my $home_rootfs = "$home/root_filesystem/";
my $initrd; my $initrd;
my $compress; my $compress;
@ -397,7 +397,7 @@ button("Kernel Selection",$entry2,"Kernel Selection",1);
# Third row # Third row
hbox(); hbox();
my $entry3 = entry($true,2); my $entry3 = entry($true,2);
button("Root Filesystem",$entry3,"Root Filesystem",2); button("Root Filesystem",$entry3,"Root Filesystem",2,$home_rootfs);
# In the future, if experimenters send in data, there will be two # In the future, if experimenters send in data, there will be two
# different devices. # different devices.
@ -406,7 +406,7 @@ hbox();
my $entry4 = entry($true,3); my $entry4 = entry($true,3);
$container[BOOT_DEVICE] = "/dev/fd0"; $container[BOOT_DEVICE] = "/dev/fd0";
$entry4->set_text($container[BOOT_DEVICE]); $entry4->set_text($container[BOOT_DEVICE]);
button("Device Selection",$entry4,"Device Selection",3,$true); button("Device Selection",$entry4,"Device Selection",3,"/dev/fd0");
# Fifth row # Fifth row
hbox("what"); hbox("what");
@ -1378,7 +1378,7 @@ sub fileselect {
# Connect the cancel_button to destroy the widget # Connect the cancel_button to destroy the widget
$file_dialog->cancel_button->signal_connect( "clicked", $file_dialog->cancel_button->signal_connect( "clicked",
sub { destroy $file_dialog } ); sub { destroy $file_dialog } );
$file_dialog->set_filename( "/dev/fd0" ) if defined $device; $file_dialog->set_filename( $device ) if defined $device;
$file_dialog->set_position('mouse'); $file_dialog->set_position('mouse');
} }

Loading…
Cancel
Save