bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

This shows the title of the template, and save_as won't permit save_as self, 

and checks when another existing file is being written over.
master
freesource 24 years ago
parent
397d25cfc4
commit
13932faa43
1 changed files with 58 additions and 32 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 90
      BootRoot/YardBox.pm

90
BootRoot/YardBox.pm
View File

@ -231,13 +231,6 @@ sub yard {
$changed_text_from_template = join("",@template); $changed_text_from_template = join("",@template);
yard_box(); yard_box();
#}
#else {
##error_window("Kernel Selection required");
##return;
#}
} # end sub yard } # end sub yard
############### ###############
@ -283,13 +276,12 @@ sub file_system {
# Check to see if it actually exists # Check to see if it actually exists
my $executable = (split(/\s+/,$entry[2]))[0]; my $executable = (split(/\s+/,$entry[2]))[0];
if (!find_file_in_path(basename($executable))) { if (!find_file_in_path(basename($executable))) {
error_window("gBootRoot Error: " . error_window("gBootRoot: ERROR: Enter a valid command");
"Enter a valid command");
return; return;
} }
if ($executable =~ m,/,) { if ($executable =~ m,/,) {
if (! -e $executable) { if (! -e $executable) {
error_window("gBootRoot Error: " . error_window("gBootRoot: ERROR: " .
"Enter a valid path for the command."); "Enter a valid path for the command.");
return; return;
} }
@ -575,7 +567,7 @@ sub continue {
} }
sub check { sub check {
$error = read_contents_file("$template_dir$template"); $error = read_contents_file("$template_dir$template");
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
@ -745,7 +737,7 @@ sub yard_box {
\$main::yard_window); \$main::yard_window);
$main::yard_window->set_usize( 525, 450 ); $main::yard_window->set_usize( 525, 450 );
$main::yard_window->set_policy( $true, $true, $false ); $main::yard_window->set_policy( $true, $true, $false );
$main::yard_window->set_title( "Yard Box" ); $main::yard_window->set_title( "Yard Box - $template" );
$main::yard_window->border_width(0); $main::yard_window->border_width(0);
my $main_vbox = new Gtk::VBox( $false, 0 ); my $main_vbox = new Gtk::VBox( $false, 0 );
@ -1073,12 +1065,14 @@ sub saved {
# It's not necessary to use lsMode, but it's a cool program by MJD. # It's not necessary to use lsMode, but it's a cool program by MJD.
if ($whoami == 100 || $whoami == 102 ) { if ($whoami == 100 || $whoami == 102 ) {
if ( file_mode("$template_dir$template") =~ /l/ ) { if ( file_mode("$template_dir$template") =~ /l/ ) {
error_window("gBootRoot: ERROR: $template_dir$template is not " . error_window("gBootRoot: ERROR: " .
"$template_dir$template is not " .
"writable.\nUse [ File->Save As ] or " . "writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix."); "[Alt-S] with the yard suffix.");
} }
elsif ( file_mode("$template_dir$template") !~ /w/ ) { elsif ( file_mode("$template_dir$template") !~ /w/ ) {
error_window("gBootRoot: ERROR: $template_dir$template is not " . error_window("gBootRoot: ERROR: " .
"$template_dir$template is not " .
"writable.\nUse [ File->Save As ] or " . "writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix."); "[Alt-S] with the yard suffix.");
} }
@ -1087,12 +1081,12 @@ sub saved {
# check # check
my $new = "$template_dir$template" . ".new"; my $new = "$template_dir$template" . ".new";
open(NEW,">$new") or open(NEW,">$new") or
($error = error("gBootRoot: ERROR: Can't create $new")); ($error = error("Can't create $new"));
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
print NEW $changed_text_from_template; print NEW $changed_text_from_template;
close(NEW); close(NEW);
rename($new, "$template_dir$template") or rename($new, "$template_dir$template") or
($error = error("gBootRoot: ERROR: Can't rename $new to " . ($error = error("Can't rename $new to " .
"$template_dir$template")); "$template_dir$template"));
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
} }
@ -1101,7 +1095,7 @@ sub saved {
save_as(); save_as();
} }
} } # end sub saved
sub print_hello { sub print_hello {
my ($menu_item, $action, $date) = @_; my ($menu_item, $action, $date) = @_;
@ -1129,6 +1123,7 @@ sub yard_menu {
} }
# This will just be a simple dialog # This will just be a simple dialog
my $write_over;
sub save_as { sub save_as {
# Will just use a dialog box. # Will just use a dialog box.
@ -1154,33 +1149,62 @@ sub save_as {
my $label = Gtk::Label->new(); my $label = Gtk::Label->new();
$label->set_justify( 'left' ); $label->set_justify( 'left' );
$label->set_pattern("_________") if defined $pattern; #$label->set_pattern("_________") if defined $pattern;
$save_as->vbox->pack_start( $label, $false, $false, 2 ); $save_as->vbox->pack_start( $label, $false, $false, 2 );
$label->show(); $label->show();
my $button = Gtk::Button->new("OK"); my $button = Gtk::Button->new("OK");
$button->signal_connect("clicked", sub { $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";
if (!basename($new)) { # Here's where we get to undef Yard variable and start over at
# check
my $new = "$template_dir$new_template" if $new_template;
#if (!basename($new)) {
if (!$new_template) {
if ( file_mode("$template_dir$template") =~ /l/ ) { if ( file_mode("$template_dir$template") =~ /l/ ) {
error_window("gBootRoot: ERROR: $template_dir$template is not " . error_window("gBootRoot: ERROR: " .
"$template_dir$template is not " .
"writable.\nUse [ File->Save As ] or " . "writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix."); "[Alt-S] with the yard suffix.");
$save_as->destroy; $save_as->destroy;
return; return;
} }
elsif ( file_mode("$template_dir$template") !~ /w/ ) { elsif ( file_mode("$template_dir$template") !~ /w/ ) {
error_window("gBootRoot: ERROR: $template_dir$template is not " . error_window("gBootRoot: ERROR: " .
"$template_dir$template is not " .
"writable.\nUse [ File->Save As ] or " . "writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix."); "[Alt-S] with the yard suffix.");
$save_as->destroy; $save_as->destroy;
return; save_as();
} }
} }
# An open template should just be saved not saved_as.
if (!$new_template) {
error_window("gBootRoot: ERROR: $template already exists, " .
"use Save instead.");
$save_as->destroy;
return;
}
# An existing file shouldn't be written over unless the user wants
# this to happen.
if (-f $new && !$write_over) {
my $label = Gtk::Label->new("$new_template already exists,
do you want to write over it?");
$label->set_justify( 'left' );
$save_as->vbox->pack_start( $label, $false, $false, 2 );
$label->show();
$write_over = 1;
}
else {
$write_over = "";
}
if (!$write_over) {
open(NEW,">$new") or open(NEW,">$new") or
($error = error("gBootRoot: ERROR: Can't create $new")); ($error = error("Can't create $new"));
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
print NEW $changed_text_from_template; print NEW $changed_text_from_template;
close(NEW); close(NEW);
@ -1191,9 +1215,12 @@ sub save_as {
closedir(DIR); closedir(DIR);
$main::combo->set_popdown_strings( @templates ) if @templates; $main::combo->set_popdown_strings( @templates ) if @templates;
$main::combo->entry->set_text($new_template); $main::combo->entry->set_text($new_template);
$main::yard_window->set_title( "Yard Box - $template" );
$save_as->destroy;
}
$save_as->destroy;
}); });
$button->can_default(1); $button->can_default(1);
$save_as->action_area->pack_start($button, $false, $false,0); $save_as->action_area->pack_start($button, $false, $false,0);
$button->grab_default; $button->grab_default;
@ -1205,11 +1232,11 @@ sub save_as {
$button->show; $button->show;
} }
if (!visible $save_as) { if (!visible $save_as) {
show $save_as; show $save_as;
} }
else { else {
destroy $save_as; destroy $save_as;
save_as($error,$count) if $error == 0; #save_as($error,$count) if $error == 0;
} }
} # end sub save_as } # end sub save_as
@ -1400,13 +1427,12 @@ sub Replacements {
# Check to see if it actually exists # Check to see if it actually exists
my $executable = (split(/\s+/,$entry[0]))[0]; my $executable = (split(/\s+/,$entry[0]))[0];
if (!find_file_in_path(basename($executable))) { if (!find_file_in_path(basename($executable))) {
error_window("gBootRoot Error: " . error_window("gBootRoot: ERROR: Enter a valid editor.");
"Enter a valid editor.");
return; return;
} }
if ($executable =~ m,/,) { if ($executable =~ m,/,) {
if (! -e $executable) { if (! -e $executable) {
error_window("gBootRoot Error: " . error_window("gBootRoot: ERROR: " .
"Enter a valid path for the editor."); "Enter a valid path for the editor.");
return; return;
} }

Write Preview
Loading…
Cancel
Save