Browse Source

* Now create is working!

* There are still some variables missing.  Dynamic %$ars and the
  variables passed to space_check are missing in copy_strip_file.
master
freesource 24 years ago
parent
commit
b52c3d4366
  1. 48
      YardBox.pm

48
YardBox.pm

@ -36,8 +36,10 @@ my $false = 0;
my $error; 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($device,$device_size,$filename,$filesystem_size,$kernel,$template_dir, my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt);
$template,$tmp,$mnt);
my $filesystem_type = "ext2";
my $inode_size = 8192;
my $TEXT_CHANGED = "no"; my $TEXT_CHANGED = "no";
my $lib_bool = 1; my $lib_bool = 1;
my $bin_bool = 1; my $bin_bool = 1;
@ -110,7 +112,8 @@ my @menu_items = ( { path => '/File',
action => 15, action => 15,
type => '<RadioItem>', type => '<RadioItem>',
callback => \&stages_user_defined }, callback => \&stages_user_defined },
{ path => '/Edit/File System' }, { path => '/Edit/File System',
callback => \&file_system },
{ path => '/Edit/Replacements' }, { path => '/Edit/Replacements' },
{ path => '/_Create', { path => '/_Create',
@ -181,8 +184,6 @@ sub yard {
my ($ars) = @_; my ($ars) = @_;
$device = $ars->{device};
$device_size = $ars->{device_size};
$filename = $ars->{filename}; $filename = $ars->{filename};
$filesystem_size = $ars->{filesystem_size}; $filesystem_size = $ars->{filesystem_size};
$kernel = $ars->{kernel}; $kernel = $ars->{kernel};
@ -215,6 +216,18 @@ sub yard {
} # end sub yard } # end sub yard
###############
# File System #
###############
# This allows the user to choose a different filesystem besides ext2.
# The space_check inode percentage formula can be altered. Default 2%.
sub file_system {
$filesystem_type = "ext2";
$inode_size = 8192;
}
########### ###########
# OBJCOPY # # OBJCOPY #
@ -419,6 +432,19 @@ sub continue {
$continue->{space} = 1; $continue->{space} = 1;
return; return;
} }
if ( $continue->{create} == 0 ) {
create();
foreach $thing (@check_boxes) {
$thing->hide();
$thing->active($false);
$thing->show();
}
$test->hide();
$test->active($true);
$test->show();
$continue->{create} = 1;
return;
}
} }
@ -429,8 +455,6 @@ 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";
$continue->{check} = 1;
} }
sub links_deps { sub links_deps {
@ -444,8 +468,6 @@ sub links_deps {
$error = library_dependencies("$template_dir$template"); $error = library_dependencies("$template_dir$template");
return if $error && $error eq "ERROR"; return if $error && $error eq "ERROR";
$continue->{links_deps} = 1;
} }
sub space_left { sub space_left {
@ -464,6 +486,9 @@ sub space_left {
sub create { sub create {
$error = create_filesystem($filename,$filesystem_size,$filesystem_type,
$inode_size,$mnt);
return if $error && $error eq "ERROR";
} }
@ -827,7 +852,6 @@ sub yard_box {
$vbox->show(); $vbox->show();
$check = new Gtk::CheckButton("Check"); $check = new Gtk::CheckButton("Check");
$check->active($true);
$check->signal_connect("clicked", \&which_stage, "check"); $check->signal_connect("clicked", \&which_stage, "check");
$vbox->pack_start( $check, $true, $true, 10 ); $vbox->pack_start( $check, $true, $true, 10 );
show $check; show $check;
@ -852,6 +876,10 @@ sub yard_box {
$vbox->pack_start( $test, $true, $true, 0 ); $vbox->pack_start( $test, $true, $true, 0 );
show $test; show $test;
# sets up default radiobutton behavior
which_stage("check","check");
$check->active($true);
#_______________________________________ #_______________________________________
# Separator # Separator
$separator = new Gtk::HSeparator(); $separator = new Gtk::HSeparator();

Loading…
Cancel
Save