This adds the New Template function.

BootRoot/YardBox.pm

@@ -1184,7 +1184,7 @@ sub saved {
 	}
     }
     elsif ($whoami == 101 || $whoami == 103) {
-	save_as();
+	save_as($whoami);
     }
 
 } # end sub saved
@@ -1587,7 +1587,8 @@ my $write_over;
 sub save_as {
 
 # Will just use a dialog box.
-    my ($error,$count,$pattern) = @_;
+    my ($whoami) = @_;
+    my $error;
 
     if (not defined $save_as) {
     $save_as = Gtk::Dialog->new();
@@ -1602,7 +1603,9 @@ sub save_as {
 	}
     },
 			     );
-    $save_as->set_title("Save As");
+    
+    $whoami == 101 ? $save_as->set_title("Save As") : 
+	$save_as->set_title("New Template");
     $save_as->border_width(12);
     $save_as->set_position('center');
 
@@ -1630,25 +1633,31 @@ sub save_as {
 	# check
 	my $new = "$template_dir$new_template" if $new_template;
 
-	if (!$new_template) {
+	if ( $whoami == 101 ) {
-	    if ( file_mode("$template_dir$template") =~ /l/ ) {
+
-		error_window("gBootRoot: ERROR: " . 
+	    if (!$new_template) {
-			     "$template_dir$template is not " .
+		if ( file_mode("$template_dir$template") =~ /l/ ) {
-			     "writable.\nUse [ File->Save As ] or " .
+		    error_window("gBootRoot: ERROR: " . 
-			     "[Alt-S] with the yard suffix.");		     
+				 "$template_dir$template is not " .
-		$save_as->destroy;
+				 "writable.\nUse [ File->Save As ] or " .
-		return;
+				 "[Alt-S] with the yard suffix.");
-	    }
+
-	    elsif ( file_mode("$template_dir$template") !~ /w/ ) {
+		    $save_as->destroy;
-		error_window("gBootRoot: ERROR: " . 
+		    return;
-			     "$template_dir$template is not " .
+		}
-			     "writable.\nUse [ File->Save As ] or " .
+		elsif ( file_mode("$template_dir$template") !~ /w/ ) {
-			     "[Alt-S] with the yard suffix.");		     
+		    error_window("gBootRoot: ERROR: " . 
-		$save_as->destroy;
+				 "$template_dir$template is not " .
-		return;
+				 "writable.\nUse [ File->Save As ] or " .
-		#save_as();
+				 "[Alt-S] with the yard suffix.");
+
+		    $save_as->destroy;
+		    return;
+		}
+
 	    }
-	}
+
+	} # $whoami == 101 
 
 	# An open template should just be saved not saved_as.
 	if (!$new_template) {
@@ -1665,7 +1674,15 @@ sub save_as {
 	    open(NEW,">$new") or 
 		($error = error("Can't create $new"));
 	    return if $error && $error eq "ERROR";    
-	    print NEW $changed_text_from_template;
+	    if ( $whoami == 101 ) {
+		print NEW $changed_text_from_template;
+	    }
+	    elsif ( $whoami == 103 ) {
+		my $text_length = $text->get_length();
+		$text->set_point($text_length);
+		$text->backward_delete($text->get_length());
+		print NEW "";
+	    }
 	    close(NEW);
 	    $template = $new_template;