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.

gbootroot

@@ -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,9 +1330,14 @@ sub accept_button {
 		}
 		close(F);
 		if ($ear2_save->active) {
+		    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) {
 		$compress = "bzip2";
 		open(F,"file $tmp/$entry_advanced[4] |"); 
@@ -1349,23 +1356,138 @@ sub accept_button {
 		}
 		close(F);
 		if ($ear2_save->active) {
+		    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) {
+		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 {
 	error("$entry_advanced[4] doesn't exist; create it first.\n");
     }
 
 } # 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.