Browse Source

Add Save As box and capabilities.

master
freesource 24 years ago
parent
commit
13457646c8
  1. 78
      YardBox.pm

78
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;

Loading…
Cancel
Save