From 13457646c85e6a49c3ae5ce914b3b5a660d1b306 Mon Sep 17 00:00:00 2001 From: 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; + + + + + + + + + + + +