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

This makes sure that root filename is current when the ars is closed and

Browse Source 
reopened, and also updates $ars->{filename} to the current $entry_advanced[4].
This commit is contained in:
freesource 2001-08-29 05:46:17 +00:00
parent 52fbcbfaff
commit 1ded9fbb1b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gbootroot
View File

@ -48,7 +48,6 @@ set_locale Gtk;
# Gtk-Perl. A good reference can be found at
# http://projects.prosa.it/gtkperl/reference.html
# If you want gBootRoot to do it's stuff somewhere else, change the
# value for $tmp1.
my $tmp1 = "/tmp"; # tmp should be default - Cristian
@ -734,6 +733,7 @@ sub advanced_boot_section {
#_______________________________________
# lib_strip_check
label_advanced("Stripping:",0,1,0,1,$table_advanced);
!defined $lib_strip_check ? ($boolean = 1)
: ($boolean = $lib_strip_check->get_active());
$lib_strip_check = Gtk::CheckButton->new("Libraries");
@ -874,8 +874,10 @@ sub advanced_root_section {
# gBootRoot methods
label_advanced("Root Filename:",0,1,2,3,$table_advanced_root);
$ear2 = entry_advanced(1,2,2,3,4,$table_advanced_root);
$ear2->set_text("root_fs");
$ars->{filename} = "root_fs";
$ear2->set_text("root_fs") if !$entry_advanced[4];
$ars->{filename} = "root_fs" if !$entry_advanced[4];
$ear2->set_text($entry_advanced[4]) if $entry_advanced[4];
$ars->{filename} = $entry_advanced[4] if $entry_advanced[4];
ars($ars);
$tooltips->set_tip( $ear2, "Give the Root Filesystem file a name.",
"" );
@ -1424,6 +1426,8 @@ sub save_as {
$button->signal_connect("clicked", sub {
$entry_advanced[4] = $new_template;
$ars->{filename} = $new_template;
ars($ars);
# This is a renaming deal and this time doesn't exist in the archive
# or $tmp.