bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

This adds more improvements to New Template, allowing a template of the same name to

Browse Source 
be written over as a blank file, and puts a blank entry .. if the user attempts to write
to the blank entry, the dialog will ask if they want to save the original template.
This commit is contained in:
freesource 2001-11-29 19:16:41 +00:00
parent 0867ee47fb
commit 8223d83b88
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
BootRoot/YardBox.pm
View File

@ -1612,7 +1612,9 @@ sub save_as {
my $new_template;
my $entry = Gtk::Entry->new();
$entry->set_editable( $true );
$entry->set_text($template) if $template;
if ( $whoami == 101 ) {
$entry->set_text($template) if $template;
}
$entry->signal_connect( "changed", sub {
$new_template = $entry->get_text();
});
@ -1715,9 +1717,15 @@ sub save_as {
}
$label->set_text("$new_template already exists, " .
"do\nyou want to write over it, " .
"or\nsave $template with a different name?");
if ( $whoami == 101 ) {
$label->set_text("$new_template already exists, " .
"do\nyou want to write over it, " .
"or\nsave $template with a different name?");
}
elsif ( $whoami == 103 ) {
$label->set_text("$new_template already exists, " .
"do\nyou want to write over it?");
}
$event_count++;
my $event = pop(@_);
@ -1728,7 +1736,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;