bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

This improves the Abort text for the uml box. Checks in ARS to see whether the 

root_fs already exists in the archive, almost have it working properly.
master
freesource 23 years ago
parent
f420f43f82
commit
8d8bc72d4c
1 changed files with 128 additions and 6 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 134
      gbootroot

134
gbootroot
View File

@ -1098,7 +1098,7 @@ sub uml_box {
\$uml_window);
#$uml_window->set_usize( 450, 175 ); # 500 600
$uml_window->set_policy( $true, $true, $false );
$uml_window->set_title( "Uml Box" );
$uml_window->set_title( "UML Box" );
$uml_window->border_width(1);
my $main_vbox = Gtk::VBox->new( $false, 0 );
@ -1237,13 +1237,15 @@ sub uml_box {
my $abort_b = button_advanced(1,2,3,4,"Abort",$table_uml);
$tooltips->set_tip( $abort_b,
"Abort uml kernel processes." .
"This serves two purposes:\n" .
"This serves three purposes:\n" .
"1. Your creation doesn't boot.\n" .
"2. Your creation does work and" .
" you use something like" .
" `shutdown -h now`. When you are all done use" .
" Abort because it provides an excellent" .
" way to kill any ghost processes.",
" way to kill any ghost processes.\n" .
"3. Your creation gets weird, and you need to " .
"Abort its processes to shutdown it. ",
"" );
$abort_b->signal_connect("clicked",
sub {
@ -1328,7 +1330,12 @@ sub accept_button {
}
close(F);
if ($ear2_save->active) {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
if (-f "$home_rootfs/$entry_advanced[4]") {
save_as($entry_advanced[4]);
}
else {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
}
}
}
elsif ($bz2_toggle_root->active) {
@ -1349,14 +1356,24 @@ sub accept_button {
}
close(F);
if ($ear2_save->active) {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
if (-f "$home_rootfs/$entry_advanced[4]") {
save_as($entry_advanced[4]);
}
else {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
}
}
}
}
else { # off
$entry3->set_text("$tmp/$entry_advanced[4]");
if ($ear2_save->active) {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
if (-f "$home_rootfs/$entry_advanced[4]") {
save_as($entry_advanced[4]);
}
else {
return if errcp(sys("cp -a $tmp/$entry_advanced[4] $home_rootfs")) == 2;
}
}
}
}
@ -1366,6 +1383,111 @@ sub accept_button {
} # end accept_button
my ($save_as);
sub save_as {
# Will just use a dialog box.
my ($template) = @_;
#my ($button);
if (not defined $save_as) {
$save_as = Gtk::Dialog->new();
$save_as->signal_connect("destroy", \&destroy_window, \$save_as);
$save_as->signal_connect("delete_event", \&destroy_window, \$save_as);
$save_as->set_title("Save As");
$save_as->border_width(12);
$save_as->set_position('center');
my $new_template = $template;
my $entry = Gtk::Entry->new();
$entry->set_editable( $true );
$entry->set_text($template) if $template;
$entry->signal_connect( "changed", sub {
$new_template = $entry->get_text();
});
$save_as->vbox->pack_start( $entry, $false, $false, 0);
$entry->show();
my $label = Gtk::Label->new();
$label->set_justify( 'left' );
$label->set_text("$template already exists, " .
"do\nyou want to write over it, " .
"or\nsave it with a different name?");
$save_as->vbox->pack_start( $label, $false, $false, 2 );
$label->show();
my $button = Gtk::Button->new("OK");
my $event_count = 0;
$button->signal_connect("clicked", sub {
$entry_advanced[4] = $new_template;
# This is a renaming deal and this time doesn't exist in the archive
if (!-f "$home_rootfs/$new_template") {
if ($template ne $new_template) {
return if err_custom("cp $tmp/$template $tmp/$new_template",
"gBootRoot: ERROR: Could not rename $template to " .
"$new_template") == 2;
}
return if errcp(sys("cp -a $tmp/$new_template $home_rootfs")) == 2;
$ear2->set_text($new_template);
$save_as->destroy;
}
# This is an write-over situation .. exists in $tmp and archive
elsif (-e "$tmp/$new_template" && -f "$tmp/$new_template"
&& -f "$home_rootfs/$new_template" ) {
return if errcp(sys("cp -a $tmp/$new_template $home_rootfs")) == 2;
$ear2->set_text($new_template);
$save_as->destroy;
}
# Here the file trying to be renamed already exist in the archive
# but doesn't exist in $tmp
else {
$label->set_text("$new_template already exists, " .
"do\nyou want to write over it, " .
"or\nsave it with a different name?");
$event_count++;
my $event = pop(@_);
if ($event_count >= 2 && $event && $event eq "clicked") {
if ("$tmp/$template" ne "$tmp/$new_template") {
return if err_custom("cp $tmp/$template $tmp/$new_template",
"gBootRoot: ERROR: Could not rename $template to " .
"$new_template") == 2;
}
return if errcp(sys("cp -a $tmp/$new_template $home_rootfs"))
== 2;
$event_count = 0;
$ear2->set_text($new_template);
$save_as->destroy;
}
}
},"clicked");
$button->can_default(1);
$save_as->action_area->pack_start($button, $false, $false,0);
$button->grab_default;
$button->show;
$button = Gtk::Button->new("Cancel");
$button->signal_connect("clicked", sub { destroy $save_as} );
$save_as->action_area->pack_start($button, $false, $false,0);
$button->show;
}
if (!visible $save_as) {
show $save_as;
}
else {
destroy $save_as;
}
} # end sub save_as
# Coming - .config storage, auto-matic kernel locus, all stages
# /usr/src/linux* Possible integration with other Projects .. modules
# will be in the logical place. Before ABS.

Write Preview
Loading…
Cancel
Save