Browse Source

* Now the Save button and Ctrl-S are doing there thing, and not writing over

unwritable files.
master
freesource 24 years ago
parent
commit
ce709f1277
  1. 94
      YardBox.pm

94
YardBox.pm

@ -28,6 +28,7 @@ use Exporter;
use strict; use strict;
use Yard; use Yard;
use Error; use Error;
use lsMode;
my $yard_window; my $yard_window;
my $item_factory; my $item_factory;
@ -37,10 +38,10 @@ my $error;
my ($continue_button,$close_button,$save_button); my ($continue_button,$close_button,$save_button);
my($check,$dep,$space,$create,$test); my($check,$dep,$space,$create,$test);
my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt); my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt);
my ($text, $changed_text);
my $filesystem_type = "ext2"; my $filesystem_type = "ext2";
my $inode_size = 8192; my $inode_size = 8192;
my $TEXT_CHANGED = "no";
my $lib_bool = 1; my $lib_bool = 1;
my $bin_bool = 1; my $bin_bool = 1;
my $mod_bool = 1; my $mod_bool = 1;
@ -56,18 +57,25 @@ $template = $ars->{template};
$tmp = $ars->{tmp}; $tmp = $ars->{tmp};
$mnt = $ars->{mnt}; $mnt = $ars->{mnt};
# Freshmeat comes here so the rest of the program needs
# to be warned when the template is coming from here.
$changed_text = "$template_dir$template";
} }
my @menu_items = ( { path => '/File', my @menu_items = ( { path => '/File',
type => '<Branch>' }, type => '<Branch>' },
{ path => '/File/file_tearoff', { path => '/File/file_tearoff',
type => '<Tearoff>' }, type => '<Tearoff>' },
{ path => '/File/_Save', { path => '/File/_Save',
accelerator => '<control>S', accelerator => '<control>S',
callback => sub { print "hello"; } }, callback => \&saved,
action => 100 },
{ path => '/File/Save _As ...', { path => '/File/Save _As ...',
accelerator => '<alt>S', accelerator => '<alt>S',
callback => sub { print "hello\n"; } }, callback => \&saved,
action => 101 },
{ path => '/File/file_separator', { path => '/File/file_separator',
type => '<Separator>' }, type => '<Separator>' },
{ path => '/File/Close', { path => '/File/Close',
@ -202,13 +210,13 @@ sub yard {
# Yard: kernel,kernel version # Yard: kernel,kernel version
# Becomes $ENV{'RELEASE'} # Becomes $ENV{'RELEASE'}
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
open(CONTENTS, "<$template_dir$template") or open(CONTENTS, "<$changed_text") or
($error = error("$template_dir$template: $!")); ($error = error("$changed_text: $!"));
return "ERROR"if $error && $error eq "ERROR"; return "ERROR"if $error && $error eq "ERROR";
my @template = <CONTENTS>; my @template = <CONTENTS>;
close(CONTENTS); close(CONTENTS);
my $stuff = join("",@template); $changed_text = join("",@template);
yard_box($stuff); yard_box();
} }
else { else {
@ -334,23 +342,11 @@ sub which_stage {
# 1 1 1 1 0 # 1 1 1 1 0
# 1 1 1 1 1 # 1 1 1 1 1
# text will have to be dealt with differently
# 0 everything # 0 everything
if ($name eq "check" || $TEXT_CHANGED eq "yes") { if ($name eq "check") {
foreach $name_cmp (%$continue) { foreach $name_cmp (%$continue) {
$continue->{$name_cmp} = 0; $continue->{$name_cmp} = 0;
} }
if ($TEXT_CHANGED eq "yes") {
foreach $thing (@check_boxes) {
$thing->hide();
$thing->active($false);
$thing->show();
}
$check->hide();
$check->active($true);
$check->show();
$TEXT_CHANGED = "no";
}
} }
# 1 0 0 0 0 # 1 0 0 0 0
elsif ($name eq "dep") { elsif ($name eq "dep") {
@ -501,20 +497,20 @@ sub continue {
sub check { sub check {
$error = read_contents_file("$template_dir$template"); $error = read_contents_file($changed_text);
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
} }
sub links_deps { sub links_deps {
$error = extra_links("$template_dir$template"); $error = extra_links($changed_text);
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
$error = hard_links(); $error = hard_links();
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
$error = library_dependencies("$template_dir$template"); $error = library_dependencies($changed_text);
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
} }
@ -650,6 +646,7 @@ my $module_bool = 1;
my $start_length; my $start_length;
sub yard_box { sub yard_box {
$yard_window = new Gtk::Window "toplevel"; $yard_window = new Gtk::Window "toplevel";
$yard_window->signal_connect("destroy", \&destroy_window, $yard_window->signal_connect("destroy", \&destroy_window,
\$yard_window); \$yard_window);
@ -870,15 +867,11 @@ sub yard_box {
#_______________________________________ #_______________________________________
# Create the GtkText widget # Create the GtkText widget
my $text = new Gtk::Text( undef, undef ); $text = new Gtk::Text( undef, undef );
$text->set_editable($true); $text->set_editable($true);
$text->signal_connect("changed", sub { $text->signal_connect("activate", sub {
my $new_length = $text->get_length(); my $new_length = $text->get_length();
my $changed_text = $text->get_chars(0,$new_length); $changed_text = $text->get_chars(0,$new_length);
if ( $start_length != $new_length ) {
print "Text has changed $start_length $new_length\n";
$TEXT_CHANGED = "yes";
}
} ); } );
$table->attach( $text, 0, 1, 0, 1, $table->attach( $text, 0, 1, 0, 1,
[ 'expand', 'shrink', 'fill' ], [ 'expand', 'shrink', 'fill' ],
@ -888,7 +881,7 @@ sub yard_box {
$text->show(); $text->show();
$text->freeze(); $text->freeze();
$text->insert( undef, undef, undef, $_[0]); $text->insert( undef, undef, undef, $changed_text);
$text->thaw(); $text->thaw();
$start_length = $text->get_length(); $start_length = $text->get_length();
@ -967,8 +960,8 @@ sub yard_box {
$close_button->show(); $close_button->show();
$save_button = new Gtk::Button( "Save" ); $save_button = new Gtk::Button( "Save" );
$save_button->signal_connect( 'clicked', # This sub can be used by all the saved buttons
sub { destroy $yard_window; } ); $save_button->signal_connect( 'clicked', \&saved, 102);
$vbox->pack_start( $save_button, $true, $true, 0 ); $vbox->pack_start( $save_button, $true, $true, 0 );
$save_button->show(); $save_button->show();
@ -976,6 +969,41 @@ sub yard_box {
} # end sub yard_box } # end sub yard_box
sub saved {
my ($widget,$whoami) = @_;
my $error;
$text->activate();
# It's not necessary to use lsMode, but it's a cool program by MJD.
if ($whoami == 100 || $whoami == 102 ) {
if ( file_mode("$template_dir$template") !~ /w/ ) {
error_window("gBootRoot: ERROR: $template_dir$template is not " .
"writable.\nUse [ File->Save As ] or " .
"[Alt-S] with the yard suffix.");
}
else {
# Here's where we get to undef Yard variable and start over at
# check
my $new = "$template_dir$template" . ".new";
open(NEW,">$new") or
($error = error("gBootRoot: ERROR: Can't create $new"));
return if $error && $error eq "ERROR";
print NEW $changed_text;
close(NEW);
rename($new, "$template_dir$template") or
($error = error("gBootRoot: ERROR: Can't rename $new to " .
"$template_dir$template"));
return if $error && $error eq "ERROR";
}
}
elsif ($whoami == 101) {
print "Getting there\n";
}
}
sub print_hello { sub print_hello {
my ($menu_item, $action, $date) = @_; my ($menu_item, $action, $date) = @_;

Loading…
Cancel
Save