From 13457646c85e6a49c3ae5ce914b3b5a660d1b306 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 24 Jul 2001 23:44:00 +0000
Subject: [PATCH] Add Save As box and capabilities.

---
 YardBox.pm | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 77 insertions(+), 1 deletion(-)

diff --git a/YardBox.pm b/YardBox.pm
index aa822b4..89306ab 100644
--- a/YardBox.pm
+++ b/YardBox.pm
@@ -39,6 +39,7 @@ my ($continue_button,$close_button,$save_button);
 my($check,$dep,$space,$create,$test);
 my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt);
 my ($text, $changed_text);
+my $save_as;
 
 my $filesystem_type = "ext2";
 my $inode_size = 8192;
@@ -999,7 +1000,7 @@ sub saved {
 	}
     }
     elsif ($whoami == 101) {
-	print "Getting there\n";
+	save_as();
     }
 
 }
@@ -1029,4 +1030,79 @@ sub yard_menu {
 
 } 
 
+# This will just be a simple dialog
+sub save_as {
+
+# Will just use a dialog box.
+    my ($dialog,$error,$count,$pattern) = @_;
+
+    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;
+    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($dialog);
+    $label->set_justify( 'left' );
+    $label->set_pattern("_________") if defined $pattern;
+    $save_as->vbox->pack_start( $label, $false, $false, 2 );
+    $label->show();
+    my $button = Gtk::Button->new("OK");
+    $button->signal_connect("clicked", sub {
+	    # Here's where we get to undef Yard variable and start over at 
+	    # check
+	    my $new = "$template_dir$new_template";
+	    open(NEW,">$new") or 
+		($error = error("gBootRoot: ERROR: Can't create $new"));
+	    return if $error && $error eq "ERROR";    
+	    print NEW $changed_text;
+	    close(NEW);
+	    $template = $new_template;
+	    $save_as->destroy
+    });
+    $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;
+        save_as($dialog,$error,$count) if $error == 0;
+     }
+
+
+}
+
 1;
+
+
+
+
+
+
+
+
+
+
+
+